短期大学部 総合文化学科

【コラム】シェルピンスキー曲線を描く

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次で描いたものです.

シェルピンスキー曲線

*ブログテーマ一覧はこちらから。

PAGE TOP