Ronin: Star Wallpaper

wallpaper.lisp

; Lain Script for Ronin
; https://hundredrabbits.github.io/Ronin/
(def win 
  (js))

(def screen 
  (:screen win))

(clear)

(def seg-len 400)

(resize 
  (div screen:width 1.1) 
  (div screen:height 1.1))

(def frame 
  (get-frame))

(fill (get-frame) "#242424")

(echo frame)

(defn draw-line () 
  (stroke 
    (line 0 frame:m frame:c seg-len) "#72dec7CC"))
 
(defn go 
  (n) 
  (if 
    (gt n 0) 
    (
      (draw-line) 
      (transform:push) 
      (transform:move (sub frame:c seg-len) 0) 
      (transform:rotate 
        (div PI 4)) 
      (transform:scale .99 1) 
      (go 
        (sub n 1)) 
      (transform:pop))))

(go 500)
(mirror:x)