Ported some examples

examples/basics/gradients.lisp

@@ -1,31 +1,25 @@
 ; gradients
 (clear)
 ;
-(def radius (of (frame) :m))
+(def radius frame-rect:m)
 ;
 (def gradient-line 
-  (line 
-    (of (frame) :c) 0 
-    (of (frame) :c) 
-    (of (frame) :h)))
+  (line frame-rect:c 0 frame-rect:c 
+    frame-rect:h))
 ;
 (fill 
-  (circle 
-    (of (frame) :c) 
-    (of (frame) :m) 
-    radius) 
-  (gradient gradient-line ("#72dec2" "white")))
+  (circle frame-rect:c frame-rect:m radius) 
+  (gradient gradient-line 
+    ("#72dec2" "white")))
 ;
 (fill 
-  (circle 
-    (of (frame) :c) 
-    (of (frame) :m) 
+  (circle frame-rect:c frame-rect:m 
     (mul radius 0.75)) 
-  (gradient gradient-line ("white" "#72dec2")))
+  (gradient gradient-line 
+    ("white" "#72dec2")))
 ;
 (fill 
-  (circle 
-    (of (frame) :c) 
-    (of (frame) :m) 
+  (circle frame-rect:c frame-rect:m 
     (mul radius 0.5)) 
-  (gradient gradient-line ("#72dec2" "white")))
+  (gradient gradient-line 
+    ("#72dec2" "white")))

examples/basics/shapes.lisp

@@ -3,9 +3,9 @@
 (clear)
 
 ; variables
-(def center-w (div (of (frame) "w") 2))
-(def center-h (div (of (frame) "h") 2))
-(def rad (div (of (frame) "h") 4))
+(def center-w (div frame-rect:w 2))
+(def center-h (div frame-rect:h 2))
+(def rad (div frame-rect:h 4))
 
 ; draw circle
 (stroke 

examples/demo/fog.lisp

@@ -2,7 +2,6 @@
 (resetTransform)
 (clear)
 ;
-(def frame-rect (frame))
 (def mouse-pos (pos))
 (def prev-pos (pos))
 ;

examples/demo/spiral.lisp

@@ -1,6 +1,5 @@
 ; animated recusive spiral
 ; by @local_guru 
-(def frame-rect (frame))
 (defn rec 
   (v) 
   (if (gt v 0) 

examples/events/on-animate.lisp

@@ -4,13 +4,11 @@
 ; 
 (def frame-middle 
   (div 
-    (of 
-      (frame) :h) 2)) 
+    frame-rect:h 2)) 
 ; 
 (def seg-width 
   (div 
-    (of 
-      (frame) :w) seg-count)) 
+    frame-rect:w seg-count)) 
 ;
 (defn elevation 
   (i) 
@@ -21,8 +19,7 @@
           (time 0.001) 
           (div i 5))) 
       (div 
-        (of 
-          (frame) :h) 5)) frame-middle))
+        frame-rect:h 5)) frame-middle))
 ;
 (defn draw-dash 
   (i) 
@@ -40,8 +37,7 @@
         (elevation i)) 4 
       (gradient 
         (line 50 0 
-          (of 
-            (frame) :w) 0) 
+          frame-rect:w 0) 
         ("#ffb545" "#72dec2")))))
 ;
 (defn redraw 

examples/events/on-mouse.lisp

@@ -4,15 +4,15 @@
   (
     (clear) 
     ; vertical line 
-    (stroke (line (of e :x) 0 (of e :x) (of e :y)) 2 "#ff0000") 
+    (stroke (line e:x 0 e:x e:y) 2 "#ff0000") 
     ; horizontal line 
     (stroke 
-      (line 0 (of e :y) (of e :x) (of e :y)) 2 "#72dec2") 
+      (line 0 (of e :y) e:x e:y) 2 "#72dec2") 
     ; circle 
     (stroke 
       (circle 
-        (of e :x) 
-        (of e :y) 30) 2 "#ffffff")))
+        e:x 
+        e:y 30) 2 "#ffffff")))
 ;
 (on "mouse-down" redraw)
 (on "mouse-up" redraw)

examples/misc/theme.lisp

@@ -25,8 +25,7 @@
           (circle 
             (add 
               (div 
-                (of 
-                  (frame) "w") 1.6) 
+                frame-rect:w 1.6) 
               (mul 1.5 v)) 
             (mul 10 v) 
             (mul v