Fixed issue with Lamda
This commit is contained in:
@@ -1,14 +0,0 @@
|
||||
; gradients
|
||||
|
||||
(clear)
|
||||
(fill
|
||||
(svg "M405,15 L405,15 L150,150 L195,90 L240,135 L120,195 L75,90 L135,165 L120,225 L90,240 L60,210 L90,150 L255,180 L285,180 L285,165 ")
|
||||
(gradient
|
||||
(0 -50 600 175)
|
||||
("red" "orange" "blue" "green")))
|
||||
|
||||
(stroke
|
||||
(svg "M255,60 L255,60 L135,180 L75,60 L195,210 L120,225 L105,225 L165,255 L225,195 L255,135 L285,150") 1
|
||||
(gradient
|
||||
(50 0 180 0)
|
||||
("black" "white" "blue" "green")))
|
||||
@@ -1,37 +0,0 @@
|
||||
; stars
|
||||
(clear)
|
||||
;
|
||||
(defn draw-spoke
|
||||
(cx cy r a)
|
||||
(
|
||||
(stroke
|
||||
(line
|
||||
(pos cx cy)
|
||||
(circle-pos cx cy r a)) 2 "white")))
|
||||
;
|
||||
(defn draw-star
|
||||
(cx cy r c)
|
||||
(
|
||||
(times c
|
||||
(λ
|
||||
(i)
|
||||
(
|
||||
(draw-spoke cx cy r
|
||||
(deg-rad
|
||||
(mul i
|
||||
(div 360 c)))))))))
|
||||
; main
|
||||
(times 100
|
||||
(λ
|
||||
()
|
||||
(
|
||||
(draw-star
|
||||
(random 100
|
||||
(of
|
||||
(frame) :w))
|
||||
(random 100
|
||||
(of
|
||||
(frame) :h))
|
||||
(random 10 100)
|
||||
(floor
|
||||
(random 3 32))))))
|
||||
@@ -1,38 +0,0 @@
|
||||
; theme
|
||||
|
||||
(clear)
|
||||
(def col
|
||||
(λ
|
||||
(i)
|
||||
(of
|
||||
(
|
||||
(theme "f_high")
|
||||
(theme "f_med")
|
||||
(theme "f_low")
|
||||
(theme "f_inv")
|
||||
(theme "b_high")
|
||||
(theme "b_med")
|
||||
(theme "b_low")
|
||||
(theme "b_inv"))
|
||||
(mod i 8))))
|
||||
(def rec
|
||||
(λ
|
||||
(v i)
|
||||
(if
|
||||
(gt v 0)
|
||||
(
|
||||
(fill
|
||||
(circle
|
||||
(add
|
||||
(div
|
||||
(of
|
||||
(frame) "w") 1.6)
|
||||
(mul 1.5 v))
|
||||
(mul 10 v)
|
||||
(mul v
|
||||
(div v 5)))
|
||||
(col i))
|
||||
(rec
|
||||
(sub v 3)
|
||||
(add i 1))))))
|
||||
(rec 40 0)
|
||||
Reference in New Issue
Block a user