FUJIbaudZdata„;VUUüTO TOWARDS :X2 :Y2›MAKE "X1 XCOR›MAKE "Y1 YCOR›MAKE "X :X2 - :X1›MAKE "Y :Y2 - :Y1›IF :X < 0 [MAKE "X3 - :X]›IF ( OR :X > 0 :X =ödata„„ UUü 0 ) [MAKE "X3 :X]›MAKE "A ( 180 * SQRT ( ( 8 * :X * :X ) / 3 - ( 8 * :X3 * SQRT ( :X * :X + :Y * :Y ) ) / 3 + ( 7 * :Y * :Y ) /ûdata„$ UUü 3 ) ) / ( 3.1415927 * SQRT ( :X * :X + :Y * :Y ) )›IF ( AND :Y < 0 OR :X = 0 :X > 0 ) [OUTPUT ROUND ( 90 + :A )]›IF ( AND :Y < õdata„x UUü0 OR :X = 0 :X < 0 ) [OUTPUT ROUND ( 270 - :A )]›IF ( AND :X < 0 OR :Y = 0 :Y > 0 ) [OUTPUT ROUND ( 270 + :A )]›OUTPUT ROUND ( 9cdata„½ UUú0 - :A )›END›››< 0 ) [OUTPUT ROUND ( 270 - :A )]›IF ( AND :X < 0 OR :Y = 0 :Y > 0 ) [OUTPUT ROUND ( 270 + :A )]›OUTPUT ROUND ( ºdata„† UUþ©