image_paradise 0.4.8

data/lib/image_paradise/cfdg/alfreebet.cfdg

@@ -0,0 +1,229 @@
+# ======================================================== #
+# rconfreegui $CFDG/alfreebet.cfdg
+# startshape ALFREEBET 
+# ======================================================== #
+
+startshape POCHER
+
+
+rule POCHER  {
+  PP {x 1.5 y 4.5}
+  OO {x 3.0 y 4.5}
+  CC {x 4.5 y 4.5}
+  HH {x 6.0 y 4.5}
+  EE {x 7.5 y 4.5}
+  RR {x 9.0 y 4.5}
+}
+
+rule BLA  {
+  BB {x 1.5 y 4.5}
+  LL {x 3.0 y 4.5}
+  AA {x 4.5 y 4.5}
+}
+rule ALFREEBET  {
+  AA {x -.3 y 4.5}
+  BB {x 0.8 y 4.5}
+  CC {x 2.1 y 4.5}
+  DD {x 3.2 y 4.5}
+  EE {x 4.4 y 4.5}
+  FF {x 5.5 y 4.5}
+  GG {x 6.3 y 4.5}
+  HH {x 0.8 y 3}
+  II {x 1.7 y 3}
+  JJ {x 2.4 y 3}
+  KK {x 3.6 y 3}
+  LL {x 4.7 y 3}
+  MM {x 5.8 y 3}
+  NN {x 0.5 y 1.5}
+  OO {x 1.6 y 1.5}
+  PP {x 2.7 y 1.5}
+  QQ {x 3.7 y 1.5}
+  RR {x 4.9 y 1.5}
+  SS {x 6 y 1.5}
+  TT {x -.5 y 0}
+  UU {x 0.6 y 0}
+  VV {x 1.6 y 0}
+  WW {x 2.9 y 0}
+  XX {x 4.2 y 0}
+  YY {x 5.5 y 0}
+  ZZ {x 6.6 y 0}
+}
+# ======================================================== #
+rule AA  {
+AA1 {x .2 y .5 s .06 r 60}
+AA2 {x .2 y .5 s .06 r 30}
+AA3 {x -.39 s .06 r 3}
+}
+# ======================================================== #
+rule BB  {
+AA2  {s -.06 .06 r -66 x -.36 y .5}
+BB1  {skew 5 1 s .09 .05 r 12 x -.39 y .45}
+BB2 [x -.2 y .0 r 6 s .111 .05 skew 3 9]
+}
+# ======================================================== #
+rule CC  {
+CC1  {r 12 s -.093 -.066 x .36 y -.45}
+}
+# ======================================================== #
+rule DD  {
+DD1  {x -.375 y -.48 s .075 -.0579 skew 1 30 r 18}
+AA2  {s -.06 .06 r -66 x -.36 y .5}
+}
+# ======================================================== #
+rule EE  {
+AA3 {x -.45 y -.48 s .09 -.06 r -3}
+AA3 {x -.39 s .06 -.06 r -6}
+AA3 {x -.39 y .45 s .075 -.06 r -3}
+AA2  {s -.06 .06 r -66 x -.36 y .5}
+}
+# ======================================================== #
+rule FF  {
+AA3 {x -.39 s .06 -.06 r -6}
+AA3 {x -.39 y .45 s .075 -.06 r -3}
+FF1 {x -.36 y .5 s .06 r 18}
+}
+# ======================================================== #
+rule GG  {
+GG1[ x .36 y .5 skew 0 10 r -4.5 s .075 .066 r -3.9]
+}
+# ======================================================== #
+rule HH  {
+FF1 {x -.345 y .5 s .06 .051 r 18}
+FF1 {x .27 y .5 s .06 .051 r 18}
+AA3 {x -.39 s .084 -.06 r -6}
+}
+# ======================================================== #
+rule II  {
+AA3 {y .5 s .1 -.06 r -96}
+}
+# ======================================================== #
+rule JJ  {
+JJ1  {s .072 .054 r -60 y .45 x .24}
+AA3 {y .48 s .05 -.06 r -6}
+}
+# ======================================================== #
+rule KK  {
+AA3 {y .48 x -.3 s .096 .06 r -90}
+KK1 [y 0.15 s .05 .054 r 24 skew 0 30]
+KK2  {x .45 y -.444 s -.0498 -.0468 skew 0 30 r 1.5}
+}
+# ======================================================== #
+rule LL  {
+AA3 {x -.3 y .5 s .1 -.06 r -96}
+AA3 {x .39 y -.48 s -.075 -.06 r 6}
+}
+# ======================================================== #
+rule MM  {
+AA3 {x .4 y .5 s -.06 -.06 r 58.5}
+AA3 {x -.39 y .5 s -.06 -.06 r 136.5}
+FF1 {x -.39 y .5 s .06 .051 r 18}
+AA3 {x .4 y .5 s .096 -.06 r -96}
+}
+# ======================================================== #
+rule NN  {
+AA3 {x -.33 y .45 s -.105 -.048 r 132}
+FF1 {x -.36 y .5 s .06 .051 r 18}
+AA3 {x .4 y .5 s .096 -.06 r -96}
+}
+# ======================================================== #
+rule OO  {
+OO1 [y .5 s .045 .063 skew 0 6]
+}
+# ======================================================== #
+rule PP  {
+AA3 {x -.3 y .5 s .1 -.06 r -90}
+BB1  {skew 5 1 s .09 .05 r 12 x -.36 y .45}
+}
+# ======================================================== #
+rule QQ  {
+OO1 [r -24 x -0.06 y .5 s .045 .063 skew 0 6]
+QQ1 [ x .1 y -.39 s .048 r 120 skew 0 30]
+}
+# ======================================================== #
+rule RR  {
+AA3 {x -.3 y .5 s .1 -.06 r -90}
+BB1  {skew 5 1 s .09 .05 r 12 x -.36 y .45}
+AA3 {x .42 y -.5 s .075 .051 r 135}
+}
+# ======================================================== #
+rule SS  {
+BB1 [x -.0 y .0 s 1.2 .81 skew 0 30 r -45 s .1 .05 ]
+BB1 [x -.0 y .0 s 1.2 .81 skew 0 30 r -45 s -.1 -.05 ]
+}
+# ======================================================== #
+rule TT  {
+AA3 {y .5 s .1 -.06 r -96}
+AA3 {x -.39 y .45 s .075 -.06 r -3}
+}
+# ======================================================== #
+rule UU  {
+UU1 [y -.48 x -.03 r -12 skew -12 0 s -.042 .072]
+}
+# ======================================================== #
+rule VV  {
+AA3 {x -0 y -.48 s -.105 -.048 r -66}
+FF1 {x .012 y -.48 s .06 .057 r 174}
+}
+# ======================================================== #
+rule WW  {
+AA3 {x -.12 y -.48 s -.105 -.048 r -66}
+AA3 {x -0 y -.0 s .048 -.048 r -84}
+AA3 {x -0 y -.0 s .051 -.048 r -106}
+FF1 {x .12 y -.48 s .06 .057 r 174}
+}
+# ======================================================== #
+rule XX  {
+AA3 {x .3 y -.48 s -.12 -.057 r -48}
+FF1 {x -.36 y -.48 s .06 r 168 skew 15 0}
+}
+# ======================================================== #
+rule YY  {
+AA3 {x -.03 y -.5 s .048 .075 r 96}
+KK2  {x -.45 y .48 s -.06 .06 skew 0 30 r 135}
+}
+# ======================================================== #
+rule ZZ  {
+AA3 {x -.45 y -.48 s .09 -.06 r -3}
+AA3 {x .4 y .45 s .12 .06 r 230}
+AA3 {x -.39 y .45 s .075 -.06 r -3}
+}
+# ======================================================== #
+rule AA1  {SHAPE {} AA1[r 1.5 x -.5 s .98]}
+rule AA2  {SHAPE {} AA2[s .98 r 1 x -.5]}
+rule AA3  {30* {x .5 r -.5 s .975}SHAPE {}}
+rule BB1  {80*[r -4 x .5 s .981]SHAPE {}}
+rule BB2  {90*[r -4.2 x .5 s .987]SHAPE {}}
+rule CC1  {84*[x .5 r -2.7 s .975 1]SHAPE {s .9}}
+rule DD1  {99*[r -2 x .5 s .99]SHAPE {}}
+rule FF1 {SHAPE {} FF1 {y -.5 s .981 r -.6}}
+rule GG1  {SHAPE {} GG1[s .99 r 2.7 x -.5]}
+rule JJ1  {99*[r -2 x .5 s .99]SHAPE {}}
+rule KK1  {
+30* {x -.3 r .5 s 1.02}SHAPE {s .6}
+30* {x .3 r -.9 s 1.01}SHAPE {s .6}}
+rule KK2  {66*[r -2 x .5 s .99]SHAPE {}}
+rule OO1  {120* {r 3.6 x -.5}SHAPE {s .81} OO2[s .99 r 3 x -.5]}
+rule OO2  {SHAPE {s .81} OO2[s .99 r 3.6 x -.5]}
+rule QQ1  {
+15* {r 3 x -.5}SHAPE {}
+24* {r 6 x .5 s .96}SHAPE { x .5}}
+rule UU1  {45* {x .5 r 3 s .99}SHAPE {} UU2 {x -.5}}
+rule UU2  {39* {x -.5 r -3 s 1.003}SHAPE {}}
+# ======================================================== #
+rule SHAPE 1 {CIRCLE {}}
+rule SHAPE 5 {POIL {}POIL {r 90}}
+rule SHAPE 5 {CIRCLE {}POIL {flip 90}POIL {r 90 flip 90}}
+rule SHAPE .03 {SPIRAL1 {}}
+rule SHAPE .03 {SPIRAL1 {flip 180}}
+rule SHAPE .06 {SPIRAL2 {}}
+rule SHAPE .06 {SPIRAL2 {flip 180}}
+rule SHAPE .01 {SPIRAL3 {}}
+rule SHAPE .02 {SPIRAL3 {flip 180}}
+rule SHAPE .06 {SPIRAL4 {}}
+rule SHAPE .09 {SPIRAL4 {flip 180}}
+rule SHAPE 2.03 {SQUARE[s 6 2 r 90 b .5]}
+rule SPIRAL1  {CIRCLE {s .18} SPIRAL1 {s .996 x .1 r 2}}
+rule SPIRAL2  {CIRCLE {s .18} SPIRAL2 {s .996 x .1 r 3}}
+rule SPIRAL3  {CIRCLE {s .18} SPIRAL3 {s .999 x .1 r .3}}
+rule SPIRAL4  {CIRCLE {s .18} SPIRAL4 {s .996 x .1 r 6}}
+rule POIL  {CIRCLE {s .3} POIL {s .96 x .1 }}

data/lib/image_paradise/cfdg/algal_flora.cfdg

@@ -0,0 +1,25 @@
+startshape algae
+ 
+tile {s 1.5}
+background {b -1}
+ 
+rule algae {
+  spore {hue 30 sat 0.9 b 0.9}
+}
+ 
+rule spore {
+  prim{a -0.01 r -60}
+  4 * {r 90} spore {x 1.5 s 0.5 a -0.25 hue 5 b -0.001}
+}
+ 
+rule spore {
+  prim{a -0.65 r -60}
+  4 * {r 90} spore {x 5.5 s 0.5 a -0.35 hue 15 b -0.001 r 20}
+}
+ 
+rule prim {
+  6 * {r 60}CIRCLE{x 0.25 s 0.5}
+  6 * {r 60}CIRCLE{x 0.15 s 0.5 b -1}
+  6 * {r 60}CIRCLE{x 0.45 s 0.05 b -1}
+  prim {s 0.5 a -.5}
+}

data/lib/image_paradise/cfdg/alien_eyeball.cfdg

@@ -0,0 +1,15 @@
+startshape AB
+background {b -1}
+ 
+rule AB
+{
+  30* {y 20 r -12 hue 12} {
+    360 * {r -1 hue 1 x 1} AA {hue 999 sat 1 b 1}
+  }
+}
+ 
+rule AA
+{
+  CIRCLE{}
+  AA { s .97 r 0 y 1 hue 1}
+}

data/lib/image_paradise/cfdg/alien_flower.cfdg

@@ -0,0 +1,35 @@
+startshape SIX
+
+background { b -0.991 }
+
+rule SIX { FOUR { }}
+
+rule FOUR {
+  THREE { }
+  FOUR { x 1 r 5 s 0.4 alpha -0.0009 }
+}
+
+rule FOUR {
+  THREE { }
+  FOUR { y 1 r -5 s 0.4 alpha -0.0009 hue 0.7 sat 0.9 b 1 skew 1.5 0 }
+}
+
+rule THREE {
+  TWO { }
+  THREE { flip 32 s 0.99 alpha -0.0009 hue 0.7 sat 0.9 b 1 skew 2 0 }
+}
+
+rule THREE {
+  TWO { }
+  THREE { flip -32 s 0.99 alpha -0.0009 hue 0.9 sat 0.9 b 1 }
+}
+
+rule TWO {
+  ONE { }
+  TWO { x 1 s 0.89 r 5 alpha -0.0009 hue 0.9 sat 0.9 b 1}
+}
+
+rule ONE {
+  SQUARE { s 0.08 3 hue 200 sat 0.6 b 0.9 }
+  SQUARE { s 3 0.08 hue 200 sat 0.6 b 0.9 }
+}

data/lib/image_paradise/cfdg/alphabet_circles.cfdg

@@ -0,0 +1,38 @@
+
+startshape SEED
+include i_pix.cfdg
+
+rule SEED { LEFTCURVELETTER {} }
+rule SEED { RIGHTCURVELETTER {} }
+
+rule RIGHTCURVELETTER {THING {} RIGHTCURVELETTER {x 2 rotate -9 size 0.98}}
+rule RIGHTCURVELETTER {THING {} RIGHTCURVELETTER {x 2 rotate -9 size 0.97}}
+rule RIGHTCURVELETTER {THING {} RIGHTCURVELETTER {x 2 rotate -9 size 0.97}}
+rule RIGHTCURVELETTER {THING {} RIGHTCURVELETTER {x 2 rotate -9 size 0.97}}
+rule RIGHTCURVELETTER {THING {} RIGHTCURVELETTER {x 2 rotate -9 size 0.97}}
+rule RIGHTCURVELETTER {THING {} RIGHTCURVELETTER {x 2 rotate -9 size 0.99}}
+rule RIGHTCURVELETTER {THING {} RIGHTCURVELETTER {x 2 rotate -9 size 0.99}}
+rule RIGHTCURVELETTER {THING {} RIGHTCURVELETTER {x 2 rotate -9 size 0.98}}
+rule RIGHTCURVELETTER {THING {} RIGHTCURVELETTER {x 2 rotate -9 size 0.99}}
+rule RIGHTCURVELETTER {LEFTCURVELETTER {}}
+rule RIGHTCURVELETTER {MAYBESPLIT {}}
+
+rule LEFTCURVELETTER {THING {} LEFTCURVELETTER {x 2 rotate 15 size 0.97}}
+rule LEFTCURVELETTER {THING {} LEFTCURVELETTER {x 2 rotate 15 size 0.97}}
+rule LEFTCURVELETTER {THING {} LEFTCURVELETTER {x 2 rotate 15 size 0.96}}
+rule LEFTCURVELETTER {THING {} LEFTCURVELETTER {x 2 rotate 15 size 0.96}}
+rule LEFTCURVELETTER {RIGHTCURVELETTER {}}
+rule LEFTCURVELETTER {RIGHTCURVELETTER {}}
+rule LEFTCURVELETTER {MAYBESPLIT {}}
+rule LEFTCURVELETTER {MAYBESPLIT {}}
+
+
+rule MAYBESPLIT {LEFTCURVELETTER {}}
+rule MAYBESPLIT {RIGHTCURVELETTER {}}
+rule MAYBESPLIT {
+     LEFTCURVELETTER {y 1.1}
+     RIGHTCURVELETTER {y -1.1}
+}
+
+rule THING { RANDOM_LETTER_5by5 {} }
+

data/lib/image_paradise/cfdg/alveolo.cfdg

@@ -0,0 +1,38 @@
+startshape START
+background { b -0.94}
+
+rule START {
+  SHAPE { b 0.7 sat 0.7 alpha -0.3}
+  SHAPE { r 180 b 0.7 sat 0.7 alpha -0.3}
+  SHAPE { r 90 b 0.7 sat 0.7 alpha -0.3}
+  SHAPE { r -90 b 0.7 sat 0.7 alpha -0.3}
+}
+
+rule SHAPE {
+  LINE { }
+  SHAPE { r -45 x 10 s 0.7517 alpha 0.5}
+  SHAPE { r 45 x 10 s 0.7517 alpha 0.5 hue -25}
+}
+
+rule SHAPE {
+  LINE { }
+  SHAPE { r -45 x 10 s 0.7517 alpha -0.5 hue 25}
+  SHAPE { r 45 x 10 s 0.7517 alpha -0.5}
+}
+
+rule LINE {
+  SQ { s 1.5 }
+  SQUARE { x 1 }
+  SQUARE { x 2 }
+  SQUARE { x 3 }
+  SQUARE { x 4 }
+  SQUARE { x 5 }
+  SQUARE { x 6 }
+  SQUARE { x 7 }
+  SQUARE { x 8 }
+  SQUARE { x 9 }
+}
+
+rule SQ {CIRCLE { s 1.2 alpha -0.1 }}
+rule SQ {CIRCLE { s 2.2 alpha -0.3 }}
+rule SQ {CIRCLE { s 1.7 alpha -0.2 }}

data/lib/image_paradise/cfdg/an_icosahedron.cfdg

@@ -0,0 +1,134 @@
+# =========================================================================== #
+# From:
+#
+#   https://www.contextfreeart.org/gallery2/#design/3507
+#
+# HEIGHT: 600
+# WIDTH:  600
+#
+# =========================================================================== #
+
+startshape Scenary                 // (1600*1600)
+CF::Background=[b -1]
+CF::Impure=1
+CF::Size=[s 1.9]
+
+shape Scenary
+{ Glow   [s 1 a -1 z 0.01] // Assume Lightsource
+  CIRCLE [s 2 a -0.8]      // Create extra depth
+  Icosahedron []           // The polyhedron
+}
+shape Glow
+{ CIRCLE [h 50 sat 1 b 1]
+  Glow   [s 0.99 a 0.0004]
+}
+//===============================================
+// Create 20 triangles of the Icosahedron
+//===============================================
+// 12 Vertices of the Icosahedron
+Phi=(1+sqrt(5))/2
+Vi=(Phi,1,0), (-Phi,1,0), (-Phi,-1,0), (Phi,-1,0) 
+  ,(1,0,Phi), (1,0,-Phi), (-1,0,-Phi), (-1,0,Phi)
+  ,(0,Phi,1), (0,-Phi,1), (0,-Phi,-1), (0,Phi,-1)
+
+// Search Faces: Triples of Vertices
+shape Icosahedron
+{loop i1=0   ,12 []   { A=Vi[3*i1,3]
+  loop i2=i1+1,12 []  { B=Vi[3*i2,3]
+   loop i3=i2+1,12 [] { C=Vi[3*i3,3]
+    if (Len(A,B)+Len(B,C)+Len(C,A)<6.1)
+      Triangle (A,B,C) [] 
+}}}}
+//===============================================
+// Rotate, Dilate, Project and Thicken  Triangles
+//===============================================
+shape Triangle (vector3 A, vector3 B, vector3 C)
+{ Mr=Rot(Centroid(A, B, C))
+  Ap=Prj(Dil(Mr,Rot(A),0.85))
+  Bp=Prj(Dil(Mr,Rot(B),0.85))
+  Cp=Prj(Dil(Mr,Rot(C),0.85))
+  Adjust   (Ap,Bp,Cp) [z Mr[2] b 0.64]
+  loop i=0.9999, 0.96,-0.00025 [h .1]
+    Adjust (Ap,Bp,Cp) [s i z (i*Mr[2]) b i a -.9]
+}
+//===============================================
+// Adjust Koch_Triangle to points: A, B, C
+//===============================================
+// Adjust triangle to (0,0), (1,0), (0,1)
+AdjTri=[x( 1/3)(1/3) s 1 (2/sqrt(3)) skew -30 0]
+
+shape Adjust (vector2 A, vector2 B, vector2 C)
+{ D=C[0]+B[0]-A[0],C[1]+B[1]-A[1]
+  Koch_Triangle [[trans A B D trans AdjTri]]
+}
+//===============================================
+// Triangle: Cut out "Von Koch" (variant)
+// ( recursion isn't possible for subpaths )
+//===============================================
+// Divide line Vs,Ve into 4 Koch segments
+vector10 NL(Q,vector2 Vs, vector2 Ve)
+=let( Xs=Vs[0]; Xe=Ve[0]; Ys=Vs[1]; Ye=Ve[1]
+;X1=(2*Xs+Xe)/3         ; Y1=(2*Ys+Ye)/3
+;X2=(Xs+Xe)/2+(Ys-Ye)*Q ; Y2=(Ys+Ye)/2+(Xe-Xs)*Q
+;X3=(Xs+2*Xe)/3         ; Y3=(Ys+2*Ye)/3
+;(Xs,Ys),(X1,Y1),(X2,Y2),(X3,Y3),(Xe,Ye)
+)
+
+path Sp4(Q,vector2 Vs, vector2 Ve)
+{ VN=NL(Q,Vs,Ve)
+  loop i=0,8,2 [] LINETO (VN[i,2])
+}
+path Sp3(Q,vector2 Vs, vector2 Ve)
+{ VN=NL(Q,Vs,Ve)
+  loop i=0,8,2 [] path Sp4(Q,VN[i,2],VN[i+2,2])[]
+}
+path Sp2(Q,vector2 Vs, vector2 Ve)
+{ VN=NL(Q,Vs,Ve)
+  loop i=0,8,2 [] path Sp3(Q,VN[i,2],VN[i+2,2])[]
+}
+path Sp1(Q,vector2 Vs, vector2 Ve)
+{ VN=NL(Q,Vs,Ve)
+  loop i=0,8,2 [] path Sp2(Q,VN[i,2],VN[i+2,2])[]
+}
+
+path Koch_Triangle
+{ W = sqrt(1/3)   MOVETO(0,W)
+  loop 3 [r -120] LINETO(W*sin(120),W*cos(120)) 
+  loop A=0,6 []
+  { Vs=cos(60*(A+1)),sin(60*(A+1))
+    Ve=cos(60*(A+2)),sin(60*(A+2))
+    Q =if(mod(A,2),1,-1)*W/2
+    path Sp1(Q,Vs,Ve)[s (W/2)]
+  } CLOSEPOLY() FILL [sat 1]
+}
+
+//===============================================
+// Rotate, Project, Length, Centroid, Dilate
+//-----------------------------------------------
+Alfa= 203  CosA=cos(Alfa)  SinA=sin(Alfa)
+Beta= -58  CosB=cos(Beta)  SinB=sin(Beta)
+
+vector3 Rot(vector3 V)
+=     CosA*V[0]     -SinA*V[1]
+,CosB*SinA*V[0]+CosB*CosA*V[1]-SinB*V[2]
+,SinB*SinA*V[0]+SinB*CosA*V[1]+CosB*V[2]
+
+vector2 Prj(vector3 V)
+=V[0]/(2-V[2]/15)
+,V[1]/(2-V[2]/15)
+
+Len(vector3 A, vector3 B)
+=sqrt((B[0]-A[0])^2+(B[1]-A[1])^2+(B[2]-A[2])^2)
+
+vector3 Centroid(vector3 A, vector3 B, vector3 C)
+=(A[0]+B[0]+C[0])/3
+,(A[1]+B[1]+C[1])/3
+,(A[2]+B[2]+C[2])/3
+
+vector3 Dil(vector3 A, vector3 B, Fct)
+=(1-Fct)*A[0]+Fct*B[0]
+,(1-Fct)*A[1]+Fct*B[1]
+,(1-Fct)*A[2]+Fct*B[2]
+
+
+# runcfdg icosahedron.cfdg

data/lib/image_paradise/cfdg/an_oils_surface.cfdg

@@ -0,0 +1,48 @@
+startshape Sa
+background { b -0.3  }
+rule Sa { 1* {x 7} S [ ] }
+ 
+rule S 15 { S [ hue 33 ] }
+//rule S 15 { S [ flip 90 ] }
+rule S { 
+  16 * { y 1} 
+  xS [ ]
+}
+ 
+rule xS { xS [ hue 19 ] }
+rule xS { xS [ hue -19 ] }
+rule xS {  10* {  x 1} 
+color [ ]}
+
+ 
+rule color { draw [ a -.7 hue 254.7 sat 0.9 b 0.6] }
+rule color { draw [ a -.5   hue 303.7 sat 0.8 b 0.3  ] }
+rule color .2 { draw [ z .1 a -.7 hue 338.2 sat 0.4 b 1.0  ] }
+rule color .3 { }
+ 
+rule draw { 
+6* { r 20 } mdraw [ ] }
+ 
+rule mdraw { 
+  eledraw [ ] 
+  mdraw [ y .1 s .95 hue .02 b .01 z .01] 
+}
+
+rule mdraw .02  { mdraw [ b -.5 ] }
+rule mdraw .002 { mdraw [ b 1 ] }
+rule mdraw .01  { mdraw [ sat -.1 ] }
+rule mdraw 5    { mdraw [ r 3 ] }
+rule mdraw 5    { mdraw [ r -3 ] }
+ 
+rule eledraw { 
+  bgs [ a -.3 sat -.3 s 2.3 ]
+  5* { x .2 } SQUARE [x -.5 s .05 1 ] 
+  SQUARE [ x -.5 a .4 s .03 1 sat -.6 b 1 ]
+  SQUARE [ x -.55 a .4 s .03 1 b -1 ]
+}
+ 
+rule bgs 2{ bgs  [ sat .1 ] }
+ 
+rule bgs { SQUARE [ ] }
+rule eledraw .1 { eledraw [ hue 15 b -.4] }
+rule eledraw .1 { eledraw [ hue -15 b .4] }

data/lib/image_paradise/cfdg/ancient_map.cfdg

@@ -0,0 +1,30 @@
+startshape ANCIENTMAP
+
+background { b -.1 sat 0.25 hue 44 }
+
+rule ANCIENTMAP {
+	WALL1 {b 0.1 hue 34}
+	WALL1 {b 0.1 r 180 hue 34}
+}
+
+rule WALL1 {
+	WALL1{y 0.95 r 1 s 0.975}
+}
+
+rule WALL1 {
+	SQUARE {}
+	WALL1{y 0.95 r -1 s 0.975 sat 0.1 b .01 hue .1}
+}
+
+rule WALL1 0.09 {
+	SQUARE {}
+	WALL1{y 0.95 r 90 s 0.975}
+	WALL1{y 0.95 r -90 s 0.975}
+}
+
+rule WALL1 0.005 {
+	WALL1{y 0.97 r 90 s 1.5}
+	WALL1{y 0.97 r -90 s 1.5}
+}
+
+

data/lib/image_paradise/cfdg/ancient_scripts_tile.cfdg

@@ -0,0 +1,96 @@
+/*
+Ancient Scripts by Leaf Garland
+*/
+
+background { hue 40 sat 0.2 b -0.2}
+
+startshape LINES
+
+rule LINES {
+	20 * {y -90} NEWLINE {hue 90 sat 0.7 b 0.2 a -0.5}
+}
+
+rule NEWLINE {
+	LINE {y 0}
+}
+
+rule NEWLINE {
+	LINE {y 20}
+}
+
+rule NEWLINE {
+	LINE {y 30}
+}
+
+rule LINE {
+	50 * {x 36} CHAR {}
+}
+
+rule CHAR 0.3 { 
+	// space
+}
+
+rule CHAR {
+	2 * {x 20 flip 180} STROKE {r 90}
+	2 * {y 20 flip 180} STROKE {}
+}
+
+rule CHAR {
+	4 * {r 60} STROKE {}
+}
+
+rule CHAR {
+	STROKE {r 90}
+	3 * {y 10 flip 180} STROKE {}
+}
+
+rule STROKE {
+	B {}
+}
+
+rule STROKE {
+	B {flip 90}
+}
+ 
+rule B 30 {
+	MARK {}
+	B {x .6 r 10}
+}
+
+rule B 30 {
+	MARK {}
+	B {x .6 r 3}
+}
+
+rule B 250 {
+	MARK {}
+	B {x .9}
+}
+
+rule B 10 {
+	MARK {}	
+	B {flip 90}
+}
+
+rule B 10 { }
+
+
+rule MARK 3 {
+	CIRCLE {}
+}
+
+rule MARK {
+	CIRCLE {s 2}
+}
+
+rule MARK {
+	SQUARE {s 3}
+}
+
+rule MARK {
+	CIRCLE {s 4}
+}
+
+rule MARK 0.01 {
+	CIRCLE {s 7}
+}