*

2019-08-02 06:02:11 +09:00 · 2019-08-02 06:02:11 +09:00 · 930f3960c8
commit 930f3960c8
parent 02fe36f264
1 changed files with 16 additions and 0 deletions
--- a/examples/tools/saturation.lisp
+++ b/examples/tools/saturation.lisp
@ -0,0 +1,16 @@
+(clear)
+; drag an image
+(import $path)
+(def original (copy))
+(defn update 
+  (e) 
+  (if 
+    (eq e:is-down true) 
+    (
+      (paste original) 
+      (def val (div e:x 400)) 
+      (pixels saturation val) 
+      (guide (line e:x 0 e:x 900)) 
+      (fill (text 88 580 40 val) "white"))))
+; add interaction
+(on "mouse-move" update)