Ronin Transparent Lines Wallpaper

wallpaper.lisp

(def background "#242424")
(def dark "#72dec211")
(def light "#72dec222")
(def segment:l 400)
(def segment:shift 2)
(def screeen:w 1280)
(def screeen:h 800)



(defn draw-segment 
  (c) 
  (stroke 
    (line 0 0 segment:l segment:l) c))

(defn get-color 
  (n) 
  (if 
    (eq 0 
      (mod n 2)) light dark))

(defn go 
  (n) 
  (if 
    (gt n 0) 
    (
      (draw-segment 
        (get-color n)) 
      (transform:push) 
      (transform:move segment:shift 0) 
      (go 
        (sub n 1)) 
      (transform:pop))))

(clear)
(resize screen:w screen:h)
(transform:push)

(fill 
  (get-frame) background)

(transform:move 50 20)
(each (range 0 12) (λ (x) (
  (transform:move 0 10)
  (go 1000)
  (transform:rotate .03)
)))


(transform:reset)