image_paradise 0.4.8

data/lib/image_paradise/cfdg/meaculpo.cfdg

@@ -0,0 +1,46 @@
+startshape MECAPULPO
+
+background {b -1}
+
+rule MECAPULPO{
+  LATIGO { y 2 hue 220 sat 0.4}
+  LATIGO { y 2 flip 90 hue 80 sat 0.4}
+  LATIGO { y 0 flip 180 hue 80 sat 0.4}
+  LATIGO { y 0 flip 180 hue 80 sat 0.4}
+  
+  LATIGO { y 0 r 90 hue 267 sat 0.4}
+  LATIGO { y 0 flip 90 r 90 hue 20 sat 0.4}
+  LATIGO { y 0 flip 180 r 90 hue 20 sat 0.4}
+  LATIGO { y 0 flip 180 r 90 hue 20 sat 0.4}
+
+  LATIGO { y 2 r 90}
+  LATIGO { y 2 flip 90 r 90  hue 120 sat 0.4}
+  LATIGO { y 2 flip 180 r 90 hue 120 sat 0.4}
+  LATIGO { y 2 flip 180 r 90 hue 120 sat 0.4}
+
+}
+
+rule   LATIGO {
+  LATIGO_IZQ {}
+}
+rule   LATIGO {
+  LATIGO_DER {}
+}
+
+rule   LATIGO_IZQ {
+  CIRCLE { s 0.35 b 1}
+  TRIANGLE{ s 1.8 b 1 }
+  TRIANGLE{ s 1.5 r 90 b 1}
+  TRIANGLE{ s 1.5 r -90 b 1}
+  TRIANGLE{ s 1.3 r 180 }
+  LATIGO { y 1.8 s 0.9 r -30 }
+}
+
+rule   LATIGO_DER {
+  CIRCLE { s 0.35 b 1}
+  TRIANGLE{ s 1.8 b 1 }
+  TRIANGLE{ s 1.5 r 90 b 1}
+  TRIANGLE{ s 1.5 r -90 b 1}
+  TRIANGLE{ s 1.3 r 180 }
+  LATIGO { y 1.8 s 0.9 r 30}
+} 

data/lib/image_paradise/cfdg/medieval_madness.cfdg

@@ -0,0 +1,140 @@
+# ====================================================== #
+# Does a castle.
+#   rconfreegui $CFDG/medieval_madness.cfdg
+# ====================================================== #
+startshape castle 
+background { hue 58.0 sat 0.6 b 0.9 }
+# include ../tiles.cfdg
+# include ../tri4.cfdg
+ 
+rule castle {
+  3* { x 1 } blockage [ s 1.01 0.8 ]
+}
+ 
+# ****
+ 
+rule blockage {
+  blocks [ ]
+}
+ 
+rule blocks { circublock [ ]  soar [ ]}
+rule blocks .2 {  circublock [ ]  soar [ ]  wingleft [ z 4 ]}
+rule blocks .3 {  circublock [ ]  soar [ ]  wingright [ z -12 ]}
+rule blocks .4 {  circublock [ ]  soar [ ]  wingfront [ z 8 ]}
+
+rule soar {  blocks [ y 1 r 10]}
+rule soar {  towerend [ s 1.2 0.5 y 0.18 z 1.2]}
+rule soar .1 {
+  blocks [ y 0.20 x -.25 s 0.5]
+  blocks [ y 0.30 x .25 s 0.5]
+}
+ 
+rule wingleft {  bent [ x -.4 y -.4 s .6]}
+rule wingright {  bent [ flip 90 x -.4 y -.4 s .4]}
+rule wingfront {  bentf [ x .2 y -.4 s 1.4]}
+ 
+ 
+rule bent {
+  20* { s 1.03 1.01 x -.02 y .05 z .1} wallelement [ s .5 .5 b -.1 b .8 ]
+  blocks [ y 2 x -.5 z 2] 
+}
+ 
+rule bentf {
+  20* { s 1.03 1.01 x .006 y .05 z .1} 
+     wallelement [ s .5 .5 b -.1 b .8 ]
+  blocks [ y 1.8 x .14 z 2 s .9] 
+}
+ 
+ 
+rule towerend {
+  10* { s 0.95 .96 y -.055} roofelement [ s .9 7 y .3]
+}
+ 
+ 
+rule circublock {
+  20* { y -0.05 }
+     wallelement [ s 1 0.5 b 0.8 ]
+  wallornament [ z 1 y -.1]
+}
+ 
+rule wallelement { walltile [ ] }
+rule wallornament {
+  3* { x -.25 y .06 s .8 1} 
+    wovert [s .2 .15]
+  3* { x .25 y .06 s .8 1} 
+    wovert [s .2 .15]
+ 
+}
+ 
+rule wovert { 2* { y -4 } wo [ s .3] }
+rule wo 4 { }
+rule wo 2 { window [ ] }
+ 
+rule window { drawwindow [  b -1 ] }
+rule window { drawwindow [ b -.5 hue 60 sat -.4] }
+ 
+rule drawwindow {
+  SQUARE [ s 1 2.4]
+  CIRCLE [ s 1 2.8 y .56 ]
+}
+ 
+rule walltile {
+  brick [ s 0.15 0.2 y -2 ]
+}
+ 
+rule shadow {
+  CIRCLE [ a -0.9 b -1 ]
+}
+ 
+rule brick {
+  5* { x -1.1 y .8 x -1 s 0.7 1 b -.05} drawbrick[ x -.5 s 3.1 .7]
+  6* { x 1.1 y .8 x 1 s 0.75 1 b -.1} drawbrick[ s 3.1 .7]
+}
+ 
+rule drawbrick   { hvtile [ ] }
+rule roofelement { rooftile [ sat 0.0] }
+rule rooftile    { manyt [r 3 b 0.5] }
+ 
+// **** textures
+ 
+// wall texture
+ 
+rule hvtile { 3* { } vnoise [ a .3 ] }
+ 
+rule drawnoise { SQUARE [ b -.2 ] }
+rule drawnoise { SQUARE [ b .2 ] }
+ 
+rule vnoise {
+drawnoise [ ]
+vnoise [ x -.25 s .5 1]
+vnoise [ x .25 s .5 1]
+}
+rule vnoise { hnoise [ ] }
+rule vnoise .4 { drawnoise [ ] }
+ 
+rule hnoise { vnoise [ r 90 ] }
+ 
+ 
+// roof texture
+rule manyt { 
+20* { } tri [ a -.9 s 1 1  ]
+}
+ 
+rule tri {
+  drawtri [ ]
+  tri [ y .289 s .5 ]
+  tri [x -.25 y -.143 s .5 ]
+  tri [ x .25 y -.143 s .5]
+  tri [ s .5 flip 180 ]
+}
+rule tri 1.2{ }
+ 
+rule drawtri {
+  TRIANGLE [ b .3]
+}
+ 
+rule drawtri {
+  TRIANGLE [ b -.3]
+}
+ 
+ 

data/lib/image_paradise/cfdg/menage_a_trois.cfdg

@@ -0,0 +1,77 @@
+# http://www.contextfreeart.org/gallery/view.php?id=3732
+
+startshape Menage_a_trois // Render to size (900*420)
+CF::Frame=150/360         // Save Image      Ctrl-i
+CF::Time =[time 0 1]      // Save Movie      Ctrl-m
+CF::Size =[y -0.2 s 15 7] //-------------------------
+CF::Background=[b -1]     CF::Impure=1
+
+//---------------------------------------------------
+// Parametric model Complexification: Z1^3 + Z2^3 = 1
+//---------------------------------------------------
+vector3 Param3D(i,j,k1,k2)=let(
+  Z = (i/16*90,j/16-2);   // ( 0<= X <=90, -2< Y <2 )
+  //-----  Z1=cos(Z)^(2/3)*exp(2π*i*k1/3)  ----------
+  Zc= (cos(Z[0])*cosh(Z[1]),-sin(Z[0])*sinh(Z[1]));
+  rc= (Zc[0]^2+Zc[1]^2)^(1/3);             // Abs(Z1)
+  ac= atan2(Zc[1],Zc[0])*(2/3)+360*k1/3;   // Arg(Z1)
+  Z1=(rc*cos(ac),rc*sin(ac));
+  //-----  Z2=sin(Z)^(2/3)*exp(2π*i*k2/3)  ----------
+  Zs= (sin(Z[0])*cosh(Z[1]), cos(Z[0])*sinh(Z[1]));
+  rs= (Zs[0]^2+Zs[1]^2)^(1/3);             // Abs(Z2)
+  as= atan2(Zs[1],Zs[0])*(2/3)+360*k2/3;   // Arg(Z2)
+  Z2=(rs*cos(as),rs*sin(as));
+  //-----  Projection 4D->3D and Rotation  ---------- 
+  Xp= Z1[0]*cos(360*frame())+Z2[0]*sin(360*frame());
+  (Z2[1], sqrt(1/2)*(Xp-Z1[1]), sqrt(1/2)*(Xp+Z1[1]))
+)
+
+vector2 Pcanvas(vector3 V)=   // Projection to canvas
+  ( V[0]/(1-V[2]/8), V[1]/(1-V[2]/8) )
+
+vector3 Stereo(LR,vector3 V)=let(     // Stereoscopic
+  C=cos(LR*3); S=sin(LR*3); // Left,Right perspective
+  ( S*V[2]+C*V[0], V[1], C*V[2]-S*V[0] )
+)
+//---------------------------------------------------
+path  Quad_path(vector12 Q4, A, d){ // Draw to canvas 
+  MOVETO(Pcanvas(Q4[0,3]))   LINETO(Pcanvas(Q4[3,3]))
+  LINETO(Pcanvas(Q4[6,3]))   LINETO(Pcanvas(Q4[9,3]))
+  CLOSEPOLY()    FILL[a A]   STROKE(0.025/d)[b -1]
+}
+
+shape Quad(LR, vector12 Q4, H,A){ // 3D-Quadrilateral
+  P00= Stereo(LR, Q4[0,3])  P10= Stereo(LR, Q4[3,3])
+  P01= Stereo(LR, Q4[9,3])  P11= Stereo(LR, Q4[6,3])
+  Xm = (P00[0]+P10[0]+P11[0]+P01[0])/4
+  Ym = (P00[1]+P10[1]+P11[2]+P01[1])/4
+  Zm = (P00[2]+P10[2]+P11[2]+P01[2])/4
+  d  = sqrt(Xm^2+Ym^2+(8-Zm)^2)   // Distance to eye
+  Sat= (2-d/8)*0.6          // Diminish Sat by dist.
+  B  = (2-d/8)              // Diminish Brightness
+  Q4p=(P00, P10, P11, P01)  // Quadrilat. perspective
+  Quad_path(Q4p, A, d)[h H sat Sat b B z -d]
+}
+
+shape Menage_a_trois{
+  loop k1=3 [] loop k2=3 []       // Fase patches
+  loop i=16 [] loop j=64 []       // Squares
+  if (abs(63-2*j)>= 56            // cut out Circles
+      || 6<=i && i<10 ) {         //     and Bridges
+    P00= Param3D(i  ,j  ,k1,k2)   // 4 vertices of
+    P10= Param3D(i+1,j  ,k1,k2)   //   Quadrilateral
+    P11= Param3D(i+1,j+1,k1,k2)   
+    P01= Param3D(i  ,j+1,k1,k2)
+    Q4 =(P00, P10, P11, P01)      // Compose vectors
+
+    Crc= mod(2*k1+k2,3)           // Circle 0, 1, 2
+    Brd= min(max(0,j-4),56)/56    // Bridge 0..1
+    C  = mod(Crc+Brd,3)           // Color  0..1..2..
+    Fc = (14-C*(9-C*(14-3*C)))/32 // Color shifting 
+    H  = 120*Fc*C                 // Hue
+
+    A  = if(mod(i+j,2),0,-0.5)    // Checker pattern
+
+    Quad(-1, Q4, H, A)[x -3.5]    // Stereo Left
+    Quad(+1, Q4, H, A)[x +3.5]    // Stereo Right
+} }

data/lib/image_paradise/cfdg/micky_mouse.cfdg

@@ -0,0 +1,75 @@
+startshape MM
+ 
+rule MM {
+  MIKI{r 10}
+  MINI{r -10 x .95}
+}
+ 
+rule MIKI {
+
+  CIRCLE {s .6 x -0.5 y 0.5} 	
+  CIRCLE {s .6 x 0.5 y 0.5}
+ 
+  CIRCLE {}															
+  CIRCLE { s .9  x 0.04 y -.01 h 40 sat 0.3 b 1}
+  CIRCLE { s .9  x -0.04 y-.01 h 40 sat 0.3 b 1}  
+ 
+  CIRCLE {s .2 .15  y -.025 z 1}	 
+ 
+  CIRCLE {s .25 .35 r -25 y .15 x .15 }				
+  CIRCLE {s .25 .35 r 25 y .15 x -.15}
+  CIRCLE {s .23 .33 r -25 y .15 x .15  h 0 sat 0 b 1 }
+  CIRCLE {s .23 .33 r 25 y .15 x -.15  h 0 sat 0 b 1 }
+  CIRCLE {s .15  y .06 x .12 }
+  CIRCLE {s .15  y .06 x -.12}
+ 
+  100*{x .0001 r 1.2} CIRCLE [r -60  y -.3 z 1 s .2 .01]  
+
+  CIRCLE {s .03 .005 r 40 x -.32 y -.075}
+  CIRCLE {s .03 .005 r -80 x -.31 y -.055}
+  CIRCLE {s .03 .005 r -40 x .32 y -.075}
+  CIRCLE {s .03 .005 r 80 x .31 y -.055}
+  CIRCLE {s .15 .06 r -10 x -.05  y -.325}
+  CIRCLE {s .15 .06 r 10 x .05  y -.325}	
+  CIRCLE {s .15 .06   y -.33}
+  CIRCLE {s .1 .04 r -10 x -.05 y -.325  h 0 sat 1 b 1}
+  CIRCLE {s .1 .04 r 10 x .05  y -.325  h 0 sat 1 b 1}
+  CIRCLE {s .1 .04   y -.33  h 0 sat 1 b 1}						 
+}
+ 
+rule MINI {
+ 
+  CIRCLE {s .6 x -0.5 y 0.5} 	
+  CIRCLE {s .6 x 0.5 y 0.5}
+ 
+  TRIANGLE {s .3 r 90 x .15 y .5 z 1  h 300 sat 1 b 1}   
+  TRIANGLE {s .3 r -90 x -.15 y .5 z 1 h 300 sat 1 b 1}
+  CIRCLE { s .08 y .5 z 1  h 300 sat 1 b 1}
+ 
+  CIRCLE{}																
+  CIRCLE { s .9  x 0.04 y -.01 h 40 sat 0.3 b 1}
+  CIRCLE { s .9  x -0.04 y-.01 h 40 sat 0.3 b 1}  
+ 
+  CIRCLE {s .2 .15  y -.025 z 1}	 
+ 
+  CIRCLE {s .25 .35 r -25 y .15 x .15 }   
+  CIRCLE {s .25 .35 r 25 y .15 x -.15}
+  CIRCLE {s .23 .33 r -25 y .15 x .15  h 0 sat 0 b 1 }
+  CIRCLE {s .23 .33 r 25 y .15 x -.15  h 0 sat 0 b 1 }
+  CIRCLE {s .15  y .06 x .12 }
+  CIRCLE {s .15  y .06 x -.12}
+ 
+  100*{x .0001 r 1.2} CIRCLE [r -60  y -.3 s .2 .01]  
+ 
+  CIRCLE {s .005 .1 x -.1  y .33}   	
+  CIRCLE {s .005 .1 r 5 x -.15  y .35}	
+  CIRCLE {s .005 .1 r 10 x -.20  y .36}	
+  CIRCLE {s .005 .1 r 15 x -.25  y .34}	
+  CIRCLE {s .005 .1 r 30 x -.29  y .30}	
+  CIRCLE {s .005 .1 x .1  y .33}		
+  CIRCLE {s .005 .1 r -5 x .15  y .35}	
+  CIRCLE {s .005 .1 r -10 x .20  y .36}	
+  CIRCLE {s .005 .1 r -15 x .25  y .34}	
+  CIRCLE {s .005 .1 r -30 x .29  y .30}						 
+}
+ 

data/lib/image_paradise/cfdg/mistletoe_forest.cfdg

@@ -0,0 +1,62 @@
+startshape forest
+
+// forest
+
+rule forest 4.5 { 
+  forest { s 0.8 } 
+}
+rule forest { 
+  forest { s 1.25 } 
+}
+rule forest 0.5 {
+  forest { x 1 y 0.03 }
+  forest { x -1 } 
+}
+rule forest 0.5 {
+  forest { x 1 y -0.03 }
+  forest { x -1 } 
+}
+rule forest 0.03 {
+  forest { x 1 }
+  forest { x -1 }
+  seed   {} 
+}
+
+// trees
+
+rule seed { tree { y 0.5 r 85 } }
+rule seed { tree { y 0.5 flip 180 r 95 } }
+
+rule tree {
+  trunc { }
+  tree { x 1 r 1 s 0.95 b 0.01 } 
+}
+rule tree 0.3 {
+  tree { flip 180 }
+  tree { r -20 y -0.1 s 0.7 b -0.5} 
+}
+
+// trunc
+
+rule trunc 2 {
+  SQUARE { s 1.1 0.2 }
+  SQUARE { s 1.1 0.1 b 1 } 
+}
+rule trunc {
+  SQUARE { s 1 0.2 }
+  SQUARE { x -0.25 s 0.5 0.1 b 0.8 }
+  SQUARE { x 0.25 s 0.5 0.1 b 0.9 } 
+}
+rule trunc {
+  SQUARE { s 1 0.2 }
+  SQUARE { x -0.25 s 0.5 0.1 b 0.9 }
+  SQUARE { x 0.25 s 0.5 0.1 b 0.8 } 
+}
+
+// mistletoe
+
+rule tree 0.05 {
+  CIRCLE { }
+  tree { } 
+}
+

data/lib/image_paradise/cfdg/mixed_simple_bubbles.cfdg

@@ -0,0 +1,20 @@
+# ========================================= #
+# confree mixed_bubbles.cfdg output.png 800 100
+# ========================================= #
+
+startshape BUBBLES
+
+rule BUBBLES {
+  WHEEL { }
+  BUBBLES { x 2 r 95 s .9 }
+}
+
+rule WHEEL {
+  CIRCLE { }
+  CIRCLE { s .9 b 1 }
+}
+
+rule WHEEL 1 {
+  CIRCLE { }
+  CIRCLE { s .3 b 1 }
+}

data/lib/image_paradise/cfdg/mod4g_starhole.cfdg

@@ -0,0 +1,27 @@
+# =========================================================================== #
+# From:
+#
+#   https://www.contextfreeart.org/gallery2/#design/4103
+#
+# 30.11.2019
+#
+# HEIGHT: 700
+# WIDTH:  700
+#
+# =========================================================================== #
+
+startshape mod [sat 1 b 1 h 250]
+
+F(x1,y1) = mod((abs(x1)^1.1*abs(y1)^1.85),2000)
+
+vector2 P(X,Y) =
+let(S=1-1/(1.45*exp(((X/400)^2+(Y/400)^2)/0.25));X/S*4.5,Y/S*4.5)
+
+shape mod {
+  loop row= -400, 400,.24 [  ]
+  loop col=-400, 400,.24 [  ] 
+  SQUARE [s 4.5 h (F(row,col)/5) x P(row,col)   b (2.9-F(row,col)/80)]
+}
+
+
+# runcfdg mod4g_starhole.cfdg

data/lib/image_paradise/cfdg/moebius.cfdg

@@ -0,0 +1,57 @@
+# =========================================================================== #
+# === moebius.cfdg
+#
+# Stored as of 19.07.2021
+#
+# Upstream URL: https://www.contextfreeart.org/gallery/view.php?id=4235 
+#
+# Created by flembobs.
+# =========================================================================== #
+startshape S []
+
+CF::Background = [  b -0.1 h 50 sat 0.4 ]
+
+shape S
+{
+  loop 12 [ r 30 ] SQ [ s 1.5 h 220 sat 1 b 0.2 a -0.8 blend CF::Overlay]
+  R (4) []
+  R (4) [ flip 180 ]
+  CIRCLE [ s 1.3 sat 1 b 0.7 h 20 ]
+  loop 200 [ s 0.99  ] CIRCLE [ sat -1 s 1.3 a -0.98 b 1 ]
+  C [s 1.3 a -0.2 blend CF::Multiply  ]
+}
+
+shape R ( natural n )
+{
+  if ( n > 0 )
+  {
+    T [ s 1 0.7  sat 0.9 b 0.05 h (120*n)   ]
+    TRIANGLE [ s 1 0.7 a -0.75 sat 0.8 b 1 h (60*n) blend CF::Exclusion ]
+    R (n--1) [  s 0.8  y -0.126 ]
+  }
+}
+path T 
+{
+  path TRIANGLE []
+  STROKE (0.02) []
+}
+
+path C
+{
+  path CIRCLE []
+  STROKE ( 0.03 ) []
+}
+
+path SQ
+{
+  path SQUARE [s sqrt(2)]
+  path SQUARE [r 45 ]
+  
+  loop 4 [ s 0.75 ]
+  loop 6 [ r 15 ]
+  loop 4 [ r 90 ] 
+  {
+    path SQUARE [ s 0.5 x 0.5 r 45 ]  
+  }
+  FILL(CF::EvenOdd)[]
+}

data/lib/image_paradise/cfdg/molecules.cfdg

@@ -0,0 +1,30 @@
+# ======================================================== #
+# by benjy 
+# confree molecules.cfdg output.png 800 100
+# /Users/x/DATA/IMG/CFDG/output.png
+# ======================================================== #
+# ethylene : ESL - ethylamine : MMQ - but-1-ene : AES - ethanol : AFQ - butanal : ZUS - acide propanoique : MMZ - propan-2-ol : MOE - methyl-dog-ene : EXB - ... :-) 
+# Good variations : CN - FJK - MPH - AGQ - XAT - XDD*/
+
+startshape MOLECD
+rule MOLECD { LIAISON {x 1.582} ATOM {} MOLEC {x 3.165}}
+rule MOLECD { LIAISON {x 1.58} LIAISON {x -1.59 r 180} ATOM {hue 1 sat 1} MOLEC {x 3.16} MOLEC {x -3.16 r 180}}
+rule MOLECD 0.6 { LIAISON {s 1 0.5 x 1.56 y 0.2} LIAISON {s 1 0.5 x 1.56 y -0.2} ATOM {hue 1 sat 1} MOLEC1 {x 3.12}}
+rule MOLECD { LIAISON {x 1.58} LIAISON {x -0.8 y 1.38 r 120} LIAISON {x -0.8 y -1.38 r 240} ATOM {hue 240 sat 1} MOLEC {x 3.16} MOLEC {x -1.58 y 2.76 r 120} MOLEC {x -1.58 y -2.76 r 240}}
+rule MOLECD { LIAISON {x 1.582} ATOMC {} MOLEC {x 3.165} LIAISON {r 90 y 1.58} MOLEC {r 90 y 3.17} LIAISON {r 270 y -1.58} MOLEC {r 270 y -3.17} LIAISON {x -1.59 r 180} MOLEC {x -3.18 r 180}}
+rule MOLECD 0.4 { LIAISON {s 1 0.5 x 1.56 y 0.2} LIAISON {s 1 0.5 x 1.56 y -0.2} LIAISON {r 120 x -0.8 y 1.38} LIAISON {r -120 x -0.8 y -1.38} ATOMC {} MOLEC1 {x 3.12} MOLEC {x -1.58 y 2.76 r 120} MOLEC {x -1.58 y -2.76 r -120}}
+
+rule MOLEC      { ATOM {}}
+rule MOLEC 0.1  { LIAISON {x 1.58} ATOM {hue 1 sat 1} MOLEC {x 3.16}}
+rule MOLEC 0.1  { LIAISON {x 0.8 y 1.37 r 60} LIAISON {x 0.8 y -1.37 r 300} ATOM {hue 240 sat 1 x 0.01} MOLEC {x 1.58 y 2.76 r 60} MOLEC {x 1.58 y -2.76 r 300}}
+rule MOLEC 0.15 { LIAISON {x 1.582} ATOMC {} MOLEC {x 3.165} LIAISON {r 90 y 1.58} MOLEC {r 90 y 3.17} LIAISON {r 270 y -1.58} MOLEC {r 270 y -3.17}}
+rule MOLEC 0.1  { LIAISON {s 1.02 0.5 x 0.62 y 1.48 r 60} LIAISON {s 1.02 0.5 x 0.97 y 1.28 r 60} ATOMC {} LIAISON {x 0.8 y -1.38 r -60} MOLEC1 {x 1.58 y 2.76 r 60} MOLEC {x 1.58 y -2.76 r -60}}
+
+rule MOLEC1 {ATOM {hue 1 sat 1}}
+rule MOLEC1 { LIAISON {r 60 x 0.8 y 1.38} LIAISON {r -60 x 0.8 y -1.38} ATOMC {} MOLEC {x 1.58 y 2.76 r 60} MOLEC {x 1.58 y -2.76 r -60}}
+
+# ATOM should draw on atom recursively
+rule ATOM  {CIRCLE {s 1.3 b 0.4} ATOM {x -0.01 y 0.01 s 0.97 b 0.1}}
+rule ATOMC {CIRCLE {s 1.3 b 0.1} ATOMC {x -0.008 y 0.008 s 0.97 b 0.05}}
+
+rule LIAISON {SQUARE {s 2 0.6 b 0.4} LIAISON {s 1 0.9 y 0.01 b 0.1}}

data/lib/image_paradise/cfdg/momos_blossom.cfdg

@@ -0,0 +1,70 @@
+startshape START
+background {hue 50 sat .22 b 1}
+
+rule START {
+  BRANCH { hue 20 sat 0.8 b 0.8 }
+  BRANCH { flip 90 hue 23 sat 0.8 b 0.8 }
+}
+
+rule BRANCH {
+  SQUARE { }
+  BRANCH { y 1 s 0.99 r 0.6 }
+}
+
+rule BRANCH 0.03 {
+BRANCH { flip 90 }
+}
+
+rule BRANCH 0.01 {
+BRANCH { r 15 s 0.99 }
+BRANCH { r -15 s 0.99 }
+}
+
+rule BRANCH 0.01 {
+FULL_FLOWER { s 0.5 }
+}
+
+rule FULL_FLOWER {
+  FLOWER { hue 10 sat 0.8 b 0.8}
+  FULL_FLOWER { s 0.7 r 27.8 hue 5 alpha -0.1}
+}
+
+rule CURVE_I {
+  SHAPE { }
+  CURVE_I { y 1 r 1.5 s 0.99 alpha -0.01}
+}
+
+rule CURVE_D {
+  SHAPE { }
+  CURVE_D { y 1 r -1.5 s 0.99 alpha -0.01}
+}
+rule CURVE_D 0.02 {
+  SHAPE { }
+  CURVE_D { y 1 r -2.5 s 0.99 alpha -0.31}
+}
+
+rule FLOWER {
+  CURVE_I { }
+  CURVE_I { r 72 }
+  CURVE_I { r 144}
+  CURVE_I { r -72 }
+  CURVE_I { r -144 }
+  CURVE_D { }
+  CURVE_D { r 72 }
+  CURVE_D { r 144 }
+  CURVE_D { r -72}
+  CURVE_D { r -144}
+}
+
+rule SHAPE { 
+  SQUARE { } 
+}
+rule SHAPE 0.01 {
+  SQUARE { }
+  CIRCLE { s 2 6 alpha -0.2 }
+}
+
+rule SHAPE 0.01 {
+  SQUARE { }
+  CURVE_I { s 0.5 }
+}