это
разн_цвет_треуг
нм[-10
-10] по треугольник пп нм[15 5] нц 135 крась жди 5 нц 125 крась жди 5 нц 115 крась
жди 5 нц 105 крась жди 5 нц 95 крась жди 5 нц 85 крась жди 5 нц 75 крась жди 5
нц 65 крась жди 5 нц 55 крась жди 5 нц 45 крась жди 5 нц 35 крась жди 5 нц 25
крась жди 5 нц 15 крась жди 5 нц 5 крась
конец
это квадрат :а
повтори 4[вп :а пр 90]
конец
это пирамида :а :в
пусть "ф :в / 2
по
квадрат :а
вп :а пр 90 вп :ф лв 90
пусть "а :а - :в
квадрат :а
вп :а пр 90 вп :ф лв 90
пусть "а :а - :в
квадрат :а
вп :а пр 90 вп :ф лв 90
пусть "а :а - :в
квадрат :а
вп :а пр 90 вп :ф лв 90
конец
это мн_уг :колу :ст :цв
по
пусть "угп 360 / :колу
повтори :колу[вп :ст пр :угп]
пп вп 2 пр 90 вп 2 нц :цв крась лв 180 вп 2 лв 90 вп 2 пр 180 нц 9
конец
это сценка
спроси [Вы
хотите посмотреть мою первую мультепликацию? (ответ - ОК)] жди 2
спроси
[Действие происходит в лесу, не подалёку от замка. Коня, которого вы сейчас
увидете зовут DEXTER (конь -
умеет говорить на человеческом языке)
(ответ - ОК)] жди 2
пп нм[-371
40] по нм[371 40] пп нм[-371 -40] по нм[371 -40] пп нм[-370 40] по нм[-370 -40]
пп нм[370 40] по нм[370 -40] пп домой нц 59 крась нц 9
нм [-54 50]
по нц 38 крась пп нм [-54 -50] по крась пп нц 9 нм[0 0] нф 40 штамп нм[45
0] нф 27 штамп нм[90 0] нф 41 штамп нф
19
нм[360 60]
нф 5 штамп нм[-360 -80] нф 6 штамп нм [0 67] нф 5 штамп нм [-95 134] нф 6 штамп
нм[0 -123] нф 5 штамп нм[150 90] нф 6 штамп нм[-155 90] нф 5 штамп нм[-150 -90]
нф 5 штамп нм[155 -90] нф 6 штамп
пр 90
нм[-370 0] повтори 23[нф 19 жди 2 вп 5 нф 20 жди 2 вп 5 нф 21 жди 2 вп 5]
спроси
[Девочка: "Наконецто ты прискокал Dexter!!! Передай эту
записку графу Кармадонскому"
(ответ - ОК)]
спроси
[Конь: "Ладно я передам"
(ответ - ОК)]
лв 90
повтори 180[вп 2 жди 0,1 пр 1] лв 90
спроси
[Мальчик: "До новых встреч Dexter!!!
Возвращайтесь сюда скорей"
(ответ - ОК)]
повтори
14[нф 19 жди 2 вп 5 нф 20 жди 2 вп 5 нф 21 жди 2 вп 5]
спроси
[Спасибо за просмотор!!! Автор и
создатель Быхкалов Виктор (ответ -
ОК)]
конец
Многоугольник, в узлах
которого находятся другие многоугольники
это мн_уг
:ст :колу
пусть
"угп 360 / :колу
повтори
:колу[вп :ст пр :угп]
конец
это
мн_в_уг :колу2 :ст2 :колу :ст
по
пусть
"угп2 360 / :колу2
повтори
:колу2[вп :ст2 пр :угп2 мн_уг :колу :ст]
конец
это окр :рад
:цв
пусть
"шаг 2 * пи * :рад / 360
по
повтори
360[вп :шаг пр 1]
пп
пр 90 вп 2
нц :цв крась лв 180 вп 2 пр 90 нц 9
конец
это
снеговик :рад :раз :цв
окр :рад
:цв
вп :рад
пусть
"рад :рад - :раз вп :рад пр 90 вп :раз лв 90
окр :рад
:цв
вп :рад
пусть
"рад :рад - :раз вп :рад пр 90 вп :раз лв 90
окр :рад
:цв
конец
Семейство снеговиков (мама, папа и ребёнок), меняющие
свои размеры (вместе)
это
снеговик :рад :раз :цв
окр :рад
:цв
вп :рад
пусть
"рад :рад - :раз вп :рад пр 90 вп :раз лв 90
окр :рад
:цв
вп :рад
пусть
"рад :рад - :раз вп :рад пр 90 вп :раз лв 90
окр :рад
:цв
конец
это окр :рад
пусть "шаг 2 * пи * :рад / 360
по
повтори 360[вп :шаг пр 1]
пп
конец
это пирамида2
:рад
окр :рад
пр 90 вп
:рад * 2 лв 90
окр :рад
пр 90 вп
:рад * 2 лв 90
окр :рад
лв 90 вп
:рад * 3 пр 120 вп :рад * 2 лв 120 вп :рад пр 90
окр :рад
пр 90 вп
:рад * 2 лв 90
окр :рад
лв 90 вп
:рад пр 120 вп :рад * 2 лв 120 вп :рад пр 90
окр :рад
конец
это окр :рад :цв
пусть "шаг 2 * пи * :рад / 360
по
повтори 360[вп :шаг пр 1]
пп
пр 90 вп :рад нц :цв крась нц 9 лв
180 вп :рад пр 90
конец
это окр2 :рад2
пусть "шаг2 2 * пи * :рад2 /
360
по
повтори 180[вп :шаг2 пр 1]
пп
конец
это япония
:рад :цв :цв2
пусть
"рад2 :рад / 2
пусть
"в :рад2 / 4
окр :рад
:цв
окр2 :рад2
лв 90 вп
:рад пр 90
окр2 :рад2
пр 90 вп
:рад2 - :в лв 90 окр :в :цв2
лв 90 вп
(:рад2 - :в) + (:рад2 + :в) пр 90 окр :в :цв2
конец
Все Программы Проверенны И Находятся В Рабочем Состоянии