Started guides

examples/guides.lisp

@@ -0,0 +1,20 @@
+; guides file
+
+((clear)
+  (stroke (frame) 1 "red")
+
+  (stroke 
+    (line 
+      (pos 0 0) 
+      (pos (of (frame) "w") (of (frame) "h"))) 
+    1 "red")
+
+
+  (stroke 
+    (line 
+      (pos (of (frame) "w") 0) 
+      (pos 0 (of (frame) "h"))) 
+    1 "red")
+
+  (stroke (line (pos 0 0) (pos (of (frame) "w") (of (frame) "h"))) 1 "red")
+)

examples/scale.lisp

@@ -1,3 +1,3 @@
 ; scale file
 
-(echo (scale ($rect) 0.5 0.5))
+(open ($path) 0.25 0.25)