Макинтош и образование:Информатика и ИТ:Лого:Углы и координаты

При работе с ЛогоМирами полезно иметь под руками "шпаргалку", позволяющую быстро определить необходимый угол поворота. Например, вот такую:

; (c)1991,1996 V. Batagelj
; (c)1999 McKryak -- adapted for MicroWorlds
TO Label :z
SetH 90
TurtleType :z
Repeat 3[fd 8]
END

TO Arc :a :r
PU SetH 270 FD :r RT 90 PD
Repeat :a[ FD :r / 180 * 3.1416 RT 1]
END

TO Circle :x0 :y0 :r
  PU SetPos (list :x0 :y0) PD Arc 360 :r
END

TO Angles
  HT
  SetPenSize 2 SetC 9
  CG Circle 0 0 100
  PU Make "a 0 
  Repeat 12
  [
    Make "a :a + 30 SetC 85
    PU Home SetH :a PD FD 100
    PU FD 10 LT 90 FD 10 RT 90
    PU SetC 55
    Label :a 
  ]
  SetPos [0 120] 
 Label 0
  Home 
  ST
END

Хотя "конек" Лого -- "черепашья" графика, абсолютные координаты тоже не помешают:

TO XY_Coor
  Clean HT PU SetC 9  SetPenSize 2
  SetPos [0 -200] PD FD 400 PU 
  SetPos [-300 0] RT 90 PD FD 600 
  SetC 15
  PU SetPos [150 0] SetH 0 PD FD 100  LT 90  FD 150
  PU SetPos [-60 0] SetH 0 PD BK  80  RT 90   FD 60  PU
  SetC 105
  SetPos [  -12 125]  TurtleType "Y FD 1
  SetPos [  245   5]  TurtleType "X FD 1
  SetPos [    7   6]  TurtleType "|[0 0]| Repeat 5 [FD 7]
  SetPos [  155 100]  TurtleType "|[150 100]| Repeat 9 [FD 7]
  SetPos [  140 -16]  TurtleType 150 Repeat 3 [FD 7]
  SetPos [  -25 100]  TurtleType 100 Repeat 3 [FD 7]
  SetPos [ -125 -80]  TurtleType "|[-60 -80]| Repeat 9 [FD 7]
  SetPos [  -70   6]  TurtleType -60 Repeat 3 [FD 7]
  SetPos [    7 -80]  TurtleType -80 Repeat 3 [FD 7]
  SetC 9 SetPenSize 1 Home PD 
END