Added callback to open, fixes #49
This commit is contained in:
@@ -1,4 +0,0 @@
|
||||
(
|
||||
(def value 12)
|
||||
(def addOne (lambda (a) (add a 1)))
|
||||
)
|
||||
13
examples/open.lisp
Normal file
13
examples/open.lisp
Normal file
@@ -0,0 +1,13 @@
|
||||
; scale file
|
||||
(
|
||||
; Filter
|
||||
|
||||
(def filter-action
|
||||
(lambda () (pixels
|
||||
(frame)
|
||||
saturation
|
||||
0.5)
|
||||
))
|
||||
|
||||
(open (path "/Users/VillaMoirai/Desktop/clip.jpg") filter-action)
|
||||
)
|
||||
@@ -1,7 +1,5 @@
|
||||
(
|
||||
(run "./include.lisp")
|
||||
|
||||
(run "../examples/recursive.lisp")
|
||||
(echo value)
|
||||
|
||||
(echo (addOne value))
|
||||
)
|
||||
@@ -1,3 +0,0 @@
|
||||
; scale file
|
||||
|
||||
(open ($path) 0.25 0.25)
|
||||
Reference in New Issue
Block a user