dakedres/ronin
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add random example script

Browse Source
This commit is contained in:
Quentin Leonetti 2019-07-15 21:56:47 +02:00
parent c81a0a8c96
commit 90e7b52867
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
desktop/static/crystal.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 152 KiB

20
examples/random.lisp Normal file
View File

@ -0,0 +1,20 @@
; random
(
(clear)
(defn place
(rec)
(if (gt rec 0)
((draw "../static/crystal.jpg"
(rect
(random 200)
(random 200)
(random 200)
(random 200))
(lambda () (place (sub rec 1)))
)))
)
(place 30)
)