image_paradise 0.4.8

data/lib/image_paradise/cfdg/vigorous_vine.cfdg

@@ -0,0 +1,45 @@
+# =========================================================================== #
+# From:
+#
+#   https://www.contextfreeart.org/gallery2/#design/4004
+#
+# HEIGHT: 600
+# WIDTH:  600
+#
+# =========================================================================== #
+
+startshape VINE
+
+rule VINE{
+
+  ARM[]
+  ARM[flip 200]
+}
+
+rule ARM 49{
+  CIRCLE[]
+  CIRCLE[s 0.99 r 3 h 180.00 sat 1.0000 b 1.0000]
+  ARM{ y 0.2 s 0.99 r 3 }
+}
+
+rule ARM 49{
+  CIRCLE[]
+  CIRCLE[s 0.99 r 3 h 120.00 sat 1.0000 b 1.0000]
+  ARM{ y 0.2 s 0.99 r 3 }
+}
+
+rule ARM 1{
+  CIRCLE[]
+  CIRCLE[s 0.99 r 3 h 300.00 sat 1.0000 b 1.0000]
+  ARM{ y 0.2 s 0.99 r 4 }
+  ARM{ y 0.2 s 0.6 flip 90 b 0.2}
+}
+
+rule ARM 1{
+  CIRCLE[]
+  CIRCLE[s 0.99 r 3 h 317.18 sat 1.0000 b 0.8078]
+  ARM{ y 0.2 s 0.99 r 4 }
+  ARM{ y 0.2 s 0.6 flip 270 b 0.2}
+}
+
+# runcfdg $CFDG/vigorous_vine.cfdg

data/lib/image_paradise/cfdg/ville_topview.cfdg

@@ -0,0 +1,70 @@
+# ==================================================== #
+# rgui $CFDG/ville_topview.cfdg
+# ==================================================== #
+
+startshape COMPO
+background { hue 250 sat .9 b -.6}
+
+# ============================================= #
+#
+# ============================================= #
+rule COMPO {
+  360 * {r 1} SQUARE {x 28.5  s 3 1}
+  360 * {r 1} SQUARE {x 28.3  s 1.5 1 hue 222 sat .2 b .2}
+  120 * {r 3} SQUARE {x 28.3 s .2 .9 b 1}
+  SONNE {s 54}
+  36*{r 10} IM{y 30}
+  36*{r 10} IM{s .75 -.6 y 26.9}
+}
+
+# ============================================= #
+#
+# ============================================= #
+rule IM 450{IM{s .999}}
+rule IM {IMM{s .3}}
+rule IMM 360{IMM{hue 1}}
+rule IMM {IMM1{}}
+rule IMM {IMM2{}}
+rule IMM {IMM3{}}
+rule IMM1 90{BASE1{} IMM1{y 1}}
+rule IMM1 {BASE2{} IMM1{y .666 s .75}}
+rule IMM1 {IMM2{y .666 s .75}}
+rule IMM1 {TOIT{s 18} IMM3{y .666 s .75}}
+rule IMM1 3{TOIT{s 15} BASE2{} IMM1{y .666 s .75}}
+rule IMM1 3{BASE2{} TOIT{s 18}}
+rule IMM1 3{BASE2{} TOIT{s 15}}
+rule IMM2 60{BASE3{} IMM2{y 1}}
+rule IMM2 3{IMM1{y .7 s .8}}
+rule IMM2 {BASE2{} TOIT{s 15}}
+rule IMM3 30{BASE4{} IMM3{y .5}}
+rule IMM3 {BASE2{}}
+# ============================================= #
+#
+# ============================================= #
+rule BASE1 {SQUARE{s 18 2} 8*{x 2}  FENETRE{x -7 s 1 1.5 b 1}}
+rule BASE2 {SQUARE{s 18 2}}
+rule BASE3 {SQUARE{s 18 2} 12*{x 1.4}  FENETRE{x -7.7 s 1 1.5 b 1}}
+rule BASE4 {SQUARE{s 18 1} 10*{x 1.7}  FENETRE{x -7.6 s 1.6 1 b 1}}
+rule TOIT 2{61 * {r 3} SQUARE {x .25 s .5 .1} ANT{}}
+rule TOIT 6{SQUARE {s 1 .3} TOIT{y .18 s .72}}
+rule TOIT {TRIANGLE {s 1 .5} ANT{}}
+rule ANT {TRIANGLE {y .5 s .1 2}}
+rule ANT 3{}
+# ============================================= #
+#
+# ============================================= #
+rule FENETRE 3{SQUAR{}}
+rule FENETRE {}
+rule SQUAR 2{SQUAR{hue +12}}
+rule SQUAR {SQUARE{hue 250 sat .3 b .9} FENE{}}
+rule FENE 15{}
+rule FENE 2{SQUARE{s 1 .1 b -1}}
+rule FENE 1{SQUARE{s 1 .1 b -1} SQUARE{s .1 .5 y .25 b -1}}
+rule FENE 3{SQUARE{s 1 .1 b -1} SQUARE{s 1 .5 y .25 b -1 alpha -.5}}
+rule FENE 2{SQUARE{s 1 .1 b -1} SQUARE{b -1 alpha -.5}SQUARE{s 1 .5 y .25 b -1 alpha -.5}}
+
+# ============================================= #
+# The sun.
+# ============================================= #
+rule SONNE {1500*{s .999 hue -.06 b .005}CIRCLE {hue 250 sat .9 b .4} 60*{r 6}TRIANGLE{s .2 .02 x .1 hue 60 sat 1 b 1} CIRCLE{s .28 hue 60 sat 1 b 1}}
+

data/lib/image_paradise/cfdg/vine.cfdg

@@ -0,0 +1,176 @@
+/*
+ *  Vine
+ *  By AK, June 2010
+ *  Variations: ABC, but most are OK
+ *  A few layering artefacts show up in some variations.
+ *  http://creativecommons.org/licenses/by-sa/2.5/au/
+ */
+ 
+startshape START
+ 
+tile { s 3.6 4.8 }
+ 
+background { h 240 b -.8 sat .1}
+ 
+rule START {
+    12* {x 1 y .5 s .95 .95 .9} stalk { z 200 b .5}
+}
+
+// ---- a few churn rules to start in random position.
+rule stalk {stem {} barestem {r 180}}
+rule stalk 50 {stalk {x sqrt(2)}}
+rule stalk 50 {stalk {y sqrt(2)}}
+ 
+// stem segment alternates curvature, except when flipped, or terminated
+rule stem  { // continuation
+    stem_pA {h 90 sat .6 b -.8}
+    2* {f 90 y .1 x .05}  { 
+        stemlet {r -30 y .5 x .05}
+    }
+    maybeflower {y .5 x .05}
+    stem {x .1 y 1 f 85 r -5 z -1 s .97}
+}
+rule stem .5 { //  flip stem
+    stem {f 90}}
+rule stem .1 { // terminate stem
+    2* {f 90 s .8}  { 
+        stemlet {r -40}
+    }
+    stemlet {f 85 s .8}
+}
+ 
+// bare version of stem - only used inverted.
+rule barestem {
+    stem_pA {h 90 sat .6 b -.8}
+    barestem {x .1 y 1 f 85 r -5 z -5 s .9}
+}
+rule barestem .5 {barestem {f 90}}
+ 
+// ---- small stem with leaf
+rule stemlet { 
+    stem_pA { s .5  h 120 sat .6 b -.7 z -.01} 
+    leaf {x .05 y .5 s .4 f 75 z .1 } 
+}
+ 
+// ---- sometimes this generates a flower
+rule maybeflower {
+    stem_pB {s .5 h 120 sat .6 b -.7 z 1.2}
+    flower {x 1 y 0 s .12 z 1.5}
+}
+rule maybeflower 4 {}
+rule maybeflower 5 {maybeflower {f 90}}
+ 
+// normal path for stem
+path stem_pA {
+    MOVETO {x 0 y 0} 
+    ARCTO {x .1 y 1 r -5}
+    STROKE { param roundcap width 0.08}}
+// path for flower stem
+path stem_pB {
+    MOVETO {x 0 y 0} 
+    CURVETO {x 2 y 0 x1 0.3 y1 1 x2 2 y2 1}
+    STROKE { param roundcap }}
+ 
+// ---- flower: top level randomisation for choice of
+// different styles
+rule flower {calyx {b -.7 |b .5 h 120 sat .5 z .05}flower_X {}}
+rule flower {calyx {b -.7 |b .5 h 120 sat .5 z .05}flower_X {s -1 1 1}}
+rule flower .5 {calyx {b -.7 |b .5 h 120 sat .5 z .05}flower_X {s 1 1 -1}}
+rule flower .5 {calyx {b -.7 |b .5 h 120 sat .5 z .05}flower_X {s -1 1 -1}}
+rule flower_X {flower_A {r -10}}
+rule flower_X {flower_B {r -20}}
+rule flower_X {flower_C {r -30}}
+rule flower_X {flower_D {}}
+ 
+rule calyx {14* {y -.15 s 1.05 b .02|}CIRCLE {s .5 1 skew -20 0}}
+ 
+// several different styles of flower - basically the same
+// idea, but with different geometry
+rule flower_A {
+    flower_A_bell {b .9 a -.5} 	
+    bicurlz {s .15 y -10 z 1.5 a -.2 sat .8 b 1 r -132}
+}
+rule flower_A_bell {
+    flower_ring {y -10 s 1 .6}
+    flower_A_bell {s .997 .999 .997  skew -.05 0 
+        b -.01 h .2 sat .001} 
+}
+ 
+rule flower_B {
+    flower_B_bell {b .9 a -.5} 	
+    bicurlz {s .15 y -10 z 1.5 a -.5 sat .8 b 1 r -132}
+}
+rule flower_B_bell {
+    flower_ring {y -10 s 1 .4}
+    flower_B_bell {s .997 .999 .997  skew -.05 0
+        b -.01 h .2 sat .001} 
+}
+ 
+rule flower_C {
+    flower_C_bell {b .9 a -.5}
+    bicurlz {s .15 y -10 z 1.5 a -.5 sat .8 b 1 r -132}
+}
+rule flower_C_bell {
+    flower_ring {y -10 s 1 0.2}
+    flower_C_bell {s .997 .999 .997  skew -.05 0
+         b -.01 h .2 sat .001}
+}
+
+rule flower_D {
+    flower_D_bell {b .9 a -.5}
+    bicurlz {s .2 y -10 z 1.5 a -.5 sat .8 b 1 r -100}
+}
+rule flower_D_bell {
+    flower_ring {y -10 s 1 0.5}
+    flower_D_bell {s .997 .999 .997 skew -.01 0 b -.01 h .2 sat .001}
+}
+ 
+// -- the basic flower element.  A little bit of
+// randomisation for texture
+rule flower_ring {flower_ring_elt {}}
+rule flower_ring {flower_ring_elt {r 5}}
+rule flower_ring .2 {flower_ring_elt {b -.3}}
+rule flower_ring .2 {flower_ring_elt {r 5 b -.3}}
+ 
+rule flower_ring_elt {
+    9 *  { r 40 } CIRCLE { s .3 1.8 x -3  z 1.002 b .3 sat .3 h 50}
+    9 *  { r 40 } CIRCLE { s .3 .5 x 3.1   z 1.001  b .2 sat .2 h 40}
+    9 *  { r 40 } SQUARE { s .2 1 x 3.5 z 1 b .1}
+    9 *  { r 40 } CIRCLE { s 1 2 x -3.5 z 1 b .3 sat .2 h -30}
+    CIRCLE {s .2 z 1 b .5 a .5 sat .8}
+}
+ 
+// --- curly stamens
+rule bicurlz {2* {f 0}curlz {}}
+rule bicurlz 0.2 {bicurlz {s 1.2 .9}}
+rule curlz {CIRCLE {}curlz {x .2 r 2 s .995 sat -.005 b
+-.005}}
+rule curlz .001 {curlz {f 5}}
+rule curlz .005 {bicurlz {}}
+ 
+// --- leaf rules - these are pretty simple.
+ 
+rule leaf {
+    leaf_body {h 120 b -.4 sat .6 |b .7}
+}
+rule leaf {
+    leaf_body {h 120 b -.5 sat .6 |b .7}
+}
+ 
+rule leaf_body {
+    2 *  { f 90} leaf_side {r -30 s .8 1 .1 x -.02}
+    leaf_mid {y -.01 s 1 .7}
+    leaf_body { s .8 y .4 r 4 |b -0.05}
+}
+rule leaf_mid {
+    leaf_elt {y .5 z -1}
+    leaf_mid { s .9  .995 .9  b .02| }
+}
+rule leaf_side {
+    leaf_elt {y .5 z -1 skew -10 1}
+    leaf_side { s .9  .995 .9  x .005 y .002 b .02| r  -2}
+}
+rule leaf_elt {
+    CIRCLE {}
+    30* {r 12} SQUARE[r 6 x .45 s .1 .05 b .1|]
+}

data/lib/image_paradise/cfdg/vinyl.cfdg

@@ -0,0 +1,12 @@
+startshape vynil
+
+rule vynil {
+  thinLine { }
+  thinLine { flip 90 }
+  CIRCLE { s 7 y 203 }
+}
+
+rule thinLine {
+  SQUARE {}
+  thinLine { x 1 r .28 s .99999 }
+} 

data/lib/image_paradise/cfdg/violet_ribbons.cfdg

@@ -0,0 +1,45 @@
+# ========================================================== #
+# Title:  Ribbons 2
+# Author: epmoyer
+# Date:   12/26/06
+# Reference Pic Seed: OVJ
+# Description:    
+#     Those tight loops sure remind me of the 70's.
+# 
+# Intersting Concepts:
+#    Experiments with the conecept of low priority escape
+# rules to switch between
+# clockwise and counterclockwise rotations.   The
+# fundamental algorithm is very 
+# similar to randomly curving tentacles (like Cilia Sun),
+# but once it settles in
+# a give state (CW, or CCW)it remains there a while.
+# ========================================================== #
+ 
+startshape INIT
+background { b -1 }
+ 
+rule INIT{ MAIN{ |hue 300 |sat 0.9 |b 1  hue 230 sat 0.5 b 0.1 }}
+ 
+rule MAIN{ 
+  WANDER_CW {}
+  MAIN {r 21 s 0.98 }
+}
+ 
+rule WANDER_CW 1.0 { 
+  SQUARE{} 
+  WANDER_CW [y 0.2 r 2 hue 0.001| sat 0.001| b 0.001| s 0.9987 ]
+}
+rule WANDER_CW 0.005 { 
+  SQUARE{} 
+  WANDER_CCW [y 0.2 r 2 hue 0.001| sat 0.001| b 0.001| s 0.9987 ]
+}
+ 
+rule WANDER_CCW 1.0 { 
+  SQUARE{} 
+  WANDER_CCW [y 0.2 r -2 hue 0.001| sat 0.001| b 0.001| s 0.9987 ]
+}
+rule WANDER_CCW 0.01 { 
+  SQUARE{} 
+  WANDER_CW [y 0.2 r -2 hue 0.001| sat 0.001| b 0.001| s 0.9987 ]
+}

data/lib/image_paradise/cfdg/voronoi_2.cfdg

@@ -0,0 +1,61 @@
+/*
+ * I wanted to try some vector manipulation using Amazing Maze for clues.
+ *
+ * This looks a bit like eukaryotic cells in a confocal laser microscope.
+ *
+ * Taken from: https://www.contextfreeart.org/gallery/view.php?id=4240
+ *
+ * Originally created by flembobs, on 29.07.2021.
+ */
+
+startshape V []
+
+gridSize=512
+
+// Initialize vector64 - from thijs Amazing Maze
+O1=0,0,0,0,0,0,0,0
+O64=O1,O1,O1,O1,O1,O1,O1,O1
+
+//push one item onto the vector
+vector64 push64(vector64 v64,val)=v64[ 1, 63 ], val
+
+//push 64 random vals 0..1 onto vector
+vector64 rand64_(n,vector64 v64)=if(n<=0,
+  v64,
+  rand64_(n-1, push64(v64,rand())))
+vector64 rand64()=rand64_(64,O64)
+
+//2d distance calc
+d2(i,j)=(i-j)^2
+dist(vector2 v1, vector2 v2)=sqrt(d2(v1[0],v2[0])+d2(v1[1],v2[1]))
+
+//find smallest dist between pos and any X,Y pair
+
+mindist_(vector2 pos, vector64 vX, vector64 vY, n, m)=
+  if ( n < 0, m,
+    let( q=(vX[n], vY[n]); d=dist(pos,q); o=min(m,d);
+      mindist_(pos, vX, vY, n-2, o )))
+mindist(vector2 pos, vector64 vX, vector64 vY)=
+  min(mindist_(pos,vX,vY,63,∞),mindist_(pos,vX,vY,62,∞))
+  //hack: split the list in two to avoid running out of stack
+
+shape V 
+{
+  vX = rand64()
+  vY = rand64()
+  
+  //draw the vX/vY for debugging
+  //loop i=64 [] 
+  //   SQUARE [ x (gridSize*vX[i]) y (gridSize*vY[i])  s 2 b 1 sat 1 z 10 ]
+  
+  loop i=gridSize [ x 1 ]
+  loop j=gridSize [ y 1 ]
+  {
+    v1= i/gridSize, j/gridSize
+    d=mindist( v1, vX, vY )
+    B=1-(d*8)
+    SAT=1
+    H=mod(d*60,6)*60
+    SQUARE [ b B sat SAT h H ]
+  }
+}

data/lib/image_paradise/cfdg/wald.cfdg

@@ -0,0 +1,46 @@
+# ========================================== #
+# rconfreegui $CFDG/wald.cfdg
+# ========================================== #
+background {b -0.0935}
+startshape family
+
+rule family {
+  TREE {}
+  family {x 5 y 0.5 size 0.5 hue 10 sat .5}
+  family {x 1 y 0.5 size 0.5 hue 10 sat .5 }
+  family {x -7 y 0.5 size 0.5 hue 10 sat .5}
+  family {x -3 y 0.5 size 0.5 hue 10 sat .5 }
+}
+
+rule TREE 10 {
+  TRIANGLE { size .30 1}
+  TREE { y 0.4 size 0.945 b .02 r 10}
+}
+
+rule TREE 10 {
+  TRIANGLE { size 0.30 1.5 hue 90 sat .5}
+  TREE { y 0.4 size 0.945 r -10 b .01}
+}
+
+rule TREE 2.5{
+  ZWEIG {}
+}
+
+rule ZWEIG{
+  ZWEIG_LINKS {}
+  ZWEIG_RECHTS {}  
+}
+
+rule ZWEIG_LINKS 3{
+  TREE { rotate 15 size .98}
+}
+rule ZWEIG_LINKS{
+  TREE { rotate 10 size .99}
+}
+
+rule ZWEIG_RECHTS 3{
+  TREE { rotate -5 size .98}
+}
+rule ZWEIG_RECHTS{
+  TREE { rotate -10 size .99 }
+}

data/lib/image_paradise/cfdg/water_ink.cfdg

@@ -0,0 +1,71 @@
+# rconfreegui $CFDG/water_ink.cfdg
+# 
+startshape composition4
+background { hue 45 sat 1 b 0.92 }
+
+rule composition4 {
+  box {s 3}
+}
+rule box  {
+  box1 {}
+  box2 {}
+}
+rule box  {
+  box1 {s 0.9 r 10}
+  box2 {s 0.9 r 10}
+}
+rule box1 {
+  horizon {x 0 y 5 s 6 r -90}
+  horizon {x -5 y 0 s 6 r 0}
+  horizon {x -5 y -20 s 6 r 0}
+  horizon {x 20 y 5 s 6 r -90}
+}
+rule box2 {
+  horizon {x 0 y -25 s 6 r 90}
+  horizon {x 25 y 0 s 6 r 180}
+  horizon {x 25 y -20 s 6 r 180}
+  horizon {x 20 y -25 s 6 r 90}
+}
+rule horizon {
+  fearrow {hue 177 sat 0.5 b 1}
+  fearrow {|hue 177 sat 0.5 b 1 r 90}
+  fearrow {s 0.1 hue 177 sat 0.5 b 1 r -90}
+}
+
+//include fearrow.cfdg
+//** BEGIN OF FEARROW **//
+rule fearrow { fearrow1 { } }
+rule fearrow { fearrow2 { } }
+
+rule fearrow1 {
+  fepart { s 0.1 b 1}
+  fearrow1 { x 0.03  s 0.995}
+}
+
+rule fearrow2 {
+  fepart { s 0.2 b 1}
+  fearrow2 { x 0.02  s 0.995}
+}
+
+rule fearrow1 0.3 {
+  fearrow { }
+}
+
+rule fearrow2 0.3 {
+  fearrow { }
+}
+
+rule fepart {
+  CIRCLE { }
+  fepart { x -0.005 y -0.000 s 0.98 b -0.005 }
+}
+rule fepart {
+  CIRCLE { }
+  hair {}
+  fepart { x -0.005 y -0.000 s 0.97 b -0.05 }
+}
+rule hair {
+CIRCLE { s 1 3 b 0.7 }
+CIRCLE { s 1 3 b 0.7 r 45}
+}
+//** END OF FEARROW **//

data/lib/image_paradise/cfdg/water_monster.cfdg

@@ -0,0 +1,33 @@
+startshape START
+background { b -0.92 sat 0.7 hue 210}
+rule START {
+  CURVE { hue 190 sat 0.7 b -0.5}
+  CURVE { b 1 alpha -0.5 }
+  START { x 0.7 s 0.995 r 3}
+}
+rule START 0.05 { START {flip 180 }}
+rule CURVE {
+  SHAPE { }
+  CURVE { y 0.8 s 0.99 r 2.5 b 0.005 alpha -0.03 }
+}
+rule CURVE .1 {
+  SHAPE { }
+  CURVE { y 0.8 s 0.89 r -2.5 b 0.003 alpha -0.03 }
+  CURVE { y 0.8 s .4 r 20 b 0.003 alpha -0.1 }
+  CURVE { y 0.8 s .8 r -10 b 0.003 alpha -0.1 }
+}
+rule CURVE .01 {
+  CURVE { y 0.2 s .8 r -10 b 0.003 alpha -0.1 }
+}
+rule SHAPE      { 
+  SQUARE { } 
+}
+rule SHAPE 0.05 { 
+  SQUARE { s 10 alpha -0.5 }
+}
+rule SHAPE 0.01 { 
+  SQUARE { s 2 r 45 }
+}
+rule SHAPE .001 { 
+  TRIANGLE{ s 30 alpha -.4 hue 400}
+}

data/lib/image_paradise/cfdg/web.cfdg

@@ -0,0 +1,53 @@
+# =========================================================================== #
+# === gallery2.cfdg
+#
+# Taken from: https://www.contextfreeart.org/gallery/view.php?id=4245
+#
+# Added: 24.08.2021
+#
+# Originally created by: y flembobs
+# =========================================================================== #
+startshape WEB [ ]
+
+CF::Background = [ b -0.85 sat 0.6 h 160 ]
+
+sectors=9
+spirals=21
+
+vector2 vertex(i,n,l)=let(A=(360*(i/n));(sin(A)*l,cos(A)*l))
+
+len(i,j) = 0.5*((sectors*i + j)/(spirals*sectors))
+
+shape WEB
+{
+    CIRCLE [  a -0.8 ]
+    SPIRAL [b 1 sat 0.1 h 90]
+    
+    loop (sectors) [ r (360/(sectors)) ] 
+        LINE [ b 1 sat 0.1 h 90 ]
+}
+
+path SPIRAL
+{
+    loop i=spirals []
+    loop j=sectors []
+    {
+        l1=len(i,j+1)+(-0.003..0.005)                     
+        v1 = vertex(j+1,sectors,l1)
+        
+        R=0.35..1.5
+        ARCTO ( v1[0], v1[1], R )
+    }
+    STROKE (0.00085) []
+}
+
+path LINE
+{
+    m0=-0.001..0.001
+    m1=-0.001..0.001
+    MOVETO(m0,m1)
+    Y=0.5..0.555
+    R=let(n=7..10;select(rand()*2, -n, n))
+    ARCTO ( 0, Y, R )
+    STROKE (0.001)[]
+}

data/lib/image_paradise/cfdg/weighting_demo.cfdg

@@ -0,0 +1,16 @@
+startshape SEED1
+
+rule SEED1 {
+ SQUARE{}
+ SEED1 {y 1.2 size 0.99 rotate 1.5 brightness 0.03}
+}
+
+rule SEED1 0.05 {SEED1 {flip 90}}
+
+rule SEED1 0.05 {
+ SQUARE{}
+ SEED1 {y 1.2 s 0.99 r 1.5 b -0.5 flip 90}
+ SEED1 {y 1.2 x 1.2 s 0.6 r -60 b -0.5}
+ SEED1 {y 1.2 x -1.2 s 0.5 r 60 b -0.5 flip 90}
+}
+

data/lib/image_paradise/cfdg/weird_spots.cfdg

@@ -0,0 +1,15 @@
+startshape mods
+
+rule mods
+{
+  mod { }
+  mods { x +0.75 y +0.75 s 0.5 r 15 }
+  mods { x -0.5 y -0.5 s 0.75 r 60 }
+}
+
+rule mod
+{
+  CIRCLE { x 0 y 0 s 0.5 hue 213 sat 1 b 0.44 }
+  CIRCLE { x 0 y 0 s 0.33 b 1}
+  CIRCLE { x 0 y 0 s 0.167 hue 358 sat 0.88 b 0.93 }
+}