image_paradise 0.4.20

data/lib/image_paradise/cfdg/insect_fight.cfdg

@@ -0,0 +1,316 @@
+# === insect_fight.cfdg
+
+startshape Fight
+
+background {b .9 sat 1}
+tile { s 19 10 }
+/*---------------------------------------------------------------------*/
+/*---------------------------------------------------------------------*/
+rule Fight {
+sides {x -9.5 z 100}
+200*{y .05}VarAnt{x -9 r -90}
+5*{y 2}VarBUG{x 9 r 90 z 100}
+}
+rule sides{
+SQUARE{s 12 10 a -.996}
+sides{s .98 1}
+}
+/*---------------------------------------------------------------------*/
+rule VarAnt 30{VarAnt{r 1}}
+rule VarAnt 30{VarAnt{r -1}}
+rule VarAnt 30{VarAnt{y .1 z .1}}
+rule VarAnt {Ant{s .3}}
+
+rule VarBUG 30{VarBUG{r 1}}
+rule VarBUG 30{VarBUG{r -1}}
+rule VarBUG 30{VarBUG{y .3}}
+rule VarBUG {
+BUG{s .75}
+36*{r 10}FightingAnt{y -3 s .3 z -100}
+}
+rule FightingAnt 40{FightingAnt{y .2 z 1}}
+rule FightingAnt {Ant{}}
+rule FightingAnt 2{}
+/*---------------------------------------------------------------------*/
+/*---------------------------------------------------------------------*/
+rule Ant {
+         Head {}
+}
+
+
+rule Head {
+	LMandible{y 0.16 x -0.135}
+	RMandible{y 0.16 x 0.135}
+	CIRCLE {s 0.626}
+	CIRCLE { s 0.395 y -0.15 x -0.15}
+	CIRCLE { s 0.395 y -0.15 x 0.15}
+	SQUARE {  s 0.255 y -0.05 x 0.198 r 12}
+	SQUARE {  s 0.255 y -0.05 x -0.198 r -12}
+	CIRCLE {b 1 sat 1 s 0.15 y -0.12 x 0.25}
+	CIRCLE {b 1 sat 1 s 0.15 y -0.12 x -0.25}
+	CIRCLE {b 1 sat 1 s 0.4 y 0.4 }
+	CIRCLE {s 0.07 y 0.19 x 0.025}
+	CIRCLE {s 0.07 y 0.19 x -0.025}
+	LLeg {s 0.035 y 0.15 x -0.2 r 40}
+	RLeg {s 0.035 y 0.15 x 0.2 r -40}
+	Thocycle {}
+}
+rule LMandible 0.45{
+	LMandible{r 0}
+}
+
+rule LMandible 0.45 {
+	LMandible{r 1}
+}
+
+rule LMandible 0.1 {
+	SQUARE { b -1 s 0.16 y 0.1 x 0 r -20}
+	TRIANGLE {b -1 s 0.15 y 0.145 x 0.04 r -75}
+	TRIANGLE {b -1 s 0.10 y 0.12 x 0.055 r -75}
+	TRIANGLE {b -1 s 0.10 y 0.09 x 0.045 r -75}
+	TRIANGLE {b 1 sat 1 s 0.25 y 0.19 x -0.065 r -75}
+}
+
+rule RMandible 0.45{
+	RMandible{r 0}
+}
+
+rule RMandible 0.45 {
+	RMandible{r -1}
+}
+
+rule RMandible 0.1{
+	SQUARE { b -1 s 0.16 y 0.1 x 0 r 20}
+	TRIANGLE {b -1 s 0.15 y 0.145 x -0.04 r 75}
+	TRIANGLE {b -1 s 0.10 y 0.12 x -0.055 r 75}
+	TRIANGLE {b -1 s 0.10 y 0.09 x -0.045 r 75}
+	TRIANGLE {b 1 sat 1 s 0.25 y 0.19 x 0.065 r 75}
+}
+
+rule Thocycle 0.45 {
+	Thocycle {r 2}
+}
+rule Thocycle 0.45 {
+	Thocycle {r -2}
+}
+rule Thocycle 0.1 {
+	Thorax {y -0.5 }
+}
+
+rule Thorax {
+	CIRCLE { y -0.03 s 0.38}
+	CIRCLE {b -1 y -0.17 s 0.33}
+	CIRCLE {b -1 y -0.3 s 0.28}
+	//SQUARE { y -0.38 s 0.14 r 45}
+	LLeg {s 0.07 r 70 y -0.10 x -0.17}
+	RLeg {s 0.07 r -70 y -0.10 x 0.17}
+	LLeg {s 0.07 r 95 y -0.20 x -0.15}
+	RLeg {s 0.07 r -95 y -0.20 x 0.15}
+	LLeg {s 0.07 r 240 y -0.30 x 0.14}
+	RLeg {s 0.07 r 120 y -0.30 x -0.14}
+	Abdocycle{}
+}
+
+rule Abdocycle 0.45 {
+	Abdocycle {r 3}
+}
+rule Abdocycle 0.45 {
+	Abdocycle {r -3}
+}
+rule Abdocycle 0.1 {
+	Abdomen {y -0.38}
+}
+
+
+rule Abdomen {
+	//CIRCLE {  s 0.07 r 45}
+	//SQUARE { y -0.12 s 0.14 r 45}
+	CIRCLE { y -0.34 s 0.56}
+	CIRCLE { y -0.4 s 0.54}
+	CIRCLE { y -0.45 s 0.49}
+	CIRCLE { y -0.53 s 0.4}
+	SQUARE { y -0.54 s 0.3 r 45}
+}
+
+rule LLeg 0.45 {
+	LLeg {r 3}
+}
+rule LLeg 0.45 {
+	LLeg {r -3}
+}
+
+rule LLeg 0.1 {
+	ForeLeg{}
+	LMidLeg{ y 5.75 s 0.9 r -40}
+}
+
+rule RLeg 0.45 {
+	RLeg {r 3}
+}
+rule RLeg 0.45 {
+	RLeg {r -3}
+}
+
+rule RLeg 0.1 {
+	ForeLeg{}
+	RMidLeg{ y 5.75 s 0.9 r 40}
+}
+
+rule ForeLeg {
+	CIRCLE{b -1 s 0.5}
+	SQUARE{b -1 y 0.25 s 0.5}
+	SQUARE{b -1 y 0.5 s 0.5}
+	SQUARE{b -1 y 1 s 0.5}
+	SQUARE{b -1 y 1.5 s 0.5}
+	SQUARE{b -1 y 2 s 0.5}
+	SQUARE{b -1 y 2.5 s 0.5}
+	SQUARE{b -1 y 3 s 0.5}
+	SQUARE{b -1 y 3.5 s 0.5}
+	SQUARE{b -1 y 4 s 0.5}
+	SQUARE{b -1 y 4.5 s 0.5}
+	SQUARE{b -1 y 5 s 0.5}
+	SQUARE{b -1 y 5.5 s 0.5}
+	CIRCLE{b -1 y 5.75 s 0.5}
+}
+
+rule LMidLeg 0.45 {
+	LMidLeg{r 5}
+}
+
+rule LMidLeg 0.45 {
+	LMidLeg{r -5}
+}
+
+rule LMidLeg 0.1 {
+	ForeLeg{}
+	LEndLeg{ y 5.75 s 0.75 r 12}
+}
+
+rule LEndLeg 0.45 {
+	LEndLeg{r 5}
+}
+
+rule LEndLeg 0.45 {
+	LEndLeg{r -5}
+}
+
+rule LEndLeg 0.1 {
+	ForeLeg{}
+}
+
+rule RMidLeg 0.45 {
+	RMidLeg{r 5}
+}
+
+rule RMidLeg 0.45 {
+	RMidLeg{r -5}
+}
+
+rule RMidLeg 0.1{
+	ForeLeg{}
+	REndLeg{ y 5.75 s 0.75 r -12}
+}
+
+rule REndLeg 0.45 {
+	REndLeg{r 5}
+}
+
+rule REndLeg 0.45 {
+	REndLeg{r -5}
+}
+
+rule REndLeg 0.1 {
+	ForeLeg{}
+}
+/*---------------------------------------------------------------------*/
+/*---------------------------------------------------------------------*/
+rule BUG {BUGGR1{y -.2}BUGT{}}
+/*---------------------------------------------------------------------*/
+rule BUGGR1 6{BUGGR1{r 1}}
+rule BUGGR1 {BUGG1{flip 90}}
+rule BUGGR1 {BUGG1{y -.2}}
+
+rule BUGG1 {CIRCLEE{}BUGG1{y -.1}}
+rule BUGG1 {CIRCLEE{}PAT{r 10 y .4 s 1.2}PAT{r -10 flip 90 y .4 s 1.2}BUGGR2{}}
+
+rule BUGGR2 6{BUGGR2{r 1}}
+rule BUGGR2 {BUGG2{flip 90}}
+rule BUGGR2 {BUGG2{y -.2}}
+
+rule BUGG2 {CIRCLEE{}BUGG2{y -.1}}
+rule BUGG2 {CIRCLEE{}PAT{r 20 y -.2 s 1.2}PAT{r -20 flip 90 y -.2 s 1.2}BUGGR3{}}
+
+rule BUGGR3 6{BUGGR3{r 1}}
+rule BUGGR3 {BUGG3{flip 90}}
+rule BUGGR3 {BUGG3{}}
+
+rule BUGG3 {CIRCLEE{}BUGG3{y -.1}}
+rule BUGG3 {CIRCLEE{}CUL{y -.3 s .3}}
+/*---------------------------------------------------------------------*/
+rule CUL {CULL{r 40}CULL{r -40}}
+rule CULL {CULL{r 1}}
+rule CULL {CULL{r -1}}
+rule CULL .1{CULLL{}}
+rule CULLL {CIRCLE{}CULLL{y -.1 s .97}}
+/*---------------------------------------------------------------------*/
+rule BUGT 2{CIRCLEE{}BUGT{y .1}}
+rule BUGT {CIRCLEE{}PAT{y .5}PAT{flip 90 y .5}RTETE{z 10 y .45}}
+/*---------------------------------------------------------------------*/
+rule RTETE 2{RTETE {r 1}}
+rule RTETE {TETE{}}
+
+rule TETE 2{TETE{s .98}}
+rule TETE {CIRCLE{s .9 1.2}ANT1{y .5 x -.2 s .2 }ANT1{y .5 x .2 s .2 flip 90 }}
+
+rule ANT1 {10*{y .1 s .99 r 1.2}CIRCLE{s .6}ANT2{y 1 x -.1 s .8 r 30 }}
+rule ANT1 {10*{y .1 s .99 r -1.2}CIRCLE{s .6}ANT2{y 1 x .1 s .8 r 30 }}
+rule ANT2 {ANT3{r 33}}
+rule ANT2 {ANT3{r 30}}
+rule ANT2 {ANT3{r 27}}
+rule ANT3 {30*{y .1 s .98 r -.2}CIRCLE{s .6}ANT4{s .6 y 2.25 x .1}}
+rule ANT3 {30*{y .1 s .98 r .2}CIRCLE{s .6}ANT4{s .6 y 2.25 x -.1}}
+rule ANT4 {30*{y .1 s 1.01 r -.2}CIRCLE{s .6} ANT5{s 1.3 y 3.5 x .2 r 90}}
+rule ANT4 {30*{y .1 s 1.01 r .2}CIRCLE{s .6} ANT5{s 1.3 y 3.5 x -.2 r 90}}
+rule ANT5 {CIRCLE{s .6}ANT5{y .1 s .99 r .2}}
+rule ANT5 .4{ANT5{s 1.01}}
+rule ANT5 {ANT5{r .3}}
+rule ANT5 {ANT5{r -.3}}
+rule ANT5 .05{ANT6{}}
+rule ANT6 {CIRCLE{s .6}ANT6{y .1 s .993}}
+rule ANT6 .4{ANT6{s 1.01}}
+rule ANT6 {ANT6{r .6}}
+rule ANT6 {ANT6{r -.6}}
+/*---------------------------------------------------------------------*/
+rule PAT 10{PAT{r 1}}
+rule PAT {PAT1{s .24 r 60 x -.3}}
+rule PAT1 {30*{y .1 s .99 r .3}CIRCLEP1{}PAT2{y 2.7 x -.3 s .5 r 54}}
+rule PAT1 {30*{y .1 s .99 r -.3}CIRCLEP1{}PAT2{y 2.7 x .1 s .5 r 54}}
+rule PAT2 10{PAT2{r 1}}
+rule PAT2 {PAT3{}}
+
+rule PAT3 {30*{y .1 s .98 r -.2}TRIANGLEP1{}PAT4{y 2.25 x .1 s .6}}
+rule PAT3 {30*{y .1 s .98 r .2}TRIANGLEP1{}PAT4{y 2.25 x -.1 s .6}}
+
+rule PAT4 {60*{y .1 s 1.01 r -.2}TRIANGLEP1{}PAT5{y 8 x .9 r -45}}
+rule PAT4 {60*{y .1 s 1.01 r .2}TRIANGLEP1{}PAT5{y 8 x -.9 r -45}}
+rule PAT5 10{PAT5{r 1}}
+rule PAT5 {PAT6{}}
+
+rule PAT6 {PAT6{r .5}}
+rule PAT6 {PAT6{r -.5}}
+rule PAT6 .4{PAT6{s 1.01}}
+rule PAT6 .1{PAT6{flip 90}}
+rule PAT6 {CIRCLEP1{}PAT6{y .1 s .99}}
+/*---------------------------------------------------------------------*/
+rule CIRCLEE{CIRCLEE{x .01}}
+rule CIRCLEE{CIRCLEE{r 1}}
+rule CIRCLEE{CIRCLEE{flip 90}}
+rule CIRCLEE{CIRCLE{s 1 2}}
+
+rule CIRCLEP1 {CIRCLEP1{s 1.03}}
+rule CIRCLEP1 {CIRCLEP1{s .95}}
+rule CIRCLEP1 {CIRCLE{}}
+
+rule TRIANGLEP1 {TRIANGLEP1{s 1.2 1}}
+rule TRIANGLEP1 {TRIANGLEP1{s .8 1}}
+rule TRIANGLEP1 {TRIANGLE{r 180}}

data/lib/image_paradise/cfdg/insectivore.cfdg

@@ -0,0 +1,80 @@
+/*
+  insectivore.cfdg
+
+  By AK Jun 2013
+
+  Variations: any
+
+  Original URL:          https://www.contextfreeart.org/gallery/view.php?id=3215
+  Originally created at: 07.06.2013
+  Licence:               https://creativecommons.org/licenses/by-sa/3.0/au/deed.en
+
+*/
+
+startshape X
+Ntheta=60
+Nphi=Ntheta/2
+CF::Background=[b -.5 h 220 sat .3]
+CF::Size=[s 4]
+
+shape X {
+  loop i=Nphi [] {
+    phi=(i+.5)*180/Nphi
+    rtwist=0..1
+    Mtheta=floor(Ntheta/2*sin(phi))
+    loop j=Mtheta [] {
+      theta=(j+ rtwist)*360/Mtheta
+      cell(sin(phi)*cos(theta),
+        sin(phi)*sin(theta),
+        cos(phi),
+        sin(phi))[]
+      }
+    }
+  loop i=30 [ y -.02 x .01 r -.5 s 1.01] 
+    BUMP(i*.03)[s .15 .3  h 100 b (i*.01) sat .6 x .6 y -1 a -.9]
+  BUMP(1)[s 6 z -99 a -.90 b -.5 h 220 sat .3]
+  AK(.3)[x 1.88 y -1.9 s .12 h 240 sat .3 b .4   z 999]
+  }
+
+shape cell( number xx, number yy, number zz, number xy ) {
+  BUMP(.8)[s .45 .45 .45 x xx y yy z zz h 80 sat .6]
+  BUMP(0.2)[s .12 .12 0 x (1.1*xx) y (1.1*yy) z (1.1*zz) b 0 a -.95]
+  spike(xy,12,0)[[ x (1.1*xx) y (1.1*yy) z (1.1*zz) r atan2(yy,xx) s .08 .08
+zz sat 1 h -20..0]]
+  loop 88 []
+    CIRCLE[[x -.2 .. .2 y -.2 .. .2 x xx y yy z zz s .008 .. .015 a -.75 ..
+-.85]] // spots
+  }
+
+
+shape BUMP(number target_b ){
+  CIRCLE[z -1]
+  BUMP(=)[s .98 .98 .95 b .02 target_b a -.01]
+  }
+
+epsilon=0.02
+shape spike(number dir,number stretch,curl)
+  rule 20{
+  SPOT[]
+  spike(=)[[z 1 x (stretch*dir) s  (1-epsilon) (1-1.5*epsilon) (1-epsilon) x
+(-stretch*dir) z -1 sat .2 b .1 r (curl*epsilon*20) a (-1*epsilon)]]
+  }
+  rule { spike(dir, stretch,-20)[h 10] }
+  rule { spike(dir, stretch,-5)[] }
+  rule { spike(dir, stretch,0)[] }
+  rule { spike(dir, stretch,5)[] }
+  rule { spike(dir, stretch,20)[h 5] }
+  rule .2{
+    spike(=)[r -25]
+    spike(=)[r 25 f 0]
+    }
+
+shape SPOT
+  rule 9 {CIRCLE[]}
+  rule 1 {CIRCLE[b -.2]}
+  rule 2 {SPOT[] CIRCLE[a -.5 b 1 s .5 sat -1]}
+
+
+
+// ---- A signature (FWIW)
+shape AK(number target_b){loop 2[r -30 s sqrt(1/3) b 1 target_b]TRIANGLE[]}

data/lib/image_paradise/cfdg/interference.cfdg

@@ -0,0 +1,43 @@
+# =========================================================================== #
+# Taken from: https://www.contextfreeart.org/gallery/view.php?id=4278
+# Added on:   12.09.2022
+# Created on: 08.09.2022
+# Author:     flx
+# =========================================================================== #
+
+// CFA "Interference" by flx
+//------------------------------------------
+//playaround-area
+zm = 1     // zoom
+wl = 1     // sine-period factor (wavelength)
+sf = 1     // sine-amplitude factor (brightness contrast)
+bo = 0.0     // sine y-offset (brightness shift)
+wo = 0     // sine x-offset (0 to 360) for flow-animation
+e1 = -1,0    // Emitter 1 (x,y)
+e2 =  1,0    // Emitter 2 (x,y)
+//------------------------------------------
+cx = 400 // canvas resX
+cy = 400 // canvas resY
+cv = 20*(1/zm)
+si = 20/(1/zm)
+P(u,v) = sqrt(u*u + v*v)*cv // Pythagoras function
+// Calculate Waves
+F(u,v) = ( 
+  sin(P((-e1[0]*si+u)*(1/wl/3),(-e1[1]*si+v)*(1/wl/3))+wo)*(sf*0.4) 
++ sin(P((-e2[0]*si+u)*(1/wl/3),(-e2[1]*si+v)*(1/wl/3))+wo)*(sf*0.4)
+)
+startshape A
+shape A {
+  CANVAS[] // Show Waves
+  CIRCLE[s 3 x (e1[0]*si) y (e1[1]*si) b 1 sat 1 h 0 z 1] // Show Emitter 1
+  CIRCLE[s 3 x (e2[0]*si) y (e2[1]*si) b 1 sat 1 h 0 z 1] // Show Emitter 2
+}
+shape CANVAS {
+  loop j=(-cy*0.5),(cy*0.5),1 [] {
+    loop i=(-cx*0.5),(cx*0.5),1 []
+    {
+      br = F(i,j)+(bo+0.5)
+      SQUARE[x i y j sat 0 b br h 0 s 1.9] // scaling to avoid gridlines
+    }
+  }
+}

data/lib/image_paradise/cfdg/interference_fields.cfdg

@@ -0,0 +1,25 @@
+startshape cuadturn4
+
+background  {b -1 }
+
+rule cuadturn4 {
+cuadturn3 { hue 225.5 sat 0.7425  }
+}
+
+rule cuadturn3 {
+  cuadturn2 {}
+  cuadturn3  [ y 0 x 10 s 0.99 0.89 r -10  hue 30 sat 0.7083 b -0.5473  ]
+}
+
+rule cuadturn2 {
+  cuadturn {}
+  cuadturn { r 90 }
+  cuadturn {r 180}
+  cuadturn { r 270}
+}
+
+rule cuadturn {
+  SQUARE { hue 29.4 sat 0.7120  }
+  SQUARE { y 1.1  hue 50.2 sat 0.7029 b 0.8458  }
+  cuadturn [ x 1.2 s 0.999 r 3 b 0.001 ]
+}

data/lib/image_paradise/cfdg/into_the_deep.cfdg

@@ -0,0 +1,96 @@
+/*
+    "Into the deep"
+
+  https://www.contextfreeart.org/gallery/view.php?id=4198
+  
+  by EkB Jun 2020
+
+  (CC BY-NC-SA 4.0)
+*/
+
+CF::Background = [h 220 b -.9 sat .8]
+CF::BorderFixed = 30
+
+startshape seaH
+
+shape seaH{
+  seahorse[r -90 b .8 x .2]
+  seahorse[flip 135 x -5 y -1 b .4 s .7]
+  seahorse[r -90  x -1.6 y -2.2  b .2 s .4]
+  seahorse[flip 135 x -3.7 y -2.5 b .11 s .2]
+  seahorse[r -90  x -2.5 y -3  b .1 s .06]
+}
+
+shape seahorse{
+  head [s .75 x -.43 y -.83 r 100]
+  headFin[]
+  eye [s .2 x -.55 y -.95]
+  neck  []
+  body[]
+  bodyFin[]
+  tail[]
+}
+
+shape head{
+  loop l = 40 [s 1 x -.05 y -.05] arc[s (0.9/900 * l*(l -60)+1) ]
+
+}
+
+shape eye{
+  loop m = 3 [s .8 b .5] CIRCLE[]
+}
+
+shape headFin{
+  fin[s .04 r 135 x -.6 y -.45 z  -2 a -.8]
+}
+
+shape neck{
+  neck_p1[r 5]
+  neck_p2[ ]
+}
+
+shape neck_p1{
+  loop i = 8 [ r 5 a -.2] SQUARE[s 1 .03 x -1 ]
+}
+
+shape neck_p2{
+  loop i = 19 [ r -5] SQUARE[s 1 .03 x -1]
+}
+
+shape body{
+  loop k =40 [x .1 y (-.07*cos(5*k+4)) s 1 ]SQUARE[ s .03 (1-1/500 *k*(k-40)) x .1 y 1]
+}
+
+shape bodyFin{
+  fin[s .06 r 110 x 4 y 1.35 z  -2 a -.95]
+}
+
+shape tail{
+  loop j =160 [x .12 y .4 s .98 r -4 ]SQUARE[ s .03 1 x 4.1 y 1.3]
+}
+
+shape fin{
+  loop i = 9 [ r 4] rayfin[s .8 ]
+  loop i = 8 [ r -4] rayfin[s .8 r -4]
+  mfin[  s 44 x -24 y -22]
+}
+
+shape rayfin{
+  SQUARE[ x 9.5]
+  rayfin[s .98 x .5]
+}
+
+path mfin{
+  MOVETO(0.5 + 0.2*cos(32), 0.5 + 0.2*sin(32))
+  LINETO(0.5 + 0.5*cos(32), 0.5 + 0.5*sin(32))
+  ARCTO(0.5 + 0.5*cos(32), 0.5 - 0.5*sin(32),0.5, CF::ArcCW)
+  LINETO(0.5 + 0.2*cos(32), 0.5 - 0.2*sin(32))
+  ARCTO(0.5 + 0.2*cos(32), 0.5 + 0.2*sin(32),0.3)
+  CLOSEPOLY()
+}
+
+path arc {
+  MOVETO(1,0)
+  ARCTO(0,1,2)
+  STROKE(.04)[s 1]
+}

data/lib/image_paradise/cfdg/inverted_decorations.cfdg

@@ -0,0 +1,85 @@
+# good variations:
+# BHX MHZ MJE UJK
+
+startshape PIC
+
+background{b -1}
+
+rule PIC{
+	SQUARE{s 20 .16 z 1}
+	SQUARE{s 20 12 y -6 hue 60 sat .9 b .9}
+	SQUARE{s 20 12 y 6 hue -60 sat .9 b .7}
+	TREE{x 4 z 2}
+	FLOWER{x -4 flip 0 z 2}
+}
+
+rule TREE 60{
+	SQUARE{y .17 s 1 .5}
+	CIRCLE{y .42 z .5}
+	SQUARE{y .17 s .67 .504 hue 60 sat .9 b .9 z 1}
+	CIRCLE{y .42 s .67 hue 60 sat .9 b .9 z 1.5}
+	CIRCLE{s .67 y -.085 hue 60 sat .9 b .9 z 1.5}
+	TREE[y .5 s .95 r 5]
+}
+
+rule TREE 40{
+	SQUARE{y .17 s 1 .5}
+	CIRCLE{y .42 z .5}
+	SQUARE{y .17 s .67 .504 hue 60 sat .9 b .9 z 1}
+	CIRCLE{y .42 s .67 hue 60 sat .9 b .9 z 1.5}
+	CIRCLE{s .67 y -.085 hue 60 sat .9 b .9 z 1.5}
+	TREE[y .5 s .95 r -5]
+}
+
+rule TREE 8{
+	SQUARE{y .17 s 1 .5}
+	CIRCLE{y .42 z .5}
+	SQUARE{y .17 s .67 .504 hue 60 sat .9 b .9 z 1}
+	CIRCLE{y .42 s .67 hue 60 sat .9 b .9 z 1.5}
+	CIRCLE{s .67 hue 60 sat .9 b .9 z 1.5}
+	TREE[y .5 s .9 r -30 flip 90]
+	TREE[y .5 s .9 r 30]
+}
+
+rule TREE 2{}
+
+rule FLOWER 40{
+	SQUARE{y .17 s .5}
+	CIRCLE{y .42 s .5 z .5}
+	SQUARE{y .17 s .17 .504 hue -60 sat .9 b .7 z 1}
+	CIRCLE{y .42 s .17 hue -60 sat .9 b .7 z 1.5}
+	CIRCLE{s .17 y -.085 hue -60 sat .9 b .7 z 1.5}
+	FLOWER[y .5 s .95 r 5]
+}
+
+rule FLOWER 60{
+	SQUARE{y .17 s .5}
+	CIRCLE{y .42 s .5 z .5}
+	SQUARE{y .17 s .17 .504 hue -60 sat .9 b .7 z 1}
+	CIRCLE{y .42 s .17 hue -60 sat .9 b .7 z 1.5}
+	CIRCLE{s .17 y -.085 hue -60 sat .9 b .7 z 1.5}
+	FLOWER[y .5 s .95 r -5]
+}
+
+rule FLOWER 7{
+	LEAF{flip 90}
+	FLOWER{}
+}
+
+rule LEAF 40{
+	SQUARE{y .17 s .5}
+	CIRCLE{y .42 s .5 z .5}
+	SQUARE{y .17 s .17 .504 hue -60 sat .9 b .7 z 1}
+	CIRCLE{y .42 s .17 hue -60 sat .9 b .7 z 1.5}
+	CIRCLE{s .17 y -.085 hue -60 sat .9 b .7 z 1.5}
+	LEAF[y .5 s .95 r -8]
+}
+
+rule LEAF 1{}
+
+rule FLOWER 3{
+	CIRCLE{s 3}
+	CIRCLE{s 2.68 hue -60 sat .9 b .7 z 1.5}
+	10*{r 36}CIRCLE{y 2 s 1 2 r 180}
+	10*{r 36}CIRCLE{y 2 s .68 1.68 hue -60 sat .9 b .7 z 1.5 r 180}
+}

data/lib/image_paradise/cfdg/irregular_galaxies.cfdg

@@ -0,0 +1,29 @@
+startshape Speckle
+
+background {b -1}
+
+rule Speckle { 
+
+	SQUARE{ b 1 r 45 }
+	Speckle{s .7 x 10 y -8 }
+	Speckle{s .35 x -4 y 5  }
+
+
+}
+
+rule Speckle { 
+
+	SQUARE{ b 1 }
+	Speckle{s .4 x -8 y -9}
+	Speckle{s .8 x +7 y -9}
+
+
+}
+
+rule Speckle { 
+
+	CIRCLE{ b 1 }
+	Speckle{ r 230 s .99 }
+	Speckle{ r 57 s .99 }
+// Interesting: The rotations here need to be about (but not exactly) 180 deg apart  to make convincing galaxies. 
+}

data/lib/image_paradise/cfdg/iso_blocks.cfdg

@@ -0,0 +1,35 @@
+/*
+	ISOBLOCKS
+	www.lazymoon.org
+	isoblocks.cfdg
+*/
+
+startshape INIT
+background {b -1}
+
+rule INIT {
+	100*{y 1 x -2 } ROW{sat 0.5}
+}
+
+rule ROW {
+	100*{x 2 y 1} BUILD{}
+}
+
+rule TOWER {
+	SQUARE{x 1 s 2 1 skew 0 45 b 0.65}
+	SQUARE{x -1 s 2 1 skew 0 -45 b 0.8}
+}
+
+rule ROOF {
+	TOWER{}
+	SQUARE{y 1 s 2 1 skew 45 -45 b 0.5}
+}
+
+rule BUILD{
+	TOWER{}
+	BUILD{y 1 h 2}
+}
+
+rule BUILD 0.05 {
+	ROOF{}
+}