Гора Л инейная Ц иклическая опушка С толица ПОКА П араметрический перевал Река В етка

to poly repeat [ fd 360/ ] end

to poly repeat 10 [ fd 30 rt 360/10 ] end to poly repeat 10 [ fd 20 rt 360/10 ] end

to poly repeat 10 [ fd 30 rt 360/10 ] end to poly repeat 10 [ fd 50 rt 360/10 ] end

to poly repeat 10 [ fd 30 rt 360/10 ] end to poly repeat 11 [ fd 30 rt 360/ 11 ] end

to poly repeat 10 [ fd 30 rt 360/10 ] end to poly repeat 13 [ fd 30 rt 360/ 13 ] end

to poly :s repeat 10 [ fd :s rt 360/ 10 ] End Вызов процедуры Poly 50 to poly :n repeat :n [ fd 30 rt 360/ :n ] End Вызов процедуры Poly 13

to poly repeat [ fd rt 360/ ] End Вызов процедуры Poly 7 50 to poly :n :s repeat :n [ fd :s rt 360/ :n ] End

Электронную почту; Параметры; Посыльного; Атрибуты;

< # : *

to sq repeat 4 [ fd 100 rt 90 ] end