*

desktop/sources/lisp/prelude.lisp

@@ -1,5 +1,8 @@
 ; 
 (echo "Loading prelude.lisp")
+; frame-rect
+(def frame-rect 
+  (frame))
 ; translate
 (defn translate 
   (r p) 

examples/basics/gradients.lisp

@@ -1,11 +1,11 @@
 ; gradients
 (clear)
 ;
-(def radius frame-rect:m)
+(def radius 
+  (frame-rect:m))
 ;
 (def gradient-line 
-  (line frame-rect:c 0 frame-rect:c 
+  (line frame-rect:c 0 frame-rect:c frame-rect:h))
-    frame-rect:h))
 ;
 (fill 
   (circle frame-rect:c frame-rect:m radius) 

examples/events/on-mouse.lisp

@@ -7,7 +7,7 @@
     (stroke (line e:x 0 e:x e:y) 2 "#ff0000") 
     ; horizontal line 
     (stroke 
-      (line 0 (of e :y) e:x e:y) 2 "#72dec2") 
+      (line 0 e:y e:x e:y) 2 "#72dec2") 
     ; circle 
     (stroke 
       (circle