image_paradise 0.4.8

data/lib/image_paradise/cfdg/cartoony_face_arrays.cfdg

@@ -0,0 +1,137 @@
+# === cartoony_face_arrays.cfdg
+#
+# Some simple cartoony faces. There are 7 possible eye-pairs
+# 5 noses and 3 mouths. Inspired by a number of works I've
+# seen here.
+
+startshape START
+ 
+rule START {
+  ranface {}
+  ranface { x 4 }
+  ranface { x 8 }
+  ranface { y -3.3 }
+  ranface { x 4 y -3.3 }
+  ranface { x 8 y -3.3 }
+  ranface { y -6.6 }
+  ranface { x 4 y -6.6 }
+  ranface { x 8 y -6.6 }
+}
+ 
+rule ranface {
+  eyes {}
+  nose { y -1 x .74 z -1 }
+  mouth { y -1.4 x .74 }
+}
+ 
+rule nose .22 {
+  # pointy  long
+  TRIANGLE { z 1 r 180 s .9 1.1 }
+  TRIANGLE { b 1 z 1 r 180 s .9 1.1 y .1 }
+}
+rule nose {
+  # wide
+  CIRCLE {}
+  SQUARE { b 1 s 1.1 .2 }
+  CIRCLE { s .3 x .48 y .1 }
+  CIRCLE { b 1 s .3 x .48 y .05 }
+  CIRCLE { s .3 x -.48 y .1 }
+  CIRCLE { b 1 s .3 x -.48 y .05 }
+  CIRCLE { b 1 y -.1 }
+  SQUARE { b 1 x .58 s .2 y .05 }
+  SQUARE { b 1 x -.58 s .2 y .05 }
+}
+rule nose {
+  # cute
+  CIRCLE {}
+  CIRCLE { b 1 y -.1 }
+  SQUARE { b 1 s 1.1 .2 }
+}
+rule nose {
+  # cute+holes
+  CIRCLE {}
+  CIRCLE { b 1 y -.1 }
+  SQUARE { b 1 s 1.1 .2 }
+  CIRCLE { s .1 .15 y .17 x .2 }
+  CIRCLE { s .1 .15 y .17 x -.2 }
+}
+rule nose {
+  # morel's dad
+  CIRCLE { s .8 1 y .4 z -1 }
+  CIRCLE { b 1 y .5 s .9 1 z -1 }
+}
+ 
+rule mouth {
+  CIRCLE { s 1.5 .5 }
+  CIRCLE { b 1 s 1.2 1 y -.5 }
+}
+rule mouth {
+  # closedsmile
+  CIRCLE { s 1.5 .5 }
+  CIRCLE { b 1 y .1 s 1.5 .4 }
+}
+rule mouth {
+  # teethsmile1
+  CIRCLE { z -2 s 1.6 1 }
+  CIRCLE { z -2 b 1 s 1.5 .9 }
+  SQUARE { b 1 z -2 y .25 s 2 .5 }
+  SQUARE { s 1.55 .05 y -.028}
+}
+ 
+rule eyes {
+  eye_disg {}
+  eye_disg { x 1.5 r 180 flip 180 }
+}
+rule eyes .15 {
+  eye_disg {}
+  eye_wide { x 1.5 r 180 flip 180 }
+}
+rule eyes .15 {
+  eye_wide {}
+  eye_disg { x 1.5 r 180 flip 180 }
+}
+rule eyes .6 {
+  eye_wide {}
+  eye_wide { x 1.5 r 180 flip 180 }
+}
+rule eyes {
+  eye_sarc {}
+  eye_sarc { x 1.5 r 180 flip 180 }
+}
+rule eyes .15 {
+  eye_sarc {}
+  eye_wide { x 1.5 r 180 flip 180 }
+}
+rule eyes .15 {
+  eye_wide {}
+  eye_sarc { x 1.5 r 180 flip 180 }
+}
+ 
+rule eye_wide {
+  # wide open
+  CIRCLE {}
+  CIRCLE { b 1 s .9 }
+  CIRCLE { s .4 }
+}
+ 
+rule eye_sarc {
+  # sarcastic  lined
+  CIRCLE {}
+  CIRCLE { y -.1 z -1 x -.05 }
+  CIRCLE { b 1 s .9 y -.1 z -1 x -.05 }
+  SQUARE { b 1 z -1 x -.45 y -.2 }
+  CIRCLE { b 1 s .9 }
+  SQUARE { s .9 .1 y .1 }
+  SQUARE {  b 1 s 1 .4 y .35 }
+  CIRCLE { s .4 y -.07 x .05 }
+}
+ 
+rule eye_disg {
+  # disgusted  scarred
+  CIRCLE {}
+  CIRCLE { b 1 s .9 }
+  CIRCLE { s .4 y .07 x .02 }
+  CIRCLE { s .9 .4 y -.18 }
+  CIRCLE { b 1 s 1 .4 y -.27 }
+  SQUARE { b 1 s .8 .3 y -.35 }
+}

data/lib/image_paradise/cfdg/centerfold.cfdg

@@ -0,0 +1,12 @@
+# A serious case of writer's block.
+#
+# URL: http://www.contextfreeart.org/gallery/view.php?id=3733
+
+CF::Size=[y -0.035 s 1.5 1.125]
+CF::Background=[b -1]
+startshape Centerfold [r 45 sat .1 b 1]
+shape      Centerfold {
+  loop i= -0.01, 0.01, 0.001 [x -.05 y -.05]
+  loop 50 [trans i 0 .95 .05 1 1 h 5 b -.05]
+  loop  2 [f 45] CIRCLE[x 1 s .055 h 55] 
+}

data/lib/image_paradise/cfdg/chain_link_fence.cfdg

@@ -0,0 +1,31 @@
+# =========================================================================== #
+# Taken from:
+#
+#   https://www.contextfreeart.org/gallery/view.php?id=4224
+#
+# 06.04.2021
+# =========================================================================== #
+startshape fence
+
+CF::Background = [ b -1 ]
+
+CF::Tile = [ s (26*4) ]
+
+shape box {
+  SQUARE [ s 10 1.5 y 9.5 z 1 ]           // Top L
+  SQUARE [ s 10 1.5 x 10 y 9.5 z 2 ]      // Top R
+  SQUARE [ s 1.5 10 x 14.5 y 5.25 z 1 ]   // Right T
+  SQUARE [ s 1.5 10 x 14.5 y -4.75 z 2 ]  // Right B
+  SQUARE [ s 10 1.5 x 10.25 y -9 z 1 ]    // Bottom R
+  SQUARE [ s 10 1.5 x 0.25 y -9 z 2 ]     // Bottom L
+  SQUARE [ s 1.5 10 x -4.25 y -4.75 z 1 ] // Left B
+  SQUARE [ s 1.5 10 x -4.25 y 5.25 z 2 ]  // Left T
+}
+
+shape fence {
+  loop 4 [ y 26 h 25 ]
+  loop 4 [ x 26 h 90 ] {
+    box [ h 0 sat (0.5 + rand(0.5)) b (0.75 + rand(0.25)) ]
+    box [ h 180 sat (0.5 + rand(0.5)) b (0.75 + rand(0.25)) x 13 y 13 ]
+  }
+}

data/lib/image_paradise/cfdg/chanukah.cfdg

@@ -0,0 +1,109 @@
+startshape Menorah
+
+rule Menorah {
+	Base { }
+	Star { y 1 b 0.65 }
+	Candles { y 10.25 }
+}
+
+rule Base {
+	Trunk { }
+	ArmL1 { y 3 r 90 }
+	ArmR1 { y 3 r -90 }
+	ArmL2 { y 4 r 85 }
+	ArmR2 { y 4 r -85 }
+	ArmL3 { y 5.5 r 80 }
+	ArmR3 { y 5.5 r -80 }
+	ArmL4 { y 7.5 r 75 }
+	ArmR4 { y 7.5 r -75 }
+}
+rule Trunk {
+	SQUARE { }
+	Trunk { y 0.4 s 0.97 }
+}
+rule ArmL1 {
+	CIRCLE { }
+	ArmL1 { r -1 y 0.4 s 0.975 }
+}
+rule ArmR1 {
+	CIRCLE { }
+	ArmR1 { r 1 y 0.4 s 0.975 }
+}
+rule ArmL2 {
+	CIRCLE { }
+	ArmL2 { r -1 y 0.3 s 0.975 }
+}
+rule ArmR2 {
+	CIRCLE { }
+	ArmR2 { r 1 y 0.3 s 0.975 }
+}
+rule ArmL3 {
+	CIRCLE { }
+	ArmL3 { r -1 y 0.2 s 0.975 }
+}
+rule ArmR3 {
+	CIRCLE { }
+	ArmR3 { r 1 y 0.2 s 0.975 }
+}
+rule ArmL4 {
+	CIRCLE { }
+	ArmL4 { r -1 y 0.1 s 0.975 }
+}
+rule ArmR4 {
+	CIRCLE { }
+	ArmR4 { r 1 y 0.1 s 0.975 }
+}
+
+rule Candles {
+	Candle { x -11.4 s 0.5 }
+	Candle { x 11.4 s 0.5 }
+	Candle { x -8.0 s 0.5 }
+	Candle { x 8.0 s 0.5 }
+	Candle { x -5.0 s 0.5 }
+	Candle { x 5.0 s 0.5 }
+	Candle { x -2.2 s 0.5 }
+	Candle { x 2.2 s 0.5 }
+	Candle { y 2 s 0.5 }
+}
+rule Candle {
+	Flat { x -2 y -0.45 s 0.2 }
+	SQUARE { y 0 }
+	SQUARE { y 0.7 }
+	SQUARE { y 1.4 }
+	SQUARE { y 2.1 }
+	SQUARE { y 2.8 }
+	SQUARE { y 3.5 }
+	SQUARE { y 4 }
+	Flame { y 5.1 b 0.3 }
+	Ray { y 5.6 s 0.5 b 0.5 }
+}
+rule Flat {
+	SQUARE { }
+	Flat { x 0.8 s 0.965 }
+}
+rule Flame {
+	CIRCLE { }
+	Flame { y 0.15 s 0.9 b 0.1 r 2 }
+}
+
+rule Star {
+	Arm { r 0 }
+	Arm { r 60 }
+	Arm { r 120 }
+	Arm { r -60 }
+	Arm { r -120 }
+	Arm { r 180 }
+}
+rule Arm {
+	CIRCLE { }
+	Arm { y 0.1 s 0.9 }
+}
+rule Ray {
+	Line { y 8 s 0.2 }
+	Ray { r -36 s 0.97 }
+}
+rule Line {
+	SQUARE { }
+	Line { y 0.8 s 0.9 }
+}
+

data/lib/image_paradise/cfdg/chaos_red_sun.cfdg

@@ -0,0 +1,42 @@
+# ===================================================== #
+# rconfreegui $CFDG/chaos_red_sun.cfdg
+# ===================================================== #
+
+background { b -0.951 hue 0 sat 0.1}
+startshape START
+
+rule START {
+  SCENE { b 0.01 hue 0 sat 0.8 }
+}
+
+rule SCENE {
+  CURVE { }
+  START { s 0.995 r 20 b 0.01 hue 0.1 sat 0.8}
+}
+
+rule CURVE {
+  SQUARE { }
+  CURVE { y 1 s 0.997 r 5 }
+}
+
+rule CURVE 0.007 {
+  CIRCLE { s 3.5 b 0.49}
+  CURVE { y 1 s 0.99 r 10 }
+}
+
+rule CURVE 0.003 {
+  FLOWER { }
+  SQUARE { }
+  CURVE { y 1 s 0.49 r -40 skew 14 0 }
+}
+
+rule CURVE 0.01 {
+  FLOWER { }
+  SQUARE { }
+  CURVE { y 1 s 0.99 r -40 skew 10 0 }
+}
+
+rule FLOWER {
+  TRIANGLE { s 15 1 r 45 }
+  FLOWER { s 0.9 r 45 }
+}

data/lib/image_paradise/cfdg/chaotic_farn.cfdg

@@ -0,0 +1,76 @@
+# ============================================================ #
+# chaotic farn.
+# Combines some cfdgs. Would be nice if someone can make the
+# "body" thicker and the "tentacles" longer and more winded
+# :-)
+# ============================================================ #
+
+startshape START
+
+background { b -0.96 }
+
+rule START {
+	NODE { hue 50 sat 0.9 b 0.3 }
+	NODE { hue 50 sat 0.8 b 0.3 r 97 }
+	NODE { hue 50 sat 0.85 b 0.3 r 150}
+}
+
+rule NODE {
+	STAR { skew 0 20 }
+	NODE { x 1 y 2 s 0.9  r 20 hue 1.5 skew 5 0 alpha -0.05}
+}
+
+
+rule NODE 0.5{ NODE { flip 90 }}
+
+rule NODE 0.05 { 
+	NODE { r 45 s 0.85  alpha -0.1}
+	NODE { r -45 s 0.85 alpha -0.12}
+}
+
+
+rule STAR {
+	SHAPE { }
+	SHAPE { flip 180 alpha -0.3}
+	SHAPE { r 90 alpha -0.4}
+	SHAPE { r -90 alpha -0.2}
+	STAR { s 0.85 x 1.2  y 1 b 0.57  alpha -0.097 r 7 hue 3}
+}
+
+# way smaller
+rule STAR 0.04{
+	SHAPE { }
+	SHAPE { flip 180 alpha -0.3}
+	STAR { s 0.15 x 1.1  y 1 b 0.67  alpha -0.097 r 7 hue 13}
+}
+
+
+rule SHAPE {
+	CIRCLE   { x 1  hue 55 }
+	TRIANGLE { s 0.09 5  x 2 r 92  sat 0.995  }
+	CIRCLE   { s 0.5 x 2 y 2 }
+	CIRCLE   { s 0.4 x 0.5 y 0.5 alpha 1 b 0.88 hue 0}
+}
+
+rule SHAPE 0.2 {SHAPE { skew 5 2 }}
+rule SHAPE 0.2 {
+  SHAPE { skew 3 7}
+  LONG_LINE {}
+}
+
+rule LONG_LINE {
+  CIRCLE { hue 200 sat 1 b .6 }
+  LONG_LINE { x 0 y .2 s .498 r 5 }
+}
+
+
+rule LONG_LINE .14 {
+  CIRCLE { hue 200  sat 1  b .3 }
+  LONG_LINE {x 0 y .4 s .993 r -3  hue 311 }
+}
+
+rule LONG_LINE .02 {
+  CIRCLE { s 4 hue 220 a -.3 b 1 z 100}
+  CIRCLE { s 2 sat 1 b 1 z 100 a -.2}
+  LONG_LINE {x 0 y .5 s .993 r 15  z 10}
+}

data/lib/image_paradise/cfdg/chaotic_fractal_shell.cfdg

@@ -0,0 +1,41 @@
+startshape TWISTA
+background {hue 196 saturation 1 b -.89}
+rule TWISTA {
+  TWIST {}
+  TWISTA  {r  33 s .9 hue -3 b .15}
+  TWISTA  {y  24 r -28 s .3 hue 17 b .15}
+  TWISTA  {y -24 r -28 s .3 hue -13 b .15}
+}
+rule TWIST 0.01 {
+  TWIT {s 34.5 r 55 hue 5 b .55}  
+}
+rule TWIST 0.1 {
+  TWIT {s 14.5 r 45 hue 2 b .55}  
+}
+rule TWIST {
+  TWIT {s 5}
+  TWIT {s 4.5 r 45}  
+}
+
+rule TWIT {
+  BALL {}
+  BALL {y 1}
+  BALL {y -1}
+  BALL {y 2}
+  BALL {y -2}
+  BALL {y 3}
+  BALL {y -3}
+  TWIT {r 90 s .925 }
+}
+
+rule BALL .5{
+  CIRCLE {s .95 hue 120 saturation 1 b .2}
+}
+
+rule BALL .5{
+  CIRCLE {s .95 hue 145 saturation .75 b .2}
+}
+
+rule BALL {
+  CIRCLE {s .92 hue 170 saturation .75 b .2}
+}

data/lib/image_paradise/cfdg/charleston.cfdg

@@ -0,0 +1,182 @@
+# Two corpse brides dancing the charleston. Try all the variations 
+# and join the dance! Crrrazy! %D
+
+startshape couple
+
+background {hue 0 sat .75 b -.75}
+
+rule couple {
+  pelvis {b .8} //start up white skeleton with its pelvis 
+  pelvis {hue 120 sat 1 b .8 x 8 z 10} //start up green skeleton with its pelvis 
+}
+
+rule pelvis  36{
+  pelvis {r 1}
+}
+
+rule pelvis  36{
+  pelvis {r -1}
+}
+
+rule pelvis {
+  TRIANGLE{r 180 s 5 2}
+  TRIANGLE {r 180 s .35 2.2 y .125 z -1 b -.4} //pelvic vertebra
+  lumbar {y 1} //continue spine
+  thigh {x 1.6 y -.5} //left leg
+  thigh {x -1.6 y -.5 flip 90} //right leg
+}
+
+rule lumbar 5{
+  lumbar{r 6}
+}
+
+rule lumbar 5{
+  lumbar{r -6}
+}
+
+rule lumbar{
+  5*{y .4}CIRCLE{s .35}
+  thoracic{y 2}
+}
+
+rule thoracic 5{
+  thoracic{r 6}
+}
+
+rule thoracic 5{
+  thoracic{r -6}
+}
+
+rule thoracic{
+  12 * {y .4 s .9 1}vertebra{}
+  scapula{y 4.8 x .35 z -1} //left shoulder
+  CIRCLE{s 2 .3 y 4.8 x 1.2 z 1 b 1 r -15} //left clavicle
+  scapula{y 4.8 x -.35 z -1 flip 90} //right shoulder
+  CIRCLE{s 2 .3 y 4.8 x -1.2 z 1 b 1 r 15} //right clavicle
+  neck{y 5}
+}
+
+rule neck 5{
+  neck{r 6}
+}
+
+rule neck 5{
+  neck{r -6}
+}
+
+rule neck{
+  SQUARE{s .25 2 z -1 b -.4 y 1}
+  skull{y 2}
+}
+
+rule skull{
+CIRCLE{s 2 3}
+CIRCLE{s .7 x -.4 z 1 b -.6}
+CIRCLE{s .7 x .4 z 1 b -.6}
+}
+
+rule vertebra{
+  CIRCLE{s .35}
+  rib{x .4}
+  rib{x -.4 flip 90}
+}
+
+rule rib{
+  SQUARE{s .3}
+  rib{x .25 r 2 s .9}
+}
+
+rule scapula{
+  TRIANGLE{s 2 1.8 y -.8 x .6 r 165 b -.25}
+  arm{x 2 y -.5 r 30 z 5 b 1}
+}
+
+rule arm 10{
+  arm{r 9}
+}
+
+rule arm 10{
+  arm{r -9}
+}
+
+rule arm{
+  TRIANGLE{s .35 4.8 y -1.2 r 180}
+  TRIANGLE{s .35 4.8 y -3}
+  CIRCLE{y -4.6 s .35} //elbow
+  forearm{y -4.6 r -45}
+}
+
+rule forearm 5{
+forearm{r -18}
+}
+
+rule forearm{
+SQUARE{s .2 4.2 y -2.35} //ulna
+SQUARE{s .15 4.2 y -2.35 r 6 z -1 b -.4} //radius
+hand{y -4.7}
+}
+
+rule hand 10{
+hand{r 6}
+}
+
+rule hand 10{
+hand{r -6}
+}
+
+rule hand{
+CIRCLE{s .4}
+4*{r 15 s .85}finger{y -.4}
+finger{y -.4 s 1 .6 flip 90 r -45} //thumb
+}
+
+rule finger{
+SQUARE{s .15}
+finger{s .95 r -1 y -.15}
+}
+
+rule finger .1{
+SQUARE{s .15}
+finger{s .95 r -15 y -.15}
+}
+
+rule thigh 7{
+thigh{r 6}
+}
+
+rule thigh 5{
+thigh{r -6}
+}
+
+rule thigh{
+CIRCLE{s .6} //hip
+TRIANGLE{y -2.7 s .4 8 r 180}
+TRIANGLE{y -5 s .4 8}
+CIRCLE{s .6 y -7.7} //knee
+shin{y -7.7} //leg below the knee
+}
+
+rule shin 5{
+shin{r -6}
+}
+
+rule shin{
+  SQUARE{y -3.8 s .3 6.8} //tibia
+  SQUARE{y -3.8 s .25 6.8 r -6 z -1 b -.4} //fibula
+  CIRCLE{s .6 y -7.6}
+  foot{y -7.6}
+}
+
+rule foot{
+  5*{r 5 s .9}toe{x .6}
+}
+
+rule toe{
+  SQUARE{s .3}
+  toe{s .94 r -1 x .2}
+}
+
+rule toe .1{
+  SQUARE{s .3}
+  toe{s .94 r -10 x .2}
+}