c newsiz -set new character size subroutine newsiz (wid, hgt) real wid,hgt call alphsz(wid, hgt) return end c detang - returns angle (modulo 360) , sine, and cosine real function detang (angle,ancc,ancs) a = amod (angle,360.) if(.not.(a .lt. 0.))goto 23000 a = a + 360. 23000 continue c Convert degrees to radians arad = a * .01745329 ancs = sin (arad) ancc = cos (arad) detang = a return end c newxay - transform (nx,ny) into (x,y) with angle