image_paradise 0.4.8

data/lib/image_paradise/cfdg/angelfish.cfdg

@@ -0,0 +1,58 @@
+startshape spawn
+ 
+// background {b -.2}
+ 
+tile {s 2 x 1 y 1}
+ 
+// start in two directions
+rule spawn{
+  branch {}
+  branch {r 180 y 2}
+}
+
+rule branch{
+  stem{}
+  branch{r 2  s .995 b  .01 sat .1 h 1}
+}
+
+rule branch .04{
+  stem{}
+  branch{r 2  s .995 z-.01}
+  branch{r 2  s .995 f 0 y 2 h  -1 b -.05 z -.01}
+}
+
+rule branch .05{
+  branch{r 0 s .995 f 0 y 2 h -10 b -.05 sat -1}
+}
+
+// end blob
+rule branch .035 {
+  curve {s .1 y .8 x -.345 a -.25 b 1 r 90 sat 1 flip 180}
+  //  CIRCLE {s .35 b 1 y 1 a -.64}
+  //  CIRCLE {s .29 b 1 y 1 a -.64}
+  CIRCLE {s .12 b 1 y 1 a -.64}
+  CIRCLE {s .05 b -1 y 1 sat -1 h 0 a -.1 }
+  CIRCLE {s .075 y 1 a -.7 b -.5}
+  hoop {s .04 y 1.0285 x -.0285}
+}
+ 
+rule stem{
+  //  CIRCLE{s .025 y 1 a -.5}
+}
+ 
+path curve {
+  ARCTO {x 2 y 4 r -3}
+  ARCTO {x 4 y 0 r -3}
+  ARCTO {x 2 y 3 r 2.6}
+  ARCTO {x 0 y 0 r 2.6}
+  CLOSEPOLY {}
+  STROKE { b -1 a 1 }
+  FILL {}
+}
+ 
+// used to create black outside ring
+path hoop {
+  ARCTO {x +.00001 y +.00001 p large}
+  ARCTO {x -.00001 y -.00001}
+  STROKE {width .2}
+}

data/lib/image_paradise/cfdg/angry_yarn.cfdg

@@ -0,0 +1,82 @@
+#
+#  Interesting variations:
+#    BFH, STS                     - very overgrown
+#    ARE, STT, FRC, ZOV, ZPA, SPK - complete variations
+#    TAO, PRI, TOZ                - incomplete variations
+#    BLA, ARC, ZOU                - very small variations
+#
+
+background { b -0.95 sat 1 hue 180 }
+
+startshape HUB
+
+rule HUB
+{
+  HAIR{hue 60.0 y 25}
+  HUB{r 3}
+}
+
+rule HUB 0.006
+{
+}
+
+rule SEGMENT
+{
+  TRIANGLE{}
+  TRIANGLE{s 4.4 b 1.0 sat 1.0 alpha -0.7}
+  TRIANGLE{s 10.0 b 1.0 sat 1.0 alpha -0.8}
+}
+
+rule SEGMENT
+{
+  TRIANGLE{}
+  TRIANGLE{x -0.08 b 1.0 sat 1.0 s 4.3 alpha -0.7}
+  TRIANGLE{s 10.0 b 1.0 sat 1.0 alpha -0.8}
+}
+
+rule SEGMENT
+{
+  TRIANGLE{}
+  TRIANGLE{x 0.04 b 1.0 sat 1.0 s 4.2 alpha -0.7}
+  TRIANGLE{s 10.0 b 1.0 sat 1.0 alpha -0.8}
+}
+
+rule HAIR
+{
+  SEGMENT{s 1 10}
+  HAIR_R{s 0.99 y 5 r 4 alpha -0.03 hue -1.8}
+}
+
+rule HAIR
+{
+  SEGMENT{s 1 10}
+  HAIR_L{s 0.99 y 5 r -4 alpha -0.03 hue -1.8}
+}
+
+rule HAIR 
+{
+  SEGMENT{s 1 10}
+  HAIR{s 0.99 y 5 alpha -0.03 hue -1.8}
+}
+
+rule HAIR_R
+{
+  SEGMENT{s 1 10}
+  HAIR_R{s 0.99 y 5 r 4 alpha -0.03 hue -1.8}  
+}
+
+rule HAIR_R 0.05
+{
+  HAIR{}
+}
+
+rule HAIR_L
+{
+  SEGMENT{s 1 10}
+  HAIR_L{s 0.99 y 5 r -4 alpha -0.03 hue -1.8}  
+}
+
+rule HAIR_L 0.05
+{
+  HAIR{}
+}

data/lib/image_paradise/cfdg/apple_tree_small.cfdg

@@ -0,0 +1,46 @@
+CF::Size=[s 7 5.25 y -1.5] //(800*600)
+CF::Background=[b -0.9]
+CF::Size=0.1
+CF::Impure=1
+S=sqrt(0.5) // Deflation
+W=(0,0,0,1) // Worldstate (x y r s)
+ 
+startshape TREE(W)
+ 
+shape TREE(vector4 W)
+{ DSQUARE(W)[sat 1 b (1-W[3]/2)]
+  if (W[3]>0.001) transform[z 1]
+  { TREE(WA(W,(-.5, 1, 45, S)))[h 8]
+    TREE(WA(W,( .5, 1,-45, S)))[h 2]
+} }
+ 
+path DSQUARE(vector4 W)
+{ MOVETO(Distort(W,( .5, .5)))
+  LINETO(Distort(W,(-.5, .5)))
+  LINETO(Distort(W,(-.5,-.5)))
+  LINETO(Distort(W,( .5,-.5)))
+  CLOSEPOLY() FILL[a -.1]
+  STROKE(W[3]/25,CF::RoundJoin)[h 60]
+}
+ 
+// The Position of your Worldstate
+//-----------------------------------
+vector2 WP(vector4 W,vector2 P)
+=let(Xw=W[0];Yw=W[1];Rw=W[2];Sw=W[3]
+    ;Xp=P[0];Yp=P[1]
+    ;(Sw*(cos(Rw)*Xp-sin(Rw)*Yp)+Xw
+     ,Sw*(sin(Rw)*Xp+cos(Rw)*Yp)+Yw
+    ))
+ 
+// Adjustment (x y r s) of Worldstate
+//-----------------------------------
+vector4 WA(vector4 W,vector4 A)
+=(WP(W,A[0,2]),W[2]+A[2],W[3]*A[3])
+ 
+// Wavelike distortion
+//-----------------------------------
+vector2 Distort(vector4 W,vector2 P)
+=let(xy=WP(W,P);X=xy[0];Y=xy[1]
+    ;(X+.08*sin(540*(2*X+Y))
+     ,Y+.04*sin(720*(X-2*Y))
+    ))

data/lib/image_paradise/cfdg/aqua_star.cfdg

@@ -0,0 +1,27 @@
+startshape aqua_star
+background { b -1 }
+rule aqua_star {
+  anemone { hue 196.0 sat 0.8324 b 1.0000 }
+}
+
+rule anemone {
+  tentacle { }
+  anemone { x 10 r -11 s .995 b -.002 }
+}
+
+rule tentacle {
+  CIRCLE { }
+  tentacle { y .23  s .99 b .002 }
+}
+
+rule tentacle {
+  CIRCLE { }
+  tentacle { y .17  r 2 s .99 b .002 }
+}
+
+rule tentacle {
+  CIRCLE { }
+  tentacle { y .12  r -2 s .99 b .001 }
+}
+
+      

data/lib/image_paradise/cfdg/army_explosion.cfdg

@@ -0,0 +1,25 @@
+# From:
+#   https://www.contextfreeart.org/gallery2/#design/3899
+
+startshape BOXER
+
+rule BOXER {
+  200*{ r 30 skew 2 2 }
+  SQUARE { x 5 h 1.26 sat 1.0000 b 0.3646 }
+  200* { r 25 skew 6 6 }
+  SQUARE { x 5 h 66.57 sat 0.7266 b 0.3646 }
+  400* { r 30 skew 9 9 }
+  SQUARE { x 5 skew 3 4 }
+  400* { r 25 skew 12 12 }
+  SQUARE { x 5 h 39.59 sat 0.7497 b 0.4641}
+  10* { r 25 skew 3 3  }
+  SQUARE { h 7.25 sat 1.0000 b 0.8398 }
+  200* { r 25 skew 6 6 }
+  SQUARE { x 5 h 66.57 sat 0.7266 b 0.3646 }
+  400* { r 30 skew 9 9 }
+  SQUARE { x 5 skew 3 4 }
+  200*{ r 30 skew 2 2 }
+  SQUARE { x 5 h 1.26 sat 1.0000 b 0.3646 }
+  400* { r 25 skew 6 6}
+  SQUARE { x 5 h 66.57 sat 0.7266 b 0.3646 }
+}

data/lib/image_paradise/cfdg/arrows_in_quadcity.cfdg

@@ -0,0 +1,143 @@
+# arrows_in_quadcity.cfdg
+startshape quad4
+
+background {hue 280 saturation 1 b -.89}
+
+rule quad4 {
+  quad {}
+  quad {x 2}
+  quad {x 2 y 2}
+  quad {y 2}
+}
+
+rule quad {
+  boq { x -0.5 y 0.5 }
+  boq { x 0.5 y 0.5 }
+  boq { x -0.5 y -0.5 }
+  boq { x 0.5 y -0.5 }
+}
+
+rule boq 2 {
+  rBox { }
+  corners { }
+}
+rule boq 1 { quad { s 0.5 } }
+
+rule corners {
+  corner { x -0.425 y -0.425 s 0.147 r 90}
+  corner { x 0.425 y -0.425 s 0.147 r 180 }
+  corner { x -0.425 y 0.425 s 0.147 r 0 }
+  corner { x 0.425 y 0.425 s 0.147 r -90 }
+}
+
+rule corner {
+  boq { s 1.005}
+  cFill { x 0.8 y 0.21 s 0.59 }
+  dFill { y -0.8 x -0.21 s 0.59 r -90 }
+}
+
+rule cFill {
+boq { }
+// corner { x -0.31 y -0.653 s 0.33 }
+cFill { x 0.8 y 0.208 s 0.59 }
+}
+
+rule dFill {
+boq { }
+// corner { y 0.66 x -0.333 s 0.33 r 90 }
+dFill { x 0.8 y -0.208 s 0.59 }
+}
+
+rule rBox { box { r 0 } }
+rule rBox { box { r 90 } }
+rule rBox { box { r 180 } }
+rule rBox { box {r -90 } }
+
+rule box {
+  signoutline { }
+}
+rule signoutline 8 {
+  polygon11sided { s 0.99 }
+  polygon6sided { s 0.85 b 0.95 x 0.01 }
+  arrow { x -0.3 s 0.17}
+}
+rule signoutline 8 {
+polygon11sided { s 0.99 }
+polygon7sided { s 0.85 b 0.85 x 0.01 }
+arrow { x -0.3 s 0.17}
+}
+rule signoutline 8 {
+polygon11sided { s 0.99 }
+polygon8sided { s 0.85 b 0.65 x 0.01 }
+arrow { x -0.3 s 0.17}
+}
+rule arrow {
+SQUARE { s 0.5 }
+SQUARE { s 0.5 x 0.5 }
+SQUARE { s 0.5 x 1.0 }
+SQUARE { s 0.5 x 1.5 }
+SQUARE { s 0.5 x 2.0 }
+SQUARE { s 0.5 x 2.5 }
+triangle { x 3 }
+}
+
+rule triangle {
+triArm { r 0 }
+triArm { r 120 }
+triArm { r -120 }
+}
+
+rule triArm {
+CIRCLE { }
+triArm { x 0.1 s 0.9 }
+}
+
+
+rule polygon6sided {
+SQUARE {size 0.5 x 0.183013 y 0 rotate 0}
+SQUARE {size 0.5 x 0.0915063 y 0.158494 rotate 60}
+SQUARE {size 0.5 x -0.0915064 y 0.158494 rotate 120}
+SQUARE {size 0.5 x -0.183013 y 0 rotate 180}
+SQUARE {size 0.5 x -0.0915063 y -0.158494 rotate 240}
+SQUARE {size 0.5 x 0.0915064 y -0.158494 rotate 300}
+CIRCLE {s 0.866025}
+}
+
+rule polygon7sided {
+SQUARE {size 0.433884 x 0.233543 y 0 rotate 0}
+SQUARE {size 0.433884 x 0.145611 y 0.182591 rotate 51.4286}
+SQUARE {size 0.433884 x -0.0519681 y 0.227687 rotate 102.857}
+SQUARE {size 0.433884 x -0.210415 y 0.10133 rotate 154.286}
+SQUARE {size 0.433884 x -0.210415 y -0.10133 rotate 205.714}
+SQUARE {size 0.433884 x -0.0519681 y -0.227687 rotate 257.143}
+SQUARE {size 0.433884 x 0.145611 y -0.182591 rotate 308.571}
+CIRCLE {s 0.900969}
+}
+
+rule polygon8sided {
+SQUARE {size 0.382683 x 0.270598 y 0 rotate 0}
+SQUARE {size 0.382683 x 0.191342 y 0.191342 rotate 45}
+SQUARE {size 0.382683 x 0 y 0.270598 rotate 90}
+SQUARE {size 0.382683 x -0.191342 y 0.191342 rotate 135}
+SQUARE {size 0.382683 x -0.270598 y 0 rotate 180}
+SQUARE {size 0.382683 x -0.191342 y -0.191342 rotate 225}
+SQUARE {size 0.382683 x 0 y -0.270598 rotate 270}
+SQUARE {size 0.382683 x 0.191342 y -0.191342 rotate 315}
+CIRCLE {s 0.92388}
+}
+
+
+rule polygon11sided {
+SQUARE {size 0.281733 x 0.33888 y 0 rotate 0}
+SQUARE {size 0.281733 x 0.285084 y 0.183212 rotate 32.7273}
+SQUARE {size 0.281733 x 0.140776 y 0.308256 rotate 65.4545}
+SQUARE {size 0.281733 x -0.0482277 y 0.335431 rotate 98.1818}
+SQUARE {size 0.281733 x -0.221919 y 0.256109 rotate 130.909}
+SQUARE {size 0.281733 x -0.325153 y 0.0954735 rotate 163.636}
+SQUARE {size 0.281733 x -0.325153 y -0.0954736 rotate 196.364}
+SQUARE {size 0.281733 x -0.221919 y -0.256109 rotate 229.091}
+SQUARE {size 0.281733 x -0.0482277 y -0.335431 rotate 261.818}
+SQUARE {size 0.281733 x 0.140776 y -0.308256 rotate 294.545}
+SQUARE {size 0.281733 x 0.285084 y -0.183212 rotate 327.273}
+CIRCLE {s 0.959493}
+}

data/lib/image_paradise/cfdg/artificial_intelligence.cfdg

@@ -0,0 +1,41 @@
+background {b -1}
+startshape Start
+/**********************/
+ 
+rule Start
+{
+  Vine{b 1 alpha -0.98}
+}
+ 
+rule Flower
+{
+  CIRCLE{}
+  Flower{x 0.42 y 0.42 r 70 s 0.94 alpha 0.02}
+}
+ 
+rule Vine 0.04
+{
+  Flower{s 2}
+  Vine{}
+}
+ 
+rule Vine 0.5
+{
+  CIRCLE{s 1 5}
+  Vine{y 0.3 r 7 s 0.99}
+}
+ 
+rule Vine 0.5
+{
+  CIRCLE{s 1 5}
+  Vine{y 0.3 r -7 s 0.99}
+}
+ 
+rule Vine 0.03
+{
+  Vine{r 50 s 0.96 alpha 0.01}
+  Vine{r -50 s 0.96 alpha 0.01}
+}
+ 
+rule Vine 0.004
+{}

data/lib/image_paradise/cfdg/askew.cfdg

@@ -0,0 +1,27 @@
+# =========================================================================== #
+# === askew.cfdg
+#
+# Original author:    flembobs
+# Originally created: 28.01.2022
+# Original URL:       https://www.contextfreeart.org/gallery/view.php?id=4265
+#
+# =========================================================================== #
+
+CF::Background=[b -0.8 sat 0.2 h 230]
+D=9
+startshape C (D) [a-0.9 sat 1 h select(rand(3),23,66,145)]
+S=(1..30,1..30)
+N()=randint(4,12)
+
+shape C(natural R)
+{ 
+  if(R<5)
+      CIRCLE[b 0.25..1 sat 0..0.4 blend CF::Screen]
+  n=N()
+  if(R > 0)
+  transform [ h if(rand()>(R/D),60,0) ]
+  loop n [ r (360/n) ]
+
+  if(rand(R)<(D/2))
+      C(R--1) [ x 0.5 s 0.5 skew S sat -0.2..0.2 h 3..15] 
+}

data/lib/image_paradise/cfdg/audio_diagram_waves.cfdg

@@ -0,0 +1,54 @@
+# https://www.contextfreeart.org/gallery/view.php?id=4019
+
+startshape GRID (1000,1000)[] //( 640, 640 ) []
+ 
+CF::Time = [time 0 1]
+CF::Background = [ b -1 ]
+CF::MinimumSize = 0.0001
+ 
+sine(t,amp,freq,phase) = amp*sin( 360 * (freq*t + phase) )
+ 
+dist (n, o) =  abs ( n - o ) 
+inv2 (n) = 1/n^2
+ 
+para(n,o,p) = n^2*o+p
+ 
+st0 = sine( ftime(), 1, 3, 0.2 )
+st1 = sine( ftime(), 1, 3, 0.5 )
+st2 = sine( ftime(), 1, 2, 0.9 )
+ 
+shape GRID ( natural n, natural o )
+{
+  loop i=n []
+  {
+    si0 = sine ( i/n, 1, 1, 0 )
+    si1 = sine ( i/n, 1, 2, 0.2 )
+    si2 = sine ( i/n, 1, 3, 0.7 )
+ 
+    s0 = sine ( (1/n)*i, o/3*si0, 3, ftime() )+st0
+    s1 = sine ( (1/n)*i, o/3*si1, 2, ftime() )+st1
+    s2 = sine ( (1/n)*i, o/3*si2, 1, ftime() )+st2
+ 
+    X = i-(n/2)
+
+    loop j=o []
+    {
+ 
+      Y = j-(o/2)
+ 
+      BC = 0.02
+      BN = 2/3
+      BM = 1.4
+      B0 = BN/para ( BC, dist ( Y, s0 )^2, BM ) 
+      B1 = BN/para ( BC, dist ( Y, s1 )^2, BM ) 
+      B2 = BN/para ( BC, dist ( Y, s2 )^2, BM ) 
+
+      B =  B0+B1+B2
+      S =  1.2-(B0+B1+B2)
+      H =  st0*st1*st2*si0+190
+
+      SQUARE  [ x X y Y b B sat S hue H]
+    }
+  }
+
+}

data/lib/image_paradise/cfdg/autumn_fractal.cfdg

@@ -0,0 +1,39 @@
+startshape START
+
+background { b -1 }
+
+rule START {
+  CIRCLE { }
+  CARRES1 { }
+  CARRES2 { }
+  CARRES3 { }
+  CARRES4 { }
+}
+
+rule CARRES1 {
+  CIRCLE { x -1 y -1 hue 2 sat 1 b 1  }  
+  CARRES1 { x -0.97 y -0.97 s 0.6 hue 8 sat 1 b 1 }
+  CARRES2 { x 0.2 y -0.1 s 0.6 hue 8 sat 1 b 1 }
+  CARRES3 { x -0.2 y 0.2 s 0.6 hue 8 sat 1 b 1 }
+}
+
+rule CARRES2 {
+  CIRCLE { x 1 y -1 hue 2 sat 1 b 1  }
+  CARRES2 { x 0.97 y -0.97 s 0.6 hue 2 sat 1 b 1 }
+  CARRES1 { x -0.2 y -0.2 s 0.6 hue 2 sat 1 b 1 }
+  CARRES4 { x 0.2 y 0.2 s 0.6 hue 2 sat 1 b 1 }
+}
+
+rule CARRES3 {
+  CIRCLE { x -1 y 1 hue 2 sat 1 b 1  }
+  CARRES3 { x -0.97 y 0.97 s 0.6 hue 2 sat 1 b 1 }
+  CARRES1 { x -0.2 y -0.2 s 0.6 hue 2 sat 1 b 1 }
+  CARRES4 { x 0.2 y 0.2 s 0.6 hue 2 sat 1 b 1 }
+}
+
+rule CARRES4 {
+  CIRCLE { x 1 y 1 hue 2 sat 1 b 1  }
+  CARRES4 { x 0.97 y 0.97 s 0.6 hue 8 sat 1 b 1 }
+  CARRES2 { x 0.2 y -0.2 s 0.6 hue 8 sat 1 b 1 }
+  CARRES3 { x -0.2 y 0.2 s 0.6 hue 8 sat 1 b 1 }
+}

data/lib/image_paradise/cfdg/baignoire.cfdg

@@ -0,0 +1,33 @@
+startshape START
+background { b -0.88 sat 0.5 hue 30 }
+
+rule START {
+  START2 { }
+  START2 { flip 180 y -14 }
+  START2 { x -2 y -12 r 90 }
+  START2 { x 12 y -2 r -90 }
+  START { x 2.5 y -3.5 s 0.5 hue 5 }
+}
+
+rule START2 {
+  START_ { }
+  START_ { flip 90 x 10 }
+}
+
+rule START_ {
+  FLOW { }
+  START_ { y 5 s 0.8 r -45}
+}
+
+rule FLOW {
+  SQUARES { x 0.5 r -45 hue 10 b 0.9 sat 0.8}
+  SQUARES { x -0.5 hue 30 b 0.9 sat 0.8}
+  SQUARES { y -0.5 r -15 hue 30 b 0.9 sat 0.8}
+  SQUARES { y 0.5 hue 10 b 0.9 sat 0.8}
+}
+
+rule SQUARES {
+  TRIANGLE { s 3 0.5 }
+  CIRCLE { x 4 y -3 s 0.5 0.9 alpha -0.7}
+  SQUARES { s 0.99 r 1 hue 0.2 }
+}