image_paradise 0.4.8

data/lib/image_paradise/cfdg/sierpinski1.cfdg

@@ -0,0 +1,41 @@
+startshape Top
+
+rule Top {
+	Sierpinski { r -13.5 b 0.5 }
+}
+
+rule SierpinskiOrig {
+	Shape { }
+	Sierpinski { s 0.5 r 5
+		y -1 x 0  }
+	Sierpinski {  s 0.5 r 5
+		y 0.5 x -0.866025  }
+	Sierpinski { s 0.5 r 5
+		y 0.5 x 0.866025  }
+}
+rule Sierpinski {
+	Shape { }
+	Sierpinski { s 0.6 r 5 b 0.2
+		y -1.5 x 0  }
+	Sierpinski {  s 0.6 r 5 b -0.2
+		y 0.75 x -1.2990375  }
+	Sierpinski { s 0.6 r 5
+		y 0.75 x 1.2990375  }
+}
+
+# comment out all but one of these rules for Shape:
+rule Shape { CIRCLE { } }
+#rule Shape { Triangle { s 0.5 } }
+#rule Shape { Triangle { } }
+	// this last one fills the image
+
+rule Triangle { 
+	Arm { r 0 }
+	Arm { r 120 }
+	Arm { r -120 }
+} 
+
+rule Arm {
+	CIRCLE { }
+	Arm { y 0.1 s 0.9 }
+}

data/lib/image_paradise/cfdg/sierpinski2.cfdg

@@ -0,0 +1,34 @@
+startshape Top
+
+rule Top {
+	   Sierpensky { r -13.5 }
+}
+
+rule Sierpensky {
+	   Shape { }
+	      Sierpensky { s 0.5
+			        y -1 x 0  }
+		     Sierpensky {  s 0.5
+				       y 0.5 x -0.866025  }
+			    Sierpensky { s 0.5
+					      y 0.5 x 0.866025  }
+}
+
+# comment out all but one of these rules for Shape:
+rule Shape { CIRCLE { } }
+#rule Shape { Triangle { s 0.5 } }
+#rule Shape { Triangle { } }
+   // this last one fills the image
+
+rule Triangle {
+	   Arm { r 0 }
+	      Arm { r 120 }
+		     Arm { r -120 }
+}
+
+rule Arm {
+	   CIRCLE { }
+	      Arm { y 0.1 s 0.9 }
+} 
+
+

data/lib/image_paradise/cfdg/sierpinski_like_red_swirl.cfdg

@@ -0,0 +1,46 @@
+# sierpinski_like_red_swirl.cfdg
+startshape ALL
+background { b -1 }
+
+rule ALL {
+  PART1 { h 0 sat 0.35 b 1 }
+}
+
+
+rule PART1 {
+  PART3 { }
+}
+
+rule PART1 0.5 {
+  2*[r 180] PART3 { }
+}
+
+rule PART1 {
+  3*[r 120] PART3 { }
+}
+
+rule PART1 0.1 {
+  5*[r 72] PART3 { }
+}
+
+rule PART3 {
+  SHAPE { }
+  PART2 [ y 0.5 r 25 ]
+}
+
+
+rule PART2 {
+  PART1 { 
+    s 0.5
+    a -0.1 
+    hue 3 sat 0.25
+    z 1 
+  }
+}
+
+rule SHAPE {
+// switch these for a bit different style
+//  CIRCLE { s 1 b 1 }
+//  CIRCLE { s 0.95 b -1 }
+  60*[ r 6 ] SQUARE { s 0.035 y 0.5 }
+}

data/lib/image_paradise/cfdg/sierpinsktri.cfdg

@@ -0,0 +1,9 @@
+startshape fract
+
+
+rule fract {
+  TRIANGLE { }
+  fract {         y .288   s .5  b .1}
+  fract { x -.25  y -.144  s .5  b .1}
+  fract { x  .25  y -.144  s .5  b .1}
+}

data/lib/image_paradise/cfdg/silk_flowers.cfdg

@@ -0,0 +1,68 @@
+# $IMG/CFDG/silk_flowers.cfdg
+# VERY Beautiful.
+startshape START
+background { b -0.96 }
+
+rule START {
+  BRANCH { b 0.8 sat 0.9 hue 330}
+  BRANCH { flip 180 b 0.8 sat 0.9 hue 330}
+}
+
+rule PETAL {
+  CIRCLE { }
+  PETAL { y 0.007 s 0.99 }
+}
+
+rule FULL_PETAL {
+  PETAL { }
+  PAUSE { }
+}
+
+rule PAUSE {
+  PETAL { s 0.99 b 1 sat -0.8}
+}
+
+rule FLOWER {
+  CIRCLE { s 0.3 }
+  FULL_PETAL { r -45 x -0.54 y -0.54}
+  FULL_PETAL { r 45 x 0.54 y -0.54}
+  FULL_PETAL { r -45 flip 180 y 0.54 x 0.54}
+  FULL_PETAL { r 45 flip 180 x -0.54 y 0.54}
+}
+
+rule BRANCH {
+  SQUARE { }
+  BRANCH { s 0.99 y 1 r 5 sat -0.005 alpha -0.003}
+}
+ 
+rule BRANCH 0.05 { 
+  BRANCH { flip 90 }
+}
+rule BRANCH 0.06 { 
+  BRANCH { flip 45 }
+}
+rule BRANCH 0.02 {
+  SQUARE {} 
+  BRANCH { r 25 s 0.9}
+  BRANCH { r -25 s 0.9}
+}
+
+rule BRANCH 0.02 {
+  CIRCLE { s 3 x 3 alpha -0.5} 
+  BRANCH { s 0.9 }
+}
+
+rule BRANCH 0.007 { 
+  BRANCH { }
+  FLOWER{ r 45 s 8 }
+}
+
+rule BRANCH 0.01 { 
+  BRANCH { }
+  PAL {}
+}
+
+rule PAL {
+  SQUARE { s 6 0.5 x 3}
+  CIRCLE { x 6 s 6 3 }
+}

data/lib/image_paradise/cfdg/silk_scarf.cfdg

@@ -0,0 +1,18 @@
+startshape begin[r 45 sat 1 b 1]
+CF::Size=[s 3.7]
+CF::MinimumSize=.5
+ 
+ G=(-1+sqrt(5))/2
+  
+shape begin {
+    loop 4[r 90 ]
+        tri []
+}
+ 
+shape tri {
+   SQUARE[ x .5 y .5 h 0 sat 1 ]
+   begin[ r 45 h 20 x .5 y .5 s .27 b -.1 z 1]
+   tri [h 5 x 1 s G]
+   tri [h 5 sat 1 b -.13  s G  y 1]
+}
+ 

data/lib/image_paradise/cfdg/simple_cilia.cfdg

@@ -0,0 +1,88 @@
+# === simple_cilia.cfdg
+startshape LINES
+
+rule TRIPLES {
+	LINES { r 0 }
+	LINES { r 120 }
+	LINES { r -120 }
+}	
+
+rule LINES {
+	LINER { }
+	LINER { x 2 }
+	LINER { x 4 }
+	LINER { x 6 }
+	LINER { x 8 }
+	LINES { x 0.7 y 1.5 b 0.1 s 0.8 }
+ }
+
+rule LINER { LINER1 { } }
+rule LINER { LINER2 { } }
+rule LINER { LINER3 { } }
+rule LINER { LINER4 { } }
+rule LINER { LINER5 { } }
+rule LINER { LINER6 { } }
+
+rule LINER1 {
+	UTRIANGLE { y 0.5 }
+	LINER1 { r -1 b 0.02
+		y 0.75 x 0.4330125
+		 s 0.97 }
+ }
+rule LINER2 {
+	UTRIANGLE { y 0.5 }
+	LINER2 { r -2 b 0.02
+		y 0.75 x 0.4330125
+		 s 0.97 }
+ }
+rule LINER3 {
+	UTRIANGLE { y 0.5 }
+	LINER3 { r -3 b 0.02
+		y 0.75 x 0.4330125
+		 s 0.97 }
+ }
+rule LINER4 {
+	UTRIANGLE { y 0.5 }
+	LINER4 { r 1 b 0.02
+		y 0.75 x 0.4330125
+		 s 0.97 }
+ }
+rule LINER5 {
+	UTRIANGLE { y 0.5 }
+	LINER5 { r 2 b 0.02
+		y 0.75 x 0.4330125
+		 s 0.97 }
+ }
+rule LINER6 {
+	UTRIANGLE { y 0.5 }
+	LINER6 { r 3 b 0.02
+		y 0.75 x 0.4330125
+		 s 0.97 }
+ }
+
+rule LINER1 .1 { LINER { } }
+rule LINER2 .1 { LINER { } }
+rule LINER3 .1 { LINER { } }
+rule LINER4 .1 { LINER { } }
+rule LINER5 .1 { LINER { } }
+rule LINER6 .1 { LINER { } }
+
+// 0.754877 is the solution to
+// x^2 + x^3 = 1
+// this allows double backed
+// triangles to exactly line up!
+
+
+rule UTRIANGLE {
+	TRIANGLE { r 42.5 s 0.525 }
+}
+rule TRIANGLE{ 
+	ARM { r 0 }
+	ARM { r 120 }
+	ARM { r -120 }
+} 
+
+rule ARM {
+	CIRCLE { }
+	ARM { y 0.1 s 0.9 r 2 }
+}

data/lib/image_paradise/cfdg/simple_circle_and_square.cfdg

@@ -0,0 +1,7 @@
+startshape X
+
+rule X {
+  CIRCLE { }
+  SQUARE { x 3.5 }
+} 
+

data/lib/image_paradise/cfdg/simple_coloured_square.cfdg

@@ -0,0 +1,38 @@
+# ============================================== #
+# rconfreegui $CFDG/sword.cfdg
+# shall become a sword one day
+# ============================================== #
+startshape CREATE_SWORD
+
+background {sat 0.47 hue 110 b -0.96 }
+
+rule CREATE_SWORD {
+  HANDLE {}
+}
+
+
+rule HANDLE {
+  SQUARE { s 0.98 hue 1 sat 1 b 0.7}
+  SQUARE { s 0.92 b 1 }
+  SQUARE { s 0.86 hue 1 sat 1 b 1}
+  HANDLE {}
+}
+
+rule HANDLE 0.2 {
+  SQUARE { s 0.96 hue 55 sat 1 b 0.7}
+  SQUARE { s 0.90 b 1 }
+  SQUARE { s 0.84 hue 51 sat 1 b 1}
+}
+
+rule HANDLE 0.1 {
+  SQUARE { s 0.92 hue 75 sat 1.2 b 0.7}
+  SQUARE { s 0.86 b 1 }
+  SQUARE { s 0.80 hue 71 sat 1.2 b 1}
+}
+
+
+rule HANDLE 0.002 {
+  SQUARE { s 0.88 hue 135 sat 1.2 b 0.7}
+  SQUARE { s 0.82 b 1 }
+  SQUARE { s 0.76 hue 135 sat 1.2 b 1}
+}

data/lib/image_paradise/cfdg/simple_ferns.cfdg

@@ -0,0 +1,40 @@
+startshape GRANDFATHER
+background { b -1 }
+
+path TOY {
+	MOVETO { x 0 y 0 }
+	LINETO { x 50 y 0 }
+	STROKE { width .01 }
+}
+
+rule GRANDFATHER{
+	3*{ x 200 }FATHER { r 90 }
+}
+
+rule FATHER 33{
+	10*{ x 50 r 1}MOTHER { }
+	12*{ x 45 r 1}MOTHER { f 0 }
+}
+rule FATHER 33{
+	10*{ x 50 r 3}MOTHER { }
+	12*{ x 45 r 3}MOTHER { f 0 }
+}
+rule FATHER 33{
+	10*{ x 50 r -2}MOTHER { }
+	12*{ x 45 r -2}MOTHER { f 0 }
+}
+
+
+rule MOTHER{
+	CHILD { }
+	MOTHER { s .95 r 5 x 10 }
+}
+
+rule CHILD{
+	20*{y .1}PET { }
+	CHILD { s .95 r 22.5 b 5 sat .5 h .5 }
+}
+
+rule PET { 
+	TOY { hue 100 }
+}

data/lib/image_paradise/cfdg/simple_fish.cfdg

@@ -0,0 +1,77 @@
+startshape fish
+
+rule fish {
+  BODY {}
+  MOUTH {}  
+  EYE {}
+  BUBBLES { y 1 }
+}
+
+rule BODY {
+  SQUARE { size 4 r -45}
+}
+rule MOUTH {
+  SQUARE { x 3 y 1 r -45 size 2 }
+  SQUARE { x 3 y -1 r -45 size 2 }
+}
+
+rule EYE {
+  CIRCLE { x -1 y .5 s .3 b .9 }
+}
+
+rule BUBBLES 15{
+  // first rule for TREE
+  BUBBLE {  }
+  BUBBLES { y 0.4 }
+}
+
+
+rule BUBBLES 1.5 {
+  // second rule for TREE
+   BRANCH {  }
+}
+
+rule BUBBLE {
+  CIRCLE { x -3.5 size .3  }
+  CIRCLE { x -3.5 size .2 b .9 }
+}
+rule BUBBLE {
+  CIRCLE {  x -3.7 size .2  }
+  CIRCLE {  x -3.7 size .1 b .9 }
+}
+rule BUBBLE {
+  CIRCLE {  x -2.7 size .2  }
+  CIRCLE {  x -2.7 size .1 b .9 }
+}
+rule BUBBLE {
+  CIRCLE { x -2.5 size .3  }
+  CIRCLE { x -2.5 size .2 b .9 }
+}
+rule BRANCH {
+   BRANCH_LEFT { }
+   BRANCH_RIGHT { }
+}
+rule BRANCH_LEFT {
+   BUBBLE { rotate 20 }
+}
+rule BRANCH_LEFT {
+   BUBBLE{ rotate 30 }
+}
+rule BRANCH_LEFT {
+   BUBBLE{ rotate 40 }
+}
+rule BRANCH_LEFT {
+  
+}
+rule BRANCH_RIGHT {
+   BUBBLE{ rotate -20 }
+}
+rule BRANCH_RIGHT {
+   BUBBLE{ rotate -30 }
+}
+rule BRANCH_RIGHT {
+   BUBBLE{ rotate -40 }
+}
+rule BRANCH_RIGHT {
+  
+}

data/lib/image_paradise/cfdg/simple_orchid.cfdg

@@ -0,0 +1,23 @@
+startshape branches
+rule branches
+{
+	straightline1 { }
+	straightline2 {}
+	branches { y 50 s .75 r 45}
+	branches { y 50 s .75 r 315}
+}
+rule straightline1
+{
+	hollow{}
+	straightline1 { s .999 y .1 r .05 }
+}
+rule straightline2
+{
+	hollow{}
+	straightline2 { s .999 y .1 r 359.95 }
+}
+rule hollow 
+{
+	CIRCLE {b -1}
+	CIRCLE { b 1 hue 130 saturation .95 s .99999 }
+}

data/lib/image_paradise/cfdg/simple_rounded_colour_wheel.cfdg

@@ -0,0 +1,10 @@
+# confree simple_colour_wheel.cfdg output.png
+startshape B
+background {b -1}
+rule B {
+  C {} 
+  B {s .99999 x .1 r 1 b .00005 hue +1 }
+}
+rule C {
+  CIRCLE{b 0 sat 1}
+}

data/lib/image_paradise/cfdg/simple_sheet_music.cfdg

@@ -0,0 +1,27 @@
+// by Chouser, Feb 2008
+startshape page
+ 
+rule page {
+  5* { y 0.7 } bar { }
+}
+ 
+rule bar {
+  staff { }
+  9* { x 0.3 } note { x -1.5 }
+}
+ 
+rule staff {
+  5* { y 0.1 } SQUARE { s 3 0.01 }
+  2* { x 3 } SQUARE { x -1.5 y 0.2 s 0.03 0.4 }
+}
+ 
+rule note 0.5 {
+  CIRCLE { s 0.2 0.1 r 25 x 0.2 }
+  SQUARE { s 0.03 0.4 x 0.28 y 0.23 }
+}
+ 
+rule note {
+  note { y 0.05 }
+}
+ 
+rule note { }

data/lib/image_paradise/cfdg/sincos_pattern_2.cfdg

@@ -0,0 +1,42 @@
+# =========================================================================== #
+# SinCos sized squares on a SinCos path with symmetry
+#
+# Created by barcud.
+#
+# See: https://www.contextfreeart.org/gallery/view.php?id=4239#comment4477
+#
+# 27.07.2021
+# =========================================================================== #
+startshape main[r  30]
+
+CF::MinimumSize = 0.1
+CF::Symmetry = CF::Cyclic,5,2.3,1
+
+
+LMax = 1200
+rot=1.2
+
+wid = 4
+hei = 2.2
+
+shape main{
+  loop MyX = -0,LMax,1 [ ] {
+    if (MyX < 400)
+      MyFrame (MyX)[s 1 x  (sin(MyX) * 1-MyX/LMax) y (cos(MyX) * 1-MyX/LMax) z MyX  r (MyX/rot)]
+    else
+      MyFrame (MyX)[s (1 * (LMax - MyX)/400) x  (sin(MyX) * 1-MyX/LMax) y (cos(MyX) * 1-MyX/LMax) z MyX  r (MyX/rot)]
+  }
+}    
+
+shape MyFrame(which){
+  if(mod(which,2) ==0){
+    SQUARE[s (1+0.25*sin(which)*wid) hei sat 1 b 0]
+    SQUARE[s (1+0.25*sin(which)*(wid-0.003)) (hei-0.003) h (120 - which*3)  sat 0.9 b (1.5+ 0.75*cos(which*10))  r 0.5]  ## sat 0 make the inner square
+# white  == sat 1 gives it colour
+  } else {
+    SQUARE[s (1+0.25*sin(which)*wid) hei sat 1 b 0]
+    SQUARE[s (1+0.25*sin(which)*(wid-0.005)) (hei-0.005) h (which*2)  sat 1 b (1+ 0.25*cos(which*3)) r 0.25]
+  }
+}
+
+// circle  or triangle instead of Square works well

data/lib/image_paradise/cfdg/singing_birdy.cfdg

@@ -0,0 +1,112 @@
+# birdy singing ornaments
+# inspired by the TV series 'Hungarian Folk Tales'
+
+startshape SING
+
+background{hue 60 saturation 0.5 b 1}
+
+# spirals are elemental parts of the ornament
+rule SPIRAL{
+	CIRCLE{hue 30 saturation 1 b -0.8}
+	SPIRAL{y 0.2 r 2 s 0.99}
+}
+
+# this one will make them a little unequal
+rule SPIRAL{
+	CIRCLE{hue 30 saturation 1 b -0.8}
+	SPIRAL{y 0.2 r 4 s 0.99}
+}
+
+# spirals will sometimes end in a nice little flower
+rule SPIRAL 0.005{
+	CIRCLE{s 5 hue 30 saturation 1 b -0.8}
+	CIRCLE{s 4 z 1 hue 60 saturation 0.5 b 1}
+	PETAL{}
+	PETAL{r 60}
+	PETAL{r 120}
+	PETAL{r 180}
+	PETAL{r 240}
+	PETAL{r 300}
+}
+
+# petal of the little flower
+rule PETAL{
+	CIRCLE{s 5 y 5}
+}
+
+# going one step ahead with the ornament
+rule AHEAD{
+	SPIRAL{s .125 r -20}
+	SPIRAL{s .125 r 20 y 0.5 flip 90}
+}
+
+# first line of the ornament goes straight up
+rule UP{
+	AHEAD{}
+	UP{y 1}
+}
+
+# first line is 10 steps long in average
+rule UP 0.1{
+	TURNRIGHT{}
+}
+
+# second line goes the same way ahead
+rule DOWN{
+	AHEAD{}
+	DOWN{y 1}
+}
+rule DOWN 0.1{
+	TURNLEFT{}
+}
+
+# turn from the end of the first line to the second line
+rule TURNRIGHT 0.95{
+	AHEAD{}
+	TURNRIGHT{y 1 r -9}
+}
+
+# ...by a 180 degree curve in average
+rule TURNRIGHT 0.05{
+	DOWN{}
+}
+
+# turn the other way around
+rule TURNLEFT 0.95{
+	AHEAD{}
+	TURNLEFT{y 1 r 9}
+}
+
+# ornament ends after this curve, which is a 180-degree one as well
+rule TURNLEFT 0.05{
+}
+
+# draw the singing birdy
+rule SING{
+	BIRDY{s 0.2 x -1}
+	UP{r -90} # start with the first line of ornaments but oriented according to the birdy
+}
+
+# draw the birdy
+rule BIRDY{
+	BILL{r 295 hue 30 saturation 1 b -0.8}
+	BILL{r 255 hue 30 saturation 1 b -0.8}
+	CIRCLE{s 1 y 1 hue 60 saturation 0.5 b 1 z 1} # eye
+	BODY{s 5 flip 0}
+	LEG{x -4 y -7 r 30}
+	LEG{x -4 y -7 r -30}
+}
+
+# body parts of the birdy
+rule BILL{
+	TRIANGLE{y 2.5 s 2 5}
+}
+rule BODY{ # looks like a spiral
+	CIRCLE{hue 30 saturation 1 b -0.8}
+	BODY{y 0.2 r 9 s 0.95}
+}
+rule LEG{
+	SQUARE{y -1.5 s 0.5 3}
+	SQUARE{y -3 x 0.75 s 1.5 0.5}
+	CIRCLE{y -3 s 0.5}
+}