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