3DLOGO

３Ｄ－ＬＯＧＯ

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

　(2)フラクタル（その３）
　シェルピンスキーの三角形・ドラゴン曲線のフラクタル図形を描いてみる。
例）
TO SIERPIN :K :L
　IF :K < 1 [FD :L STOP]
　SIERPIN :K - 1 :L ÷ 2 RT 120
　FD :L ÷ 2 LT 120 SIERPIN :K - 1 :L ÷ 2 LT 120 FD :L ÷ 2
　RT 120 SIERPIN :K - 1 :L ÷ 2
　REP 2 [RT 120 REP 2 [FD :L ÷ 2]]
　RT 120 PU FD :L PD
END

左：SIERPIN 1 500　右：SIERPIN 5 500

TO DRG :K :L LOCAL :R
　MAKE "R REMAINDER 45 × ( :K - 2 ) 360 LT :R
　DRGN :K :L 1
END

TO DRGN :K :L :S
　IF :K < 1 [FD :L STOP]
　DRGN :K - 1 :L ÷ √ 2 0
　IF :S = 0 [RT 90] [LT 90]
　DRGN :K - 1 :L ÷ √ 2 1
END

左から　DRG 1 300　DRG 2 300　DRG 3 300　DRG 4 300

左から　DRG 5 290　DRG 8 290　DRG 10 290　DRG 12 290

Home Page Index Page Pre Page Next Page