! ! draw the limits of 15-m telescope panels to superpose to the surface maps. ! ! define double r[7] x[2] y[2] theta rr let r .0992194 .2628684 .4226504 .5769037 .7246951 .8656991 1.0 def integer nth[6] ii let nth 16 32 32 32 32 32 ! box n n ellipse 7.5 /user 0 0 for j 1 to 16 let theta j*pi|8. draw reloc r[1]*cos(theta)*7.5 r[1]*sin(theta)*7.5 /user draw line r[7]*cos(theta)*7.5 r[7]*sin(theta)*7.5 /user next for j 1 to 31 by 2 let theta j*pi|16. draw reloc r[2]*cos(theta)*7.5 r[2]*sin(theta)*7.5 /user draw line r[7]*cos(theta)*7.5 r[7]*sin(theta)*7.5 /user if ("&1#".ne."#") then pen 1 draw text r[7]*cos(theta)*7.8 r[7]*sin(theta)*7.8 'mod((15-j)|2,16)+1' /user let rr 3.75*(r[1]+r[2]) draw text rr*cos(theta) rr*sin(theta) 11 /user for i 2 to 6 let ii i+1 let rr 3.75*(r[i]+r[ii]) draw text rr*cos(theta+pi|32.) rr*sin(theta+pi|32.) 'i'1 /user draw text rr*cos(theta-pi|32.) rr*sin(theta-pi|32.) 'i'2 /user next pen 0 endif next for i 1 to 7 ellipse 7.5*r[i] 7.5*r[i] /user 0 0 next