image_paradise 0.4.20

data/lib/image_paradise/cfdg/electro_shock.cfdg

@@ -0,0 +1,88 @@
+# rconfreegui $CFDG/electro_shock.cfdg
+startshape start
+
+background {b -1}
+
+rule item {
+  CIRCLE{}
+}
+
+rule start {
+  startQ {sat 1}
+  startQ {h 90 r 90 sat 1}
+  startQ {h 180 r 180 sat 1}
+  startQ {h 270 r 270 sat 1}
+}
+
+rule startQ {
+  startW {}
+  startW {h 22.5 r 22.5}
+  startW {h 45 r 45}
+  startW {h 67.5 r 67.5}
+}
+
+rule startW {
+  block_S{}
+  block_S{h 11.25 r 11.25}
+}
+
+rule block_S {
+  item {}
+  block_AL{y 1 x -0.2 s 0.99 b 0.01 }
+  block_AR{y 1 x 0.2 s 0.99 b 0.01 }
+}
+
+rule block_AL{
+  item {}
+  block_AL{y 1 x -0.2 s 0.99 b 0.01 }
+}
+
+rule block_AL 0.03{
+  item {}
+  block_AL{y 1 x -0.2 s 0.99 b 0.01 }
+  block_R{y 1 x 0.2 s 0.99 b 0.01 }
+}
+
+rule block_AR{
+  item {}
+  block_AR{y 1 x 0.2 s 0.99 b 0.01 }
+}
+
+rule block_AR 0.03{
+  item {}
+  block_AR{y 1 x 0.2 s 0.99 b 0.01 }
+  block_L{y 1 x -0.2 s 0.99 b 0.01 }
+}
+
+rule block_L{
+  item {}
+  block_L{y 1 x -0.2 s 0.99 b 0.01 }
+}
+
+rule block_L 0.05{
+  item {}
+  block_R{y 1 x 0.2 s 0.99 b 0.01 }
+}
+
+rule block_L 0.01{
+  item {}
+  block_L {y 1 x -0.2 s 0.99 b 0.01 }
+  block_R {y 1 x 0.2 s 0.99 b 0.01 }
+}
+
+
+rule block_R{
+  item {}
+  block_R {y 1 x 0.2 s 0.99 b 0.01 }
+}
+
+rule block_R 0.05{
+  item {}
+  block_L{y 1 x -0.2 s 0.99 b 0.01 }
+}
+
+rule block_R 0.01{
+  item {}
+  block_L{y 1 x -0.2 s 0.99 b 0.01 }
+  block_R{y 1 x 0.2 s 0.99 b 0.01 }
+}

data/lib/image_paradise/cfdg/enter_the_force_field.cfdg

@@ -0,0 +1,56 @@
+# ========================================================= #
+# 
+# ========================================================= #
+background { b -0.981}
+startshape start
+
+rule start
+{
+  thing {hue 0 sat 1 b 1}
+}
+
+rule start 700
+{
+  start {hue 1}
+}
+
+rule thing
+{
+  upperhalf{}
+  upperhalf{flip 180}
+}
+
+rule upperhalf
+{
+  curve {}
+  curve {flip 90}
+}
+
+rule curve
+{
+  vierkant{}
+  curve {x 0.2 r 1 s 0.99 sat -.01 hue -.05}
+}
+
+rule vierkant
+{
+  10*{y 1} rij{}
+}
+
+rule rij
+{
+  10*{x 1} blok{}
+}
+
+rule blok
+{
+  SQUARE {}
+  SQUARE {s 4 alpha -.6}
+  SQUARE {s 10 alpha -.9}
+  blok{s 0.9}
+}
+
+rule blok
+{
+  blok {hue 1}
+}

data/lib/image_paradise/cfdg/escargot_fleur.cfdg

@@ -0,0 +1,98 @@
+# =========================================================================== #
+# From:
+#
+#   https://www.contextfreeart.org/gallery2/#design/4084
+#
+# HEIGHT: 600
+# WIDTH:  600
+#
+# =========================================================================== #
+
+startshape spirale[b 1]
+
+shape spirale
+rule {
+flocon [b 1 s .9]
+spirale [ s .80 x .30 r 37 ]
+}   
+
+
+shape flocon
+rule {
+  quatre_sommets []
+  quatre_sommets [r 180]
+  quatre_sommets [r 30]
+  quatre_sommets [r 210]
+  flocon [z 50 s .67 r 30 h 90 sat .1]
+}
+
+rule {
+  quatre_sommets []
+  quatre_sommets [r 180]
+  flocon [z 50 s .67 r 30 h 36 sat .3]
+}
+
+rule {
+  quatre_sommets []
+  quatre_sommets [r 180]
+  quatre_sommets [r 30]
+  quatre_sommets [r 210]
+  flocon [z 50 s .6 r 30 h 150 sat .5]
+}
+
+rule {
+  quatre_sommets []
+  quatre_sommets [r 180]
+  flocon [z 50 s .6 r 30]
+}
+
+// suite
+rule {
+  quatre_sommets []
+  quatre_sommets [r 180]
+  quatre_sommets [r 30]
+  quatre_sommets [r 210]
+  flocon [z 50 s .8 r 30]
+}
+
+rule {
+  quatre_sommets []
+  quatre_sommets [r 180]
+  flocon [z 50 s .8 r 30]
+}
+
+rule {
+  quatre_sommets []
+  quatre_sommets [r 180]
+  quatre_sommets [r 30]
+  quatre_sommets [r 210]
+  flocon [z 50 s .9 r 30]
+}
+
+rule {
+  quatre_sommets []
+  quatre_sommets [r 180]
+  flocon [z 50 s .9 r 30]
+}
+
+shape quatre_sommets
+rule {
+  tower[]
+  little_tower[r 180 y .291265 s .5 ]
+  little_tower[r 60 x .25 y -.141745 s .5 ]
+  little_tower[r -60 x -.25 y -.141745 s .5 ]
+}
+
+shape tower
+rule {
+  TRIANGLE []
+  tower [z 1 s 0.99 b -0.0099]
+}
+
+shape little_tower
+rule {
+  TRIANGLE []
+  little_tower [z 1 s 0.98 b -0.0098 ]
+}
+
+# runcfdg $CFDG/escargot_fleur.cfdg

data/lib/image_paradise/cfdg/european_city.cfdg

@@ -0,0 +1,63 @@
+# ================================================================== # 
+# Could be used for RPG Stuff.
+# ================================================================== # 
+startshape europeancity
+
+
+rule europeancity {
+  block{}
+  curvedsidestreet{}
+  europeancity {r 90.2}
+}
+
+rule europeancity 0.01{
+  river{}
+  river{flip 180}
+  europeancity {flip 90}
+}
+
+rule europeancity 0.01{end{}}
+  rule river {
+  paint_river{}
+  curve_river {}
+}
+
+rule curve_river {river {y 2 rotate 16}}
+rule curve_river {river {y 2 flip 90}}
+rule curve_river 0.08 {end{}}
+
+rule paint_river {SQUARE {s 1 2.2 y 1 hue 180 b .8 sat 0.3}}
+
+rule curvedsidestreet {
+  pave{}
+  lot {}
+  house{}
+  curve_street {}
+}
+
+rule curve_street {curvedsidestreet {y 1 rotate 20}}
+rule curve_street 2 {curvedsidestreet {y 1 flip 90}}
+rule curve_street 0.24 {end{}}
+
+rule pave {SQUARE {y 0.5 s 0.4 1.1 b 0.5}}
+rule lot {SQUARE { x 0.7 y 0.5 hue 90 b .8 sat 0.3}}
+rule house {SQUARE {s 0.5 x 0.7 y 0.5 hue 10 b 0.8 sat 0.9}}
+
+rule block {
+  block_pave{}
+  block_house{}
+  block_edge {}
+}
+
+rule block_edge {block {y 3 flip 90}}
+rule block_edge 3 {block {rotate 90}}
+rule block_edge 0.5 {end{}}
+
+rule block_pave {SQUARE {s 0.4 3 y 1.5 b 0.5}}
+rule block_house {
+  SQUARE {s 0.8 2.6 y 1.5 x 0.6 hue 10 b 0.8 sat 0.9}
+  SQUARE {s 2.6 0.8 y 0.6 x 1.5 hue 10 b 0.8 sat 0.9}
+}
+rule block_house 0.5 {}
+
+rule end {} 

data/lib/image_paradise/cfdg/evil_eye.cfdg

@@ -0,0 +1,74 @@
+startshape init
+background { hue 300 b -0.85 sat .5 }
+
+rule init {
+  SURF_ARM { r 00 }
+  SURF_ARM { r 10 }
+  SURF_ARM { r 20 }
+  SURF_ARM { r 30 }
+  SURF_ARM { r 40 }
+  SURF_ARM { r 50 }
+  SURF_ARM { r 60 }
+  SURF_ARM { r 70 }
+  SURF_ARM { r 80 }
+  SURF_ARM { r 90 }
+  SURF_ARM { r 100 }
+  SURF_ARM { r 110 }
+  SURF_ARM { r 120 }
+  SURF_ARM { r 130 }
+  SURF_ARM { r 140 }
+  SURF_ARM { r 150 }
+  SURF_ARM { r 160 }
+  SURF_ARM { r 170 }
+  SURF_ARM { r 180 }
+  SURF_ARM { r 190 }
+  SURF_ARM { r 200 }
+  SURF_ARM { r 210 }
+  SURF_ARM { r 220 }
+  SURF_ARM { r 230 }
+  SURF_ARM { r 240 }
+  SURF_ARM { r 250 }
+  SURF_ARM { r 260 }
+  SURF_ARM { r 270 }
+  SURF_ARM { r 280 }
+  SURF_ARM { r 290 }
+  SURF_ARM { r 300 }
+  SURF_ARM { r 310 }
+  SURF_ARM { r 320 }
+  SURF_ARM { r 330 }
+  SURF_ARM { r 340 }
+  SURF_ARM { r 350 }
+  CIRCLE { s 8 hue 200 b 0.8 sat 0.5 }
+  CIRCLE { s 7 }
+}
+
+rule SURF_ARM {
+  arm { y 6 hue 200 b 0.8 sat 0.5 }
+}
+
+rule arm { arml {} }
+rule arm { arml { flip 90 } }
+
+rule arm_rotate { arml { r 2 } }
+rule arm_rotate { arml { r 3 } }
+rule arm_rotate { arml { r 4 } }
+rule arm_rotate { arml { r 5 } }
+
+rule arml {
+  SQUARE {}
+  arm_rotate { y 1.2 hue -3 s 0.97 alpha -0.02 }
+}
+rule arml 0.01 { branch {} }
+rule arml 0.05 { arm {} }
+
+rule branch {
+  CIRCLE { y 2 s 3.5 }
+  arm { y 5 s 1.2 }
+  arml [ y 2 r -90 y 3 s 1.2 ]
+  arml [ y 2 r 90 y 3 s 1.2 flip 90 ]
+}
+rule branch {
+  CIRCLE { y 2 s 3.5 }
+  arml [ y 2 r 60 y 3 s 1.2 flip 90 ]
+  arml [ y 2 r -60 y 3 s 1.2 ]
+}

data/lib/image_paradise/cfdg/evolving_coloured_spots.cfdg

@@ -0,0 +1,47 @@
+#
+# Evolution 2
+#
+
+background {b -1}
+
+startshape INIT
+
+# First call our planet
+rule INIT {
+  PLANET {sat 1 h 0 b 1} 
+}
+
+# invoked by planet
+rule RADIUS{
+  CIRCLE {s 5 a -0.95 z -10}
+  CIRCLE {s 4 a -0.95 z -10}
+  CIRCLE {s 3 a -0.95 z -10}
+  CIRCLE {s 2 a -0.95 z -10}
+}
+
+# Our planet calls RADIUS below
+rule PLANET {
+  CIRCLE[z 50]
+  RADIUS[]
+  NEWPLANET[h 5 z 1]
+}
+
+# This is the main part. 
+rule NEWPLANET { PLANET[x 2.5 s 0.75 r  46] }
+rule NEWPLANET { PLANET[x 2.5 s 0.75 r -46] }
+rule NEWPLANET { PLANET[x 2.5 s 1.00 r  46] }
+rule NEWPLANET { PLANET[x 2.5 s 1.00 r -46] }
+rule NEWPLANET {
+  PLANET[x -2.5 s 0.75 r 46]
+  PLANET[x  2.5 s 0.75 r 46]
+}
+
+rule NEWPLANET {
+  PLANET[x -2.5 s 0.75 r -46]
+  PLANET[x  2.5 s 0.75 r -46]
+}
+
+rule NEWPLANET 0.005{
+  PLANET[x -2.5 s 5 r 46]
+  PLANET[x 2.5 s 5 r -46]
+}

data/lib/image_paradise/cfdg/excellines_nr2.cfdg

@@ -0,0 +1,171 @@
+startshape START
+background {hue 200 sat 1 b -.9}
+ 
+rule SCENE {
+  BIG { x 800 y 800 }
+  BIG { x -800 y 800 }
+  BIG { x 800 y -800 }
+  BIG { x -800 y -800 }
+}
+ 
+rule BIG {
+  START { x 400 y 400 }
+  START { x -400 y 400 }
+  START { x 400 y -400 }
+  START { x -400 y -400 }
+}
+ 
+rule START {
+  EIGHT { x 200 y 200}
+  EIGHT { x -200 y 200 }
+  EIGHT { y -200 x 200}
+  EIGHT { y -200 x -200 }
+}
+ 
+rule EIGHT {
+  FOUR { x -100 y 100}
+  FOUR { x 100 y 100}
+  FOUR { x -100 y -100}
+  FOUR { x 100 y -100}
+}
+ 
+rule FOUR {DING { s 2 }}
+rule FOUR {
+DING { x -50 y 50}
+DING { x 50 y 50}
+DING { x -50 y -50 }
+DING { x 50 y -50 }
+}
+ 
+rule DING {
+CURVE {}
+CURVE {x 100 flip 90}
+CURVE {y -100 flip 180}
+CURVE {y -100 x 100 r 180}
+CURVE {x 100 y -100}
+CURVE {y -100 flip 90}
+CURVE {x 100 flip 180}
+CURVE { r 180}
+ 
+}
+ 
+rule CURVE
+{
+BRUSH{r 0 x 0 y 50}
+BRUSH{r 1 x -0.00761524218043519 y 49.1273796781358}
+BRUSH{r 2 x -0.0304586490452152 y 48.255025164875}
+BRUSH{r 3 x -0.0685232622713059 y 47.3832021878528}
+BRUSH{r 4 x -0.121797487008791 y 46.5121763127937}
+BRUSH{r 5 x -0.19026509541272 y 45.6422128626171}
+BRUSH{r 6 x -0.273905231586333 y 44.7735768366173}
+BRUSH{r 7 x -0.372692417933898 y 43.9065328297426}
+BRUSH{r 8 x -0.486596562921484 y 43.0413449519967}
+BRUSH{r 9 x -0.615582970243111 y 42.1782767479885}
+BRUSH{r 10 x -0.759612349389599 y 41.3175911166535}
+BRUSH{r 11 x -0.918640827616798 y 40.4595502311728}
+BRUSH{r 12 x -1.09261996330972 y 39.604415459112}
+BRUSH{r 13 x -1.28149676073824 y 38.7524472828067}
+BRUSH{r 14 x -1.48521368620018 y 37.9039052200166}
+BRUSH{r 15 x -1.70370868554659 y 37.059047744874}
+BRUSH{r 16 x -1.93691520308406 y 36.21813220915}
+BRUSH{r 17 x -2.18476220184823 y 35.3814147638632}
+BRUSH{r 18 x -2.44717418524232 y 34.5491502812526}
+  BRUSH{r 19 x -2.72407122003415 y 33.7215922771422}
+  BRUSH{r 20 x -3.01536896070458 y 32.8989928337166}
+  BRUSH{r 21 x -3.32097867513991 y 32.081602522735}
+  BRUSH{r 22 x -3.64080727166063 y 31.2696703292044}
+  BRUSH{r 23 x -3.97475732737798 y 30.4634435755363}
+  BRUSH{r 24 x -4.32272711786996 y 29.66316784621}
+  BRUSH{r 25 x -4.68461064816751 y 28.869086912965}
+  BRUSH{r 26 x -5.06029768504165 y 28.0814426605461}
+  BRUSH{r 27 x -5.44967379058161 y 27.3004750130227}
+  BRUSH{r 28 x -5.85262035705365 y 26.5264218607055}
+BRUSH{r 29 x -6.26901464303021 y 25.7595189876831}
+BRUSH{r 30 x -6.69872981077806 y 25}
+BRUSH{r 31 x -7.14163496489439 y 24.2480962544973}
+BRUSH{r 32 x -7.5975951921787 y 23.5040367883398}
+BRUSH{r 33 x -8.0664716027288 y 22.7680482492486}
+BRUSH{r 34 x -8.54812137224792 y 22.0403548264627}
+BRUSH{r 35 x -9.04239778555041 y 21.3211781824477}
+BRUSH{r 36 x -9.54915028125263 y 20.6107373853763}
+BRUSH{r 37 x -10.0682244976354 y 19.9092488423976}
+BRUSH{r 38 x -10.5994623196639 y 19.2169262337171}
+BRUSH{r 39 x -11.1427019271515 y 18.5339804475081}
+BRUSH{r 40 x -11.6977778440511 y 17.860619515673}
+BRUSH{r 41 x -12.2645209888614 y 17.1970485504746}
+BRUSH{r 42 x -12.8427587261303 y 16.5434696820571}
+BRUSH{r 43 x -13.4323149190415 y 15.9000819968751}
+BRUSH{r 44 x -14.0330099830674 y 15.2670814770501}
+BRUSH{r 45 x -14.6446609406726 y 14.6446609406726}
+BRUSH{r 46 x -15.2670814770501 y 14.0330099830674}
+BRUSH{r 47 x -15.9000819968751 y 13.4323149190415}
+BRUSH{r 48 x -16.5434696820571 y 12.8427587261303}
+BRUSH{r 49 x -17.1970485504746 y 12.2645209888614}
+BRUSH{r 50 x -17.860619515673 y 11.6977778440511}
+BRUSH{r 51 x -18.5339804475081 y 11.1427019271515}
+BRUSH{r 52 x -19.2169262337171 y 10.5994623196639}
+BRUSH{r 53 x -19.9092488423976 y 10.0682244976354}
+BRUSH{r 54 x -20.6107373853763 y 9.54915028125263}
+BRUSH{r 55 x -21.3211781824477 y 9.04239778555041}
+BRUSH{r 56 x -22.0403548264627 y 8.54812137224791}
+BRUSH{r 57 x -22.7680482492486 y 8.0664716027288}
+BRUSH{r 58 x -23.5040367883398 y 7.5975951921787}
+BRUSH{r 59 x -24.2480962544973 y 7.14163496489439}
+BRUSH{r 60 x -25 y 6.69872981077807}
+BRUSH{r 61 x -25.7595189876831 y 6.26901464303021}
+BRUSH{r 62 x -26.5264218607055 y 5.85262035705366}
+BRUSH{r 63 x -27.3004750130227 y 5.44967379058161}
+BRUSH{r 64 x -28.0814426605461 y 5.06029768504165}
+BRUSH{r 65 x -28.869086912965 y 4.68461064816751}
+BRUSH{r 66 x -29.66316784621 y 4.32272711786996}
+BRUSH{r 67 x -30.4634435755363 y 3.97475732737799}
+BRUSH{r 68 x -31.2696703292044 y 3.64080727166063}
+BRUSH{r 69 x -32.081602522735 y 3.32097867513991}
+BRUSH{r 70 x -32.8989928337166 y 3.01536896070458}
+BRUSH{r 71 x -33.7215922771422 y 2.72407122003416}
+BRUSH{r 72 x -34.5491502812526 y 2.44717418524232}
+BRUSH{r 73 x -35.3814147638632 y 2.18476220184823}
+BRUSH{r 74 x -36.21813220915 y 1.93691520308406}
+BRUSH{r 75 x -37.059047744874 y 1.70370868554659}
+BRUSH{r 76 x -37.9039052200166 y 1.48521368620018}
+BRUSH{r 77 x -38.7524472828068 y 1.28149676073824}
+BRUSH{r 78 x -39.604415459112 y 1.09261996330972}
+BRUSH{r 79 x -40.4595502311728 y 0.918640827616798}
+BRUSH{r 80 x -41.3175911166535 y 0.759612349389599}
+BRUSH{r 81 x -42.1782767479885 y 0.615582970243111}
+BRUSH{r 82 x -43.0413449519967 y 0.486596562921484}
+BRUSH{r 83 x -43.9065328297426 y 0.372692417933898}
+BRUSH{r 84 x -44.7735768366173 y 0.273905231586333}
+BRUSH{r 85 x -45.6422128626171 y 0.19026509541272}
+BRUSH{r 86 x -46.5121763127937 y 0.121797487008791}
+BRUSH{r 87 x -47.3832021878528 y 0.0685232622713059}
+BRUSH{r 88 x -48.2550251648749 y 0.0304586490452152}
+BRUSH{r 89 x -49.1273796781358 y 0.00761524218043519}
+BRUSH{r 90 x -50 y 0}
+}
+ 
+rule BRUSH {
+SQUARE {s 100 .07 hue 90 sat 1 b 1}
+}
+ 
+rule BRUSH {
+CIRCLE {s 8 hue 220 sat .6 b 1 z -1 a -.9}
+CIRCLE {s 4 hue 220 sat .8 b 1 z -1 a -.5}
+CIRCLE {s 1 hue 220 sat .2 b 1 z 1 }
+}
+ 
+rule BRUSH {
+SQUARE {s 100 .07 hue 190 sat 1 b 1}
+}
+ 
+rule BRUSH {
+SQUARE {s 100 .07 hue 120 sat 1 b 1}
+}
+ 
+rule BRUSH {
+SQUARE {s 30 .2 hue 120 sat 1 b 1}
+}
+ 
+rule BRUSH {
+SQUARE {s 50 .1 hue 20 sat 1 b 1}
+}

data/lib/image_paradise/cfdg/exoplanet_settlement.cfdg

@@ -0,0 +1,117 @@
+/*
+ 
+ Settlement
+ 
+ AK July 2015
+ 
+ http://creativecommons.org/licenses/by-sa/3.0/au/deed.en
+ 
+*/
+ 
+CF::ColorDepth=16
+CF::MinimumSize=0.1
+ 
+H=5
+W=3
+YC=13
+CF::Size=[s H W y -YC]
+ 
+startshape S
+ 
+eps=0.01
+ 
+ 
+ 
+shape S{
+    loop 10 [s .95 .92 y 1.2 ]
+        loop 2 [f 90]
+            loop 10 [r -2]
+                MIST[[r -1 x -.2...2 -.2...2 y 8 sat 1 a -.9
+b .5 s 1.1 1]]
+    loop 10 [s .95 .92 y 1.5 ]
+        loop 2 [f 90] 
+            loop 10 [r -2] 
+                SPIKED[[r -1 x -.2...2 -.2...2 y 12 z 2 ]]
+    AK[x (H/2-.13) y (YC-W/2+.1) s .05 z 9999 b 1 a -.9]
+    }
+ 
+shape SPIKED
+    rule 2 {
+    PLATFORM[[s 1..1.5 z 999]] 
+    SPIKE[b 1 sat .6]
+    } 
+    rule 1 {
+    SPIKE[b 1 sat .6]
+    } 
+ 
+ 
+shape PLATFORM{
+    FARM[s .1 y .01]
+    CIRCLE[z 1 s .21 .105  y .01]
+    CIRCLE[z 1 s .21 .105 ]
+    SCAF[ s .2 .1 ]
+    }
+ 
+shape FARM
+    rule 1 {
+    CIRCLE[s 2 1  b .6 h 120 sat .8 z 2]
+    FUZZ[s 2 1 z 2.1]
+    FUZZ[s 1 .5 x .35 y .175 z 2.1]
+    loop 20[] TREE[x 0.. .7 0.. .35 s .05 z 5 b .2 sat .5]
+    HUT[[x -.7.. -.2 0.. .1 s .3 z 5 h 240 sat .3 z 5]]
+    }
+    rule 1 { FARM[f 90] }
+    rule .2{
+    CIRCLE[s 2 1  b .3 h 40 sat .6 z 2]
+    FUZZ[s 2 1 z 2.1]
+    }
+ 
+shape FUZZ{
+    loop 36 [r 10] { CIRCLE [ s .5 x .25 h 60  a -1 .. -.95]
+}
+    }
+ 
+shape TREE
+    rule 9{
+        CIRCLE[]
+        TREE[y .2 r -0..5 s .98 b .01 h 1]
+        }
+    rule .3{
+        TREE[r 10] TREE[s .8 r -30]
+        }
+    rule 9{ TREE[f 90]}
+ 
+shape HUT{
+    loop 2 [ x -.05 y .05 b -1 a -.5] SQUARE[[s 1 .5 r
+120]]
+    HUT[[s .98 .96 y .05 b .1 .3]]
+    }
+ 
+N=8
+shape SCAF{
+    loop N [r (360/N)] SQUARE[x .5 s .06]
+    SCAF[s .992 .995 y -.005]
+    }
+ 
+shape SPIKE{
+    CIRCLE[ y -3 ]
+    SPIKE[s (1-2*eps) (1-eps) b (-2*eps) r
+-(5*sqrt(eps))..(5*sqrt(eps)) z eps]
+    }
+ 
+shape MIST
+    rule 20{
+    CIRCLE[s 2]
+    MIST [s (1-.5*eps) (1-.6*eps) y (10*eps) b (.15*eps) r
+-(10*sqrt(eps))..(50*sqrt(eps)) h (.2*eps) 60 z eps a
+(-eps/2) sat eps .8]
+    }
+    rule .3{MIST[f 90]}	rule .05{MIST[x .2] MIST[f 90]}
+ 
+ 
+// ---- A signature (FWIW)
+shape AK{
+    loop 3[r 120]
+        TRIANGLE[[x .5 (-.5*sqrt(3)) s 1 2 skew -30 0 x .5
+(1/6*sqrt(3))]]
+    }