FUJIbaud\data„óUUUüTO TOWARDS :X2 :Y2›MAKE "X1 XCOR›MAKE "Y1 YCOR›MAKE "X :X2 - :X1 + 2.0E-03›MAKE "Y :Y2 - :Y1 + 2.0E-03›IF :X < 0 [MAKE "X3 - :X]ódata„UUü›IF ( OR :X > 0 :X = 0 ) [MAKE "X3 :X]›MAKE "A ( 180 * SQRT ( ( 8 * :X * :X ) / 3 - ( 8 * :X3 * SQRT ( :X * :X + :Y * :Y ) ) / 3#data„ UUü + ( 7 * :Y * :Y ) / 3 ) ) / ( 3.1415927 * SQRT ( :X * :X + :Y * :Y ) )›IF ( AND :Y < 0 OR :X = 0 :X > 0 ) [OUTPUT ROUND ( 90 + »data„UUü:A )]›IF ( AND :Y < 0 OR :X = 0 :X < 0 ) [OUTPUT ROUND ( 270 - :A )]›IF ( AND :X < 0 OR :Y = 0 :Y > 0 ) [OUTPUT ROUND ( 270 + :Aœdata„‚UUú )]›OUTPUT ROUND ( 90 - :A )›END›››MAKE "X3 2.0E-03›MAKE "Y1 0›MAKE "X1 0›MAKE "A 87.42094716›MAKE "Y 1.002›MAKE "X 2.0E-03›+ :|qdata„‚UUþ©