３Ｄ−ＬＯＧＯ

TO RKOCH :K :L LOCAL :R
　IF :K < 1 [FD :L STOP]
　MAKE "R INT ( RANDOM 60 ) - 30
　LT :R RKOCH :K - 1 :L ÷ ABS ( 2 × COS :R )
　RT 2 × :R RKOCH :K - 1 :L ÷ ABS ( 2 × COS :R )
　LT :R
END

RKOCH 1 400 , RKOCH 2 1200 , RKOCH 5 1200 , RKOCH 10 1200　を ３回繰り返した。

１回目

２回目

３回目

（実行するたびに違う図になる）

多角形の各辺をランダムコッホ曲線に置き換える。
TO RTA :T :X :K
　REP :T [RKOCH :K :X RT 360 ÷ :T]
END

TO YAMA
　PU SETPOS [0 0 200] PD RTA 3 40 3
　PU SETPOS [|-30| |-30| 150] PD RTA 5 80 4
　PU SETPOS [|-70| |-60| 100] PD RTA 7 120 5
　PU SETPOS [|-120| |-90| 50] PD RTA 8 170 6
　PU SETPOS [|-180| |-120| 0] PD RTA 9 230 7
END

↑RTAを利用して「山」または「島」のような図形を描く。

Home Page

Index Page

Pre Page

Next Page