From c88968bf05706925f9009bfb8eb4c18fbdef56d2 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Fri, 26 Jul 2019 10:11:43 +0900
Subject: [PATCH] *

---
 desktop/sources/lisp/prelude.lisp | 3 +++
 examples/basics/gradients.lisp    | 6 +++---
 examples/events/on-mouse.lisp     | 2 +-
 3 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/desktop/sources/lisp/prelude.lisp b/desktop/sources/lisp/prelude.lisp
index 2163b10..7c428ba 100644
--- a/desktop/sources/lisp/prelude.lisp
+++ b/desktop/sources/lisp/prelude.lisp
@@ -1,5 +1,8 @@
 ; 
 (echo "Loading prelude.lisp")
+; frame-rect
+(def frame-rect 
+  (frame))
 ; translate
 (defn translate 
   (r p) 
diff --git a/examples/basics/gradients.lisp b/examples/basics/gradients.lisp
index 039411f..c71cf3d 100644
--- a/examples/basics/gradients.lisp
+++ b/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 
-    frame-rect:h))
+  (line frame-rect:c 0 frame-rect:c frame-rect:h))
 ;
 (fill 
   (circle frame-rect:c frame-rect:m radius) 
diff --git a/examples/events/on-mouse.lisp b/examples/events/on-mouse.lisp
index 595aa72..78ae06d 100644
--- a/examples/events/on-mouse.lisp
+++ b/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