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

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")