add prelude.lisp

2019-07-20 21:25:28 +02:00
parent fade8cb396
commit 0f2acc0d0e
3 changed files with 20 additions and 8 deletions
--- a/desktop/sources/lisp/prelude.lisp
+++ b/desktop/sources/lisp/prelude.lisp
@@ -0,0 +1,11 @@
+(echo "Loading prelude.lisp")
+
+(defn translate 
+    (r p)
+    (clone 
+        r
+        (rect 
+            (of p :x)
+            (of p :y)
+            (of r :w)
+            (of r :h))))