[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Simple picture language

From: Ricardo Wurmus
Subject: Simple picture language
Date: Mon, 26 Mar 2018 23:51:23 +0200
User-agent: mu4e 1.0; emacs 25.3.1

Hi Guilers,

I wrote a simple SVG-based picture language.  To try it:


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 

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?


GPG: BCA6 89B6 3655 3801 C3C6  2150 197A 5888 235F ACAC

reply via email to

[Prev in Thread] Current Thread [Next in Thread]