image_paradise 0.4.8

data/lib/image_paradise/cfdg/golden_sierpinski.cfdg

@@ -0,0 +1,49 @@
+# http://www.contextfreeart.org/gallery/view.php?id=3723
+
+startshape begin[]
+CF::Size=[s 5.5]
+CF::MinimumSize=.5
+ 
+ s3=sqrt(3)
+ G=(-1+sqrt(5))/2
+ 
+shape begin{
+   si[ sat 1 b 1 r 30]
+   hexagon[s 2.56 r 30 x .03 y -2.55 z -.1]
+   bg[s 1.7 h 40 z -10]
+} 
+ 
+shape si {
+    loop 6[r 60 ]
+        tri []
+}
+ 
+shape tri {
+   loop 2 [f 0 y s3 sat -.14]
+     Sierpinski[r 180 s .96 y (1/s3)]
+   loop 2 [f 90]
+     tri [h 2 sat 1 b -.13  s G x .5 y (s3/2)]
+}
+ 
+shape Sierpinski{
+    TRIANGLE [s .85]
+    Sierpinski [ h 8  s 0.5 r 60 ]
+    Sierpinski [s 0.5 y (s3/6)]
+    Sierpinski [s 0.5 y (-s3/12) x 0.25]
+    Sierpinski [s 0.5 y (-s3/12) x -0.25]
+}
+ 
+shape bg {
+  CIRCLE[ sat 1 b 1 s 5 ]
+  bg[s .98 h -1 z .01]
+}
+ 
+path hexagon{
+    MOVETO ( 0,0)
+    loop 6  [r 60]
+       LINEREL ( 1,0)
+    CLOSEPOLY()
+    STROKE ( .00002) [b -1]
+    FILL()[]
+}
+ 

data/lib/image_paradise/cfdg/golgi_stain.cfdg

@@ -0,0 +1,74 @@
+# =========================================================================== #
+# This one can take a lot of processing power.
+# =========================================================================== #
+startshape NEURONS
+background {b -0.8} 
+
+rule NEURONS{
+  NEURON {r 180}
+  NEURON {r 180 x 7 y -2 b 0.9}
+  NEURON {r 180 x -7 y -2 b 0.9}
+}
+
+rule NEURON {
+  AXON {}
+  BODY {}
+  DENDRITE3 { x -.4 y -.2 r 140}
+  DENDRITE3 { x .4 y -.2 r 220 }
+}
+
+rule AXON 30 {
+  CIRCLE {size .1 }
+  AXON {s .997 b .1 r 1 y .1 x .02 } 
+}
+
+rule AXON 30 {
+  CIRCLE {size .1}
+  AXON {s .999 b -.1 r -1 y .1 x -.03 } 
+}
+
+rule AXON 1 {
+  DENDRITE3 {}
+}
+
+rule BODY{
+  PROCESS {}
+  PROCESS {r 120}
+  PROCESS {r 240}
+  // MEMBRANE {}
+  // NUCLEUS {}
+}
+
+rule FORMATION {
+  CIRCLE {s .5 }
+  PROCESS {y .13}
+}
+
+rule PROCESS {
+  FORMATION {r 2 s .8 }
+}
+
+// The conjunction of the two rules below
+// adds zigzags to the dendrites.
+rule DENDRITE 80 {
+  CIRCLE {size .1 } 
+  DENDRITE {s .995 b -.05 x -.05 y .1}
+}
+
+rule DENDRITE 80 {
+  CIRCLE {size .1} 
+  DENDRITE {s .995 b 0.05 x .05 y .1}
+}
+
+rule DENDRITE 5 {
+  DENDRITE3 {s .98 b .1}
+}
+
+// connect to other neurons
+rule DENDRITE 0.1 { NEURON {s .9 r 45 b 0}}
+
+// give a little biological rotation
+rule DENDRITE3 { 
+  DENDRITE {s .95 r -15}
+  DENDRITE {s .95 r 15 }
+}

data/lib/image_paradise/cfdg/gothic_bath_tiles.cfdg

@@ -0,0 +1,14 @@
+startshape x4x
+
+tile {s 54}
+
+rule R {SQUARE{}2*{f 45}R{s.6 1r-90x 2y 1}}
+
+rule x4x {
+  2 * {s .5 x 9 y 9 b .2}
+  {4*{r 90 x 36}
+  R {}
+  SQUARE {s 17.2 x 18 y 18 b .6 z -1}}
+  2 * {s .5 x -4.5 y -4.5 z 1 b 1}
+  SQUARE {s 16.7 x -9 y -9 z -1 b .5}
+}

data/lib/image_paradise/cfdg/grass_land.cfdg

@@ -0,0 +1,112 @@
+startshape start
+ background { sat 1 b -0.87 hue 260}
+ 
+rule start {
+  2500 * {z 0.0001 x 0.1} halm {}
+  625 * {z 0.0001 x 0.4} bottom {y -1.5 b 0.5 z 4}
+}
+rule bottom {
+  30*{y -0.5}
+  CIRCLE {y 15 s 3 hue 88 sat 1}
+ 
+  14*{y -0.5 hue -4 b -0.2}
+  CIRCLE {s 3 hue 88 sat 1}
+}
+rule algen {
+  CIRCLE {}
+  CIRCLE {z 0.01 s 0.9 b 0.1}
+  CIRCLE {z 0.02 s 0.8 b 0.2}
+  algen {s 0.99 y 0.3 r 2 hue 0.005|}
+}
+rule algen {
+  CIRCLE {}
+  CIRCLE {z 0.01 s 0.9 b 0.1}
+  CIRCLE {z 0.02 s 0.8 b 0.2}
+  algen {s 0.99 y 0.3 r -2 hue 0.005|}
+}
+rule algen 0.03 {
+  algen {r -20}
+  algen {r 20}
+}
+rule halm {
+  manus {s 1.5 z 4 sat 1 hue 90 b 0.5}
+}
+rule halm {
+  manus {s 1.4 z 3 y 10 sat 1 hue 90 b 0.4}
+}
+rule halm {
+  manus {s 1.3 z 2 y 20 sat 1 hue 90 b 0.3}
+}
+rule halm {
+  manus {s 1.2 z 1 y 30 sat 1 hue 90 b 0.2}
+}
+rule halm {
+  manus {s 1.1 y 40 sat 1 hue 90 b 0.1}
+}
+
+rule kringel 1 {
+  kringell {}
+}
+rule kringel 1 {
+  kringelr {}
+}
+rule kringell {
+  CIRCLE {}
+  kringell {r 2 y 0.4 s 0.993}
+}
+rule kringelr {
+  CIRCLE {}
+  kringelr {r -2 y 0.4 s 0.993}
+}
+rule ast 1 {
+  CIRCLE {}
+  ast  {y 0.7 s 0.996 r -1}
+}
+rule ast 1 {
+  CIRCLE {}
+  ast  {y 0.7 s 0.996 r 1}
+}
+rule ast 0.05 {
+  kringel {}
+  ast  {}
+}
+rule ast 0.02 {
+  top {s 4 hue -120 |hue 180}
+}
+rule top {
+  CIRCLE {}
+  top {r 30 x 0.7 s 0.99 hue 0.01|}
+}
+rule manus 0.005 {
+ ast {}
+}
+rule manus 0.002 {
+ algen {z -0.1 y 2 b -0.7 s 5 hue -50 |hue 170}
+}
+rule manus 1 {
+  manu {}
+}
+rule manu 1 {
+  CIRCLE {}
+  manu {y 0.3 s 0.99}
+}
+rule manu 1 {
+  CIRCLE {}
+  manu {y 0.3 s 0.99 r 6}
+}
+rule manu 1 {
+  CIRCLE {}
+  manu {y 0.3 s 0.99 r -6}
+}
+rule manu 0.008 {
+  manu {s 0.99 r 4 b 0.1}
+  manu {s 0.99 r -4 b 0.1}
+}
+rule manu 0.005 {
+  CIRCLE {s 2 z 1 hue -100 b 1}
+  CIRCLE {s 1.5 z 1 hue -50 b 1}
+}
+rule manu 0.005 {
+  CIRCLE {s 2 z 1 hue 150 b 1}
+  CIRCLE {s 1.2 z 1 hue 230 b 1}
+}

data/lib/image_paradise/cfdg/gray_matter.cfdg

@@ -0,0 +1,110 @@
+startshape NEURON
+
+rule NEURON
+{
+  CIRCLE { s 3 }
+
+  MED_CURVE_LEFT { r 90 }
+  MED_CURVE_RIGHT [ r 101 y 9.94981 r 9 ]
+  NEURON [ r 101 y 9.94981 r -2 y 9.94981 r 109 s 0.85 b 0.05 ]
+
+  HARD_CURVE_LEFT { r 180 }
+  HARD_CURVE_RIGHT [ r 211.5 y 9.55039 r 28.5 ]
+  NEURON [ r 211.5 y 9.55039 r -3 y 9.55039 r 128.5 s 0.85 b 0.05 ]
+  NEURON [ r 11.5 y 2.55039 r -4 y 9.25039 r 128.5 s 0.85 b 0.05 ]
+}
+
+rule NEURON
+{
+  CIRCLE { s 3 }
+
+  HARD_CURVE_RIGHT { }
+  MED_CURVE_LEFT [ r -31.5 y 9.55039 r -28.5 ]
+  SOFT_CURVE_RIGHT [ r -31.5 y 9.55039 r -17.5 y 9.94981 r 9 ]
+  NEURON [ r -31.5 y 9.55039 r -17.5 y 9.94981 r 3.5 y 9.98744 r -154.5 s 0.85 b 0.05 ]
+
+  SOFT_CURVE_LEFT [ r -132 ]
+  SOFT_CURVE_LEFT [ r -126.5 y 9.98744 r 4.5 ]
+  SOFT_CURVE_RIGHT [ r -126.5 y 9.98744 r 10 y 9.98744 r 4.5 ]
+  NEURON [ r -126.5 y 9.98744 r 10 y 9.98744 r -1 y 9.98744 r -154.5 s 0.85 b 0.05 ]
+
+  HARD_CURVE_LEFT [ r 100 ]
+  HARD_CURVE_LEFT [ r 131.5 y 9.55039 r 28.5 ]
+  MED_CURVE_RIGHT [ r 131.5 y 9.55039 r 60 y 9.55039 r 28.5 ]
+  HARD_CURVE_RIGHT [ r 131.5 y 9.55039 r 60 y 9.55039 r 17.5 y 9.94981 r -9 ]
+  NEURON [ r 131.5 y 9.55039 r 60 y 9.55039 r 17.5 y 9.94981 r -40.5 y 9.55039 r -158.5 s 0.85 b 0.05 ]
+}
+
+rule NEURON
+{
+  CIRCLE { s 3 }
+
+  MED_CURVE_LEFT [ r 75 ]
+  HARD_CURVE_RIGHT [ r 86 y 9.94981 r 9 ]
+  NEURON [ r 86 y 9.94981 r -22.5 y 9.55039 r -158.5 s 0.85 b 0.05 ]
+
+  MED_CURVE_RIGHT [ r 160 ]
+  HARD_CURVE_LEFT [ r 149 y 9.94981 r -9 ]
+  HARD_CURVE_RIGHT [ r 149 y 9.94981 r 22.5 y 9.55039 r 28.5 ]
+  NEURON [ r 149 y 9.94981 r 22.5 y 9.55039 r -3 y 9.55039 r -158.5 s 0.85 b 0.05 ]
+
+  HARD_CURVE_LEFT [ r -160 ]
+  HARD_CURVE_RIGHT [ r -128.5 y 9.55039 r 28.5 ]
+  NEURON [ r -128.5 y 9.55039 r -3 y 9.55039 r -158.5 s 0.85 b 0.05 ]
+}
+
+rule NEURON 2 { 
+  CIRCLE { s 3 } 
+  CIRCLE { s 2 b 1 }
+  CIRCLE { size 0.5 } 
+}
+
+
+rule NEURON 0.12 { 
+  CIRCLE { x 5 s 3 r 12 } 
+  CIRCLE { s 2 r 22 b 1 }
+  CIRCLE { size 0.5 } 
+}
+
+
+rule SOFT_CURVE_LEFT
+{
+  # after last block, offset is:
+  #  r 5.5 y 9.98744 r 4.5
+  10*[r 1 y 1] SQUARE { }
+}
+
+rule MED_CURVE_LEFT
+{
+  # after last block, offset is:
+  #  r 11 y 9.94981 r 9
+  10*[r 2 y 1] SQUARE { }
+}
+
+rule HARD_CURVE_LEFT
+{
+  // after last block, offset is:
+  //  r 31.5 y 9.55039 r 28.5
+  20*[r 3 y 0.5] SQUARE { }
+}
+
+rule SOFT_CURVE_RIGHT
+{
+  # after last block, offset is:
+  #  r -5.5 y 9.98744 r -4.5
+  10*[r -1 y 1] SQUARE { }
+}
+
+rule MED_CURVE_RIGHT
+{
+  # after last block, offset is:
+  # r -11 y 9.94981 r -9
+  10*[r -2 y 1] SQUARE { }
+}
+
+rule HARD_CURVE_RIGHT
+{
+  # after last block, offset is:
+  #  r -31.5 y 9.55039 r -28.5
+  20*[r -3 y 0.5] SQUARE { }
+}

data/lib/image_paradise/cfdg/great_forest.cfdg

@@ -0,0 +1,91 @@
+startshape forest
+
+
+rule forest 0.5 {
+   forest { x 1 y 0.01 }
+   forest { x -1 }
+}
+rule forest 0.5 {
+   forest { x 1 y -0.01 }
+   forest { x -1 }
+}
+rule forest 4.5 {
+   forest { s 0.8 }
+}
+rule forest {
+   forest { s 1.25 }
+}
+rule forest 0.03 {
+   forest { x 1 }
+   forest { x -1 }
+   tree { }
+}
+
+rule tree {
+   tree1 { r 85 }
+}
+rule tree {
+   tree2 { r 95 }
+}
+
+rule tree1 {
+   SQUARE { s 0.2 }
+   SQUARE { s 0.2 x 0.2 }
+   SQUARE { s 0.2 x 0.4 }
+   SQUARE { s 0.2 x 0.6 }
+   SQUARE { s 0.2 x 0.8 }
+   SQUARE { s 0.1 b 1 x -0.1 }
+   SQUARE { s 0.1 b 1 }
+   SQUARE { s 0.1 b 1 x 0.1 }
+   SQUARE { s 0.1 b 1 x 0.2 }
+   SQUARE { s 0.1 b 1 x 0.3 }
+   SQUARE { s 0.1 b 1 x 0.4 }
+   SQUARE { s 0.1 b 1 x 0.5 }
+   SQUARE { s 0.1 b 1 x 0.6 }
+   SQUARE { s 0.1 b 1 x 0.7 }
+   SQUARE { s 0.1 b 1 x 0.8 }
+   SQUARE { s 0.1 b 1 x 0.9 }
+   tree1 { x 1 r 1 s 0.95 b 0.01 }
+}
+
+rule tree1 0.3 {
+   SQUARE { s 0.2 }
+   tree2 { }
+   tree1 { r -20 s 0.7 b -0.5}
+}
+
+rule tree1 0.05 {
+   CIRCLE { }
+   tree1 { }
+}
+
+rule tree2 {
+   SQUARE { s 0.2 }
+   SQUARE { s 0.2 x 0.2 }
+   SQUARE { s 0.2 x 0.4 }
+   SQUARE { s 0.2 x 0.6 }
+   SQUARE { s 0.2 x 0.8 }
+   SQUARE { s 0.1 b 1 x -0.1 }
+   SQUARE { s 0.1 b 1 }
+   SQUARE { s 0.1 b 1 x 0.1 }
+   SQUARE { s 0.1 b 1 x 0.2 }
+   SQUARE { s 0.1 b 1 x 0.3 }
+   SQUARE { s 0.1 b 1 x 0.4 }
+   SQUARE { s 0.1 b 1 x 0.5 }
+   SQUARE { s 0.1 b 1 x 0.6 }
+   SQUARE { s 0.1 b 1 x 0.7 }
+   SQUARE { s 0.1 b 1 x 0.8 }
+   SQUARE { s 0.1 b 1 x 0.9 }
+   tree2 { x 1 r -1 s 0.95 b 0.01 }
+}
+
+rule tree2 0.3 {
+   SQUARE { s 0.2 }
+   tree1 { }
+   tree2 { r 20 s 0.7 b -0.5}
+}
+
+rule tree2 0.05 {
+   CIRCLE { }
+   tree2 { }
+} 

data/lib/image_paradise/cfdg/growth.cfdg

@@ -0,0 +1,46 @@
+# === growth.cfdg
+#
+# URL: https://www.contextfreeart.org/gallery/search.php?t=new&num=5
+#
+# Originally created on 03.03.2021, by flembobs.
+
+CF::MinimumSize = 0.001
+CF::Background = [  b -0.95 h 160 sat 0.25 ]
+CF::BorderDynamic = 1
+
+width = 4
+height = 3
+cols = 768
+c_width = width/cols
+col_repeat = 500
+iterations = 200
+
+minR = 2.8
+maxR = 4
+range = maxR-minR
+step = range/cols
+
+g_(X,R,n)=if(n>0, g_((R*X*(1-X)),R,n-1), X)
+g(X,R)=g_(X,R,iterations)
+
+startshape G ( cols, col_repeat ) []
+
+shape G ( natural n, natural m )
+{
+  loop  i=n  [ x c_width ] 
+  {
+    loop j=m [] 
+    {
+      R = minR+i*step
+      g0 = 0..1
+      g1 = g(g0, R)
+      diff=abs(g0-g1)
+      H = -80+(60*(g1-g0))
+      
+      SQUARE [ y (((g0+g1)/2)*height) s c_width (diff*height) b 1 sat 1
+alpha -0.992 h H blend CF::Screen]
+      CIRCLE [ y (g1*height) s (c_width/2) 0.005 b 1 sat 0.4 h 67 a -0.2
+blend CF::HardLight ]
+    }
+  }
+}

data/lib/image_paradise/cfdg/gumtree.cfdg

@@ -0,0 +1,28 @@
+# Hmm no idea how it looks
+startshape GUMTREE
+
+rule GUMTREE {
+  TREE { }
+}
+
+rule TREE 20 {
+  CIRCLE { size 0.25 }
+  TREE { y 0.1 size 0.965}
+}
+
+rule TREE 1.5 {
+  BRANCH { }
+}
+
+rule BRANCH {
+  LBRANCH { }
+  RBRANCH { }
+}
+
+rule LBRANCH {
+  TREE { rotate 20 }
+}
+
+rule RBRANCH {
+  TREE { rotate -20 }
+}

data/lib/image_paradise/cfdg/haggards_bull.cfdg

@@ -0,0 +1,92 @@
+# =========================================================================== #
+# Original URL: https://www.contextfreeart.org/gallery/view.php?id=4280
+# Author:       flx
+# Date added:   12.09.2022
+# Date created: https://www.contextfreeart.org/gallery/view.php?id=4280
+# Where is the last unicorn?
+# =========================================================================== #
+
+// CFA 2022 by flx
+CF::Background=[b -1]
+CF::Impure=1
+CF::Size=[s 4.5 4.5]
+ro=0 // 0 to 360 (animate fire and reflections flickering)
+startshape SCENE
+shape SCENE {
+  r1=randint(0,20)
+  SKY[y 1.5]
+  MOON_AND_BULL[x 0.5 y 1]
+  CASTLE[flip 90 s 0.003 0.00301 z 1 x -0.999 y -0.556 b 1 r -0.3 sat 1 h r1]
+  MOUNTAINS(0,0) [x (3-0.5) y -1.5 s 0.02083 flip 90 b 0.0 z 2]
+  CASTLE[flip 90 s 0.003 x -1 y -0.55 b 0 z 3]
+  SEA[]
+  REFLECTIONS[b 1 sat 1 h r1 z 4]
+}
+shape REFLECTIONS {
+  TRIANGLE[skew 60 0 r -53 s 0.08 x -1.18 y 0.025 z 1]
+  TRIANGLE[skew 60 0 r -113 s 0.05 x -1.25 y 0.325 z 1]
+  TRIANGLE[skew 60 0 r -133 s 0.05 x -1.48 y 0.65 z 1]
+}
+shape SEA {
+  SQUARE[s 10 0.4 y -0.97]
+}
+shape SKY {
+  loop 30 [y -0.09 b 0.01]
+    SQUARE[y 0.7 s 5 1 0.05]
+}
+shape MOUNTAINS(natural n, natural d) {
+  if(d<=800) {
+    if (d>200) SQUARE[s 0.6 (n+60) x (d*0.3) y (n*0.5)]
+    MOUNTAINS(n+mod(floor(sqrt(15)*d*d),2)-0.5,d+1)[]
+  }
+}
+shape MOON_AND_BULL {
+  
+  // outer moon halo
+  loop 56 [s (1.07) a (-0.085)]
+    CIRCLE[s (0.1) b 1 a 0.00]
+      
+  // fire
+  P[s 0.52 b 1 sat 1 h 0 r (ro*1.5)]
+  P[s 0.48 b 1 sat 1 h 50 r ro]
+  
+  // inner moon halo
+  loop 30 [b 0.02 s 0.99]
+    CIRCLE[b 0.3 s 1]
+    
+  // fire halo
+  loop 360*4 [r rand(360)]
+    CIRCLE[s (rand(-0.2,0.2)*2) x 0.52 y 0 b 1 sat 1 h 10 a
+rand(-0.98,-0.999)]
+}
+path P {
+  MOVETO(1,0)
+  loop 360 [r 10]
+    LINETO(1+rand(0,0.11),0)
+  CLOSEPOLY()
+  FILL(CF::Clear)[]
+}
+path CASTLE {
+  MOVETO(0,0)
+  LINETO(254,0)   LINETO(261,41)
+  LINETO(218,52)  LINETO(202,42)  LINETO(243,196) LINETO(319,267)
+  LINETO(345,439) LINETO(358,432) LINETO(341,492) LINETO(320,467)
+  LINETO(322,486) LINETO(309,495) LINETO(320,588) LINETO(312,592)
+  LINETO(314,610) LINETO(319,606) LINETO(314,667) LINETO(295,610)
+  LINETO(302,614) LINETO(299,596) LINETO(289,593) LINETO(292,499)
+  LINETO(284,497) LINETO(282,478) LINETO(272,540) LINETO(279,538)
+  LINETO(256,591) LINETO(252,539) LINETO(257,542) LINETO(265,476)
+  LINETO(255,473) LINETO(245,455) LINETO(236,468) LINETO(237,492)
+  LINETO(225,516) LINETO(218,491) LINETO(212,507) LINETO(216,507)
+  LINETO(207,528) LINETO(200,505) LINETO(203,507) LINETO(211,485)
+  LINETO(198,485) LINETO(204,472) LINETO(188,442) LINETO(182,464)
+  LINETO(186,463) LINETO(170,492) LINETO(163,457) LINETO(168,459)
+  LINETO(175,417) LINETO(169,419) LINETO(167,432) LINETO(169,431)
+  LINETO(158,448) LINETO(156,427) LINETO(160,430) LINETO(161,417)
+  LINETO(154,411) LINETO(165,383) LINETO(177,378) LINETO(181,354)
+  LINETO(197,359) LINETO(204,325) LINETO(175,321) LINETO(163,290)
+  LINETO(111,284) LINETO(106,304) LINETO(84,307)  LINETO(81,206)
+  LINETO(34,178)  LINETO(67,99)   LINETO(61,41)   LINETO(24,33)
+  CLOSEPOLY()
+  FILL()[]
+}