3DLOGO

３Ｄ−ＬＯＧＯ

−空間図形・フラクタル・アニメーション−
　(2)フラクタル（その４）
　樹木等のフラクタル図形を描いてみる。
例）
TO KARI :K :L :R :S
　IF :K < 1 [STOP]
　FD :L
　LT :R KARI :K - 1 :L × :S :R :S RT :R
　RT :R KARI :K - 1 :L × :S :R :S LT :R
　PU BK :L PD
END

左から　KARI 2 200 30 .8　KARI 3 150 .8　KARI 10 80 30 .8


左から　KARI 2 200 75 .7　KARI 3 150 75 .7　KARI 10 100 75 .7


左から　KARI 2 200 90 .7　KARI 3 150 90 .7　KARI 10 100 90 .7

TO KI :K :L :R
　IF :K < 1 [STOP]
　FD :L ÷ 3 LT :R KI :K - 1 :L ÷ 2 :R FD :L ÷ 2 PU BK :L ÷ 2 PD RT :R
　FD :L ÷ 3 RT :R KI :K - 1 :L ÷ 2 :R FD :L ÷ 2 PU BK :L ÷ 2 PD LT :R
　FD :L ÷ 3 KI :K - 1 :L ÷ 2 :R FD :L ÷ 2 PU BK :L × 1.5 PD
END

TO SIKI
　DRAW CT FKEY OFF PU BK 300 ML 500 SETPC 1 PD KI 4 250 30
　HOME PU BK 300 ML 200 SETPC 4 PD KI 6 250 30
　HOME PU BK 300 MR 120 SETPC 6 PD KI 6 250 40
　HOME PU BK 300 MR 450 SETPC 7 PD KI 4 250 45
　HT MIRU 3 200 MIRU 1 100 MIRU 4 150 MIRU 2 250 FKEY ON ST
END

KI 1 100　と　SIKI

Home Page Index Page Pre Page Next Page