image_paradise 0.4.8

data/lib/image_paradise/cfdg/big_pacman.cfdg

@@ -0,0 +1,70 @@
+startshape Begin
+ 
+rule UnitLine { SQUARE { x 0.5 } UnitLine { size 1 0.99 b
+-0.005 } }
+rule Joint { CIRCLE { } Joint { size 0.99 b -0.005 } }
+ 
+rule LL {
+  Joint { size 0.25 }
+  Joint { y 0.5 size 0.25 }
+  Joint { x 0.5 size 0.25 }
+  UnitLine { size 0.5 0.25 z 0.5 }
+  UnitLine { size 0.5 0.25 r 90 z 0.5 }
+  Food { }
+}
+rule LR { LL { flip 90 } }
+rule UL { LL { r -90 } }
+rule UR { UL { flip 90 } }
+ 
+rule Horiz {
+  Joint { x 0.5 size 0.25 }
+  Joint { x -0.5 size 0.25 }
+  UnitLine { x -0.5 size 1 0.25 z 0.5 }
+  Food { }
+}
+rule Vert { Horiz { r 90 } }
+rule Cross { Horiz { } Vert { } }
+ 
+rule Food {
+  CIRCLE { x 0.5 y 0.5 size 0.125 h -180 z 0.75 }
+  CIRCLE { x 0.5 y -0.5 size 0.125 h -180 z 0.75 }
+  CIRCLE { x -0.5 y 0.5 size 0.125 h -180 z 0.75 }
+  CIRCLE { x -0.5 y -0.5 size 0.125 h -180 z 0.75 }
+}
+ 
+rule Pipe { LL { } }  
+rule Pipe { LR { } }  
+rule Pipe { UL { } }  
+rule Pipe { UR { } }
+rule Pipe { Horiz { } }
+rule Pipe { Vert { } }
+rule Pipe { Cross { } }
+ 
+# The following rules were proposed by Guigui in response
+# to lat3x's
+# observation that my Tube Tapestry picture resembles a Pac
+# Mac board.
+
+rule Pipe .1{act{}Pipe{}} 
+rule act {
+  CIRCLE{s .5 x .5 y .5 h -180 b 1 sat 1}
+  TRIANGLE{r 30 s .3 x .33 y .5 b -1}
+}
+rule act 5{actG{x .5 y .375 s .5}}
+rule actG 10{actG{hue 36}}
+rule actG {
+  CIRCLE {y .25 b 1 sat 1}
+  SQUARE {s 1 .5 b 1 sat 1}
+  4*{x 0.286}CIRCLE {y -.25 s 0.143 x -0.4285 b 1 sat 1}
+  2*{x .4}CIRCLE {x -.2 b 1 s .3 y .3 z 1 sat -1}
+  2*{x .4}CIRCLE {x -.27 s .15 y .3 z 2 sat -1 b -1}
+}
+ 
+rule Row { 20*{ x 1 } Col { } }
+rule Col { 20*{ y 1 } Pipe { } }
+rule Begin { Row { h 240 sat 1 b 1 } }
+ 
+background { b -1 }
+tile { size 20 }
+ 
+ 

data/lib/image_paradise/cfdg/bigger_tree.cfdg

@@ -0,0 +1,64 @@
+startshape FOREST
+
+rule FOREST {
+	    SEED {}
+		    SEED {x -20}
+			    SEED {x -45}
+}
+
+rule SEED {BRANCH {}}
+rule SEED {BRANCH {rotate 2}}
+rule SEED {BRANCH {rotate -1}}
+rule SEED {BRANCH {rotate 2}}
+rule SEED {BRANCH {rotate -2}}
+rule SEED {FORK {}}
+
+rule BRANCH {RIGHTBRANCH {}}
+rule BRANCH {LEFTBRANCH {}}
+
+rule LEFTBRANCH {BLOCK {} LEFTBRANCH {y 0.885 rotate 0.1 size 0.99}}
+rule LEFTBRANCH {BLOCK {} LEFTBRANCH {y 0.885 rotate 0.2 size 0.99}}
+rule LEFTBRANCH {BLOCK {} LEFTBRANCH {y 0.885 rotate 0.1 size 0.99}}
+rule LEFTBRANCH {BLOCK {} LEFTBRANCH {y 0.885 rotate 0.2 size 0.99}}
+rule LEFTBRANCH {BLOCK {} LEFTBRANCH {y 0.885 rotate 0.1 size 0.99}}
+rule LEFTBRANCH {BLOCK {} LEFTBRANCH {y 0.885 rotate 0.2 size 0.99}}
+rule LEFTBRANCH {BLOCK {} LEFTBRANCH {y 0.885 rotate 0.1 size 0.99}}
+rule LEFTBRANCH {BLOCK {} LEFTBRANCH {y 0.885 rotate 0.2 size 0.99}}
+rule LEFTBRANCH {BLOCK {} LEFTBRANCH {y 0.885 rotate 6 size 0.99}}
+rule LEFTBRANCH {BLOCK {} FORK {}}
+
+rule RIGHTBRANCH {BLOCK {} RIGHTBRANCH {y 0.885 rotate -0.1 size 0.99}}
+rule RIGHTBRANCH {BLOCK {} RIGHTBRANCH {y 0.885 rotate -0.2 size 0.99}}
+rule RIGHTBRANCH {BLOCK {} RIGHTBRANCH {y 0.885 rotate -0.1 size 0.99}}
+rule RIGHTBRANCH {BLOCK {} RIGHTBRANCH {y 0.885 rotate -0.2 size 0.99}}
+rule RIGHTBRANCH {BLOCK {} RIGHTBRANCH {y 0.885 rotate -0.1 size 0.99}}
+rule RIGHTBRANCH {BLOCK {} RIGHTBRANCH {y 0.885 rotate -0.2 size 0.99}}
+rule RIGHTBRANCH {BLOCK {} RIGHTBRANCH {y 0.885 rotate -0.1 size 0.99}}
+rule RIGHTBRANCH {BLOCK {} RIGHTBRANCH {y 0.885 rotate -0.2 size 0.99}}
+rule RIGHTBRANCH {BLOCK {} RIGHTBRANCH {y 0.885 rotate -4 size 0.99}}
+rule RIGHTBRANCH {BLOCK {} FORK {}}
+
+
+rule BLOCK {
+	    SQUARE {rotate 1}
+		    SQUARE {rotate -1}
+			    SQUARE {}
+}
+
+rule FORK {
+	    BRANCH { }
+		    BRANCH {size 0.5 rotate 46}
+}
+rule FORK {
+	    BRANCH { }
+		    BRANCH {size 0.5 rotate -40}
+}
+rule FORK {
+	    BRANCH {size 0.5 rotate -22}
+		    BRANCH { }
+}
+rule FORK {
+	    BRANCH {size 0.7 y 0.1 rotate 20}
+		    BRANCH {size 0.7 y 0.1 rotate -20}
+}
+

data/lib/image_paradise/cfdg/binary_connection.cfdg

@@ -0,0 +1,34 @@
+# Good variations : XWX - UYX - ZZZ - ALD
+# benjy
+#
+
+startshape R
+
+background {b -1}
+
+rule R {
+  SQR {} 
+  SQR {y 2} 
+  SQR {y 4} 
+  SQR {y 6} 
+  SQR {y 8} 
+  R {x 0.5 r 0.5 s 0.9995 hue 0.1 sat 0.0001}
+}
+
+rule R 0.001 {
+  R {flip 0 y 8} R {}
+}
+rule R 0.01  {
+  R {flip 90 y 8}
+}
+rule R 0.005 {
+  C {} R {}
+}
+
+rule SQR {SQUARE {sat 0 hue 1 b 1 s 1 0.5 a -0.6}}
+rule SQR 0.5 {}
+rule SQR 0.5 {SQUARE {sat 0 hue 1 b 1 s 0.5 1 a -0.6}}
+
+rule C 2 {CIRCLE {y 4 s 10 b 1 a -0.7}}
+rule C {CIRCLE {y 4 s 15 7 r 30 b 1 a -0.7}}
+rule C {CIRCLE {y 4 s 10 12 r -30 b 1 a -0.7}} 

data/lib/image_paradise/cfdg/birch_line.cfdg

@@ -0,0 +1,57 @@
+startshape birches
+//background { hue 133.5 sat 0.9 b -0.7 }
+ 
+rule birches {
+  sky2 { y 6 s 24 20  z -20 hue 203.5 sat 0.7 b 0.9 }
+  sky2 { y 6 s 24 20  r 180.6 z -20  hue 74.8 sat 0.5 b 0.9}
+  10* {x 2 } absflow [ x -9.5]
+}
+ 
+rule sky2 {
+  2000* { y -.0005 a -.001 } 
+  SQUARE [ y .5 s 1 .00045 ]
+}
+ 
+rule absflow {
+  dweed [ s .1]
+  absflow [ y .1 s .99 r .1]
+}
+
+rule absflow .5 { absflow [ flip 90 ] }
+rule absflow .2 { absflow [ r 1 ] }
+rule absflow .2 { absflow [ r -1 ] }
+rule absflow .05 { absflow [ r -1 ] absflow [ s .5 r 30 ]}
+ 
+ 
+rule dweed {
+  SQUARE []
+  dweed [ y .25 s 1 .5]
+  dweed [ y -.25 s 1 .5]
+}
+
+rule dweed 4 { dweed [b .06 ] }
+ 
+ 
+rule absflow .002 { tcbush [ s 1 z -1] absflow [ ]}
+ 
+rule tcbush {
+  50* { r 117 } 
+  threecirc [ x 1 sat 1 b 1 hue 45] 
+  30* { r 11 } 
+  threecirc [ x 3 y -2 sat 1 hue 55 b 1] 
+ 
+}
+ 
+rule threecirc 10 { threecirc [ x .2 ] }
+
+rule threecirc {
+  3* { r 120 } twocirc [ x 1 s .5 ]
+}
+ 
+rule twocirc { twocirc [ b .1 ] }
+rule twocirc 3 { twocirc [ hue .3 b -.02] }
+rule twocirc {
+  CIRCLE [ s 2.5 x .3 a -.6 b -.1 sat -.5 hue -3]
+  CIRCLE [ s 2.2 x .07 a -.5 sat -1]
+  TRIANGLE [ s 2.3 sat 1 a 1]
+}

data/lib/image_paradise/cfdg/blacksmith_masterpiece.cfdg

@@ -0,0 +1,3 @@
+startshape B
+background{h 10 sat 1 b-.8}
+rule B {SQUARE {} 2 * {f 0 b.4} B {s.66 y.3 r 70 h 4 sat 1} }

data/lib/image_paradise/cfdg/blocked_rectangles.cfdg

@@ -0,0 +1,23 @@
+ 
+startshape BLOCK
+background {hue 180 sat 1 b -.9}
+ 
+rule BLOCK 5 {
+  BLOCK { s 0.5 x 0.1 y 0.1 }
+  BLOCK { s 0.5 x -0.1 y -0.1 }
+  BLOCK { s 0.5 x -0.1 y 0.1 }
+  BLOCK { s 0.5 x 0.1 y -0.1 }
+}
+ 
+rule BLOCK 1 {
+  TERMINATE {}
+}
+ 
+rule TERMINATE 1 {
+  CIRCLE {a -.1}
+  CIRCLE { s 0.95 hue 30 sat 1 b 1 a -.5}
+}
+ 
+rule TERMINATE 5 {
+  SQUARE {hue 30 sat 0 b 1 a -.9}
+}

data/lib/image_paradise/cfdg/blood_tubes.cfdg

@@ -0,0 +1,45 @@
+# ================================================== #
+# rconfreegui $CFDG/blood.cfdg
+# ================================================== #
+
+background { b -0.95 }
+startshape START
+
+rule START {
+  BLOOD  {x -20 r 90}
+  BLOOD  {x 20 flip 0 r 90}
+  CIRCLE {size 50}
+  CIRCLE {sat 1 size 48 b 1}
+}
+
+rule BLOOD 2000 {
+  VESSEL{}
+  BLOOD{y 0.9 s 0.997 r 3 hue -0.2}
+}
+
+rule BLOOD 75 {
+  BLOOD{s 0.997 hue -0.2 flip 90}
+}
+
+rule BLOOD 5 {
+  BRANCH{}
+  BLOOD{y 0.9 s 0.997 r 3 hue -0.2}
+  BLOOD{y 0.9 s 0.997 r -3 hue -0.2}
+}
+
+rule BRANCH {
+  VESSEL{}
+  BLOOD{y 1 s 1}
+  BLOOD{y 1 s 1}
+}
+
+rule VESSEL {
+  SQUARE{x -3}
+  SQUARE{x 3}
+
+  SQUARE{x -2 hue 1 sat 1 b 1}
+  SQUARE{x -1 hue 1 sat 1 b 1}
+  SQUARE{hue 1 sat 1 b 1}
+  SQUARE{x 1 hue 1 sat 1 b 1}
+  SQUARE{x 2 hue 1 sat 1 b 1}
+}

data/lib/image_paradise/cfdg/bloom.cfdg

@@ -0,0 +1,23 @@
+# by blink
+startshape go
+background {b -.95}
+ 
+rule go
+{
+  20* {r 1} petals{ hue 0 sat .6 b .1} // pink
+  6* {r 60 s .9} petals{ hue 34 sat .6 b .1 a -.2 } // yellow
+}
+ 
+rule petals
+{
+  4* {r 90} checker{a -.5}  // alpha gives depth
+  4* {r 90} checker {flip 90}
+}
+ 
+rule checker
+{
+  25* {x 2} SQUARE {x 1} // 25 for interest
+  40* {x 2} SQUARE {y 1} // scale makes radical shape changes:
+  checker {y 2 s .96 skew 15 0 b .05} 
+}
+# cfdg bloom.cfdg

data/lib/image_paradise/cfdg/blown_glass_spheres.cfdg

@@ -0,0 +1,30 @@
+startshape begin
+ 
+tile { s 2 }
+background { h 60 sat 1 b 1 }
+ 
+rule nested_circles {
+  CIRCLE { }
+  nested_circles { s 0.99 x 0.003 y 0.003 h -0.02| }
+}
+ 
+rule many_nested_circles {
+  nested_circles { }
+  many_nested_circles { s 0.9 x 0.05 }
+}
+rule many_nested_circles {
+  nested_circles { }
+  many_nested_circles { s 0.9 y 0.05 }
+}
+ 
+rule staggered_circles {
+  many_nested_circles { }
+  many_nested_circles { x 1 r 90 }
+  many_nested_circles { x 0.5 y -1 r 180 }
+  many_nested_circles { x 1.5 y -1 r 270 }
+}
+ 
+rule begin {
+  staggered_circles { |h 180 h 240 sat 1 b 1 a -0.9 }
+  staggered_circles { |h 0 h 60 sat 1 b 1 a -0.9 x 0.5 y 0.5 z -100 }
+}

data/lib/image_paradise/cfdg/blue_daisies_in_detail.cfdg

@@ -0,0 +1,101 @@
+# For this you need a huge image, i suggest 2400x2400
+# rconfreegui $CFDG/daisy_detail.cfdg
+startshape ascape
+ 
+ 
+rule ascape { scape [ ] ascape [ x 20 ] }
+
+rule ascape .4 { scape [ ] ascape [ y 20 ] ascape [ x 20] }
+# rule ascape { scape [ ] ascape [ y -40 ] }
+# rule ascape 10 { ascape [ r 10 ] }
+rule ascape 1 { }
+ 
+ 
+rule scape {
+  weedscape [ ]
+}
+ 
+rule weedscape {
+  flplant [ ]
+  weedscape [ x -4.6 s .8 z -2]
+  weedscape [ x 4.6 s .8 z -2]
+}
+
+rule weedscape .4 { }
+rule weedscape { weedscape [ y -.1 z .1] }
+ 
+rule flplant { flplant [ r 2 ] }
+rule flplant .05 { flplant [ flip 90 ] }
+rule flplant 2{
+drawflpt [ ]
+flplant [ y 1 s .99 .99 ]
+}
+rule flplant {
+flptleaf [ ]
+flplant [ ]
+}
+ 
+rule flplant .22 {
+  drawflpt [ ]
+  flplant [ r -10 y .3 s .99 .95 ]
+  flplant [ r 10 y .3 s .99 .95 ]
+}
+rule flplant .1 { }
+ 
+rule flplant .1 { 3* { y -1.5} makeflower [ s 2 r -50 x .5]
+}
+ 
+rule flptleaf { flptleaf [ x 1 r -20 ] }
+rule flptleaf { flptleaf [ x -1 r 20 ] }
+rule flptleaf { CIRCLE [ b -1 a -.9 z -1 s 3 ] makeflptleaf
+[ s 3 hue 126.3 sat 0.8 b 0.4 ] }
+ 
+rule makeflptleaf { makeflptleaf [ b .1 ] }
+rule makeflptleaf { makeflptleaf [ b -.1 ] }
+rule makeflptleaf { makeflptleaf [ x .1 r 15 ] }
+rule makeflptleaf {
+CIRCLE [ s 1 .1] 
+makeflptleaf [ r 9 s .95 ]
+}
+  rule drawflpt { SQUARE [ s .1 1 hue 126.3 sat 0.8 b 0.4 ]
+}
+ 
+rule makeflower 3 { makeflower [ x .3 r -4] }
+ 
+rule makeflower {
+CIRCLE [ b -1 a -.8 s 1.1 .4 ] 
+flower1 [ s 1 .3  ]
+3* { y -.2 s .6 } flower2 [ z -1 flip 180 y .2  s .8 .1 hue
+126.3 sat 0.8 b 0.4 ]
+drawflpt [y -.6 s .4 1]
+}
+rule makeflower {
+CIRCLE [ b -1 a -.8 s 1.2 ] 
+flower1 [ s 1 .7  ]
+drawflpt [y -.6 s .4 1]
+}
+ 
+ 
+# rule flower1 { flower [ hue 50.0 sat 1.0 b 1.0 ] }
+# rule flower1 { flower [ hue 10.0 sat 1.0 b 1.0 ] }
+# rule flower1 { flower [ hue -10.0 sat 1.0 b 0.9 ] }
+rule flower1 { flower [ hue 210.0 sat 1.0 b 0.9 ] }
+ 
+rule flower {
+20* { r 18 } petal1 [ y .5 s .2 1 ]
+flower [ y .2 s .65 hue -.45 ]
+}
+ 
+rule flower2 {
+80* { r 4.52 } dpetal [ y .5 s .1 1 ]
+flower2 [ r 2 s .85 hue .45 ]
+}
+ 
+ 
+ 
+rule petal1 { petal1 [ hue 6 ] }
+rule petal1 { petal1 [ b .01 ] }
+rule petal1 { petal1 [ r 2 ] }
+rule petal1 { dpetal [ ] }
+rule dpetal { CIRCLE [ hue 15 b 0] CIRCLE [ s .9]}
+ 

data/lib/image_paradise/cfdg/blue_galaxy.cfdg

@@ -0,0 +1,20 @@
+# From:https://www.contextfreeart.org/gallery/view.php?id=4113
+
+HUE_BORDER = 210
+STEPS = 100
+
+CF::Background = [h HUE_BORDER sat 1 b -5]
+CF::Size = [s 120]
+
+startshape galaxy []
+
+shape galaxy {
+  loop STEPS [x -5..5 y -5..5 h .5]
+    cloud [h HUE_BORDER sat 1 b 1]
+}
+
+shape cloud {
+  randomShape = let(n = 0..3; select(n, CIRCLE, SQUARE, TRIANGLE))
+  randomShape []
+  cloud [x -5..5 y -5..5 a -.03 r 1..10 s .995]
+}

data/lib/image_paradise/cfdg/blue_moon.cfdg

@@ -0,0 +1,36 @@
+# =========================================================================== #
+# From:
+#
+#   https://www.contextfreeart.org/gallery2/#design/4098
+#
+# HEIGHT: 600
+# WIDTH:  600
+#
+# =========================================================================== #
+
+
+CF::ColorDepth= 16
+CF::Background= [b -0.9]
+W= 800 
+R= 0.95
+
+startshape Sphere[b 1]
+CF::Size=[s (2*(1/R))]
+
+shape Sphere {
+  loop   X=(1/W-1/R, 1/W+1/R, (2/R/W)) []
+    loop Y=(1/W-1/R, 1/W+1/R, (2/R/W)) []
+      Pixel(X,Y) [x X Y s (2/R/W)]
+}
+shape Pixel(X,Y) {
+  if (X^2+Y^2<1) {
+    Z = sqrt(1-X^2-Y^2)
+    Xf= floor(X*W*R+0.5)/W/R
+    Yf= floor(Y*W*R+0.5)/W/R
+    Zf= floor(Z*W*R+0.5)/W/R
+    Qf= Xf^2+Yf^2+Zf^2
+    H = (1-Qf)*(1+exp(Qf))*W*40+210
+    SQUARE [h H sat (1-Z/2)]
+} }
+
+# runcfdg blue_moon

data/lib/image_paradise/cfdg/boa_feathers.cfdg

@@ -0,0 +1,53 @@
+startshape feather
+background { b -1 }
+
+rule feather 50 {
+  atom {}
+  feather { y -.45 r .4 b .0001 hue .3 alpha .1}
+}
+
+rule feather 50{
+  atom {}
+  feather { y -.45 r .3 b .0001 hue .3 alpha .1}
+}
+
+rule feather {
+  atom {}
+  feather { y -.45 r .3 flip 90 b .0001 hue .3 alpha .1}
+}
+
+rule feather 0.05 {
+  atom {}
+  featherB { y -.45 r .3 flip 90 b .0001 hue .3 alpha .1}
+}
+
+rule featherB 100{
+  atom {}
+  featherB { s 0.999 y -.45 r .3 b .0001 hue .3 alpha .1}
+}
+rule featherB {
+  atom {}
+  featherB { s 0.999 y -.45 r .3 flip 90 b .0001 hue .3 alpha .1}
+}
+
+rule atom {proton{}}
+rule atom {electron {}}
+
+rule proton {
+  SEED{}
+  proton {y .25 r .25 s .999 b .001 alpha -.001}
+}
+
+rule proton .015 {electron{}}
+
+rule electron {
+  SEED{}
+  electron {y .25 r -.25 s .999 b .001 alpha -.001}
+}
+rule electron .015 {
+  proton{}
+}
+
+rule SEED {
+  CIRCLE {alpha -.75 h 120 sat .45 b .5}
+}

data/lib/image_paradise/cfdg/bomb.cfdg

@@ -0,0 +1,75 @@
+# ======================================== #
+# rconfreegui $CFDG/bomb.cfdg
+# Fire rocks!! - Lat3x
+# ======================================== #
+startshape BOMB
+
+rule BOMB
+{
+  CIRCLE{z 1000}
+  CIRCLE{z 1001 y 0.03 x -0.03 s 0.9 b 0.15}
+  SHINE[y 0.14 x -0.14 s 0.3 sat -1 z 1002 b 0.15]
+  STRING{y 0.57 s 0.6}
+}
+
+rule SHINE
+{
+  CIRCLE{}
+  SHINE{s 0.9991 b 0.001}
+}
+
+rule STRING
+{
+  STRING_L{}
+}
+
+rule STRING_L 4
+{
+  SEGMENT{}
+  STRING_L[x 0.02 y 0.2 r -10.0 z -1]
+}
+
+rule STRING_L
+{
+  SEGMENT{}
+   STRING_R[x 0.02 y 0.2 r -10.0 z -1]
+}
+
+rule STRING_L 0.6
+{
+  FIRE{hue 10.0 sat 1.0 b 1.0 z 500 alpha -0.2}
+}
+
+rule STRING_R
+{
+  SEGMENT{}
+  STRING_L[x -0.02 y 0.2 r 10.0 z -1]
+}
+
+rule STRING_R 4
+{
+  SEGMENT{}
+  STRING_R[x -0.02 y 0.2 r 10.0 z -1]
+}
+
+rule STRING_R 0.6
+{
+  FIRE{hue 10.0 sat 1.0 b 1.0 z 500 alpha -0.2}
+}
+
+rule SEGMENT
+{
+  SQUARE{s 0.1 0.3}
+  SQUARE{s 0.09 0.29 hue 50.0 sat 0.2 b 1.0 alpha -0.5}
+  SQUARE{s 0.04 0.27 hue 40.0 sat 0.4 b 1.0 alpha -0.3}
+  SQUARE{s 0.04 0.22 hue 50.0 sat 0.4 b 1.0}
+}
+
+rule FIRE
+{
+  TRIANGLE { s 1.5 0.15 r 21 }
+  FIRE { s 0.9 r 27 hue 1.0}
+}
+	
+
+