３Ｄ−ＬＯＧＯ

TO KOCH :K :L
　IF :K < 1 [FD :L STOP]
　KOCH :K - 1 :L ÷ 3 LT 60
　KOCH :K - 1 :L ÷ 3 RT 120
　KOCH :K - 1 :L ÷ 3 LT 60
　KOCH :K - 1 :L ÷ 3
END

上：KOCH 1 300　下：KOCH 5 1000

TO KOCH1 :K :L
　IF :K < 1 [FD :L STOP]
　RT 45 KOCH1 :K - 1 :L ÷ 4 × √ 2
　LT 90 KOCH1 :K - 1 :L ÷ 4 × √ 2
　KOCH1 :K - 1 :L ÷ 4 × √ 2 RT 90
　KOCH1 :K - 1 :L ÷ 4 × √ 2
　LT 45
END

上：KOCH1 1 300　下：KOCH1 5 1000

TO KOCH2 :K :L
　IF :K < 1 [FD :L STOP]
　REPEAT 2 [KOCH2 :K - 1 :L ÷ 4 LT 60] RT 180
　REPEAT 2 [KOCH2 :K - 1 :L ÷ 4] LT 120
　REPEAT 2 [KOCH2 :K - 1 :L ÷ 4 RT 60] LT 60
END

上：KOCH2 1 300　下：KOCH2 4 1000

TO KOCH3 :K :L
　IF :K < 1 [FD :L STOP]
　KOCH3 :K - 1 :L ÷ 4 LT 90
　REPEAT 2 [KOCH3 :K - 1 :L ÷ 4 RT 90]
　REPEAT 2 [KOCH3 :K - 1 :L ÷ 4]
　REPEAT 2 [LT 90 KOCH3 :K - 1 :L ÷ 4]
　RT 90 KOCH3 :K - 1 :L ÷ 4
END

上：KOCH3 1 300　下：KOCH3 4 1000

TO KOCH4 :K :L :R
　IF :K < 1 [FD :L STOP]
　LT :R KOCH4 :K - 1 :L × COS :R :R
　RT 90 KOCH4 :K - 1 :L × SIN :R :R
　LT 90 - :R
END

上：KOCH4 1 300 45下：KOCH4 12 500 45

上：KOCH4 1 300 30　下：KOCH4 10 500 30

TO KOCH5 :K :L :R
　IF :K < 1 [FD :L STOP]
　MAKE "L :L ÷ 2 ÷ COS :R
　LT :R KOCH5 :K - 1 :L :R
　RT 2 × :R KOCH5 :K - 1 :L :R
　LT :R
END

上：KOCH5 1 300 30　下：KOCH5 10 500 30

TO KOCH6 :K :L
　IF :K < 1 [FD :L STOP]
　RT 15 KOCH6 :K - 1 :L ÷ √ 6
　LT 90 KOCH6 :K - 1 :L ÷ √ 6
　RT 150 KOCH6 :K - 1 :L ÷ √ 6
　LT 90 KOCH6 :K - 1 :L ÷ √ 6
　RT 15
END

上：KOCH6 1 300　下：KOCH6 5 1000

TO KOCH7 :K :L
　IF :K < 1 [FD :L STOP]
　RT 30 KOCH7 :K - 1 :L ÷ ( 1 + √ 3 )
　LT 120 KOCH7 :K - 1 :L ÷ ( 1 + √ 3 )
　RT 150 KOCH7 :K - 1 :L ÷ ( 1 + √ 3 )
　LT 120 KOCH7 :K - 1 :L ÷ ( 1 + √ 3 )
　RT 150 KOCH7 :K - 1 :L ÷ ( 1 + √ 3 )
　LT 120 KOCH7 :K - 1 :L ÷ ( 1 + √ 3 )
　RT 30
END

上：KOCH7 1 300　下：KOCH7 5 800

TO KOCH8 :K :L
　IF :K < 1 [FD :L STOP]
　KOCH8 :K - 1 :L ÷ 3 LT 60
　KOCH8 :K - 1 :L ÷ 3 RT 120
　KOCH8 :K - 1 :L ÷ 3 RT 60
　REP 2 [KOCH8 :K - 1 :L ÷ 3 RT 120]
　REP 2 [KOCH8 :K - 1 :L ÷ 3]
END

上：KOCH8 1 300　下：KOCH8 5 800

Home Page

Index Page

Pre Page

Next Page