On May 31, 2009, at 5:11 PM, Eduardo Cavazos wrote:
As some of you know, one of my projects is an implementation of
Context Free Art in Scheme.
Abdulaziz Ghuloum wrote:
Context Free is Awesome! Glad we have it in Scheme! Here are some
early experiments of mine:
http://www.contextfreeart.org/gallery/view.php?by=aghuloum
Here is 'easterb0xen'. :-)
----------------------------------------------------------------------
(import (rnrs) (cfdg) (cfdg-rule) (cfdg-abbreviations))
(rule easterb0xen
(1 (box (x -0.5) (y -0.5))
(box (x 0.5) (y -0.5))
(box (x 0.5) (y 0.5))
(box (x -0.5) (y 0.5))))
(rule box
(10 (csquare (size 0.8)))
(20 (easterb0xen (size 0.5)))
(5 (easterb0xen (size 0.25)))
(1 (list)))
(rule csquare
(1 (square (b 1) (saturation 1))
(square (size 0.75) (b 0)))
(12 (csquare (hue 170))))
(background (lambda () (b -1)))
(viewport '(-1 2 -1 2))
(start-shape easterb0xen)
(threshold 0.005)
(run-model)
----------------------------------------------------------------------
