image_paradise 0.4.8

data/lib/image_paradise/cfdg/rectangular_distortion.cfdg

@@ -0,0 +1,169 @@
+# ====================================================== #
+# distortion
+# confree $IMG/CFDG/distortion.cfdg /bla.png
+# ====================================================== #
+startshape distortion
+background { hue 60 sat .3 b .8}
+
+rule distortion
+{
+  arrows{}
+  arrows{r 180 x -18 y -17}
+}
+
+rule arrows
+{
+  arrow2{}
+  arrow1{r 90 x -20 y 2}
+}
+
+rule arrow2
+{
+  ten_curve { size .8 hue 220 sat 1 b 1 x -12 y -13}
+  ten_curve {hue 232 sat 1 b 1 x -14 y -14}
+  fifteen_curve {hue 244 sat 1 b 1 x -15 y -15}
+  twenty_curve {hue 256 sat 1 b 1 x -17 y -17}
+  twentyfive_curve {hue 268 sat 1 b 1 x -20 y -20}
+  thirty_curve {hue 280 sat 1 b 1 x -24 y -24}
+}
+
+rule arrow1
+{
+  ten_curve { size .8 hue 150 sat .7 b .7 x -12 y -13}
+  ten_curve {hue 138 sat 1 b .7 x -14 y -14}
+  fifteen_curve {hue 126 sat 1 b .7 x -15 y -15}
+  twenty_curve {hue 114 sat 1 b .7 x -17 y -17}
+  twentyfive_curve {hue 102 sat 1 b .8 x -20 y -20}
+  thirty_curve {hue 90 sat 1 b .9 x -24 y -24}
+}
+
+
+rule thirty_curve
+{
+  SQUARE { size .2 30 x -15.5 y 0}
+  SQUARE { size .2 30.0166620396073 r 1.90915243299638 x -15 y 0}
+  SQUARE { size .2 29.0688837074973 r 3.94518622903756 x -14.5 y -0.5}
+  SQUARE { size .2 28.1602556806574 r 6.11550356628541 x -14 y -1}
+  SQUARE { size .2 27.2946881279124 r 8.42696902148067 x -13.5 y -1.5}
+  SQUARE { size .2 26.4764045897475 r 10.8855270546587 x -13 y -2}
+  SQUARE { size .2 25.7099202643649 r 13.4957332807958 x -12.5 y -2.5}
+  SQUARE { size .2 25 r 16.260204708312 x -12 y -3}
+  SQUARE { size .2 24.3515913237718 r 19.1790080258107 x -11.5 y -3.5}
+  SQUARE { size .2 23.7697286480094 r 22.2490236572124 x -11 y -4}
+  SQUARE { size .2 23.259406699226 r 25.4633450618716 x -10.5 y -4.5}
+  SQUARE { size .2 22.8254244210267 r 28.8107937429731 x -10 y -5}
+  SQUARE { size .2 22.4722050542442 r 32.2756443145776 x -9.5 y -5.5}
+  SQUARE { size .2 22.2036033111745 r 35.8376529542783 x -9 y -6}
+  SQUARE { size .2 22.0227155455452 r 39.4724598483438 x -8.5 y -6.5}
+  SQUARE { size .2 21.9317121994613 r 43.1523897340054 x -8 y -7}
+  SQUARE { size .2 21.9317121994613 r 46.8476102659946 x -7.5 y -7.5}
+  SQUARE { size .2 22.0227155455452 r 50.5275401516562 x -7 y -8}
+  SQUARE { size .2 22.2036033111745 r 54.1623470457217 x -6.5 y -8.5}
+  SQUARE { size .2 22.4722050542442 r 57.7243556854224 x -6 y -9}
+  SQUARE { size .2 22.8254244210267 r 61.1892062570269 x -5.5 y -9.5}
+  SQUARE { size .2 23.259406699226 r 64.5366549381284 x -5 y -10}
+  SQUARE { size .2 23.7697286480094 r 67.7509763427876 x -4.5 y -10.5}
+  SQUARE { size .2 24.3515913237718 r 70.8209919741893 x -4 y -11}
+  SQUARE { size .2 25 r 73.739795291688 x -3.5 y -11.5}
+  SQUARE { size .2 25.7099202643649 r 76.5042667192042 x -3 y -12}
+  SQUARE { size .2 26.4764045897475 r 79.1144729453413 x -2.5 y -12.5}
+  SQUARE { size .2 27.2946881279124 r 81.5730309785193 x -2 y -13}
+  SQUARE { size .2 28.1602556806574 r 83.8844964337146 x -1.5 y -13.5}
+  SQUARE { size .2 29.0688837074973 r 86.0548137709624 x -1 y -14}
+  SQUARE { size .2 30.0166620396073 r 88.0908475670036 x -0.5 y -14.5}
+  SQUARE { size .2 31 r 90 x 0 y -15}
+}
+
+rule twentyfive_curve
+{
+  SQUARE { size .2 25 x -13 y -.5}
+  SQUARE { size .2 25.0199920063936 r 2.29061004263853 x -12.5 y -0.5}
+  SQUARE { size .2 24.0831891575846 r 4.76364169072618 x -12 y -1}
+  SQUARE { size .2 23.1948270094864 r 7.43140797117251 x -11.5 y -1.5}
+  SQUARE { size .2 22.3606797749979 r 10.304846468766 x -11 y -2}
+  SQUARE { size .2 21.5870331449229 r 13.3924977537511 x -10.5 y -2.5}
+  SQUARE { size .2 20.8806130178211 r 16.6992442339936 x -10 y -3}
+  SQUARE { size .2 20.2484567313166 r 20.2248594311681 x -9.5 y -3.5}
+  SQUARE { size .2 19.6977156035922 r 23.9624889745782 x -9 y -4}
+  SQUARE { size .2 19.2353840616713 r 27.8972710309476 x -8.5 y -4.5}
+  SQUARE { size .2 18.8679622641132 r 32.0053832080835 x -8 y -5}
+  SQUARE { size .2 18.6010752377383 r 36.2538377374448 x -7.5 y -5.5}
+  SQUARE { size .2 18.4390889145858 r 40.6012946450045 x -7 y -6}
+  SQUARE { size .2 18.3847763108502 r 45 x -6.5 y -6.5}
+  SQUARE { size .2 18.4390889145858 r 49.3987053549955 x -6 y -7}
+  SQUARE { size .2 18.6010752377383 r 53.7461622625552 x -5.5 y -7.5}
+  SQUARE { size .2 18.8679622641132 r 57.9946167919165 x -5 y -8}
+  SQUARE { size .2 19.2353840616713 r 62.1027289690524 x -4.5 y -8.5}
+  SQUARE { size .2 19.6977156035922 r 66.0375110254218 x -4 y -9}
+  SQUARE { size .2 20.2484567313166 r 69.7751405688319 x -3.5 y -9.5}
+  SQUARE { size .2 20.8806130178211 r 73.3007557660064 x -3 y -10}
+  SQUARE { size .2 21.5870331449229 r 76.6075022462489 x -2.5 y -10.5}
+  SQUARE { size .2 22.3606797749979 r 79.695153531234 x -2 y -11}
+  SQUARE { size .2 23.1948270094864 r 82.5685920288275 x -1.5 y -11.5}
+  SQUARE { size .2 24.0831891575846 r 85.2363583092738 x -1 y -12}
+  SQUARE { size .2 25.0199920063936 r 87.7093899573615 x -0.5 y -12.5}
+  SQUARE { size .2 25 r 90 x 0 x -.5 y -13}
+}
+
+rule twenty_curve
+{
+  SQUARE { size .2 21 x -10.5}
+  SQUARE { size .2 20.0249843945008 r 2.86240522611175 x -10 y -0.5}
+  SQUARE { size .2 19.1049731745428 r 6.00900595749452 x -9.5 y -1}
+  SQUARE { size .2 18.2482875908947 r 9.46232220802562 x -9 y -1.5}
+  SQUARE { size .2 17.464249196573 r 13.2405199151872 x -8.5 y -2}
+  SQUARE { size .2 16.7630546142402 r 17.3540246362613 x -8 y -2.5}
+  SQUARE { size .2 16.1554944214035 r 21.8014094863518 x -7.5 y -3}
+  SQUARE { size .2 15.6524758424985 r 26.565051177078 x -7 y -3.5}
+  SQUARE { size .2 15.2643375224737 r 31.6075022462489 x -6.5 y -4}
+  SQUARE { size .2 15 r 36.869897645844 x -6 y -4.5}
+  SQUARE { size .2 14.8660687473185 r 42.2736890060937 x -5.5 y -5}
+  SQUARE { size .2 14.8660687473185 r 47.7263109939063 x -5 y -5.5}
+  SQUARE { size .2 15 r 53.130102354156 x -4.5 y -6}
+  SQUARE { size .2 15.2643375224737 r 58.3924977537511 x -4 y -6.5}
+  SQUARE { size .2 15.6524758424985 r 63.434948822922 x -3.5 y -7}
+  SQUARE { size .2 16.1554944214035 r 68.1985905136482 x -3 y -7.5}
+  SQUARE { size .2 16.7630546142402 r 72.6459753637387 x -2.5 y -8}
+  SQUARE { size .2 17.464249196573 r 76.7594800848128 x -2 y -8.5}
+  SQUARE { size .2 18.2482875908947 r 80.5376777919744 x -1.5 y -9}
+  SQUARE { size .2 19.1049731745428 r 83.9909940425055 x -1 y -9.5}
+  SQUARE { size .2 20.0249843945008 r 87.1375947738883 x -0.5 y -10}
+  SQUARE { size .2 21 r 90 y -10.5}
+}
+
+rule fifteen_curve
+{
+  SQUARE { size .2 15 x -8 y -.5}
+  SQUARE { size .2 15.0332963783729 r 3.81407483429035 x -7.5 y -0.5}
+  SQUARE { size .2 14.142135623731 r 8.13010235415598 x -7 y -1}
+  SQUARE { size .2 13.3416640641263 r 12.9946167919165 x -6.5 y -1.5}
+  SQUARE { size .2 12.6491106406735 r 18.434948822922 x -6 y -2}
+  SQUARE { size .2 12.0830459735946 r 24.4439547804165 x -5.5 y -2.5}
+  SQUARE { size .2 11.6619037896906 r 30.9637565320735 x -5 y -3}
+  SQUARE { size .2 11.4017542509914 r 37.8749836510982 x -4.5 y -3.5}
+  SQUARE { size .2 11.3137084989848 r 45 x -4 y -4}
+  SQUARE { size .2 11.4017542509914 r 52.1250163489018 x -3.5 y -4.5}
+  SQUARE { size .2 11.6619037896906 r 59.0362434679265 x -3 y -5}
+  SQUARE { size .2 12.0830459735946 r 65.5560452195835 x -2.5 y -5.5}
+  SQUARE { size .2 12.6491106406735 r 71.565051177078 x -2 y -6}
+  SQUARE { size .2 13.3416640641263 r 77.0053832080835 x -1.5 y -6.5}
+  SQUARE { size .2 14.142135623731 r 81.869897645844 x -1 y -7}
+  SQUARE { size .2 15.0332963783729 r 86.1859251657096 x -0.5 y -7.5}
+  SQUARE { size .2 15 r 90 y -8 x -.5}
+}
+
+rule ten_curve
+{
+  SQUARE { size .2 10 x -5.5 y -.5}
+  SQUARE { size .2 10.0498756211209 r 5.71059313749964 x -5 y -0.5}
+  SQUARE { size .2 9.21954445729289 r 12.5288077091515 x -4.5 y -1}
+  SQUARE { size .2 8.54400374531753 r 20.5560452195835 x -4 y -1.5}
+  SQUARE { size .2 8.06225774829855 r 29.7448812969422 x -3.5 y -2}
+  SQUARE { size .2 7.81024967590665 r 39.8055710922652 x -3 y -2.5}
+  SQUARE { size .2 7.81024967590665 r 50.1944289077348 x -2.5 y -3}
+  SQUARE { size .2 8.06225774829855 r 60.2551187030578 x -2 y -3.5}
+  SQUARE { size .2 8.54400374531753 r 69.4439547804165 x -1.5 y -4}
+  SQUARE { size .2 9.21954445729289 r 77.4711922908485 x -1 y -4.5}
+  SQUARE { size .2 10.0498756211209 r 84.2894068625004 x -0.5 y -5}
+  SQUARE { size .2 10 r 90 y -5.5 x -.5}
+}

data/lib/image_paradise/cfdg/recurse_path.cfdg

@@ -0,0 +1,38 @@
+# https://www.contextfreeart.org/gallery/view.php?id=4237
+#
+# by flembobs
+#
+# Uploaded on: 18.07.2021
+
+CF::Time = [ time 0 1 ]
+CF::Size = [ s 2  ]
+
+H=0..360
+B=-0.85..-0.95
+CF::Background = [ b B h H sat 0.6..0.8 ]
+
+startshape P [ h (-H±(5..20)) sat 0.87..1 b 1 r (360*ftime()) ]
+
+sine(t,amp,freq,phase) = amp*sin( (freq*360*t) + (360*phase))
+
+N = randint(3, 20)
+M = randint(3, 12)
+S() = rand(0.25, 1.5 )
+X() = rand(0.5, 1)
+R = rand(360)
+
+path P
+{
+  loop N [ s S() ]
+  {
+    pos = X() * sine(ftime(),1,1,0)
+    loop M [ r (360/M) ]
+    {
+      shp = select( rand_static(3),  
+        CIRCLE, TRIANGLE, SQUARE )
+      path shp [ x pos r R ]
+    }
+  }
+    
+  FILL ( CF::EvenOdd ) []
+}

data/lib/image_paradise/cfdg/red_flurry.cfdg

@@ -0,0 +1,64 @@
+startshape SEED
+background { b -1}
+
+
+rule SEED {
+
+BRANCH {y 5 x 5 size 0.8 hue 360.0 sat 1.0000 b 1.0000 }
+BRANCH {y 5 x 5 size 0.8 hue 360.0 sat 1.0000 b 1.0000 flip 150}
+BRANCH {y 5 x 5 size 0.8 hue 360.0 sat 1.0000 b 1.0000 rotate 190}
+BRANCH {y 5 x 5 size 0.8 hue 360.0 sat 1.0000 b 1.0000 rotate -190} 
+
+BRANCH {y 5 x 5 size 0.8 hue 360.0 sat 1.0000 b 0.6561 }
+BRANCH {y 5 x 5 size 0.8 hue 360.0 sat 1.0000 b 0.6561 flip 180}
+BRANCH {y 5 x 5 size 0.8 hue 360.0 sat 1.0000 b 0.6561 rotate 90}
+BRANCH {y 5 x 5 size 0.8 hue 360.0 sat 1.0000 b 0.6561 rotate -90}
+
+BRANCH {y 5 x 5 size 0.7 hue 25.4 sat 1.0000 b 0.9457 rotate 45 flip 180}
+BRANCH {y 5 x 5 size 0.7 hue 25.4 sat 1.0000 b 0.9457 rotate -45 flip 180}
+BRANCH {y 5 x 5 size 0.7 hue 25.4 sat 1.0000 b 0.9457 rotate 45}
+BRANCH {y 5 x 5 size 0.7 hue 25.4 sat 1.0000 b 0.9457 rotate -45}
+
+BRANCH {y 5 x 5 size 0.6 hue 47.3 sat 1.0000 b 0.9457 }
+BRANCH {y 5 x 5 size 0.6 hue 47.3 sat 1.0000 b 0.9457 flip 180}
+BRANCH {y 5 x 5 size 0.6 hue 47.3 sat 1.0000 b 0.9457 rotate 90}
+BRANCH {y 5 x 5 size 0.6 hue 47.3 sat 1.0000 b 0.9457 rotate -90}
+
+BRANCH {y 5 x 5 size 0.8 hue 15.1 sat 1.0000 b 1.0000 }
+BRANCH {y 5 x 5 size 0.8 hue 15.1 sat 1.0000 b 1.0000 flip 180}
+BRANCH {y 5 x 5 size 0.8 hue 15.1 sat 1.0000 b 1.0000 rotate 90}
+BRANCH {y 5 x 5 size 0.8 hue 15.1 sat 1.0000 b 1.0000 rotate -90}
+
+BRANCH {y 5 x 5 size 0.7 hue 54.7 sat 1.0000 b 1.0000 rotate 45 flip 180}
+BRANCH {y 5 x 5 size 0.7 hue 54.7 sat 1.0000 b 1.0000 rotate -45 flip 180}
+BRANCH {y 5 x 5 size 0.7 hue 54.7 sat 1.0000 b 1.0000 rotate 45}
+BRANCH {y 5 x 5 size 0.7 hue 54.7 sat 1.0000 b 1.0000 rotate -45}
+
+BRANCH {y 5 x 5 size 0.6 hue 44.5 sat 1.0000 b 1.0000 }
+BRANCH {y 5 x 5 size 0.6 hue 44.5 sat 1.0000 b 1.0000 flip 180}
+BRANCH {y 5 x 5 size 0.6 hue 44.5 sat 1.0000 b 1.0000 rotate 90}
+BRANCH {y 5 x 5 size 0.6 hue 44.5 sat 1.0000 b 1.0000 rotate -90}
+
+}
+
+rule BRANCH { 
+   SQUARE { } 
+   BRANCH { y 1 s 0.99 r 10 z 100 } 
+} 
+
+rule BRANCH 0.5 { BRANCH { flip 90 }}
+
+rule BRANCH 1 {
+	SQUARE{}
+	BRANCH { y 1 s 0.99 r 10 z 100 } 
+}
+
+rule BRANCH 1.5 {
+ SQUARE { }  
+ BRANCH {y 5 s 0.99 r 1.5 flip 90 b 1 }
+ BRANCH { s 0.6 r -45 }
+ BRANCH  { s 0.5 r 45 flip 90 }
+}
+
+
+

data/lib/image_paradise/cfdg/red_horse_tail.cfdg

@@ -0,0 +1,36 @@
+# http://www.contextfreeart.org/gallery/view.php?id=3726
+
+startshape redHorseTail
+CF::Size=[s 49 x 13]
+CF::Background=[b -.25]
+
+//Quadratic Bezier Curve
+path DRAW_loop(WI,HE,X1) 
+{
+loop YY=0,HE,.02 [sat .012]
+{
+MOVETO(-WI,0)
+CURVETO(WI,0,X1,YY)
+STROKE(.0035) [b (cos(YY^2.5))]
+}}
+
+path DRAW_envelop(WI,HE,X1) 
+{
+MOVETO(-WI,0)
+CURVETO(WI,((-WI+WI)/2),(X1),HE)
+STROKE(.15) [ ]}
+
+shape DRAW(WI,HE,X1)
+{
+DRAW_loop(WI,HE,X1) [ ] 
+DRAW_envelop(WI,HE,X1) [ ]
+}
+
+shape redHorseTail
+{
+trans [r -135 y 13]
+{
+loop 2 [flip 0]
+loop XX1=-21,56.1,7 [x 3. s 1 1.2 r .1 z 1] DRAW(3,21,XX1) [s 1 .8 ]
+TRIANGLE [s 4 86 x 35 z -10 b 1 r 90]
+}}

data/lib/image_paradise/cfdg/red_yellow_mosaic.cfdg

@@ -0,0 +1,26 @@
+startshape SS1
+
+rule SS1 {
+BASE{s 1.3}
+BARNEY {}
+FRED {}
+}
+
+rule BASE {
+SQUARE {b 0 hue 1 sat .9}
+SQUARE {s 0.9925 b 1 hue 200 sat 1}
+}
+
+rule FRED {
+SQUARE {b 0}
+SQUARE {s 0.9925 b 1 hue 50 sat .7}
+FRED {r -3 s 0.98}
+}
+
+rule BARNEY {
+SQUARE {b 0}
+SQUARE {s 0.9925 b 1 hue 0 sat .9}
+BARNEY {r 1 s 0.98}
+}
+ 
+

data/lib/image_paradise/cfdg/rendering_tests.cfdg

@@ -0,0 +1,183 @@
+startshape Tests
+
+rule Tests {
+	// borders should be 8 pixels beyond these pins
+	Pin { x 0 y 0 r 135 s 0.5 }
+	Pin { x 20 y 0 r -135 s 0.5 }
+	Pin { x 0 y 20 r 45 s 0.5 }
+	Pin { x 20 y 20 r -45 s 0.5 }
+
+	// top row, left to right
+	TouchingTestsSized { x 2 y 5.5 }
+	TouchingTestsRotated { x 7.5 y 5.5 }
+	SizeTests { x 11 y 17 s 0.5 r -90 }
+	SquareEdge { x 13 y 6 }
+	CircleLine { x 15 y 6 }
+	BrightnessLines { x 17 y 6 }
+
+	// bottom row
+	TouchingTestsJittered { x 1.5 y 2 b 0.5 }
+}
+
+rule TouchingTestsSized {
+	TouchingTests { x 0 }
+	TouchingTests { y 5 s 0.7 }
+	TouchingTests { y 8.5 s 0.4 }
+}
+rule TouchingTestsRotated {
+	TouchingTests { x 0 y 9 s 0.4 r 45 }
+	TouchingTests { x 0 y 6.5 s 0.4 r 30 }
+	TouchingTests { x 0 y 4.2 s 0.4 r 15 }	
+	TouchingTests { x 0 y 2 s 0.4 r 5 }	
+	TouchingTests { x 0 y -0.25 s 0.4 r 2 }	
+}
+rule TouchingTestsJittered {
+	// at 2000pixels, 1 unit = 100pixels
+	// important: there should be no scaling between the startshape and here!
+	// optimally, only the rightmost pair should touch
+	TouchPair { x 00 y 0.0200 }	// 2 pixel gap
+	TouchPair { x 01 y 0.0150 }	// 1.5 pixel gap
+	TouchPair { x 02 y 0.0100 }	// 1 pixel gap
+	TouchPair { x 03 y 0.0090 }
+	TouchPair { x 04 y 0.0080 }
+	TouchPair { x 05 y 0.0070 }
+	TouchPair { x 06 y 0.0060 }
+	TouchPair { x 07 y 0.0050 }
+	TouchPair { x 08 y 0.0040 }
+	TouchPair { x 09 y 0.0030 }
+	TouchPair { x 10 y 0.0020 }
+	TouchPair { x 11 y 0.0010 }
+	TouchPair { x 12 y 0.0000 }	// exact
+	TouchFixed { x 00 }
+	TouchFixed { x 01 }
+	TouchFixed { x 02 }
+	TouchFixed { x 03 }
+	TouchFixed { x 04 }
+	TouchFixed { x 05 }
+	TouchFixed { x 06 }
+	TouchFixed { x 07 }
+	TouchFixed { x 08 }
+	TouchFixed { x 09 }
+	TouchFixed { x 10 }
+	TouchFixed { x 11 }
+	TouchFixed { x 12 }
+}
+rule TouchPair {
+	SQUARE { x 0 y 0.0 s 0.5 b 0.0 }
+	SQUARE { x 0 y 0.5 s 0.5 b 0.0 }
+}
+rule TouchFixed {
+	SQUARE { x 0 y 1 s 0.5 b 0.0 }
+}
+	
+rule TouchingTests {
+	SquareAbutTest { x 0 y 2.5 }
+	OverlapTest { x 3 y 2.5 }
+	CircleAbutTest { x 0 y 0 }
+	CircleInSquaresTest { x 3 y 0 }
+}
+rule SquareAbutTest {
+// there should be no white showing between these
+	SQUARE { x -0.5 }
+	SQUARE { x 0.5 }
+	SQUARE { y 1 }
+}
+
+rule CircleInSquaresTest {
+// the circle should just touch the squares
+	CIRCLE { }
+	SQUARE { x -1 }
+	SQUARE { x 1 }
+	SQUARE { y 1 }
+}
+
+rule CircleAbutTest {
+// the circles should just touch
+	CIRCLE { x -0.5 }
+	CIRCLE { x 0.5 }
+	CIRCLE { y 1 x -0.5 }
+	CIRCLE { y 1 x 0.5 }
+}
+
+rule OverlapTest {
+// center should be a clean cross-hair
+	SQUARE { x -0.5 }
+	SQUARE { x 0.5 b 0.5 }
+	SQUARE { x -0.5 y 1 b 0.75 }
+	SQUARE { x 0.5 y 1 b 0.25 }
+}
+
+rule SizeTests {
+// the progression of shapes should appear smooth
+	SizeSquareTests { y -0.75 }
+	SizeCircleTests { y 0.75 }
+}
+rule SizeCircleTests {
+	CIRCLE {  }
+	SizeCircleTests { x 2.25 s 0.90 }
+}
+rule SizeSquareTests {
+	SQUARE {  }
+	SizeSquareTests { x 2.25 s 0.90 }
+}
+
+rule SquareEdge {
+// there should be no white space between the squares as they get smaller, and the right edge should be a straight line
+	SQUARE { }
+	SquareEdge { y 0.95 x 0.05 s 0.90 }
+}
+
+rule CircleLine {
+// the circles should just touch as they get smaller
+	CIRCLE { }
+	CircleLine { y 0.95 s 0.90 }
+}
+
+rule BrightnessLines {
+	BrightnessLinePerCent { x 0 }
+	BrightnessLineHex { x 0.84375 y -0.15625 s 0.6875 }
+	Pin { x -0.5 y 10.5 r -135 s 0.25 }
+	Pin { x 1.1875 y 10.5 r 135 s 0.25 }
+}
+rule BrightnessLinePerCent {
+// eleven even gradations from white to black
+	SQUARE { b 0.0 y 0 }
+	SQUARE { b 0.1 y 1 }
+	SQUARE { b 0.2 y 2 }
+	SQUARE { b 0.3 y 3 }
+	SQUARE { b 0.4 y 4 }
+	SQUARE { b 0.5 y 5 }
+	SQUARE { b 0.6 y 6 }
+	SQUARE { b 0.7 y 7 }
+	SQUARE { b 0.8 y 8 }
+	SQUARE { b 0.9 y 9 }
+	SQUARE { b 1.0 y 10 }
+}
+rule BrightnessLineHex {
+// sixteen even gradations from white to black
+	SQUARE { b 0.0 y 0 }
+	SQUARE { b 0.0666666667 y 1 }
+	SQUARE { b 0.1333333333 y 2 }
+	SQUARE { b 0.2000000000 y 3 }
+	SQUARE { b 0.2666666667 y 4 }
+	SQUARE { b 0.3333333333 y 5 }
+	SQUARE { b 0.4000000000 y 6 }
+	SQUARE { b 0.4666666667 y 7 }
+	SQUARE { b 0.5333333333 y 8 }
+	SQUARE { b 0.6000000000 y 9 }
+	SQUARE { b 0.6666666667 y 10 }
+	SQUARE { b 0.7333333333 y 11 }
+	SQUARE { b 0.8000000000 y 12 }
+	SQUARE { b 0.8666666667 y 13 }
+	SQUARE { b 0.9333333333 y 14 }
+	SQUARE { b 1.0000000000 y 15 }
+}
+
+rule Pin {
+	PinLine { y -1 s 0.2 }
+}
+
+rule PinLine {
+	CIRCLE { }
+	PinLine { y 0.25 s 0.95 }
+}

data/lib/image_paradise/cfdg/repeat_floor_tile_pattern.cfdg

@@ -0,0 +1,153 @@
+# From: https://www.contextfreeart.org/gallery/view.php?id=4013
+
+startshape A ( 18 ) [ b 0.5 sat 0.5 h 0..360 ]
+ 
+// Renders available in imgur album:
+ 
+// https://imgur.com/a/IpGrtNN
+ 
+// YSO, YSU, YSX, YTG
+// BBS, BBT, BBU, BBV, BBW, BBX
+// PSY, PTC, PTD, PTK, PTM
+// PTS, PUG, ZPJ, ZPO, ZPS
+ 
+CF::MinimumSize = 0.01
+CF::Impure = 1
+ 
+// The algorithm works by dividing a square into 4
+// Each quadrant has a random transformation applied
+// and then divides the next square into 4...
+ 
+// When n == 0 a square is drawn.  The transformations
+// used are symmetrical for squares so the full grid shape
+// will be preserved.
+
+// Transformation vector:
+// Each transformation has a random 4 bit integer in
+// this vector.  The 4 bits of each vector item determine
+// if the transformation should be applied to one of the
+// four sections the square is divided into
+ 
+// The vector items are:
+//   brightness, hue, saturation,
+//   rotate 90, rotate 180,
+//   flip 45, flip 135
+//
+// Note: brightness uses rand(7)+1 so that there will
+//       always be asymmetry 
+ 
+v =  ( randint(7) + 1 ) ,  randint(15), randint(15), 
+   randint(15), randint(15),
+   randint(15), randint(15)
+
+// This shape divides a square into 4 sections and transforms
+// each using the B shape
+shape A ( natural n ) 
+{
+  if ( n == 0 )
+  {
+    SQUARE [ ]
+  }
+  else
+  {
+    B ( n--1, 1, 127 ) [ s 0.5 x 0.25  y 0.25   ]
+    B ( n--1, 2, 127 ) [ s 0.5 x -0.25 y 0.25   ]
+    B ( n--1, 4, 127 ) [ s 0.5 x -0.25 y -0.25  ]
+    B ( n--1, 8, 127 ) [ s 0.5 x 0.25  y -0.25  ]
+  }
+}
+ 
+// This shape applies all transformations according to
+// the random ints in vector v.  It applies the transformations
+// one by one using 'o' to keep track of what transforms have been
+// applied
+shape B ( natural n, number m, number o )
+{
+  if ( bitand ( o, 1 ) == 1)
+  {
+    if ( bitand( v[0], m ) == m )
+    {
+      B ( n, m, bitxor ( o, 1 ) ) [ b 0.15 ]
+    }
+    else
+    {
+      B ( n, m, bitxor ( o, 1 ) ) [ b -0.15 ]
+    }
+  }
+ 
+  else if ( bitand ( o, 2 ) == 2   )
+  {
+    if ( bitand( v[1], m ) == m )
+    {
+      B ( n, m, bitxor ( o, 2 ) ) [ h 15 ]
+    }
+    else
+    {
+      B ( n, m, bitxor ( o, 2 ) ) [ h -15 ]
+    }
+  }
+  else if ( bitand ( o, 4 ) == 4   )
+  {
+    if ( bitand( v[2], m ) == m )
+    {
+      B ( n, m, bitxor ( o, 4 ) ) [ sat 0.15 ]
+    }
+    else
+    {
+      B ( n, m, bitxor ( o, 4 ) ) [ sat -0.15 ]
+    }
+  }
+ 
+  else if ( bitand ( o, 8 ) == 8   )
+  {
+    if ( bitand( v[3], m ) == m )
+    {
+      B ( n, m, bitxor ( o, 8 ) ) [ r 90 ]
+    }
+    else
+    {
+      B ( n, m, bitxor ( o, 8 ) ) [ ]
+    }
+  }
+ 
+  else if ( bitand ( o, 16 ) == 16   )
+  {
+    if ( bitand( v[4], m ) == m )
+    {
+      B ( n, m, bitxor ( o, 16 ) ) [ r 180 ]
+    }
+    else
+    {
+      B ( n, m, bitxor ( o, 16 ) ) [ ]
+    }
+  }
+ 
+  else if ( bitand ( o, 32 ) == 32   )
+  {
+    if ( bitand( v[5], m ) == m )
+    {
+      B ( n, m, bitxor ( o, 32 ) ) [ flip 45 ]
+    }
+    else
+    {
+      B ( n, m, bitxor ( o, 32 ) ) [ ]
+    }
+  }
+ 
+  else if ( bitand ( o, 64 ) == 64   )
+  {
+    if ( bitand( v[6], m ) == m )
+    {
+      B ( n, m, bitxor ( o, 64 ) ) [ flip 135 ]
+    }
+    else
+    {
+      B ( n, m, bitxor ( o, 64 ) ) [ ]
+    }
+  }
+ 
+  else
+  {
+     A ( n--1 ) []
+  }
+}