(frame) and (theme) are now interpreted on run()

This commit is contained in:
Devine Lu Linvega
2019-08-03 15:40:26 +09:00
parent 46bf50f663
commit ff261c33e2
23 changed files with 147 additions and 199 deletions

View File

@@ -0,0 +1,24 @@
; open every file in a folder.
(defn filter-jpg
(file-name)
(eq
(last
(split file-name ".")) "jpg"))
;
(def images
(filter
(dir) filter-jpg))
;
(debug
(concat "Found: "
(len images)))
;
(defn image-operation
(file-name)
(
(def file-path
(concat
(dirpath) "/" file-name))
(open file-path)))
;
(each images image-operation)

View File

@@ -3,7 +3,7 @@
(clear)
;
(def gradient-line
(line frame-rect:c 0 frame-rect:c frame-rect:h))
(line frame:c 0 frame:c frame:h))
;
(defn draw-circle
(e)