image_paradise 0.4.8

data/lib/image_paradise/cfdg/imaginery_forest.cfdg

@@ -0,0 +1,61 @@
+startshape imagine
+
+background {}
+
+rule imagine {
+
+weave {y 1}
+weave {x -7}
+weave {x 7 y 1}
+weave {x -14 y 2}
+bird { y 25 r 14 b .6 sat 1 h 40}
+bird { y 23 x 6 b .5 sat 1 h 50}
+bird { y 21 x -7 r -30 b .4 sat 1 h 60}
+}
+rule weave {
+trunk { sat 1 b .1 h 200 flip 90 y 1.1}
+trunk { sat 1 b .1 h 10 x 2 y -.9}
+trunk { sat 1 b .1 h 80 x -2 flip 90}
+trunk { sat 1 b .1 h 300 x -4 y .8}
+trunk { sat 1 b .1 h 120 x 1.5 y 2 flip 90}
+trunk { sat 1 b .1 h 340 x 5.3 y -.5}
+trunk { sat 1 b .1 h 40 x 4}
+trunk { sat 1 b .1 h 240 x -3 y 3 flip 90}
+trunk { sat 1 b .1 h 260 x -3.2 y 1.4}
+trunk { sat 1 b .1 h 25 x -4.8}
+trunk { sat 1 b .1 h 180 x -.4 y -1.7}
+trunk { sat 1 b .1 h 330 x 2.3 y -2}
+trunk { sat 1 b .1 h 135 x 1}
+
+}
+
+rule trunk 80{
+    CIRCLE { s 1.5 }
+    trunk { y 0.2 s 0.99 b .01 h 0.02 a -.009}
+}
+
+rule trunk {
+   CIRCLE { } 
+   SPIRAL { }
+}
+
+rule SPIRAL 100{
+    CIRCLE { s 1.5}
+    SPIRAL { y 0.2 r -2 s 0.99 b .01 h .02 a -.009}
+}
+
+rule SPIRAL 1{
+     SPIRAL { }
+     SPIRAL1 { }
+}
+
+rule SPIRAL1 {
+    SPIRAL {flip 90}
+}
+
+rule bird {
+   CIRCLE { s 2 1 x -.5}
+   CIRCLE { s 2 1 x -.4 y -.5 b 1 sat -1}
+   CIRCLE { s 2 1 x .5 }
+   CIRCLE { s 2 1 x .4 y -.5 b 1 sat -1}
+}

data/lib/image_paradise/cfdg/impossible_stairs.cfdg

@@ -0,0 +1,211 @@
+# =========================================================================== #
+# Original URL: https://www.contextfreeart.org/gallery/view.php?id=4282
+# Added on: 31.10.2022
+#
+# A dynamic viewer for the famous Endless-Staircase created and made
+# popular 1937/1958 by Reutersvard/Penrose/Escher. By altering the
+# defined ratio within the code, the staircase looks different every
+# time.
+# =========================================================================== #
+
+//-------------------------------------------------------//
+// THE INFINITY-STAIRCASE VIEWER (CFDG)                  //
+// (c) and written 2022 by F. Lehr / flx                 //
+// For more info visit https://www.ferdinandlehr.de      //
+// https://github.com/fl3000/Penrose-Staircase-Generator //
+// https://www.contextfreeart.org                        //
+// This code is Creative Commons licensed:               //
+// Creative Commons Attribution-NonCommercial-           //
+// ShareAlike 4.0 International:                         //
+// https://creativecommons.org/licenses/by-nc-sa/4.0/    //
+//-------------------------------------------------------//
+CF::Impure=1
+//----------------- PLAYAROUND-AREA ---------------------//
+COLOR1 = [b 0.007 sat 0.5 h 0]
+COLOR2 = [b 0.5 sat 0.5 h 150]
+COLOR3 = [b 1 sat 0.2 h 200]
+// R = a,b,c,d,len
+// R = 3,2,2,3,6            // Smallest Staircase
+   R = 6,3,3,6,4.66666      // Penrose-Staircase 1958
+// R = 24,6,14,16,5.6       // For Reutersvard and Escher
+// R = 15,2,5,12,3          // Castle of the Wizards
+// R = 17,17,10,24,9.14285  // Large Antique Arena
+// R = 100,66,67,99,9.93939 // Chinese Wall
+// For more ratios read the CSV-File(s) at GitHub:
+// https://github.com/fl3000/Penrose-Staircase-Generator
+//-------------------------------------------------------//
+U = 1
+H = 0.866025404
+L = R[4]
+A=R[0]
+B=R[1]
+C=R[2]
+D=R[3]
+WH = D*2
+startshape PAGE
+shape PAGE {
+    PSTAIR[skew 2 6 r -30]
+}
+shape PSTAIR {
+    loop i=A-1,-1,-1 [] {
+
+        S(L)[x ((U*0.5*L)*i+(U/2)*i) y (((H*L)-H)*i)]
+    }
+    loop m=1,D-1,1 [] {
+        xx1 = ((U*0.5*L)*(A-1)+(U/2)*(A-1)+(L*1+U/2)*(B-1))
+        yy1 = (((H*L)-H)*(A-1)-(B-1)*H)
+        xxx1 = (xx1-L*U*0.5*(C-1)+(U/2)*(C-1))
+        yyy1 = (yy1-(C-1)*H*(L+1))
+        S(L)[x (xxx1-L*U*m+(U/2)*m) y (yyy1-H*m) z (-m+A+B+C+D+1)]
+    }
+    loop j=1,B,1 [] {
+        S(L)[x ((U*0.5*L)*(A-1)+(U/2)*(A-1)+(L*1+U/2)*j) y
+(((H*L)-H)*(A-1)-j*H)]
+    }
+    loop k=1,C,1 [] {
+        xx1 = ((U*0.5*L)*(A-1)+(U/2)*(A-1)+(L*1+U/2)*(B-1))
+        yy1 = (((H*L)-H)*(A-1)-(B-1)*H)
+        S(L)[x (xx1-L*U*0.5*k+(U/2)*k) y (yy1-k*H*(L+1)) z (A+B+C+D+2)]
+    }
+    inner_wall2[]
+    front_wall[z (A+B+C+D+3)]
+    mid_wall2[]
+    right_wall[]
+    loop n=2,B,1 [] {
+        px = ((U*0.5*L)*(A-1)+(U/2)*(A-1)) + L*U*n + (n-1)*(U/2)
+        py = (((H*L)-H)*(A-1))-H*(n-1)
+        stair_rect_C[x px y py]
+    }
+    loop o=1,C-1,1 [] {
+        px = ((U*0.5*L)*(A-1)+(U/2)*(A-1)) + L*U*B + (B-1)*(U/2) - L*U
+        py = (((H*L)-H)*(A-1))-H*(B-1)
+        stair_rect_D[x (px-L*U*0.5*o+(U/2)*o) y (py-(L+1)*H*o)]
+    }
+}
+path stair_rect_D {
+    MOVETO(0,0)
+    LINETO(U*L,0)
+    LINEREL(U/2,-H)
+    LINEREL(-U*L,0)
+    CLOSEPOLY()
+    FILL()[trans COLOR1]
+    STROKE(0.1, CF::RoundJoin)[]
+}
+path stair_rect_C {
+    MOVETO(0,0)
+    LINETO(U*L*0.5,H*L)
+    LINEREL(U/2,-H)
+    LINEREL(-U*L*0.5,-H*L)
+    CLOSEPOLY()
+    FILL()[trans COLOR2]
+    STROKE(0.1, CF::RoundJoin)[]
+}
+path stairlinesC {
+    MOVETO(0,0)
+    MOVEREL(L*U*0.5+U*2*A+L+(L/3)+U/2,H*L+H*2*(A-1)-H)
+    loop i=0,(B-2),1 [] {
+        MOVEREL(U/2,-H)
+        MOVEREL(-L*U*0.5,-H*3)
+        MOVEREL(-U/2,H)
+        MOVEREL(L*U*0.5,H*L)
+        MOVEREL(U*0.5+L,-H)
+    }
+    MOVEREL(-L-U*1.5,-H*L)
+    MOVEREL(U/2,-H)
+    MOVEREL(-U*0.5*L,-H*L)
+    loop j=0,(C-2),1 [] {
+        LINEREL(U*0.5,-H)
+        MOVEREL(-L*U*0.5,-H*L)
+    }
+    FILL()[b 1]
+    STROKE(0.1, CF::RoundJoin)[]
+}
+path stairlinesB {
+    MOVETO(0,0)
+    MOVEREL(L*U*0.5+U*2*A+L+(L/3)+U/2,H*L+H*2*(A-1)-H)
+    loop i=0,(B-2),1 [] {
+        LINEREL(U/2,-H)
+        MOVEREL(-L*U*0.5,-H*3)
+        LINEREL(-U/2,H)
+        MOVEREL(L*U*0.5,H*L)
+        MOVEREL(U*0.5+L,-H)
+    }
+    FILL()[b 1]
+    STROKE(0.1, CF::RoundJoin)[]
+}
+path mid_wall2 {
+    MOVEREL(L*U+L*U*0.5+U/2,H*L-H)
+    loop n=1,A,1 [] {
+        LINEREL(L*U*0.5,H*L)
+        LINEREL(U*0.5,-H)
+    }
+    LINEREL(-L*0.5*U,-H*L)
+    LINEREL(U*WH*0.5,-H*WH)
+    LINEREL(-U*0.5*L*(C-1),-H*L*(C-1))
+    CLOSEPOLY()
+    FILL()[trans COLOR2]
+    STROKE(0.1, CF::RoundJoin)[]
+}
+path inner_wall2 {
+    MOVEREL(L*U+L*U*0.5+U/2,H*L-H)
+    loop n=1,A,1 [] {
+        MOVEREL(L*U*0.5,H*L)
+        MOVEREL(U*0.5,-H)
+    }
+    MOVEREL(-L*0.5*U,-H*L)
+    loop m=1,B-1,1 [] {
+        LINEREL(L*U,0)
+        LINEREL(U*0.5,-H)
+    }
+    LINEREL(L,0)
+    LINEREL(U*0.5,-H)
+    LINEREL(-L,0)
+    LINEREL(U*WH*0.5-(B*U*0.5),-H*WH+H*B)
+    LINEREL(-L*U*(B-2)+U*0.5,-H)
+    CLOSEPOLY()
+    FILL()[trans COLOR1]
+    STROKE(0.1, CF::RoundJoin)[]
+}
+path right_wall {
+    MOVETO(0,0)
+    loop i=1,(D),1 [] {
+        MOVEREL(L,0)
+        MOVEREL(-U*0.5,H)
+    }
+    MOVEREL(L,0)
+    loop i=1,C,1 [] {
+        LINEREL(L*U*0.5,H*L)
+        LINEREL(-U*0.5,H)
+    }
+    LINEREL(L*U*0.5,H*L)
+    loop j=1,C,1 [] {
+        LINEREL(U*0.5,-H)
+    }
+    LINEREL(U*WH*0.5,-H*WH)
+    LINEREL(-U*0.5*L*C,-H*L*C)
+    CLOSEPOLY()
+    FILL()[trans COLOR2]
+    STROKE(CF::RoundJoin)[]
+}
+path front_wall {
+    MOVETO(0,0)
+    loop i=1,(D),1 [] {
+        LINEREL(L,0)
+        LINEREL(-U*0.5,H)
+    }
+    LINEREL(L,0)
+    LINEREL(U*WH*0.5,-H*WH)
+    LINEREL(-U*D*L,0)
+    CLOSEPOLY()
+    FILL()[trans COLOR1]
+    STROKE(CF::RoundJoin)[]
+}
+path S(l) {
+    MOVETO(0,0)
+    LINETO(U*0.5*l,H*l)
+    LINETO(U*0.5*l+U*l,H*l)
+    LINETO(U*l,0)
+    CLOSEPOLY()
+    FILL()[trans COLOR3]
+    STROKE(CF::RoundJoin)[]
+}

data/lib/image_paradise/cfdg/in_the_morning.cfdg

@@ -0,0 +1,83 @@
+# =========================================================================== #
+# From:
+#
+#   https://www.contextfreeart.org/gallery2/#design/2572
+#
+# HEIGHT: 1200
+# WIDTH:  1200
+#
+# =========================================================================== #
+
+// ebc  ebn ebx ece ecf ech ECU
+
+startshape tree
+
+size {s 6.4 4.7 y -2.4 }
+background {sat .4 b -.15 h -140}
+
+rule gradient{
+200 * {a .0038 y -.05 s .99 b -.03 h rand_static(-1.2, 2.5) z -1 } CIRCLE{s 20 1.5 y 4 sat 1  h -140 r rand_static(-5, 5)}
+}
+
+rule earth{
+10* {y .04 z -1} CIRCLE{ s 130 90 y -44.95  x rand_static(-2, 2) z -38 a 1}
+}
+
+
+rule tree{
+
+tronco {a -1 h -110 b -.5}
+earth{}
+gradient {a -1 b 1}
+
+//10 * {x 1} tronco {a -1 h -110 b -1 s .3 y -1 x -4}
+}
+
+rule tronco 2{
+tronco{f 90}
+}
+
+rule tronco{
+
+// trunk
+CIRCLE{ a 1 s .2 1.5 y .75 b -.5}
+SQUARE{ a 1 s .18 1.2  y .52 b -.5}
+
+
+// leaves
+CIRCLE{y 2 s 2 2 sat 1 r 40 }
+/*
+// alternative leaves
+CIRCLE{x 2 s 35 1 sat 1 r 40}
+CIRCLE{x -2 s 35 1 sat 1 r -40}
+*/
+
+
+tronco {y 1.2 s .85   r 10 a .01 h -3 z 1 b .018}
+rametti {s .4 a .01 y .7}
+}
+
+
+rule tronco .2{
+tronco {f 90}
+}
+
+rule tronco .3{
+tronco {s .8 a .01}
+rami {s .7  a .01 y .7}
+}
+
+
+rule rami {
+tronco {r 20  }
+tronco {r -20   }
+}
+
+rule rametti {
+tronco {r 30  }
+tronco {r -30   }
+
+}
+
+
+# runcfdg in_the_morning

data/lib/image_paradise/cfdg/inertial_confinement.cfdg

@@ -0,0 +1,150 @@
+/*
+  intertial confinement
+  by AK
+  November 2011
+ 
+  Variations: ZAP
+ 
+   
+http://creativecommons.org/licenses/by-sa/3.0/au/deed.en
+*/
+ 
+startshape START
+ 
+background { b -.8 h 270 sat .3}
+size{s 12}
+ 
+rule START{
+  9 * {r (360/9)} {
+    GEN{y -2}
+    BEAM{r -90 s 2 1   y .03}
+    }
+  CIRCLE{s 11.5 z -999 sat .3 b .14 h 240 }
+  CIRCLE{s 9.5 z -999 sat .2 b 0 h 240 }
+  BALL{r -45 s 8 z -999 h 240 sat .2 b 0 |b .3}
+  SHADERING{r 135 sat .2 b .08 |b .15 h 240 z 999}
+  18*{r (360/18)}{
+    CIRCLE{ s .55 x 5.25 h 240 }
+    BALL{r 180 s .5 x 5.25 h 240 sat .2 b .1 |b .3}
+    FOURDOT{s .3 x 5.25}
+    }
+  FLASHES{z 99}
+  AK{x 5.6 y -5.6 s .35 h 240 sat .3 b .3  |b .2 z 999}
+  }
+ 
+rule SHADERING{
+  2*{f 0}{91*{r 2 b .01|}SQUARE{s .25 x 4.6}}
+  }
+ 
+//  ---- rules for reactor/generator
+rule GEN{
+  DISCB[y -2 s 1 .5  z -100 h -40 |h 70 sat 1 |sat .2 b
+.1]
+  A{h -40 |h 70 sat 1 |sat .2 b .1}
+  }
+ 
+rule A{
+  DISC[y -2 s 1 .5  z -100]
+  A{s .993 .99 .99 |h .5}
+  }
+ 
+rule DISC{
+  RING{z .1}
+  DISC{s .95 .95 .95 b .1 sat .02| h .1| a -.02}
+  }
+ 
+rule RING 200{RINGA{ r 10 }}
+rule RING{RINGB{a 1 b -.3}}
+ 
+rule RINGA{
+  10*{r 36}{
+    SQUARE{s .2 .1 x 1}
+    CIRCLE{s .02 .04  x 1.1 b .5 h 90}
+    }
+  }
+ 
+rule RINGB 20{
+  6*{r 6}RINGA{}
+  RINGB{b -.3 y -.01 z -.2}
+  }
+rule RINGB{}
+ 
+rule B{4*{r 9}DISC{}}
+ 
+rule DISCB{
+  6*{r 6}RINGA{}
+  DISCB{s .95 .95 .95 b .1 sat .02| h .1| a -.02}
+  }
+ 
+ 
+path HUB{
+  MOVETO{x 1}
+  ARCTO{x -1}
+  ARCTO{x 1}
+  CLOSEPOLY{}
+  STROKE{width .1}
+  }
+ 
+ 
+// ----- rules for particle beam
+rule BEAM{
+  BEAM_{ b 1 a -.99 sat .5 h 240 }
+  }
+ 
+rule BEAM_{
+  BLOB{x 1 s .1  }
+  BEAM_{s .99 1.003 }
+  }
+ 
+rule BLOB{
+  CIRCLE{}
+  BLOB{s .9 a .01 sat -.2}
+  }
+ 
+// --- generic shaded ball and other rules
+rule BALL{
+  CIRCLE{}
+  BALL[x .3 s .99 .992 x -.3 b .01|]
+  }
+ 
+rule FOURDOT{
+  4*{r 90} CIRCLE{s .25 x 1 y 1}
+  }
+ 
+ 
+// ---- collision detritus
+rule FLASHES{
+  7*{r (360/7)} FLASHB{s .1  a -.9}
+  }
+rule FLASH{FLASHA{}}
+rule FLASH{FLASHA{f 0}}
+rule FLASH 3{FLASHB{}}
+ 
+rule FLASH 3{FLASH{r 3}}
+rule FLASH 3{FLASH{r -3}}
+ 
+rule FLASHA{
+  BLIP{b 1 s .3}
+  FLASHA{x .1 s .999 r 1.5}
+  }
+ 
+rule FLASHA 0.001{
+  2*{f 0}FLASH{}
+  }
+ 
+rule FLASHB{
+  BLIP{b 1 s .3}
+  FLASHB{x .1 s .997}
+  }
+ 
+rule FLASHB 0.02{FLASH{}}
+ 
+rule FLASHB 0.005{2*{f 0}FLASH{r 60}}
+rule FLASHB 0.005{}
+ 
+rule BLIP .3{}
+rule BLIP{CIRCLE{}}
+rule BLIP{BLIP{a .05}}
+ 
+// ---- A signature (FWIW)
+rule AK{2*{r -30 s sqrt(1/3) b 1|}TRIANGLE{}}

data/lib/image_paradise/cfdg/infected_shell.cfdg

@@ -0,0 +1,56 @@
+# =========================================================================== #
+# From:
+#
+#   https://www.contextfreeart.org/gallery2/#design/3991
+#
+# HEIGHT: 600
+# WIDTH:  600
+#
+# =========================================================================== #
+
+startshape TENDRILS
+background{b-1}
+rule TENDRILS{
+ARM{}
+ARM{flip 90}
+ARM{flip 40}
+ARM{r 270}
+ARM{flip 130}
+ARM{flip 75}
+ARM{r 50}
+ARM{r 30}
+OCTO{}
+}
+rule ARM 98{
+CIRCLE{b 1}
+CIRCLE{s 0.9 h 3.84 sat 1.0000 b 1.0000}
+ARM{y 0.2 s 0.99 r 3 h 1 b -0.3}
+}
+rule ARM 2{
+CIRCLE{b 1}
+CIRCLE{s 0.9 b 1 h 3.84 sat 1.0000 b 1.0000}
+ARM{y 0.2 s 0.99 flip 75 h 3 b -0.3}
+}
+rule ARM 55{
+CIRCLE{b 1}
+CIRCLE{s 0.9 b 1 h 3.84 sat 1.0000 b 1.0000}
+ARM{y 0.3 s 0.99  flip 80 h 2 b -0.3 }
+}
+rule ARM 45{
+CIRCLE{b 1}
+CIRCLE{s 0.9 b 1 h 3.84 sat 1.0000 b 1.0000}
+ARM{y 0.3 s 0.99 r 10 h 5 b -0.3}
+}
+rule ARM 50{
+CIRCLE{b 1}
+CIRCLE{ s 0.9 h 3.84 sat 1.0000 b 1.0000}
+ARM{y 0.1 s 0.99 r 5 h 3 b -0.3}
+}
+rule OCTO{
+CIRCLE{s 2.95 b 1}
+CIRCLE{s 2.9 h 357.04 sat 1.0000 b 1.0000}
+OCTO{y -0.1 s 0.99 r 5 h 0.1 sat -1}
+}
+
+
+# runcfdg $CFDG/infected_shell.cfdg