Add theme example.
This commit is contained in:
@@ -1,10 +1,21 @@
|
||||
; pixels
|
||||
|
||||
((clear)
|
||||
(
|
||||
(clear)
|
||||
|
||||
; Filter
|
||||
|
||||
(def filter-action
|
||||
(lambda () (pixels
|
||||
(rect 0 0 500 500)
|
||||
saturation
|
||||
0.5)
|
||||
))
|
||||
|
||||
; Draw photo
|
||||
|
||||
(draw "../../PREVIEW.jpg"
|
||||
(frame)
|
||||
(lambda () (echo (select (rect 660 344 10 10))))
|
||||
))
|
||||
(draw
|
||||
"../../PREVIEW.jpg"
|
||||
(frame)
|
||||
filter-action)
|
||||
)
|
||||
5
examples/svg.lisp
Normal file
5
examples/svg.lisp
Normal file
@@ -0,0 +1,5 @@
|
||||
((fill
|
||||
(svg "M255,60 L255,60 L135,180 L75,60 L195,210 L120,225 L105,225 L165,255 L225,195 L255,135 L285,150") "white")
|
||||
|
||||
(stroke
|
||||
(svg "M405,15 L405,15 L150,150 L195,90 L240,135 L120,195 L75,90 L135,165 L120,225 L90,240 L60,210 L90,150 L255,180 L285,180 L285,165 ") "pink"))
|
||||
Reference in New Issue
Block a user