image_paradise 0.4.8

data/lib/image_paradise/cfdg/quiet_wood_town.cfdg

@@ -0,0 +1,195 @@
+# rconfreegui quiet_wood_town.cfdg
+
+startshape village
+background { b -1 }
+#  include ../../trees/koivu/koivu_olden.cfdg
+ 
+rule village {
+  9* { s .9 y .8 x .5 z -10 }  vilrow [ ] 
+}
+rule vilrow {
+  4* { x 1.8 y -.1} makebase { z 200 s 1 .4}
+}
+ 
+rule makebase { makebase [ r 1] }
+rule makebase { makebase [ r -1] }
+# rule makebase { makebase [ s 1 1.1] }
+rule makebase { makebase [ y -.1 z .02] }
+rule makebase { makebase [ x .1] }
+rule makebase { makebase [ x -.1] }
+rule makebase { base [ ] }
+rule makebase .8 { makebase [ x -.5 ] makebirch [ x 1.5 y .1 z -1 s .1 .3] }
+
+rule base { ublock [ ] alternatives [ ]}
+rule alternatives 5 { }
+rule alternatives { alternatives [ s .6 ] }
+rule alternatives { bfront [ ] }
+rule alternatives { bback [ ] }
+rule alternatives { bright [ ] }
+rule bfront { base { s 1 x -0.6 y -0.12 z 3} }
+rule bback  { base { s 1 x 0.6 y 0.12 z -3} }
+rule btop   { base { y 1 } }
+rule bright { base { y -0.285 x 0.9 z 3} }
+ 
+rule ublock { block [ ] ub [ y 1 ] }
+rule ub { ublock [ ] }
+rule ub 2 { hhroof [ ]}
+ 
+rule makebirch 2 { makebirch [s  1.1] }
+rule makebirch { absflow [ ] }
+rule makebirch { absflow [ ] makebirch [x 1 y -.1 z .1] }
+rule makebirch { absflow [ ] makebirch [x .5 y .4 z -.4] }
+ 
+rule block {
+  hwall { y 0.009 s 0.9 1 skew 0 -16 z 2 hue 45.0 sat 0.7 b .7 }
+  # SQUARE { s 0.6 1 x 0.752 y -0.072 skew 0 7 b 1 z 1}
+  hwall { s 0.6 1 x 0.752 y -0.072 skew 0 7 z 1 hue 45.0 sat 0.7 b 0.4  }
+# SQUARE { s 0.3 0.94 skew 0 -30 r 72.5 y 0.57 x 0.31 b 0.6}
+}
+ 
+#
+# house wall
+rule hwall {
+  15 * { } vnoise [ a -.7 ]
+  5  * { x .2 } hwindow [ z .1 x -.4 s .1 .15] 
+}
+ 
+rule hwindow { hwindow [ s 1.1 ] }
+rule hwindow { hwindow [ r 1 ] }
+rule hwindow {
+  window [ s 1 1.2 b .2]
+  hiwindow [ y -.1 s .85 b -1]
+}
+
+rule hwindow .1 { hdoor [ y -1.1 s 1.3 3 ] }
+rule hwindow .3 { }
+ 
+rule hiwindow .2 { hiwindow [ b 1 ] vbars4 [ z .1 b -1] }
+rule hiwindow { window [ ] }
+rule hiwindow { window [ ] vbars4 [ z .1 b 1] }
+ 
+ 
+rule hhroof {
+  # TRIANGLE { s .65 .93 x .75 y -.3 skew 10 8 z 1.2 hue 49.6 sat 0.3 b 0.1 }
+  # TRIANGLE { s .41 .75 x .8 y -.325 skew 4 6 z 1.2 hue 49.6 sat 0.3 b 0 }
+  15* { } vnoise [ a -.7 x .75 y -.41 s .4 .95 r 37 hue 45.0 sat 0.7 b .3]
+  SQUARE [ a -.5 b -1 x .66 y -.23 z 2 r -17 s .2 .9  ]
+  SQUARE [ a -.5 b -1 x .92 y -.2 z 2 r 17 s .05 .75  ]
+  SQUARE [ b .1 x .93 y -.15 z 2 r 17.5 s .02 .82  ]
+  hrooftiles { s 1 1.8 y -.45 hue 49.6 sat 0.3 b 0.7 z 2.2 skew 30 -10 }
+  hroofpipe [ z -1 y .1]
+}
+ 
+ 
+# house roof
+rule hroof { hroof [ r 1 ] }
+rule hroof { hrooftiles [ ] hroofpipe [ ] }
+ 
+rule hrooftiles { 21* {x .05} hroofcol [ x -.49 ] }
+rule hroofcol   { 10* {y .05 z .1} hrooftile [ s .05 ]}
+ 
+rule hrooftile { hrooftile [ y .01 ] }
+rule hrooftile { hrooftile [ y -.01 ] }
+
+rule hrooftile {
+  window [ r 180 ]
+  window [ r 180 s .95 b -.8]
+}
+ 
+rule hroofpipe { hroofpipe [ x .1 y -.02] }
+rule hroofpipe { 
+  15* { } vnoise [ y .4 x .1 a -.7 s .1 .2 z 2 sat .5]
+  makehsmoke [ y .65 x .1 s .05 .4  |hue 49.6 sat 0.3 b -0.7]
+}
+ 
+// smoke pillar
+rule makehsmoke { hsmoke [ hue 1|] }
+rule makehsmoke 6 { }
+ 
+rule hsmoke { smokething [ ]  hsmoke [ y .21 x .05 s .99 a -.01] }
+rule hsmoke 5 { hsmoke [x .10] }
+rule hsmoke 5 { hsmoke [x -.10] }
+rule hsmoke .01 { }
+ 
+rule smokething { makesmoke [ ] divide [ ] }
+rule makesmoke { ball [ s 3 ] }
+rule divide 0.01 { hsmoke [ y .5 x -.15 s .9] }
+rule divide { }
+ 
+rule  ball { CIRCLE [ b 1 ] CIRCLE [ ] ball [ s .9 ] }
+rule ball .1 { }
+ 
+ 
+ 
+ 
+// wall & pipe tiles
+rule drawnoise { SQUARE [ b -.2 ] }
+rule drawnoise { SQUARE [ b .2 ] }
+ 
+rule vnoise {
+drawnoise [ ]
+vnoise [ x -.25 s .5 1]
+vnoise [ x .25 s .5 1]
+}
+rule vnoise { hnoise [ ] }
+rule vnoise .4 { drawnoise [ ] }
+ 
+rule hnoise { vnoise [ r 90 ] }
+ 
+ 
+ 
+// window & door tiles
+ 
+rule window { SQUARE [ y -.25 ] CIRCLE [ y .25 ] }
+rule vbars4 { 4* { x .3 } SQUARE [ x -.5 s .05 1.5 ] }
+rule hdoor { SQUARE [ b .2 ] SQUARE [ b -.1 s .9] SQUARE [ y
+-.54 s 1.1 .1 ] SQUARE [ y -.64 s 1.3 .1 ] }
+ 
+// ground tile
+rule eng_tile {
+  20* { y .05 s 1 .97 } eng_pole [ s 1 .05 ]
+}
+rule eng_pole { eng_pole [ r 2 ] }
+rule eng_pole { eng_pole [ r -2 ] }
+rule eng_pole { SQUARE [ b 1] SQUARE [ b -1 s 1.1 .98 ] }
+ 
+ 
+// birches
+ 
+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 [] }
+ 
+ 
+ 
+rule absflow .01 { 
+tcbush [ s .5 y 6 ] 
+tcbush [ s .5 y 1 ] 
+absflow [ ]}
+ 
+rule tcbush {
+  50* { r 117 x .1 y .1} 
+  threecirc [ x -3 sat 1 hue 45 sat 0.7 b 0.65 ] 
+  30* { r 11 x .2  y .1} 
+  threecirc [ x 3 y -2  hue 45 sat 0.7 b 0.75 ] 
+}
+ 
+rule threecirc 3 { threecirc [ x .2 ] }
+rule threecirc {
+  3* { r 120 } twocirc [ x 1 s .3 ]
+}
+ 
+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]
+  TRIANGLE [ s 2.3 sat 1 a 1]
+}

data/lib/image_paradise/cfdg/r180.cfdg

@@ -0,0 +1,26 @@
+# ======================================================== #
+# by IG14 
+# confree r180.cfdg output.png 800 100
+# /Users/x/DATA/IMG/CFDG/output.png
+# ======================================================== #
+startshape fig3
+background { b -1}
+
+rule fig3
+{
+  fig2 { }
+  fig1 { }
+  fig3 { s .9 x .5 r 180}
+}
+
+rule fig2
+{
+  fig1 {hue 0 b .1 sat 1 }
+  fig2 { s .7 r 45 hue 0}
+}
+
+rule fig1
+{
+  TRIANGLE {hue 245 sat 1 b .1}
+  fig1 { s .9 b .1 r 3 hue 5}
+}

data/lib/image_paradise/cfdg/r45.cfdg

@@ -0,0 +1,26 @@
+# ======================================================== #
+# by IG14 
+# confree r45.cfdg output.png 800 100
+# /Users/x/DATA/IMG/CFDG/output.png
+# ======================================================== #
+startshape fig3
+background { b -1}
+
+rule fig3
+{
+  fig2 { }
+  fig1 { }
+  fig3 { s .9 x .5 r 45}
+}
+
+rule fig2
+{
+  fig1 {hue 0 b .1 sat 1 }
+  fig2 { s .7 r 45 hue 0}
+}
+
+rule fig1
+{
+  TRIANGLE {hue 1 sat 1 b .1}
+  fig1 { s .9 b .1 r 3 hue 5}
+}

data/lib/image_paradise/cfdg/r_square.cfdg

@@ -0,0 +1,36 @@
+# =========================================================================== #
+# Taken from: https://www.contextfreeart.org/gallery/view.php?id=4274
+# Added on:   12.09.2022
+# Created on: 13.08.2022
+# Author:   flembobs
+# =========================================================================== #
+CF::Background = [ b -0.1 sat 0.5 h 55 ]
+
+startshape R [ b 0.3 sat 0.6 h 230]
+
+shape R 
+rule {
+  S []
+  
+  loop 4 [ r 90 ]
+  transform [ trans 0.25 0.25 ] 
+    R [ s 0.5 ]
+}
+rule 0.8 {
+  S []
+  R [ s sqrt(0.5) r 45 ]
+}
+rule 0.5 {
+  C []
+  R [ s sqrt(0.5) ]
+}
+
+path C {
+  path CIRCLE []
+  STROKE(0.01)[]
+}
+
+path S {
+  path SQUARE []
+  STROKE(0.01)[]
+}

data/lib/image_paradise/cfdg/rads.cfdg

@@ -0,0 +1,33 @@
+# === rads.cfdg
+startshape Z
+
+background {b -1}
+
+rule Z{100*{r 3.6}A1{}}
+
+rule A1{AA{}A2{y .5 z -1 s .996 r 0 hue -.1 flip 90}}
+rule A1 .1{AA{}A2{y .5 z -1 s .996 r 0 hue -.1}}
+
+rule A2{AA{}A3{y .5 z -1 s .996 r 1 hue -.1}}
+rule A3{AA{}A4{y .5 z -1 s .996 r 2 hue -.1}}
+rule A4{AA{}A5{y .5 z -1 s .996 r 3 hue -.1}}
+rule A5{AA{}A6{y .5 z -1 s .996 r 4 hue -.1}}
+rule A6{AA{}A7{y .5 z -1 s .996 r 5 hue -.1}}
+rule A7{AA{}A8{y .5 z -1 s .996 r 6 hue -.1}}
+rule A8{AA{}A9{y .5 z -1 s .996 r 7 hue -.1}}
+rule A9{AA{}A10{y .5 z -1 s .996 r 8 hue -.1}}
+rule A10{AA{}A11{y .5 z -1 s .996 r 9 hue -.1}}
+rule A11{AA{}A12{y .5 z -1 s .996 r 10 hue -.1}}
+rule A12{AA{}A13{y .5 z -1 s .996 r 9 hue -.1}}
+rule A13{AA{}A14{y .5 z -1 s .996 r 8 hue -.1}}
+rule A14{AA{}A15{y .5 z -1 s .996 r 7 hue -.1}}
+rule A15{AA{}A16{y .5 z -1 s .996 r 6 hue -.1}}
+rule A16{AA{}A17{y .5 z -1 s .996 r 5 hue -.1}}
+rule A17{AA{}A18{y .5 z -1 s .996 r 4 hue -.1}}
+rule A18{AA{}A19{y .5 z -1 s .996 r 3 hue -.1}}
+rule A19{AA{}A20{y .5 z -1 s .996 r 2 hue -.1}}
+
+rule A20{AA{}A1{y .5 z -1 s .996 r 1 hue -.1}}
+rule A20 .0006{Z{s 2 z 60}}
+
+rule AA {CIRCLE{b 1 sat 1 hue 120}}

data/lib/image_paradise/cfdg/rainbow_black_hole.cfdg

@@ -0,0 +1,9 @@
+# From:
+#  https://www.contextfreeart.org/gallery2/#design/3897
+startshape MAZE 
+background [ a-1]
+
+rule MAZE{
+  TRIANGLE[h 359.35 sat 0.9778 b 1.0000   ]
+  MAZE[s.9999 h 1 r .1]
+}

data/lib/image_paradise/cfdg/rainbow_sun.cfdg

@@ -0,0 +1,9 @@
+startshape boxen
+background {b -1}
+
+rule boxen {
+  180*{r 2} box {}
+}
+rule box {
+  100 * {y .0108 a -.02}{100*{a -.02 h 3.6 x .0108} SQUARE {s .01 b 1 sat 1} }
+}

data/lib/image_paradise/cfdg/random_handwriting.cfdg

@@ -0,0 +1,50 @@
+# =========================================================================== #
+# From:
+#
+#   (unknown)
+#
+# HEIGHT: 960
+# WIDTH:  960
+#
+# =========================================================================== #
+
+startshape init
+
+rule init {
+	randcurve {}
+	randcurve { x 10 }
+}
+
+# Four curve rates, randomly switch
+rule randcurve { curve1 {} }
+rule randcurve { curve2 {} }
+rule randcurve { curve3 {} }
+rule randcurve { curve4 {} }
+rule randcurve { randcurve { flip 90 } }
+rule randcurve 0.1 {}
+
+rule curve1 {
+	CIRCLE {}
+	curve1 { s 0.999 y 0.2  r 1}
+}
+rule curve1 0.1 { randcurve {} }
+
+rule curve2 {
+	CIRCLE {}
+	curve2 { s 0.999 y 0.2  r 2}
+}
+rule curve2 0.1 { randcurve {} }
+
+rule curve3 {
+	CIRCLE {}
+	curve3 { s 0.999 y 0.2  r 3}
+}
+rule curve3 0.1 { randcurve {} }
+
+rule curve4 {
+	CIRCLE {}
+	curve4 { s 0.999 y 0.2  r 4}
+}
+rule curve4 0.1 { randcurve {} }
+
+# runcfdg random_handwriting

data/lib/image_paradise/cfdg/random_tile_shapes_jens_revisited.cfdg

@@ -0,0 +1,146 @@
+# =========================================================================== #
+# === random_tile_shapes_jens_revisited.cfdg
+#
+# From:
+#
+#   https://www.contextfreeart.org/gallery/view.php?id=4110
+#
+# HEIGHT: 980
+# WIDTH:  980
+#
+# =========================================================================== #
+
+// ------------------------------------------------------
+// Based on design 3214 by Jens Persson, May 28, 2013
+// ------------------------------------------------------
+
+Width = 1600
+Height= 900
+CF::Size = [s Width Height]
+CF::Tile = [s Width Height]
+CF::ColorDepth = 16
+CF::Impure = 1
+CF::Background = [b -0.2]
+
+// ------------------------------------------------------
+// Functions
+// ------------------------------------------------------
+intBeg(v1,v2,int) = v1 + (v2-v1)* sqrt(1-(1-int)^2)
+intCos(v1,v2,int) = v1 + (v2-v1)*(1-cos(int*180))/2
+intEnd(v1,v2,int) = v1 + (v2-v1)*(1-sqrt(1- int^2))
+
+fscl(numSeg,seg, sclBeg,sclEnd,int)=let
+( c =if(seg==0, 0, if(seg<numSeg-1, 1, 2))
+; select(c, max(0.001,intBeg(sclBeg, sclEnd, int))
+      , max(0.001,intCos(sclBeg, sclEnd, int))
+      , max(0.001,intEnd(sclBeg, sclEnd, int))
+)     )
+
+fnumStpN(RND,sclEnd)=let
+( Min = if(RND==0,  50, randint( 50, 200))
+; minSteps  = max(floor(sclEnd), Min)
+; Max = if(RND==0, 200, randint( Min, 300))
+; randint(minSteps, randint(minSteps, Max))
+)
+
+fsclEndN(seg,sclEnd)=
+if (mod(seg, 2) == 1
+   , max(10, sclEnd/4) + (rand(1)^2)*min(sclEnd*4,40)
+   , max( 1, sclEnd/8) + (rand(1)^2)*min(sclEnd  ,40)
+)
+
+fang(RND,numStpN)=let
+( strMid = if(RND==0, .4  , rand(.001, 2.0  ))
+; strVar = if(RND==0, .999, rand(.0  , 0.999))
+; str  = strMid*rand(1-strVar,1+strVar)
+; angStp = if(RND==0, 72, rand(10, 60))
+; floor(numStpN/(1+str)/angStp)*angStp
+)
+
+fangEndN(RND,angEnd,ang)=let
+( prob = if(RND==0, 1, rand(0.5, 1))
+; angEnd + if( rand(1) < prob
+       , if ( randint(2) , ang, -ang)
+       , 0
+       )
+)
+//------------------------------------------------------
+// Shapes
+//------------------------------------------------------
+startshape scene(1)
+shape    scene(RND) {
+
+  transform[x -(Width/2) y -(Height/2) z -1] 
+  loop   Y=Height [y 4]
+  loop X=Width  [x 4]
+    if (mod(X+Y,2)) CIRCLE[s 2 4.8 b 1]
+    else      CIRCLE[s 4.8 2 b 1]
+
+  N = floor(Width*Height/if(RND==0, 250, 800))
+  loop N [z 1] {
+  H  = select(randint(7),0,10,40,45,55,170,210)
+  SAT= (360-H)/360*rand(0.1,0.95)^4
+  B  = rand(0,1)*rand(0,1)^0.0001   
+  X  = rand(-Width/2 ,Width/2 )
+  Y  = rand(-Height/2,Height/2)        
+  S  = 0.4+(1-0.8*B)*rand(0.1,0.5)^2
+  Z  = N*SAT*B^2*(2-S)
+  sling(RND)[x X y Y s S h H sat SAT b B z Z]
+} }
+
+shape sling(RND) {
+
+  MinS= if(RND==0,  2, randint(   2, 10))
+  MaxS= if(RND==0,  4, randint(MinS, 20))
+  Prob= if(RND==0,  7, randint(   0,100))
+  Mult= if(RND==0, 10, randint(   2,  4))
+  MaxP= if(randint(100)<Prob, MaxS*Mult, MaxS)
+  numSeg= randint(MinS,MaxP)
+
+  Steps = if(RND==0, 45, rand(45, 60))
+  Offset= if(RND==0, 36, rand( 0,360))
+  Angle = randint(floor(360/Steps))*Steps + Offset
+
+  Min   = if(RND==0,  1, rand(  1,20))
+  Max   = if(RND==0, 30, rand(Min,50))
+  numStp= rand(Min, Max)
+
+  transform[x (cos(Angle)*numStp) y (sin(Angle)*numStp)]
+    seg( RND, numSeg, 0   , numStp, 0
+        , 0   , numStp, Angle , Angle) []
+}
+
+shape seg( RND, numSeg, seg   , numStp, stp
+        , sclBeg, sclEnd, angBeg, angEnd) {
+
+  int = stp/numStp
+  scl = fscl(numSeg,seg, sclBeg,sclEnd,int)
+  CIRCLE[x  (scl*0.1)  y -(scl*0.2) 
+     s  (scl*1.50) b -0.85 z -0.2 a -0.98]
+  CIRCLE[s  (scl*1.25) b -0.25 z -0.1]
+  CIRCLE[s   scl]
+  CIRCLE[x -(scl*0.1)  y  (scl*0.2) 
+     s  (scl*0.25) b  0.25 z  0.1 sat -0.25]
+
+  stpSize = 0.5
+  ang = intCos(angBeg, angEnd, int)
+  transform[x (cos(ang)*stpSize) y (sin(ang)*stpSize)]
+  if (stp < numStp) {
+    seg( RND, numSeg, seg  , numStp , stp+1
+        , sclBeg, sclEnd , angBeg , angEnd) []
+  }
+  else if (seg < numSeg-2) {
+    numStpN = fnumStpN(RND,sclEnd)
+    sclEndN = fsclEndN(seg,sclEnd)
+    ang   = fang(RND,numStpN)
+    angEndN = fangEndN(RND,angEnd,ang)
+    seg( RND, numSeg, seg+1  , numStpN, 0
+        , sclEnd, sclEndN, angEnd , angEndN)[]
+  }
+  else if (seg == numSeg-2) {
+    seg( RND, numSeg, seg+1  , sclEnd , 0
+        , sclEnd, 0    , angEnd , angEnd) []
+}
+}
+
+# runcfdg random_shapes_jens_revisited

data/lib/image_paradise/cfdg/rays_attack.cfdg

@@ -0,0 +1,29 @@
+startshape START
+background { hue 270 sat 1.0 b -0.92 }
+
+rule START {
+  begin {}
+  begin {flip 180}
+}
+
+rule begin{
+  RAY{}
+  begin{s .8 r -10 y 8}
+  begin {x 12 s .5}
+}
+
+rule RAY {
+	2 * {flip 90 r 180 } SEGMENT {}
+	2 * {flip 180}       EYE {}
+}
+
+rule SEGMENT {
+	SQUARE { s 15 0.006 hue 75 sat .8 b 1 }
+	SEGMENT {r .4 y -.035 s .99 hue .5}
+}
+
+rule EYE {
+	CIRCLE {s .6  x -1 y 1 b 1 hue 0 sat .5 b 1 a -.3}
+	CIRCLE {s .3  x -1.1 y .92 b 1  b 1}
+	CIRCLE {s .1  x -1.1 y .92 b -1 }
+}

data/lib/image_paradise/cfdg/razpad.cfdg

@@ -0,0 +1,20 @@
+startshape razpad 
+ 
+background {b -1}
+ 
+rule razpad {
+  6* {r(360/6)}
+  pad {y -4}
+  razpad {s .8 r 30 b .14}
+}
+ 
+rule pad {
+  2* {f 90}
+  raz {x 2.5}
+}
+ 
+rule raz {
+  CIRCLE {b .01}
+  raz {s 1 .9 r 14 y .2 b .01}
+  raz {s 1 .05 x 1 r 180 b .001}
+}