Hi Guilers,
I wrote a simple SVG-based picture language. To try it:
wget https://elephly.net/downies/pict.scm
Then start geiser in Emacs and load the module:
M-x run-guile
(add-to-load-path (getcwd))
,use (pict)
Let’s play!
(circle 100)
(colorize (circle 100) "red")
,use (srfi srfi-1)
,use (srfi srfi-26)
(apply hc-append (map (cut circle <>) (iota 10 2 4)))
(apply cc-superimpose (map (cut circle <>) (iota 10 2 4)))
(apply hc-append (map (cut rotate (rectangle 10 30) <>) (iota 36 0 10)))
(apply cc-superimpose (map (cut rotate (triangle 100 300) <>) (iota 36 0
10)))
And so on.
There’s also “blur”, but it doesn’t show up right in Geiser; it seems
that Emacs doesn’t render SVG filters.
What do you think?
--
Ricardo
GPG: BCA6 89B6 3655 3801 C3C6 2150 197A 5888 235F ACAC
https://elephly.net
