это нов_свойства
;нов_свойство "xTek
;нов_свойство "yTek
;нов_свойство "угол
;нов_свойство "угловая_скорость
;нов_свойство "радиус_орбиты
;нов_свойство "y-центр
;нов_свойство "x-центр
;нов_свойство "это-планета
;нов_свойство "список-спутников
конец


это установка_значений_свойств
Солнце, установи_y-центр 0
Солнце, установи_x-центр 0
;Солнце, установи_угол 0
Земля, установи_x-центр 0
Земля, установи_y-центр 0
Земля, установи_xTek 0
Земля, установи_yTek 0
Земля, установи_радиус_орбиты 131
  ;Угловую скорость земли устанавливаем
  ;равной полному числу градусов,
  ;деленному на число дней оборота Земли
  ;вокруг Солнца
Земля, установи_угловая_скорость 0.5
Земля, установи_угол 0
Земля, установи_список-спутников [Луна]
Земля, установи_это-планета "да
Луна, установи_радиус_орбиты 30 ;увеличиваем
Луна, установи_x-центр 0
Луна, установи_y-центр 0
Луна, установи_угол 0
  ;Угловую скорость луны устанавливаем
  ;равной полному числу градусов,
  ;деленному на число дней оборота луны
  ;вокруг Земли
Луна, установи_угловая_скорость 3
Луна, установи_это-планета "нет
Луна, установи_список-спутников []
Марс, установи_x-центр 0
Марс, установи_y-центр 0
Марс, установи_угол 0
Марс, установи_угловая_скорость 0,253
Марс, установи_это-планета "да
Марс, установи_список-спутников [Фобос Деймос]
Марс, установи_радиус_орбиты 220
Деймос, установи_x-центр 0
Деймос, установи_y-центр 220
Деймос, установи_радиус_орбиты 35
Деймос, установи_угол 0
Деймос, установи_угловая_скорость 2
Деймос, установи_это-планета "нет
Деймос, установи_список-спутников []
Меркурий, установи_x-центр 0
Меркурий, установи_y-центр 0
Меркурий, установи_радиус_орбиты 45
Меркурий, установи_угол 0
Меркурий, установи_угловая_скорость 0,816
Меркурий, установи_это-планета "да
Меркурий, установи_список-спутников []
Венера, установи_x-центр 0
Венера, установи_y-центр 0
Венера, установи_радиус_орбиты 80
Венера, установи_угол 0
Венера, установи_угловая_скорость 0,416
Венера, установи_это-планета "да
Венера, установи_список-спутников []
Фобос, установи_x-центр 0
Фобос, установи_y-центр 220
Фобос, установи_радиус_орбиты 21
Фобос, установи_угол 0
Фобос, установи_угловая_скорость 1
Фобос, установи_это-планета "нет
Фобос, установи_список-спутников []

конец

это начало
Солнце, пп нм  [0 0]
Земля, пп нм [0 131] по
Луна, пп нм [0 151] по
Марс, пп нм [0 220] по
Деймос, пп нм [0 255] по
Венера, пп нм [0 80] по
Меркурий, пп нм [0 45] по
Фобос, пп нм [0 241] по
конец

это движение
  Земля,
  повтори 360 / угловая_скорость
  [
    установи_угол угол + угловая_скорость
    установи_xTek (радиус_орбиты * sin угол)
     + x-центр
    установи_yTek (радиус_орбиты * cos угол)
     + y-центр    нм список xTek yTek
   ]
конец


это марс
положим [priznak 1]
 повтори 2
  [если_иначе :priznak = 1
    [Марс,
      если это-планета
 	[
      установи_угол угол + угловая_скорость
    установи_xTek (радиус_орбиты * sin угол)
     + x-центр
    установи_yTek (радиус_орбиты * cos угол)
     + y-центр     нм список xTek yTek

       положим [priznak 0]
      ]
    ]

   [если не пусто? список-спутников
    [положим [xц xTek yц yTek]
     перебор [k список-спутников]
     [для :k
     установи_x-центр :xц
     установи_y-центр :yц
    установи_угол угол + угловая_скорость
    установи_xTek (радиус_орбиты * sin угол)
     + x-центр
    установи_yTek (радиус_орбиты * cos угол)
     + y-центр
    нм список xTek yTek
     ]
      положим [priznak 1]
    ]
   ]

]
конец

это земля
положим [priznak 1]
 повтори 2
  [если_иначе :priznak = 1
    [Земля,
      если это-планета
 	[
      установи_угол угол + угловая_скорость
    установи_xTek (радиус_орбиты * sin угол)
     + x-центр
    установи_yTek (радиус_орбиты * cos угол)
     + y-центр     нм список xTek yTek

       положим [priznak 0]
      ]
    ]

   [если не пусто? список-спутников
    [положим [xц xTek yц yTek]
     Луна,
     установи_x-центр :xц
     установи_y-центр :yц
    установи_угол угол + угловая_скорость
    установи_xTek (радиус_орбиты * sin угол)
     + x-центр
    установи_yTek (радиус_орбиты * cos угол)
     + y-центр
    нм список xTek yTek

    ]
   ]
  ]
конец

это Венера
Венера,
  повтори 360 / угловая_скорость
  [
    установи_угол угол + угловая_скорость
    установи_xTek (радиус_орбиты * sin угол)
     + x-центр
    установи_yTek (радиус_орбиты * cos угол)
     + y-центр    нм список xTek yTek
   ]
конец

это Меркурий
Меркурий,
  повтори 360 / угловая_скорость
  [
    установи_угол угол + угловая_скорость
    установи_xTek (радиус_орбиты * sin угол)
     + x-центр
    установи_yTek (радиус_орбиты * cos угол)
     + y-центр    нм список xTek yTek
   ]
конец

это солнечная_система
Меркурий, вкл
Венера, вкл
Марс, вкл
Земля, вкл
Луна, вкл

Деймос, вкл
конец



это космос
 повтори 10000
 [земля, вкл
  луна, по вкл]
конец

это крест :x
пр 90 вп :x пр 90 вп :x лв 90 вп :x пр 90 вп :x пр 90 вп :x лв 90 вп :x пр 90 вп :x пр 90 вп :x лв 90 вп :x пр 90 вп :x пр 90 вп :x лв 90 вп :x пр 45
вп :x / 2 лв 135 вп :x пр 135 вп :x / 2
пр 45 вп :x лв 45 вп :x / 2 пр 45 вп :x пр 135 вп :x / 2 лв 135 вп :x  пр 90
вп :x лв 135 вп :x / 2 пр 135 вп :x
пр 45 вп :x / 2 лв 45 вп :x пр 45
вп :x / 2 пр 135 вп :x лв 135 вп :x / 2 пр 135 вп :x пр 45 вп :x / 2 лв 45
вп :x пр 45 вп :x / 2 нд :x / 2 лв 135 вп :x лв 45 вп :x / 2 нд :x / 2  лв 45 вп :x пр 45 вп :x / 2 нд :x / 2 лв 135 вп :x пр  90 пп вп :x * 2 по пр 90
вп :x лв 45 вп :x / 2 нд :x / 2 пр 135 вп :x / 1,6 пп вп :x * 1 лв 90
вп :x * 2,35 по пр 135 вп :x / 2 пр 45 вп :x / 1,6 нд :x / 1,6 лв 90 вп :x
 пп вп :x / 1,36 пр 90 вп :x * 2,7
пр 90 по вп :x / 2,83
конец