24 lines
416 B
Common Lisp
24 lines
416 B
Common Lisp
(resetTransform)
|
|
(clear)
|
|
(defn branch
|
|
(v)
|
|
(if
|
|
(gt v 0)
|
|
(
|
|
(scale 0.95)
|
|
(stroke
|
|
(line 0 0 100 100) "white" 2)
|
|
(move 100 100)
|
|
(pushTransform)
|
|
(rotate
|
|
(div v 50))
|
|
(branch
|
|
(sub v 1))
|
|
(popTransform)
|
|
(pushTransform)
|
|
(rotate
|
|
(div v -50))
|
|
(branch
|
|
(sub v 1))
|
|
(popTransform)) ))
|
|
(branch 10) |