Ported some examples

2019-07-26 09:51:55 +09:00
parent 5a53fa58f2
commit 6f666c86dd
9 changed files with 30 additions and 53 deletions
--- a/desktop/sources/lisp/prelude.lisp
+++ b/desktop/sources/lisp/prelude.lisp
@@ -1,16 +1,10 @@
 ; 
 (echo "Loading prelude.lisp")
-;
-(def frame-rect (frame))
 ; translate
 (defn translate 
  (r p) 
  (clone r 
-    (rect 
-      (of p :x) 
-      (of p :y) 
-      (of r :w) 
-      (of r :h))))
+    (rect p:x p:y r:w r:h)))
 ; times
 (defn times 
  (v f)