FUJIbaud[data„0VUUüTO ZERO›HOP [HOME GORA :y.0 PRAWO :x.0 PRZOD :z.0]›END››TO WOKOL.PUNKTU :x :y :z›MAKE "x.0 ( - :x )›MAKE "y.0 ( - :y )›MAKE "x.0Þdata„UUü ( - :z )›END››TO ZBLIZENIE :krotnosc›PODZIALKI :krotnosc * :podzx :krotnosc * :podzy :krotnosc * :podzz›END››TO OD.SPODU›SYMETRÕdata„UUü.XZ SYMETR.YZ›END››TO OD.TYLU›SYMETR.XY SYMETR.YZ›END››TO SYMETR.YZ›MAKE "katx :katx + 180›END››TO SYMETR.XZ›MAKE "katy :katy + ¬data„UUü180›END››TO SYMETR.XY›MAKE "katz :katz + 180›END››TO OBROCONE :kat›MAKE "katx :katx + :kat›MAKE "katy :katy + :kat›MAKE "katz :kdata„UUüatz + :kat›END››TO ODLEGLOSC :x :y›MAKE "deltax :x - XCOR›MAKE "deltay :y - YCOR›OUTPUT SQRT ( :deltax * :deltax + :deltay * :dewdata„UUültay )›END››TO ODC :dx :dy :dz›MAKE "now.xcor ( SUM XCOR :podzx * :dx * SIN :katx :podzy * :dy * SIN :katy :podzz * :dz * SIN :kÂdata„UUüatz )›MAKE "now.ycor ( SUM YCOR :podzx * :dx * COS :katx :podzy * :dy * COS :katy :podzz * :dz * COS :katz›SETH TOWARDS :now.xcoìdata„…UUür :now.ycor›NAPRZOD ODLEGLOSC :now.xcor :now.ycor›END››TO PROST.YZ :y :z›GORA :y PRZOD :z DOL :y TYL :z›END››TO PROST.XZ :x :z›PZdata„UUüRZOD :z PRAWO :x TYL :z LEWO :x›END››TO PROST.XY :x :y›GORA :y PRAWO :x DOL :y LEWO :x›END››TO KOSTKA :x :y :z›PROST.XY :x :y›PR«data„UUüOST.XZ :x :z›HOP [PRZOD :z] PROST.XY :x :y›HOP [TYL :z GORA :y]›PROST.XZ :x :z›HOP [DOL :y]›END››TO UKLAD›HOP [HOME] PRAWO 200 Hmdata„rUUüOP [HOME]›GORA 200 HOP [HOME]›PRZOD 200 HOP [HOME]›END››TO HOP :co.zrobic›PENUP RUN :co.zrobic PENDOWN›END››TO TYL :odl›PRZOD - ðdata„ UUü:odl›END››TO PRZOD :odl›SETH :katz›NAPRZOD :odl * :podzz›END››TO DOL :odl›GORA - :odl›END››TO GORA :odl›SETH :katy›NAPRZOD :odl üdata„UUü* :podzy›END››TO LEWO :odl›SETH :katx + 180›NAPRZOD :odl * :podzx›END››TO NAPRZOD :odl›FD :odl›END››TO PRAWO :odl›SETH :katx›NAPŸdata„}UUüRZOD :odl * :podzx›END››TO RZUT :nazwa›IF MEMBERP :nazwa [prostokatny p P] [OSIE 90 0 225 PODZIALKI 1 1 0.5 CS STOP]›IF MEMBERP qdata„}UUü:nazwa [jednomiarowy j J] [OSIE 120 0 240 PODZIALKI 1 1 1 CS STOP]›IF MEMBERP :nazwa [wojskowy w W] [OSIE 135 0 225 PODZIALKI 1 ‡data„€UUü0.5 1 CS STOP]›IF MEMBERP :nazwa [gorny g G] [OSIE 90 0 180 PODZIALKI 1 0 1 CS STOP]›IF MEMBERP :nazwa [boczny b B] [OSIE 0 0 90Kdata„‚UUü PODZIALKI 0 1 1 CS STOP]›IF MEMBERP :nazwa [z.przodu z Z] [OSIE 90 0 0 PODZIALKI 1 1 0 CS STOP]›IF MEMBERP :nazwa [trzy.czwarteYdata„{UUü t T] [OSIE 100 0 235 PODZIALKI 1 1 0.65 CS STOP]›PRINT [Nie znam takiego rzutu !]›END››TO PODZIALKI :x :y :z›MAKE "podzx :x›MAKdata„…UUüE "podzy :y›MAKE "podzz :z›END››TO OSIE :x :y :z›MAKE "katx :x›MAKE "katy :y›MAKE "katz :z›END››TO TOWARDS :X2 :Y2›MAKE "X1 XCORGdata„!UUü›MAKE "Y1 YCOR›MAKE "X :X2 - :X1 + 2.0E-03›MAKE "Y :Y2 - :Y1 + 2.0E-03›IF :X < 0 [MAKE "X3 - :X]›IF ( OR :X > 0 :X = 0 ) [MAKE "xdata„|UUüX3 :X]›MAKE "A ( 180 * SQRT ( ( 8 * :X * :X ) / 3 - ( 8 * :X3 * SQRT ( :X * :X + :Y * :Y ) ) / 3 + ( 7 * :Y * :Y ) / 3 ) ) / ( 3Vdata„uUUü.1415927 * SQRT ( :X * :X + :Y * :Y ) )›IF ( AND :Y < 0 OR :X = 0 :X > 0 ) [OUTPUT ROUND ( 90 + :A )]›IF ( AND :Y < 0 OR :X = 0 —data„UUü:X < 0 ) [OUTPUT ROUND ( 270 - :A )]›IF ( AND :X < 0 OR :Y = 0 :Y > 0 ) [OUTPUT ROUND ( 270 + :A )]›OUTPUT ROUND ( 90 - :A )›ENDÆdata„ÛUUú›››< 0 ) [OUTPUT ROUND ( 270 - :A )]›IF ( AND :X < 0 OR :Y = 0 :Y > 0 ) [OUTPUT ROUND ( 270 + :A )]›OUTPUT ROUND ( 90 - :A )›EN£data„„UUþ©