Hey Ricardo! Super cool that you were able to get this working so fast! :) I look forward to trying it when I get some spare cycles to breathe.
Ricardo Wurmus writes: > 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?
