image_paradise 0.4.8

data/lib/image_paradise/cfdg/diablo.cfdg

@@ -0,0 +1,47 @@
+# rconfreegui $CFDG/diablo.cfdg
+
+startshape start
+background{b -1}
+
+rule start{
+  spiral{x 1.5 r 60 flip 90 sat 1 b .1}
+  spiral{x -1.5 r -60 sat 1 b .1}
+  eye{x .9 y -.9 flip 90 s .4}
+  eye{x -.9 y -.9 s .4}
+  hair{y 1.8}
+}
+
+
+rule spiral{
+  CIRCLE{}
+  spiral{x -.2 r 10 s .95 b 0.08} # tip of horn
+}
+
+rule eye{
+  eyeMid{r 90 s .9 sat 1 b .5 }
+  eyeMid{r -90 s .9 sat 1 b .5 }
+  pupila{y -.25 s .4 b 0.5 b .9 sat 1}
+}
+
+rule eyeMid{
+  CIRCLE{}
+  eyeMid{s .76 x .18 y .3 r 4 b -.1}
+}
+rule pupila{
+  CIRCLE{}
+  pupila{x .1 r 10 s .99 b -0.01}
+}
+
+rule hair{
+  20 * {x .2 r -5} subhair { sat 1 b .5}
+  20 * {x -.2 r 5} subhair { sat 1 b .5}
+}
+rule subhair 1{
+  CIRCLE{}
+  subhair{y .2 r 2 s .95 b -.05}
+}
+rule subhair 1{
+  CIRCLE{}
+  subhair{y .2 r -2 s .95 b -.05}
+}
+	

data/lib/image_paradise/cfdg/different_flowers.cfdg

@@ -0,0 +1,60 @@
+startshape figG
+background {b -1}
+
+rule figG
+{
+  fig2 { x 2 y -2 s 1.2}
+  fig4 { x -1.3 y -2.3}
+  fig5 { y 2 x 2 s 2.3}
+  fig7 { x -2 y 2}
+}
+
+rule fig7
+{
+  fig6 { s 1.3}
+  fig7 {r 45 s .997 b .002 sat .002 a -.005}
+}
+
+rule fig6
+{
+  SQUARE { a -.33 hue 99 b .1 sat .1}
+  TRIANGLE {r 15 x .5 hue 12 sat .7 b .001}
+  fig6 {r 45 sat .1 b .15 s .9 x .25 a -.05}
+}
+
+//----end 4th flower----
+//----start 3rd flower----
+rule fig5
+{
+  SQUARE {hue 45 }
+  fig5 { s .998 r 12 hue .002 b .001 sat .001}
+}
+
+//----end 3rd flower----
+//----start 2nd flower----
+rule fig4
+{
+  fig3 { }
+  fig4 {s .997 r 45.3 x .1 y .72 b .002 sat .002 a -.005}
+}
+
+rule fig3
+{
+  CIRCLE { hue 1 b .1 sat 2}
+  CIRCLE { s .5 x .50 sat 1 hue 35 b .2 a -.55}
+}
+//----end 2nd flower----
+//----start 1st flower----
+rule fig2
+{
+  fig1 { }
+  fig2 {r 49 s .9975 b .002 sat .002 a -.005}
+}
+
+rule fig1
+{
+  SQUARE { a -.33 hue 312 b .1 sat .1}
+  TRIANGLE {r 15 x .5}
+  fig1 {r 32 sat .1 b .1 s .9 x .25 a -.05}
+  //----end 1st flower----//
+} 

data/lib/image_paradise/cfdg/different_snowflakes_shapes.cfdg

@@ -0,0 +1,149 @@
+startshape stars
+background{hue 250 sat .3 b 1}
+
+rule stars
+{
+	star2{hue 250 sat .4 b .3 size .9 x -40 y 35}
+	star1{b 1 size 1.4 x -25 y 7}
+	star3{b 1 size .7 y 45 x -10}
+	star4{b 1 size 1.4 x 35 y 40}
+	star5{b 1 size 2 x 10 y 20}
+	star3{b 1 size 1.2 y -35 x 45}	
+	star2{b 1 size 1 x 45 y 10}
+	star4{b 1 size 1.4 x -25 y -40}
+	star2{hue 250 sat .4 b .3 size 2.2 x 5 y -20}
+}
+
+
+rule star5
+{
+	line5{}
+	line5{r 60}
+	line5{r -60}
+	line5{r 120}
+	line5{r -120}
+	line5{r 180}
+}
+
+rule star4
+{
+	line4{}
+	line4{r 60}
+	line4{r -60}
+	line4{r 120}
+	line4{r -120}
+	line4{r 180}
+}
+
+
+rule star3
+{
+	line3{}
+	line3{r 60}
+	line3{r -60}
+	line3{r 120}
+	line3{r -120}
+	line3{r 180}
+}
+
+rule star2
+{
+	line2{}
+	line2{r 60}
+	line2{r -60}
+	line2{r 120}
+	line2{r -120}
+	line2{r 180}
+}
+
+
+rule star1
+{
+	line{}
+	line{r 60}
+	line{r -60}
+	line{r 120}
+	line{r -120}
+	line{r 180}
+}
+
+rule line5
+{
+	SQUARE{size .2 20}
+	SQUARE{size .2 3 r 45 y 9.1 x 1.2}
+	SQUARE{size .2 3 r -45 y 9.1 x -1.2}
+	SQUARE{size .2 3 r -45 y 6.1 x 1.5}
+	SQUARE{size .2 3 r 45 y 6.1 x -1.5}
+	SQUARE{size .2 3 r 45 y 4.1 x 1.1}
+	SQUARE{size .2 3 r -45 y 4.1 x -1.1}
+	SQUARE{size .2 5 r 45 y -4.1 x 1.8}
+	SQUARE{size .2 5 r -45 y -4.1 x -1.8}
+	
+	SQUARE{size .2 5 r 45 y -.1 x 1.1}
+	SQUARE{size .2 5 r -45 y -.1 x -1.1}
+}
+
+rule line4
+{
+	line4a{}
+	line4a{size 1.4 r 30}
+}
+
+rule line4a
+{
+	SQUARE{size .2 5 r 45 y -4.1 x 1.8}
+	SQUARE{size .2 5 r -45 y -4.1 x -1.8}	
+	SQUARE{size .2 4 r 45 y -2.1 x 1.5}
+	SQUARE{size .2 4 r -45 y -2.1 x -1.5}
+}
+
+rule line3
+{
+	SQUARE{size .2 20}
+	SQUARE{size .2 5.2 r -45 y 8.1 x 1.8}
+	SQUARE{size .2 5.2 r 45 y 8.1 x -1.8}
+	SQUARE{size .2 3 r -45 y 4.1 x 1.1}
+	SQUARE{size .2 3 r 45 y 4.1 x -1.1}
+	SQUARE{size .2 5 r 45 y -4.1 x 1.8}
+	SQUARE{size .2 5 r -45 y -4.1 x -1.8}	
+	SQUARE{size .2 4 r 45 y -2.1 x 1.5}
+	SQUARE{size .2 4 r -45 y -2.1 x -1.5}
+	SQUARE{size .2 3 r -45 y 11.1 x 1.2}
+	SQUARE{size .2 3 r 45 y 11.1 x -1.2}
+	SQUARE{size .2 3 r 45 y 13.1 x 1.1}
+	SQUARE{size .2 3 r -45 y 13.1 x -1.1}
+}
+
+rule line2
+{
+	SQUARE{size .2 20}
+	SQUARE{size .2 5.2 r -45 y 8.1 x 1.8}
+	SQUARE{size .2 5.2 r 45 y 8.1 x -1.8}
+	SQUARE{size .2 4 r -45 y 6.1 x 1.5}
+	SQUARE{size .2 4 r 45 y 6.1 x -1.5}
+	SQUARE{size .2 3 r -45 y 4.1 x 1.1}
+	SQUARE{size .2 3 r 45 y 4.1 x -1.1}
+	SQUARE{size .2 4 r -45 y 2.1 x 1.5}
+	SQUARE{size .2 4 r 45 y 2.1 x -1.5}
+	SQUARE{size .2 2 r -45 y 10.1}
+	SQUARE{size .2 2 r 45 y 10.1}
+	SQUARE{size .2 3 r -45 y 9.1 x 1.1}
+	SQUARE{size .2 3 r 45 y 9.1 x -1.1}
+}
+
+rule line
+{
+	SQUARE{size .2 20}
+	SQUARE{size .2 5.2 r 45 y 8.1 x 1.8}
+	SQUARE{size .2 5.2 r -45 y 8.1 x -1.8}
+	SQUARE{size .2 4 r 45 y 6.1 x 1.5}
+	SQUARE{size .2 4 r -45 y 6.1 x -1.5}
+	SQUARE{size .2 3 r 45 y 4.1 x 1.1}
+	SQUARE{size .2 3 r -45 y 4.1 x -1.1}
+	SQUARE{size .2 5 r -45 y -4.1 x 1.8}
+	SQUARE{size .2 5 r 45 y -4.1 x -1.8}
+	SQUARE{size .2 4 r -45 y -2.1 x 1.5}
+	SQUARE{size .2 4 r 45 y -2.1 x -1.5}
+	SQUARE{size .2 3 r -45 y -.1 x 1.1}
+	SQUARE{size .2 3 r 45 y -.1 x -1.1}
+}

data/lib/image_paradise/cfdg/dimensions.cfdg

@@ -0,0 +1,33 @@
+# =========================================================================== #
+# From: https://www.contextfreeart.org/gallery/view.php?id=4210
+#
+# Created: 01.03.2021
+#
+# Originally created by flembobs on October 6th, 2020.
+# =========================================================================== #
+
+/*
+ * Printed on a large sheet of glass - that's how I'd like
+ * to see it. I hope you enjoy it.
+ */
+startshape blah
+
+shape blah {
+  blah2 [hue 100 sat 1 b 1]	
+}
+
+shape blah2 {
+  loop 1 [r 50 hue 20] box []
+  blah2 [r 50 x 2 s 0.92 b 1 hue 10]
+  blah2 [ r 1..360 x 2 s 0.2 hue 10 alpha -0.1 ]
+  blah2 [ r 1..360 x 3 s 0.2 hue 10 alpha -0.1 ]
+}
+
+path box {
+  MOVETO( 0.5,  0.5)
+  LINETO(-0.5,  0.5)
+  LINETO(-0.5, -0.5)
+  LINETO( 0.5, -0.5)
+  CLOSEPOLY()
+  STROKE()[]
+}

data/lib/image_paradise/cfdg/domino_pieces.cfdg

@@ -0,0 +1,166 @@
+# ================================================================ #
+# lesson: how to create state machines in CFDG; please note that 
+# a number of dominoes have one color, then comes a color 
+# change at once and again, the dominoes continue to have the 
+# same color for a while, ending with a given probability; 
+# curves turning right and left follow the same strategy
+# ================================================================ #
+
+
+startshape CQUEUE 
+
+background{hue -60 sat .25 b -.75} 
+
+rule CQUEUE 6{ 
+  CQUEUE{hue 60} 
+} 
+rule CQUEUE 6{ 
+  CQUEUE{hue -60} 
+} 
+rule CQUEUE 1{ 
+  QUEUE{} 
+} 
+
+rule QUEUE{ 
+  LQUEUE{} 
+} 
+rule QUEUE{ 
+  RQUEUE{} 
+} 
+
+rule LQUEUE .2{} //end 
+
+rule LQUEUE 1{ 
+CQUEUE{} //state change 
+} 
+
+rule LQUEUE 10{ 
+FALLENDOMINO{} 
+LQUEUE{x 2 z 1 r 3} 
+} 
+
+rule LQUEUE 100{ 
+LQUEUE{x -.05} 
+} 
+
+rule RQUEUE .2{} //end 
+
+rule RQUEUE 1{ 
+CQUEUE{} //state change 
+} 
+
+rule RQUEUE 10{ 
+FALLENDOMINO{} 
+RQUEUE{x 2 z 1 r -3} 
+} 
+
+rule RQUEUE 100{ 
+RQUEUE{x -.05} 
+} 
+
+rule FALLENDOMINO{ 
+DOMINO{r -6 sat .8 b .7} 
+} 
+
+rule DOMINO{ 
+SQUARE{s .1 1 skew 0 -4 x -1.05 y .035 b -.1} 
+SQUARE{s 2 .075 skew -3 0 x -.05 y 0.535 b -.3} 
+SQUARE{s 2 1 b -.2} 
+NUM{z .1 s .9 x -.5} 
+NUM{z .1 s .9 x .5} 
+} 
+
+//nine 
+rule NUM{ 
+SQUARE{b .2} 
+CIRCLE{x -.3 y -.3 b -1 s .2} 
+CIRCLE{y -.3 b -1 s .2} 
+CIRCLE{x .3 y -.3 b -1 s .2} 
+CIRCLE{x -.3 b -1 s .2} 
+CIRCLE{b -1 s .2} 
+CIRCLE{x .3 b -1 s .2} 
+CIRCLE{x -.3 y .3 b -1 s .2} 
+CIRCLE{y .3 b -1 s .2} 
+CIRCLE{x .3 y .3 b -1 s .2} 
+} 
+
+//eight 
+rule NUM{ 
+SQUARE{b .2} 
+CIRCLE{x -.3 y -.3 b -1 s .2} 
+CIRCLE{y -.3 b -1 s .2} 
+CIRCLE{x .3 y -.3 b -1 s .2} 
+CIRCLE{x -.3 b -1 s .2} 
+CIRCLE{x .3 b -1 s .2} 
+CIRCLE{x -.3 y .3 b -1 s .2} 
+CIRCLE{y .3 b -1 s .2} 
+CIRCLE{x .3 y .3 b -1 s .2} 
+} 
+
+//seven 
+rule NUM{ 
+SQUARE{b .2} 
+CIRCLE{x -.3 y -.3 b -1 s .2} 
+CIRCLE{y -.3 b -1 s .2} 
+CIRCLE{x .3 y -.3 b -1 s .2} 
+CIRCLE{b -1 s .2} 
+CIRCLE{x -.3 y .3 b -1 s .2} 
+CIRCLE{y .3 b -1 s .2} 
+CIRCLE{x .3 y .3 b -1 s .2} 
+} 
+
+//six 
+rule NUM{ 
+SQUARE{b .2} 
+CIRCLE{x -.3 y -.3 b -1 s .2} 
+CIRCLE{y -.3 b -1 s .2} 
+CIRCLE{x .3 y -.3 b -1 s .2} 
+CIRCLE{x -.3 y .3 b -1 s .2} 
+CIRCLE{y .3 b -1 s .2} 
+CIRCLE{x .3 y .3 b -1 s .2} 
+} 
+
+//five 
+rule NUM{ 
+SQUARE{b .2} 
+CIRCLE{x -.3 y -.3 b -1 s .2} 
+CIRCLE{x .3 y -.3 b -1 s .2} 
+CIRCLE{b -1 s .2} 
+CIRCLE{x -.3 y .3 b -1 s .2} 
+CIRCLE{x .3 y .3 b -1 s .2} 
+} 
+
+//four 
+rule NUM{ 
+SQUARE{b .2} 
+CIRCLE{x -.3 y -.3 b -1 s .2} 
+CIRCLE{x .3 y -.3 b -1 s .2} 
+CIRCLE{x -.3 y .3 b -1 s .2} 
+CIRCLE{x .3 y .3 b -1 s .2} 
+} 
+
+//three 
+rule NUM{ 
+  SQUARE{b .2} 
+  CIRCLE{x .3 y -.3 b -1 s .2} 
+  CIRCLE{b -1 s .2} 
+  CIRCLE{x -.3 y .3 b -1 s .2} 
+} 
+
+# two 
+rule NUM{ 
+  SQUARE{b .2} 
+  CIRCLE{x .3 y -.3 b -1 s .2} 
+  CIRCLE{x -.3 y .3 b -1 s .2} 
+} 
+
+# one 
+rule NUM{ 
+  SQUARE{b .2} 
+  CIRCLE{b -1 s .2} 
+} 
+
+//zero 
+rule NUM{ 
+  SQUARE{b .2} 
+}

data/lib/image_paradise/cfdg/dong.cfdg

@@ -0,0 +1,41 @@
+startshape TEST
+rule TEST {
+  RECDONG { rotate 90 }
+  RECDONG { rotate 270 }
+}
+
+rule RECDONG {
+  DONG { }
+  RECDONG { y 5 x -0.9 size 0.5 rotate 80 }
+  RECDONG { y 4.75 x 1.8 size 0.5 rotate -100 }
+}
+
+rule DONG {
+  c1 { x -1 }
+  c1 { x 1 size 0.9}
+  HEAD { rotate -20 y 10.5 size 0.5 x 3 }
+}
+rule HEAD {
+    HEADR { rotate 260 }
+    HEADL { rotate -260 }
+}
+rule HEADR {
+    SQUARE { }
+    HEADR { rotate -10 size 0.92 x -0.0124921 y 0.909067 }
+}
+rule HEADL {
+    SQUARE { }
+    HEADL { rotate 10 size 0.92 x -0.0124921 y 0.909067 }
+}
+
+rule c1 {
+  curveright_bottom {}
+}
+
+rule curveright_bottom  {
+  SQUARE { }
+  curveright_bottom { rotate -2 size 0.9 x -0.0124921 y 0.909067 }
+}
+
+
+

data/lib/image_paradise/cfdg/drip_shape.cfdg

@@ -0,0 +1,24 @@
+startshape INIT
+
+rule INIT { 
+  RAIN {b 1} 
+  RAIN {b 1 r -120} 
+  RAIN {b 1 r 120}  
+}
+
+rule RAIN {
+  DRIP { sat 1 }
+  RAIN {y 1 x -1 s 0.5 b -0.2 r -30}
+  RAIN {y 1 x 1 s 0.5 b -0.2 r 30}
+}
+
+rule RAIN 0.5 {
+  DRIP { sat 0.4 }
+  RAIN {y 1 x -1 s 0.5 b -0.2 r -30}
+  RAIN {y 1 x 1 s 0.45 b -0.2 r 34}
+}
+
+rule DRIP{
+  CIRCLE {}
+  SQUARE {y 0.3 x 3 s 0.6 hue 20 }
+}

data/lib/image_paradise/cfdg/earthday2007b.cfdg

@@ -0,0 +1,49 @@
+# ========================================================================== #
+# Made these two animations for earth day, and figured 
+# I should upload them. Save the planet, and please, if you're 
+# going to copy code, properly give credit to the original authors :) 
+#   => this was mattpace
+#
+# ========================================================================== #
+
+startshape init
+# also looks good on a dark non black background
+ 
+rule init
+{
+  72* {r 5}  trunknocenter { b .78 sat .9 hue 210 alpha -1}
+} 
+
+rule trunknocenter 	// the center white spot was looking 
+                //horrendous in the original version
+                //where init just made 72 trunks
+{
+    trunk {y .67 s .92 hue -1.2}
+}
+ 
+rule trunk 100
+{
+    baseshape{}  	//recomment this and you get my other
+                //file, earthday2007a
+    trunk {y .67 s .92 hue -1.2}
+}
+rule trunk 3
+{
+  baseshape{}
+  trunk {y .67 r 23 s .92 hue -1.2}
+  trunk {y .67 s .92 r 3 hue -1.2}
+  trunk { y .67 s .92 r -7 hue -1.2}
+} 
+ 
+rule trunk 3
+{
+  baseshape{}
+  trunk {y .67 r 13 s .92 hue -1.2}
+  trunk {y .67 s .92 r -33 hue -1.2}
+  trunk { y .67 s .92 r -17 hue -1.2}
+} 
+rule baseshape
+{
+  CIRCLE{}
+  baseshape { s .9 alpha .1 b .1 sat -.02}
+}

data/lib/image_paradise/cfdg/edera_circles.cfdg

@@ -0,0 +1,55 @@
+# Original name was 'edera.cfdg'.
+# rconfreegui $CFDG/edera.cfdg
+
+background { b -0.8973}
+# background { b -0.1973}
+
+startshape EDERA
+
+rule EDERA{
+  CIGLIO {x 0} CIRCLE { x 0 s 5 hue 200 sat 0.5}
+  CIGLIO {x 5} CIRCLE { x 5 s 5 hue 200 sat 0.5}
+  CIGLIO {x 10} CIRCLE { x 10 s 5 hue 200 sat 0.5}
+  CIGLIO {x 15} CIRCLE { x 15 s 5 hue 200 sat 0.5}
+  CIGLIO {x 20} CIRCLE { x 20 s 5 hue 200 sat 0.5}
+  CIGLIO {x 25} CIRCLE { x 25 s 5 hue 200 sat 0.5}
+  CIGLIO {x 30} CIRCLE { x 30 s 5 hue 200 sat 0.5}
+  CIGLIO {x 35} CIRCLE { x 35 s 5 hue 200 sat 0.5}
+  CIGLIO {x 40} CIRCLE { x 40 s 5 hue 200 sat 0.5}
+  CIGLIO {x 45} CIRCLE { x 45 s 5 hue 200 sat 0.5}
+}
+
+rule CIGLIO 100 {
+  SQUARE {hue 200 sat 0.5}
+  CIGLIO {y -1 s 0.998 b 0.005}
+}
+
+rule CIGLIO {
+  SQUARE {hue 200 sat 0.5}
+  CIRCLE {hue 200 sat 0.5 alpha -0.4 s 10 y -10 }
+  CIGLIO {y -1 r 1 s 0.998 b 0.005}
+}
+
+rule CIGLIO 0.0005 {
+  SQUARE {hue 200 sat 0.5}
+  CIRCLE {hue 200 sat 0.5 alpha -0.8 s -20 x 20 y -10 }
+  CIGLIO {y -1 s 0.998 b 0.005 }
+}
+
+rule CIGLIO {
+  SQUARE {hue 200 sat 0.5}
+  CIRCLE {hue 200 sat 0.5 alpha -0.4 s 5 y -10 }
+  FIORE {}
+  FIORE { x -1 flip 90}
+  CIGLIO {y -1 s 0.998 b 0.005 }
+}
+
+rule FIORE {
+  CIRCLE {hue 200 sat 0.5}
+  FIORE {y -1 r 4 s 0.998 b 0.005}
+}
+
+rule FIORE 0.005 {
+  CIRCLE {s 5 hue 200 sat 0.5}
+  FIORE {y -1 r 4 s 0.998 b 0.005 flip 90}
+}

data/lib/image_paradise/cfdg/eight_queens_problem.cfdg

@@ -0,0 +1,85 @@
+# =========================================================================== #
+# From:
+#
+#   https://www.contextfreeart.org/gallery2/#design/4091
+#
+# HEIGHT: 500
+# WIDTH:  500
+#
+# =========================================================================== #
+
+// ==================================================
+// Eight Queens Puzzle
+// https://en.wikipedia.org/wiki/Eight_queens_puzzle
+//
+// Design randomly shows one of the 92 solutions.
+// ==================================================
+
+startshape Try_Position(0,(0,0,0,0,0,0,0,0),0)
+
+CF::Impure=1
+SolNr=randint(1,92) // ------------- Solution Number 
+
+vector8 Roll(Y,vector8 Pos)=
+  if (Y<>0, Roll(Y-1,(Pos[1,7],Pos[0])), Pos)
+vector8 Place(X,Y,vector8 Pos)=
+  let(L=Roll(Y,Pos); I=(X,L[1,7]); Roll(8-Y,I))
+number  Frei(X,Y,vector8 Pos,i)=
+  let( Xi=Pos[Y-i]; X<>Xi-i && X<>Xi && X<>Xi+i )
+number  Free(X,Y,vector8 Pos,i)=
+  if (i>Y,1,if(Frei(X,Y,Pos,i),Free(X,Y,Pos,i+1),0))
+
+shape Try_Position(Y, vector8 Pos, Nr) {
+  X=Pos[Y]
+  if (X==8) { // ---- Backtracking or Stop
+    if (Y==0) SQUARE[] // ----------- Stop
+    else { // ----------------------- Backtracking
+      newPos1=Place(-1,Y,Pos)
+      newX   =Pos[Y-1]+1 
+      newPos2=Place(newX,Y-1,newPos1)
+      Try_Position(Y-1,newPos2,Nr)[]
+    }
+  } else {
+    if (Free(X,Y,Pos,1)) {
+      if (Y==7) { // ---------------- Solution
+        if (Nr+1==SolNr) Solution(Pos,SolNr)[]
+        else {    // ------ Find next Solution
+          newPos=Place(X+1,Y,Pos)
+          Try_Position(Y,newPos,Nr+1)[]
+        }
+      } else {    // ---------------- Forward
+        newPos=Place(0,Y+1,Pos)
+        Try_Position(Y+1,newPos,Nr)[]
+      }
+    } else { // --------------- Queen to right
+      newPos=Place(X+1,Y,Pos)
+      Try_Position(Y,newPos,Nr)[]
+} } }
+
+shape Solution(vector8 Pos, Nr) {
+  SQUARE[x 3.5 y 3.5 s 9  h 30 sat 0.52 b 0.91]
+  loop X=8 [x 1]   loop Y=8 [y 1]
+   if (mod(X+Y,2)) SQUARE[h 30 sat 0.38 b 1.00]
+   else            SQUARE[h 30 sat 0.66 b 0.82]
+  loop j=8 [y 1] Queen[x (Pos[j])]
+  Natural(Nr)[x 7.95 y -0.75 s 0.4]
+} 
+
+shape Queen {
+  loop R=-21,22,10.5 []
+    transform[[s 0.1 y -5 r R y 6.5]]
+    { CIRCLE[y 2] TRIANGLE[s 1 4] }
+  loop 2 [y -0.3] CIRCLE[s 0.50 0.10]
+  loop 4 [y -0.1] SQUARE[s 0.45 0.05]
+}
+
+shape Natural(natural i) {
+  if (i>9) Natural(div(i,10))[x -0.5]
+  digit=mod(i,10) // --------- Mycelium design 3966
+  B=select(digit, 125,17,107,59,23,62,126,25,127,63)
+  loop i=7 [] if ( bitand(2^i,B) )
+   transform[[skew 8 0 x -0.25 -0.15 s 0.30]]
+    SQUARE[[y (i<4) r -(90*i) x 0.5  s 0.15 0.75]]
+}
+
+# runcfdg $CFDG/eight_queens_problem.cfdg