Added kinetic bones?!

examples/basics/gradients.lisp

@@ -1,6 +1,7 @@
 ; gradients
 (clear)
 ;
+(def frame-rect (frame))
 (def radius 
   (frame-rect:m))
 ;

examples/basics/theme.lisp

@@ -0,0 +1,29 @@
+; display color from the theme.
+; ex: theme:f_high
+(clear) 
+(fill 
+  (frame) theme:background)
+(def color-box 
+  (div 
+    (:h 
+      (frame)) 10))
+(defn print-value 
+  (item id) 
+  (
+    (def box-y 
+      (add 
+        (mul id color-box) 
+        (div color-box 2))) 
+    (fill 
+      (circle color-box box-y 
+        (div color-box 2)) item) 
+    (fill 
+      (text 140 box-y 30 id) "white") 
+    (fill 
+      (text 200 box-y 30 
+        (of 
+          (keys theme) id)) "white") 
+    (fill 
+      (text 400 box-y 30 item) "white")))
+(map 
+  (values theme) print-value)