image_paradise 0.4.20

data/lib/image_paradise/cfdg/school_script.cfdg

@@ -0,0 +1,359 @@
+# =========================================================================== #
+# === school_script.cfdg
+#
+# See: https://www.contextfreeart.org/gallery/view.php?id=446
+#
+# That .cfdg was originally created on 28.10.2006
+# =========================================================================== #
+startshape draw_the_horizontal_bars
+
+# This rule will make the horizontal black bars.
+rule draw_the_horizontal_bars {
+  SQUARE {x 7 s 21 .025 hue 240 sat 1 b .75 y -4.5}
+  SQUARE {x 7 s 21 .05  hue 240 sat 1 b .75 y -3.5}
+  SQUARE {x 7 s 21 .025 hue 240 sat 1 b .75 y -2.5}
+  SQUARE {x 7 s 21 .025 hue 240 sat 1 b .75 y -1.5}
+  SQUARE {x 7 s 21 .05  hue 240 sat 1 b .75 y -.5}
+  SQUARE {x 7 s 21 .025 hue 240 sat 1 b .75 y  .5}
+  SQUARE {x 7 s 21 .025 hue 240 sat 1 b .75 y 1.5}
+  SQUARE {x 7 s 21 .025 hue 240 sat 1 b .75 y 2.5}
+  PENabc {skew 30 0}
+}
+
+rule PENabc{
+  PENa {hue 0 sat 1 b 1} //width 1.75
+  PENb {x 1.75} //width 1.5
+  PENc {x 3.25 hue 0 sat 1 b 1} //width 1
+  PENd {x 4.25} //width 1.75
+  PENe {x 6 hue 0 sat 1 b 1} //width 1
+  PENf {x 7} //width 0.75
+  PENg {x 7.75 hue 0 sat 1 b 1} //width 1.5
+  PENh {x 9.25} //width 1.75
+  PENi {x 11 hue 0 sat 1 b 1} //width 1
+  PENj {x 12} //width 0.5
+  PENk {x 12.5 hue 0 sat 1 b 1} //width 1
+  PENl {x 13.5} //width 1
+  PENm {x 14.5 hue 0 sat 1 b 1} //width 1.75
+  PENn {y -3} //width 1.75
+  PENo {y -3 x 1.75 hue 0 sat 1 b 1} //width 1.5
+  PENp {y -3 x 3.25} //width 1.75
+  PENq {y -3 x 5 hue 0 sat 1 b 1} //width 1.5
+  PENr {y -3 x 6.5} //width 1.5
+  PENs {y -3 x 8 hue 0 sat 1 b 1} //width 0.75
+  PENt {y -3 x 8.75} //width 0.75
+  PENu {y -3 x 9.5 hue 0 sat 1 b 1} //width 1.75
+  PENv {y -3 x 11.25} //width 1.75
+  PENw {y -3 x 13 hue 0 sat 1 b 1} //width 1.75
+  PENx {y -3 x 14.75} //width 1.5
+  PENy {y -3 x 16.25 hue 0 sat 1 b 1} //width 1.5
+  PENz {y -3 x 17.75} //width 1.5
+}
+
+rule PENELEM {
+  SQUARE {s .1 .07822}
+  CIRCLE {y .03911 s .1}
+  CIRCLE {y -.03911 s .1}
+}
+
+rule PENQARC{
+  10*[x -.5 r 9 x .5]PENELEM{}
+}
+
+rule PENQARC1{
+  PENQARC{x .5}
+}
+
+rule PENQARC2{
+  PENQARC1{r 90}
+}
+
+rule PENQARC3{
+  PENQARC1{r 180}
+}
+
+rule PENQARC4{
+  PENQARC1{r 270}
+}
+
+rule PENCIRCLE{
+  PENQARC1{}
+  PENQARC2{}
+  PENQARC3{}
+  PENQARC4{}
+}
+
+rule PENHOOKDN{
+  PENQARC3{}
+  PENQARC4{}
+}
+
+rule PENSMALLQARC{
+  5*[x -.25 r 18 x .25]PENELEM{}
+}
+
+rule PENSMALLQARC1{
+  PENSMALLQARC{y -.25}
+}
+
+rule PENSMALLQARC2{
+  PENSMALLQARC{x -.25 r 90}
+}
+
+rule PENSMALLQARC3{
+  PENSMALLQARC{x -.5 y -.25 r 180}
+}
+
+rule PENSMALLQARC4{
+  PENSMALLQARC{x -.25 y -.5 r 270}
+}
+
+rule PENSMALLHOOKDN{
+  PENSMALLQARC3{}
+  PENSMALLQARC4{}
+}
+
+rule PENSMALLHOOKUP{
+  PENSMALLQARC1{}
+  PENSMALLQARC2{}
+}
+
+rule PENMIDHOOKDN{
+  PENSMALLQARC3{}
+  PENQARC4{x -.25}
+}
+
+rule PENXHT{
+  SQUARE{s .1 1}
+  CIRCLE{y .5 s .1}
+  CIRCLE{y -.5 s .1}
+}
+
+rule PENHALFXHT{
+  SQUARE{s .1 .5 y -.25}
+  CIRCLE{s .1}
+  CIRCLE{y -.5 s .1}
+}
+
+rule PENQXHT{
+  SQUARE{s .1 .25 y -.375}
+  CIRCLE{y -.25 s .1}
+  CIRCLE{y -.5 s .1}
+}
+
+rule PEN3QXHT{
+  PENQXHT{}
+  PENHALFXHT{y .25}
+}
+
+rule PENEXTUP{
+  PENQARC4{y 1 x -.5 r 9}
+  PENQXHT{y 1.5}
+  PENSMALLHOOKUP{y 1.5}
+  PEN3QXHT{x -.5 y 1}
+}
+
+rule PENEXTDN{
+  PENEXTUP{r 180}
+}
+
+rule PENa{
+  PENCIRCLE{}
+  PEN3QXHT{y .25 x .5}
+  PENMIDHOOKDN{x 1}
+}
+
+rule PENb{
+  PENEXTUP{}
+  PENHALFXHT{x -.5 y .5}
+  PENMIDHOOKDN{}
+  PENHALFXHT{x .25 y .5}
+  PENMIDHOOKDN{x .5 y .25 flip 90}
+}
+
+rule PENc{
+  PENSMALLQARC1{y .5 x .25}
+  PENQARC2{}
+  PENHOOKDN{}
+}
+
+rule PENd{
+  PENCIRCLE{}
+  PENXHT{x .5 y 1}
+  PEN3QXHT{x .5 y .25}
+  PENMIDHOOKDN{x 1}
+}
+
+rule PENe{
+  PENHALFXHT{x -.5 r 90}
+  PENSMALLQARC4{y .5 x .25}
+  PENSMALLQARC1{y .5 x .25}
+  PENQARC2{}
+  PENHOOKDN{}
+}
+
+rule PENf{
+  PENEXTUP{}
+  PENXHT{x -.5}
+  PENXHT{x -.5 y -1}
+  PENQARC{y 1 flip 0}
+  PENMIDHOOKDN{}
+}
+
+rule PENg{
+  PENCIRCLE{}
+  PENXHT{x .5}
+  PENEXTDN{}
+  PENQARC4{x .5}
+}
+
+rule PENh{
+  PENEXTUP{}
+  PENXHT{x -.5}
+  PENQARC2{}
+  PENQARC1{}
+  PENQXHT{x .5 y .25}
+  PENMIDHOOKDN{x 1}
+}
+
+rule PENi{
+  PENHALFXHT{x -.5 y .5}
+  PENHOOKDN{}
+
+  PENELEM{x -.5 y 1}
+}
+
+rule PENj{
+  PENXHT{x -.5}
+  PENEXTDN{x -1}
+  PENQARC4{x -.5}
+
+  PENELEM{x -.5 y 1}
+}
+
+rule PENk{
+  PENEXTUP{}
+  PENXHT{x -.5}
+  PENHALFXHT{x -.5 r 90}
+  PENSMALLQARC4{y .5 x .25}
+  PENSMALLQARC1{y .5 x .25}
+  PENQARC2{}
+  PENSMALLQARC1{x -.25}
+  PENMIDHOOKDN{x .25}  
+}
+
+rule PENl{
+  PENEXTUP{}
+  PENHALFXHT{x -.5 y .5}
+  PENHOOKDN{}
+}
+
+rule PENm{
+  PENXHT{x -.5}
+  PENSMALLHOOKUP{y .5}
+  PEN3QXHT{}
+  PENSMALLHOOKUP{x .5 y .5}
+  PENHALFXHT{x .5 y .25}
+  PENMIDHOOKDN{x 1}
+}
+
+rule PENn{
+  PENXHT{x -.5}
+  PENQARC2{}
+  PENQARC1{}
+  PENQXHT{x .5 y .25}
+  PENMIDHOOKDN{x 1}
+}
+
+rule PENo{
+  PENCIRCLE{}
+  PENMIDHOOKDN{x .5 y .25 flip 90}
+}
+
+rule PENp{
+  PENXHT{x -.5}
+  PENXHT{x -.5 y -1}
+  PENQARC2{}
+  PENQARC1{}
+  PENQXHT{x .5 y .25}
+  PENMIDHOOKDN{x 1}
+}
+
+rule PENq{
+  PENCIRCLE{}
+  PENXHT{x .5}
+  PENXHT{x .5 y -1}
+  PENSMALLQARC2{y -.25 x 1}
+  PENSMALLQARC4{y .25 x 1}
+}
+
+rule PENr{
+  PENQARC2{}
+  PENSMALLQARC1{x .25 y .5}
+  PENXHT{x .25}
+  PENMIDHOOKDN{x .5 y .25 flip 90}
+}
+
+rule PENs{
+  PENHALFXHT{x -.5 y .5}
+  PENSMALLQARC3{y .75}
+  PENQARC1{x -.25 y -.25}
+  PENSMALLQARC3{x .25}
+  PENSMALLQARC4{x .25}
+}
+
+rule PENt{
+  PEN3QXHT{x -.5 y 1}
+  PEN3QXHT{x -.5 y .25}
+  PENMIDHOOKDN{}
+
+  PEN3QXHT{r 90 x -.5 y .5}
+}
+
+rule PENu{
+  PENHALFXHT{x -.5 y .5}
+  PENHOOKDN{}
+  PEN3QXHT{x .5 y .25}
+  PENMIDHOOKDN{x 1}
+}
+
+rule PENv{
+  PENHALFXHT{x -.5 y .5}
+  PENHOOKDN{}
+  PENHALFXHT{x .5 y .5}
+  PENMIDHOOKDN{x .75 y .25 flip 90}
+}
+
+rule PENw{
+  PEN3QXHT{x -.5 y .25}
+  PENSMALLHOOKDN{}
+  PEN3QXHT{y .25}
+  PENSMALLHOOKDN{x .5}
+  PEN3QXHT{x .5 y .25}
+  PENMIDHOOKDN{x .75 y .25 flip 90}
+}
+
+rule PENx{
+  PENQARC2{}
+  PENSMALLQARC1{x .25 y .5}
+  PENHALFXHT{x .25 y .25}
+  PENMIDHOOKDN{x .75}
+  PENSMALLHOOKUP{x .75 y .5}
+  PENSMALLHOOKDN{x .25}
+}
+
+rule PENy{
+  PENHALFXHT{x -.5 y .5}
+  PENHOOKDN{}
+  PENXHT{x .5}
+  PENEXTDN{}
+  PENQARC4{x .5}
+}
+
+rule PENz{
+  PENQARC2{}
+  PEN3QXHT{r 90 x .25 y .5}
+  PENQARC4{x .25 y .5}
+  PENQARC2{x .25 y -.5}
+  PEN3QXHT{r 90 y -.5}
+  PENQARC4{x .5}
+}

data/lib/image_paradise/cfdg/seahorse.cfdg

@@ -0,0 +1,78 @@
+# seahorse.cfdg
+
+startshape FIELD
+
+background {b -1}
+
+rule FIELD {
+  TRAIL1 {b 1 r 45 hue 15 sat .6}
+  TRAIL1 {r 225 b 1 hue 15 sat .6}
+}
+
+rule TRAIL1 {
+  CIRCLE {}
+  TRAIL1 {r 5 x 2 s 0.99 b 0.01}
+}
+
+rule TRAIL1 0.1 {
+  CIRCLE {}
+  TRAIL1{}
+  TRAIL2 {}
+}
+
+
+rule TRAIL2 {
+  CIRCLE {}
+  TRAIL2 {r -2 x 2 s 0.99  b 0.01}
+}
+
+rule TRAIL2 0.01 {
+  CIRCLE {}
+  TRAIL1 { b 0.01 h 1}
+}
+
+rule TRAIL2 0.01 {
+  CIRCLE {}
+  TRAIL3 { b 0.01}
+}
+
+rule TRAIL2 0.01 {
+  CIRCLE {}
+  TRAIL4 { b 0.01 h 2}
+}
+
+rule TRAIL2 0.01 {
+  CIRCLE {}
+  TRAIL5 { b 0.01 h 2}
+}
+
+rule TRAIL3 {
+  CIRCLE {}
+  TRAIL3 {r -6 x 2 s 0.995  b 0.01}
+}
+
+rule TRAIL3 0.01 {
+  CIRCLE {}
+  TRAIL1 { b 0.01}
+  TRAIL3 {h 2}
+}
+
+rule TRAIL4 {
+  CIRCLE {}
+  TRAIL4 {r -5 x 2 s 0.992  b 0.01}
+}
+
+rule TRAIL4 0.01 {
+  CIRCLE {}
+  TRAIL1 { b 0.01 h 2}
+}
+
+rule TRAIL5 {
+  CIRCLE {}
+  TRAIL4 {r 1.7 x 2 s 0.992  b 0.01}
+}
+
+rule TRAIL5 0.01 {
+  CIRCLE {}
+  TRAIL2 { b 0.01 h 2}
+}

data/lib/image_paradise/cfdg/seasons.cfdg

@@ -0,0 +1,115 @@
+# rfree seasons.cfdg
+
+background {b -.8 hue 230 sat .7}
+
+startshape SEASONS
+ 
+rule SEASONS {
+  SKY {y 2 b 1 hue 180 z -100 sat .1}
+  TRUNK {x 30 hue 30  alpha -.5 flip 90}
+  TRUNK {x -30 hue 90 alpha -.5}
+}
+
+rule SKY {
+  80* {y 1 hue .6 sat .01} SQUARE {s 100 1.1}
+}
+
+rule TRUNK 50 {
+  BARK {}
+  TRUNK {y .2 r .1}
+}
+
+rule TRUNK {
+  2* {flip 90} LIMB {r -12 s .9}
+}
+
+rule LIMB 50 {
+  BARK {}
+  LIMB {y .2 r .1}
+}
+rule LIMB {
+  2* {flip 90} BRANCH {r 8 s .9}
+}
+ 
+rule BRANCH 10 {
+  BARK {}
+  BRANCH {y .2 hue -2 r .1}
+}
+
+rule BRANCH 10 {
+  BARK {}
+  BRANCH {y .2 r .1 hue 2}
+}
+
+rule BRANCH 10 {
+  BARK {}
+  BRANCH {y .2 r .1 z 1}
+}
+
+rule BRANCH 10 {
+  BARK {}
+  BRANCH {y .2 r .1 z -1}
+}
+
+rule BRANCH {
+  2* {flip 90 hue 30} BOUGH {r 10 s .7}
+}
+ 
+rule BOUGH {
+  LEAVES {}
+  TWIG {z -1}	
+}
+ 
+rule TWIG 200 {
+  BARK {}
+  TWIG {y .2 r .1 s .999 a -.001}
+}
+
+rule TWIG {
+  TWIG {r 12 s .8}
+  TWIG {r -12 s .8 f 90}
+}
+
+rule TWIG {
+  TWIG {r 8 s .9}
+  TWIG {r -18 s .7 f 90}
+}
+
+rule TWIG {
+  TWIG {r 25 s .6}
+  TWIG {r -5 s .95 f 90}
+}
+
+rule LEAVES {
+  60* {r .2} LEAF {y 30 r -180 sat 1 b .6 s 4 hue -10}
+  100* {r .2} LEAF {y 50 r -180 sat 1 b .8 s 4 hue -10}
+  60* {r .2} LEAF {y 70 r -180 sat 1 b 1 s 4 hue 10}
+}
+
+rule LEAF 3 {
+  LEAF {x 1 hue 1 b -.05 z -1 s .99}
+}
+
+rule LEAF 4 {
+  LEAF {r 138 sat -.03 z 1}
+}
+
+rule LEAF {
+  SQUARE {skew 20 20 hue -10}
+  SQUARE {skew 30 30 sat .1}
+  SQUARE {skew 40 40 hue 10 sat .2}
+  SQUARE {skew 20 20 b -1 s 1.5 z -.1 alpha -.8}
+  SQUARE {skew 20 20 b -1 s 2.2 z -.1 alpha -.9}
+}
+
+rule BARK {
+  CIRCLE {a -.7 s 2}
+  CIRCLE {a -.7 s 1.5 b .3 z .1 x .3}
+  CIRCLE {a -.7 s 1 b .6 z .2 x .6}
+  CIRCLE {a -.7 s .5 b .9 z .3 x .9}
+}
+
+rule BARK 3 {
+  CIRCLE {a -.6 s 2}
+  CIRCLE {a -.6 s 1.5 b .3 z .1 x .3}
+}

data/lib/image_paradise/cfdg/segmental_veins.cfdg

@@ -0,0 +1,66 @@
+# Was called 'segmental2.cfdg'
+startshape begining
+background {  hue 66.1 sat 0.7 b 0.6 }
+
+
+rule begining{
+  10*{r 36}ag1{ hue 1.2 sat 0.9 b 0.8 a -0.7 z 2}
+  10*{r 36}ag1{s 0.7 a -0.95}
+  10*{r 36}ag1{s 0.7 a -0.97}
+  10*{r 36}ag1{s 0.7 a -0.99}
+  10*{r 36}ag1{ s 0.2 hue 51.3 sat 0.9 b 1.0 z 100 a -0.5}
+  #  10*{r 36}ag1{s 0.7  hue 230.8 sat 1.0 b 0.6  z 1 a -0.9}
+}
+
+
+rule ag1 0.001{
+    10*{r 36}ag1{}
+}
+
+rule ag1{
+  SQUARE{}
+  hajtasl{r -90}
+  hajtasr{r 90}
+  ag1{y 0.9 r 2 s 0.95 a -0.01}
+}
+
+rule ag1 0.3{
+  SQUARE{}
+  hajtasl{r -90}
+  hajtasr{r 90}
+  ag1{y 0.9 r 2 s 1.1}
+}
+
+rule ag1 0.1{
+  ag1{f -90}
+}
+
+rule hajtasl{
+  SQUARE{}
+  hajtasl{y 0.9 r -5 s 0.9 a -0.3}
+}
+
+rule hajtasr{
+  SQUARE{}
+  hajtasr{y 0.9 r 5 s 0.95 a -0.2}
+}
+
+rule hajtasl{
+  SQUARE{}
+  hajtasl{y 0.9 r -10 s 0.95 a -0.2}
+}
+
+rule hajtasr{
+  SQUARE{}
+  hajtasr{y 0.9 r 10 s 0.98 a -0.3}
+}
+
+rule ag1 0.01{
+  ag1{}
+  ag1{r 90}
+}
+
+rule ag1 0.01{
+  ag1{}
+  ag1{r -90}
+}

data/lib/image_paradise/cfdg/select_mayhem.cfdg

@@ -0,0 +1,28 @@
+CF::MinimumSize = 8
+
+thick = 0.9
+
+startshape big
+
+shape beam{
+  loop 4 [[ s thick b select(randint(3),0,1,0.5)]]SQUARE[]
+}
+
+shape big
+{
+  loop 5  [y select(randint(3),1, 1.1, 1.2)]big_x[s  select(randint(3),1, 1.3, 1.15) select(randint(3),1, 1.35, 1.15)]
+}
+
+shape big_x
+{
+  loop  4 [x  select(randint(3),1, 1.2,1.1)] frac[s  select(randint(3),1, 1.35, 1.15) select(randint(3),1, 1.3, 1.15)]
+}
+
+shape frac
+rule {
+  beam[]
+  frac[ x select(randint(2),-0.25,0.25) y -0.25  s
+select(randint(3),-0.45,0.5,0.55) r select(randint(3),0,90,2) ]
+  frac[ x (0.25*thick) y (select(randint(2),-0.25,0.25)*thick)  s
+select(randint(3),-0.45,0.5,0.55)  r select(randint(3),0,90,88) ]
+}

data/lib/image_paradise/cfdg/seven_folded_symmetry.cfdg

@@ -0,0 +1,7 @@
+startshape S
+
+rule S {
+	CIRCLE { sat 1 b 1}
+	S {x 1 r 51.42 s 0.99 h 51.42}
+}
+