【コラム】シェルピンスキー曲線を描く
19.07.05
＜オープンキャンパス 体験授業のお知らせ＞
今回はシェルピンスキー曲線をL-Systemで描いてみます．
data L = F | M | P deriving Eq
type LSystem = [L] -> [L]
p,m :: LSystem
f = (F:)
p = (P:)
m = (M:)
_A, _B :: Order -> LSystem
_A 0 = f
_A (n+1) = _B n . m . _A n . m . _B n
_B 0 = f
_B (n+1) = _A n . p . _B n . p . _A n
interp :: Distance -> L -> Turtle Picture
interp d F = forward d
interp _ P = left 60
interp _ M = right 60
以下は8次で描いたものです．
＊ブログテーマ一覧はこちらから。
