Add theme example.

This commit is contained in:
Aaron Morris
2019-07-14 22:15:10 -07:00
8 changed files with 89 additions and 22 deletions

View File

@@ -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
View 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"))