3DLOGO

３Ｄ－ＬＯＧＯ

－空間図形・フラクタル・アニメーション－

　(2)フラクタル（その５）
　空間内のいろいろな平面にフラクタルを描いてみる。
　立体のフラクタルを描いてみる。
例）
TO KARI3D :K :L :R :S :D
　REP :D [KARI :K :L :R :S RR 180 ÷ :D] RR 180
END

左から　KARI3D 2 300 30 .8 20　KARI3D 3 150 30 .8 20　KARI3D 5 120 30 .8 20

左から　KARI3D 2 200 75 .7　KARI3D 30 3 150 75 .7 30　KARI3D 5 100 75 .7 30

TO KARIR1 :K :L :R :S
　IF :K < 1 [STOP]
　IF :K < 2 [SETPC 2] [SETPC 4]
　RR :R RIP :L ÷ 6 :L RL :R PU FD :L PD
　REP 3 [LT :R KARIR1 :K - 1 :L × :S :R :S RT :R RR 120]
　PU BK :L PD
END

TO RIP :H :T
　DN 90
　REPEAT 4 [RT 45 REPEAT 2 [FD :H UP 90 FD :T UP 90 FD :H]]
　RT 180 UP 90
END

KARIR1 5 200 30 .7
左側は横から眺めた図。右側は上から眺めた図。
※RIPは立方体を描くためのモジュール。

Home Page Index Page Pre Page Next Page