Changed the line syntax to (line x1 y1 x2 y2)

examples/archives/guides.lisp

@@ -1,56 +0,0 @@
-; guides
-(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 
-      (div 
-        (of 
-          (frame) "w") 2) 0) 
-    (pos 
-      (div 
-        (of 
-          (frame) "w") 2) 
-      (of 
-        (frame) "h"))) 1 "red") 
-(stroke 
-  (line 
-    (pos 0 
-      (div 
-        (of 
-          (frame) "h") 2)) 
-    (pos 
-      (div 
-        (of 
-          (frame) "w") 2) 
-      (of 
-        (frame) "h"))) 1 "#72dec2") 
-(stroke 
-  (line 
-    (pos 
-      (div 
-        (of 
-          (frame) "w") 2) 0) 
-    (pos 
-      (of 
-        (frame) "w") 
-      (div 
-        (of 
-          (frame) "h") 2))) 1 "#72dec2")

examples/basics/gradients.lisp

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

examples/basics/shapes.lisp

@@ -18,7 +18,5 @@
 
 ; draw line
 (stroke 
-  (line 
-    (pos (sub center-w rad) center-h)
-    (pos (add center-w rad) center-h)))
+  (line (sub center-w rad) center-h (add center-w rad) center-h))
 (stroke (text 10 170 200 "HELL") 2 "pink")

examples/basics/svg.gradient.lisp

@@ -1,12 +0,0 @@
-; gradients
-(clear)
-(fill 
-  (svg 0 0 "M405,15 L405,15 L150,150 L195,90 L240,135 L120,195 L75,90 L135,165 L120,225 L90,240 L60,210 L90,150 L255,180 L285,180 L285,165 ") 
-  (gradient 
-    (0 -50 600 175) 
-    ("red" "orange" "blue" "green")))
-(stroke 
-  (svg 0 0 "M255,60 L255,60 L135,180 L75,60 L195,210 L120,225 L105,225 L165,255 L225,195 L255,135 L285,150") 1 
-  (gradient 
-    (50 0 180 0) 
-    ("black" "white" "blue" "green")))

examples/basics/svg.lisp

@@ -1,20 +0,0 @@
-; welcome to ronin - v2.1
-(clear) 
-; ronin path 
-(def align {:x 
-  (sub 
-    (of 
-      (frame) :center) 500) :y 
-  (sub 
-    (of 
-      (frame) :middle) 150)})
-; outline 
-(fill 
-  (svg 
-    (of align :x) 
-    (of align :y) "M15,15 L15,15 L285,15 L285,285 L15,285 Z") "#fff")
-; stroke
-(stroke 
-  (svg 
-    (of align :x) 
-    (of align :y) "M60,60 L195,60 A45,45 0 0,1 240,105 A45,45 0 0,1 195,150 L60,150 M195,150 A45,45 0 0,1 240,195 L240,240 ") 5 "#000")

examples/demo/branch.lisp

@@ -1,25 +1,24 @@
 (resetTransform)
 (clear)
-
-(defn branch
-  (v)
-  (if
-    (gt v 0)
+(defn branch 
+  (v) 
+  (if 
+    (gt v 0) 
     (
-        (scale 0.95)
-        (stroke
-          (line (pos 0 0) (pos 100 100))
-          10 "white")
-        (move 100 100)
-        (pushTransform)
-        (rotate (div v 50))
-        (branch (sub v 1))
-        (popTransform)
-        (pushTransform)
-        (rotate (div v -50))
-        (branch (sub v 1))
-        (popTransform)
-    )
-  )
-)
+      (scale 0.95) 
+      (stroke 
+        (line 0 0 100 100) 2 "white") 
+      (move 100 100) 
+      (pushTransform) 
+      (rotate 
+        (div v 50)) 
+      (branch 
+        (sub v 1)) 
+      (popTransform) 
+      (pushTransform) 
+      (rotate 
+        (div v -50)) 
+      (branch 
+        (sub v 1)) 
+      (popTransform)) ))
 (branch 10)

examples/demo/fog.lisp

@@ -13,7 +13,7 @@
 ))
 ;
 (defn when-animate () (
-  (stroke (line prev-pos mouse-pos) 4 "#72dec2")
+  (stroke (line (of prev-pos :x) (of prev-pos :y) (of mouse-pos :x) (of mouse-pos :y)) 4 "#72dec2")
   (move w h)
   (rotate 0.002)
   (scale 0.998)

examples/demo/stars.lisp

@@ -5,9 +5,8 @@
   (cx cy r a) 
   (
     (stroke 
-      (line 
-        (pos cx cy) 
-        (circle-pos cx cy r a)) 2 "white")))
+      (line cx cy (of (circle-pos cx cy r a) :x) (of (circle-pos cx cy r a) :y)
+        ) 2 "white")))
 ;
 (defn draw-star 
   (cx cy r c) 

examples/events/on-animate.lisp

@@ -33,15 +33,13 @@
     (def y 
       (elevation i)) 
     (stroke 
-      (line 
-        (pos x 
-          (elevation 
-            (sub i 1))) 
-        (pos 
-          (add x seg-width) 
-          (elevation i))) 4 
+      (line x 
+        (elevation 
+          (sub i 1)) 
+        (add x seg-width) 
+        (elevation i)) 4 
       (gradient 
-        (50 0 
+        (line 50 0 
           (of 
             (frame) :w) 0) 
         ("#ffb545" "#72dec2")))))

examples/events/on-mouse.lisp

@@ -1,19 +1,13 @@
 ; this demo shows how to use the mouse events.
-;
 (defn redraw 
   (e) 
   (
     (clear) 
     ; vertical line 
-    (stroke 
-      (line 
-        (pos 
-          (of e :x) 0) e) 2 "#ff0000") 
+    (stroke (line (of e :x) 0 (of e :x) (of e :y)) 2 "#ff0000") 
     ; horizontal line 
     (stroke 
-      (line 
-        (pos 0 
-          (of e :y)) e) 2 "#72dec2") 
+      (line 0 (of e :y) (of e :x) (of e :y)) 2 "#72dec2") 
     ; circle 
     (stroke 
       (circle 

examples/projects/drawing.lisp

@@ -16,7 +16,7 @@
       (of e :is-down) 
       (
         (stroke 
-          (line prev-pos e) 2 "white") 
+          (line (of prev-pos :x) (of prev-pos :y) (of e :x) (of e :y)) 2 "white") 
         (set prev-pos :x 
           (of e :x) :y 
           (of e :y))))))