+PROG AQUA
HEAD
PAGE UNII 6
CTRL REST 1

SECT 1 MNO 1

TVAR 'D' 1000
TVAR 'T' 9.99999977648258


POLY TYPE O
VERT '1' '=#D/2*COS((0*90)*(180/Pi))' '=#D/2*SIN((0*90)*(180/Pi))'
VERT '2' '=#D/2*COS((1*90)*(180/Pi))' '=#D/2*SIN((1*90)*(180/Pi))'
VERT '3' '=#D/2*COS((2*90)*(180/Pi))' '=#D/2*SIN((2*90)*(180/Pi))'
VERT '4' '=#D/2*COS((3*90)*(180/Pi))' '=#D/2*SIN((3*90)*(180/Pi))'
VERT '1' '=#D/2*COS((0*90)*(180/Pi))' '=#D/2*SIN((0*90)*(180/Pi))'

POLY TYPE O MNO 2
VERT '1' '=#D/2*COS((0*90)*(180/Pi))' '=#D/2*SIN((0*90)*(180/Pi))'
VERT '2' '=#D/2*COS((1*90)*(180/Pi))' '=#D/2*SIN((1*90)*(180/Pi))'
VERT '3' '=#D/2*COS((2*90)*(180/Pi))' '=#D/2*SIN((2*90)*(180/Pi))'
VERT '4' '=#D/2*COS((3*90)*(180/Pi))' '=#D/2*SIN((3*90)*(180/Pi))'
VERT '1' '=#D/2*COS((0*90)*(180/Pi))' '=#D/2*SIN((0*90)*(180/Pi))'



END