(frame) and (theme) are now interpreted on run()
This commit is contained in:
24
examples/projects/folder.lisp
Normal file
24
examples/projects/folder.lisp
Normal 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)
|
||||
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user