dakedres/ronin
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cleaner fog

Browse Source
This commit is contained in:
Devine Lu Linvega 2019-07-24 15:48:13 +09:00
parent 8f773bdd6f
commit 33574979cd
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
examples/demo/fog.lisp
View File

@ -1,28 +1,28 @@
;
(resetTransform) (resetTransform)
(clear) (clear)
;
(def w (of (frame) :c)) (def w (of (frame) :c))
(def h (of (frame) :m )) (def h (of (frame) :m ))
(def mouse-pos (pos))
(defn mouse-pos (pos)) (def prev-pos (pos))
(defn prev-pos (pos)) ;
(defn when-mouse-move (e) (
(defn update (e) (
(set mouse-pos :x (of e :x)) (set mouse-pos :x (of e :x))
(set mouse-pos :y (of e :y)) (set mouse-pos :y (of e :y))
)) ))
;
(on "animate" '( (defn when-animate () (
(stroke (line prev-pos mouse-pos) 4 "#fff") (stroke (line prev-pos mouse-pos) 4 "#72dec2")
(move w h) (move w h)
(rotate 0.002) (rotate 0.002)
(scale 0.998) (scale 0.998)
(translate (frame) (pos (mul -1 w) (mul -1 h))) (translate (frame) (pos (mul -1 w) (mul -1 h)))
(resetTransform) (resetTransform)
(fill (frame) "#00000004") (fill (frame) "#00000004")
(set prev-pos :x (of mouse-pos :x)) (set prev-pos :x (of mouse-pos :x))
(set prev-pos :y (of mouse-pos :y)) (set prev-pos :y (of mouse-pos :y))
)) ))
;
(on "mouse-move" update) (on "animate" when-animate)
(on "mouse-move" when-mouse-move)