image_paradise 0.4.20

data/lib/image_paradise/cfdg/ciliasun.cfdg

@@ -0,0 +1,109 @@
+startshape SUN
+
+rule SUN {
+	ROUND {    hue 0 sat 1  b 0.3 
+ 				|hue 60   |sat 1 |b 1 }
+}
+
+rule ROUND {
+	ROUNDQ { r 0 }
+	ROUNDQ { r 45 }
+	ROUNDQ { r 90 }
+	ROUNDQ { r 135 }
+	ROUNDQ { r 180 }
+	ROUNDQ { r 225 }
+	ROUNDQ { r 270 }
+	ROUNDQ { r 315 }
+}
+rule ROUNDQ {
+	LINEX { r 0 }
+	LINEX { r 5 }
+	LINEX { r 10 }
+	LINEX { r 15 }
+	LINEX { r 20 }
+	LINEX { r 25 }
+	LINEX { r 30 }
+	LINEX { r 35 }
+	LINEX { r 40 }
+}
+rule LINEX { LINER { y 5 } }
+
+rule LINES {
+	LINER { }
+	LINER { x 2 }
+	LINER { x 4 }
+	LINER { x 6 }
+	LINER { x 8 }
+	LINES { x 0.7 y 1.5 b 0.1 s 0.8 }
+ }
+
+rule LINER { LINER1 { } }
+rule LINER { LINER2 { } }
+rule LINER { LINER3 { } }
+rule LINER { LINER4 { } }
+rule LINER { LINER5 { } }
+rule LINER { LINER6 { } }
+
+rule LINER1 {
+	UTRIANGLE { y 0.5 }
+	LINER1 { r -1 b 0.1| hue 0.1|
+		y 0.75 x 0.4330125
+		 s 0.97 }
+ }
+rule LINER2 {
+	UTRIANGLE { y 0.5 }
+	LINER2 { r -2 b 0.1| hue 0.1|
+		y 0.75 x 0.4330125
+		 s 0.97 }
+ }
+rule LINER3 {
+	UTRIANGLE { y 0.5 }
+	LINER3 { r -3 b 0.1| hue 0.1|
+		y 0.75 x 0.4330125
+		 s 0.97 }
+ }
+rule LINER4 {
+	UTRIANGLE { y 0.5 }
+	LINER4 { r 1 b 0.1| hue 0.1|
+		y 0.75 x 0.4330125
+		 s 0.97 }
+ }
+rule LINER5 {
+	UTRIANGLE { y 0.5 }
+	LINER5 { r 2 b 0.1| hue 0.1|
+		y 0.75 x 0.4330125
+		 s 0.97 }
+ }
+rule LINER6 {
+	UTRIANGLE { y 0.5 }
+	LINER6 { r 3 b 0.1| hue 0.1|
+		y 0.75 x 0.4330125
+		 s 0.97 }
+ }
+
+rule LINER1 .1 { LINER { } }
+rule LINER2 .1 { LINER { } }
+rule LINER3 .1 { LINER { } }
+rule LINER4 .1 { LINER { } }
+rule LINER5 .1 { LINER { } }
+rule LINER6 .1 { LINER { } }
+
+// 0.754877 is the solution to
+// x^2 + x^3 = 1
+// this allows double backed
+// triangles to exactly line up!
+
+
+rule UTRIANGLE {
+	TRIANGLE { r 42.5 s 0.525 }
+}
+rule TRIANGLE{ 
+	ARM { r 0 }
+	ARM { r 120 }
+	ARM { r -120 }
+} 
+
+rule ARM {
+	CIRCLE { }
+	ARM { y 0.1 s 0.9 r 2 }
+}

data/lib/image_paradise/cfdg/cipal.cfdg

@@ -0,0 +1,65 @@
+startshape INICIO
+background { b -1 }
+rule INICIO {
+  RECTA { hue 1 sat 0.1 b -0.0 }
+}
+rule RECTA {
+  SQUARE { b 0.5 }
+  RECTA { s 0.99 y -1 hue -1 r -1 }
+}
+rule RECTA 0.01 {
+  RECTA { s 0.5 r 5 }
+  RECTA { s 0.99 r -0.9 }
+}
+rule RECTA 0.9 {
+  RECTA { flip 99 }
+}
+rule RECTA {
+  SQUARE { b 0.99}
+  RECTA {y 0.5 y -1 hue -5 r -1 }
+}
+rule RECTA {
+  SQUARE { b 0.5 }
+  RECTA { s 0.99 y -1 hue -1 r -1 }
+}
+rule RECTA 0.01 {
+  RECTA { s 0.5 r 5 }
+RECTA { s 0.99 r -0.9 }
+}
+rule RECTA 0.9 {
+RECTA { flip 50 }
+}
+rule RECTA {
+SQUARE { b 0.99}
+RECTA {y 0.5 y -1 hue -5 r -1 }
+}
+rule RECTA {
+SQUARE { b 0.5 }
+RECTA { s 0.99 y -1 hue -1 r -1 }
+}
+rule RECTA 0.01 {
+  RECTA { s 0.5 r 5 }
+  RECTA { s 0.99 r -0.9 }
+}
+rule RECTA 0.9 {
+  RECTA { flip 99 }
+}
+rule RECTA {
+  SQUARE { b 0.99}
+  RECTA {y 0.5 y -1 hue -5 r -1 }
+}
+rule RECTA {
+  SQUARE { b 0.5 }
+  RECTA { s 0.99 y -1 hue -1 r -1 }
+}
+rule RECTA 0.01 {
+  RECTA { s 0.5 r 5 }
+  RECTA { s 0.99 r -0.9 }
+}
+rule RECTA 0.9 {
+  RECTA { flip 20 }
+}
+rule RECTA {
+  SQUARE { b 0.99}
+  RECTA {y 0.5 y -1 hue -5 r -1 }
+} 

data/lib/image_paradise/cfdg/circuits.cfdg

@@ -0,0 +1,176 @@
+/*
+ * Inspired by http://loopgame.co/
+ */
+
+Size = randint(3,16)
+spacing = 3.9
+CF::MaxNatural = 2^30
+CF::Background = [ b -1 ] 
+ 
+startshape Rows(0, Size)
+//startshape test
+ 
+shape Rows(natural top, natural n) {
+  middle = bitand(randint(2^Size), bitnot(1))
+  bottom = if(n, randint(2^Size), 0)
+ 
+  Row(top,middle,bottom,Size) [ ]
+  if (n)
+    Rows(bottom, n--1) [ y -spacing ]
+}
+ 
+shape Row(natural top, natural middle, natural bottom,
+natural expo) {
+  Cell(bitand(middle,1), bitand(top,1),
+    bitand(middle,2), bitand(bottom,1)) []
+ 
+  if (expo)
+    Row(div(top,2), div(middle,2), div(bottom,2),
+expo--1) [ x spacing ]
+}
+ 
+shape Cell(natural left, natural top, natural right, natural
+bottom) {
+  if (top && bottom && !left && !right)
+    segment []
+ 
+  if (!top && !bottom && left && right)
+    segment [ r 90 ]
+ 
+  if (bottom && right)
+    turn_right [ ]
+ 
+  if (right && top)
+    turn_right [ r 90 ]
+ 
+  if (top && left)
+    turn_right [ r 180 ]
+ 
+  if (left && bottom)
+    turn_right [ r -90 ]
+ 
+  if (left && !top && !right && !bottom)
+    station [ r 90 ]
+ 
+  if (!left && top && !right && !bottom)
+    station [ ]
+ 
+  if (!left && !top && right && !bottom)
+    station [ r -90 ]
+ 
+  if (!left && !top && !right && bottom)
+    station [ r 180 ]
+ 
+  //TestCell(left,top,right,bottom) []
+}
+ 
+path segment {
+  MOVETO(-0.5,-2)
+  LINETO(-0.5,2)
+  LINETO(0.5,2)
+  LINETO(0.5,-2)
+  FILL()[b 1]
+ 
+  MOVETO(0.5,-2)
+  LINEREL(0,4)
+  STROKE(0.1)[]
+ 
+  MOVETO(-0.5,-2)
+  LINEREL(0,4)
+  STROKE(0.1)[]
+}
+ 
+path turn_right {
+  MOVETO(-0.5, -2)
+  ARCTO(2, 0.5, 2.5, CF::ArcCW)
+  LINETO(2, -0.5)
+  ARCTO(0.5, -2, 1.5)
+  CLOSEPOLY()
+  FILL[b 1]
+ 
+  MOVETO(-0.5, -2)
+  ARCTO(2, 0.5, 2.5, CF::ArcCW)
+  STROKE(0.1)[]
+ 
+  MOVETO(0.5, -2)
+  ARCTO(2, -0.5, 1.5, CF::ArcCW)
+  STROKE(0.1)[]
+}
+ 
+path station
+{
+  ray = 0.65
+  h2 = 1.41
+ 
+  MOVETO(-0.5, 2)
+  LINETO(-0.5,h2)
+  ARCTO(0, -1.5, 1.5)
+  ARCTO(0.5, h2, 1.5)
+  LINETO(0.5, 2)
+ 
+  MOVETO(0, ray)
+  ARCTO(0, -ray, -ray)
+  ARCTO(0, ray, -ray)
+ 
+  FILL()[b 1]
+  STROKE(0.1, CF::RoundJoin)[]
+ 
+}
+ 
+shape TestCell(natural left, natural top, natural right,
+natural bottom) {
+  transform [ y 1 ]
+  if (top) {
+    SQUARE [ ]
+  } else {
+    CIRCLE [ ]
+  }
+ 
+  transform [ y -1 ]
+  if (bottom ) {
+    SQUARE [ ]
+  } else {
+    CIRCLE [ ]
+  }
+ 
+  transform [ x -1 ]
+  if (left ) {
+    SQUARE [ ]
+  } else {
+    CIRCLE [ ]
+  }
+ 
+  transform [ x 1 ]
+  if (right) {
+    SQUARE [ ]
+  } else {
+    CIRCLE [ ]
+  }
+}
+ 
+shape test {
+  Cell(0,0,0,0)[ x 0]
+  Cell(0,0,0,1)[ x 8 ]
+  Cell(0,0,1,0)[ x 16 ]
+  Cell(0,0,1,1)[ x 24 ]
+ 
+  transform [ y 8 ] {
+  Cell(0,1,0,0)[ x 0 ]
+  Cell(0,1,0,1)[ x 8 ]
+  Cell(0,1,1,0)[ x 16 ]
+  Cell(0,1,1,1)[ x 24 ]
+  }
+  transform [ y 16 ] {
+  Cell(1,0,0,0)[ x 0]
+  Cell(1,0,0,1)[ x 8 ]
+  Cell(1,0,1,0)[ x 16 ]
+  Cell(1,0,1,1)[ x 24 ]
+ 
+  transform [ y 8 ] {
+  Cell(1,1,0,0)[ x 0 ]
+  Cell(1,1,0,1)[ x 8 ]
+  Cell(1,1,1,0)[ x 16 ]
+  Cell(1,1,1,1)[ x 24 ]
+  }
+ }
+}

data/lib/image_paradise/cfdg/city_map.cfdg

@@ -0,0 +1,66 @@
+# First try to port something from Structuresynth. That's why
+# it is using the old syntax - it's close to the eisenscript one.
+#
+# See: https://www.contextfreeart.org/gallery/view.php?id=4228
+#
+# Integrated as of 30.06.2021.
+
+startshape big
+
+rule beam {
+SQUARE{ s 1 0.05 0.125}
+}
+rule beam {
+SQUARE{ s 1.5 0.025 0.125 }
+} 
+
+rule big{
+  8 * {y 1}big_x{s 1}
+}
+
+rule big_x{
+  8 *{x 1} frac{s 1}
+}
+
+rule frac {
+  beam{ r 90 } 
+  #beam
+  rotfrac {x 0.25 y 0.25  s 0.5 }  
+  frac{ x -0.25 y 0.25  s 0.5 }
+  frac{ x -0.25 y -0.25  s 0.5 }
+  rotfrac{ x 0.25 y -0.25  s 0.5 }
+}
+
+
+rule frac {
+   beam{ r 90 }
+   frac{ x 0.25 y 0.25  s 0.5 }
+   frac{ x -0.25 y 0.25  s 0.5 r 90}
+   frac{ x -0.25 y -0.25 s 0.5 }
+}
+
+rule frac {
+  beam{s 1.5}
+  frac{ x -0.25 y 0.25  s 0.5 r -0}
+  #  frac{ x -0.25 y -0.25 s 0.5 r 90 }
+  frac{ x 0.25 y -0.25  s 0.5 }
+}
+
+
+
+
+rule rotfrac{
+  frac{r 90}
+}
+rule rotfrac{
+  frac{r -90}
+}
+rule  rotfrac {
+  frac{r 45}
+}
+rule rotfrac {
+  frac{r -45 }
+}
+rule rotfrac{
+  frac{r 180}
+}

data/lib/image_paradise/cfdg/clifford_torus.cfdg

@@ -0,0 +1,135 @@
+# http://www.contextfreeart.org/gallery/view.php?id=3731
+
+startshape Clifford_Torus
+CF::Impure=1            CF::Background=[b 0.95]
+CF::MinimumSize=0.1     CF::ColorDepth=16
+CF::Time=[time 0 1]     CF::Frame=0
+Frame_Rot=frame()*360   //  Frame rotation angle
+
+N    = 4*12             // numbers of holes * 12
+Betw = 0.1              // Space between hexaeders
+Deg  = 295+Frame_Rot    // Rotate this angle
+Axis = Nrm3((-2,9,-1))  //   about this axis
+Nsun = Nrm3(( 2,5, 3))  // Direction Light (2-sided)
+CamZ = 8                // (0,0,CamZ) Camera position
+CF::Size=[[s 1.4 s 4 3]]
+
+// 3 Colorings: i=0, i=1, i=2
+Hf(i)=select(i, 115,  85,  55)  // Hue
+Sf(i)=select(i, 0.6, 0.5, 0.6)  // Saturnation
+Bf(i)=select(i, 0.8, 0.9, 0.8)  // Brightness
+Trans=0.33                      // Transparency
+
+//----------------------------------------------------
+MinD = 0.1*CamZ         // Minimal distance to Camera
+Pcam =(0,0,CamZ)        // Camera position
+
+//====================================================
+// Clifford Torus (Area toward infinity is removed)
+//====================================================
+shape Clifford_Torus
+{ loop i=2*N []  loop j=N []
+   if (!(mod(i,3)&&mod(j,3))) // Cut outs & No infinit
+    if( SawT(i-j,2*N)+SawT(i+j,2*N) <= 1.5*N)
+      Hexaeder(i,j)[]
+}
+
+shape Hexaeder(i,j) { // Size depending Space between
+  H =0.5*(1-Betw)    m=-H    p=H  
+  im=i-H  ip=i+H    jm=j-H  jp=j+H  
+  Pc=Rotate(Torus(i ,j ,0))  // Centre point
+  P0=Rotate(Torus(im,jm,m))  P1=Rotate(Torus(ip,jm,m))
+  P2=Rotate(Torus(im,jp,m))  P3=Rotate(Torus(ip,jp,m))
+  P4=Rotate(Torus(im,jm,p))  P5=Rotate(Torus(ip,jm,p))
+  P6=Rotate(Torus(im,jp,p))  P7=Rotate(Torus(ip,jp,p))
+  if (CamZ-Pc[2]>MinD) { // Prevent too near to Camera
+    FaceColor(0,Pc,(P0,P2,P3,P1),i,j)[] // back
+    FaceColor(1,Pc,(P4,P0,P1,P5),i,j)[] // bottom
+    FaceColor(2,Pc,(P3,P7,P5,P1),i,j)[] // right
+    FaceColor(3,Pc,(P3,P2,P6,P7),i,j)[] // top
+    FaceColor(4,Pc,(P4,P6,P2,P0),i,j)[] // left
+    FaceColor(5,Pc,(P7,P6,P4,P5),i,j)[] // front
+} }
+
+shape FaceColor(F, vector3 Pcen, vector12 Quad, i,j){
+  c = select(F, 0,1,1,1,1,2)        // Face coloring
+  Ax= mod(2*i,N)==0||mod(2*j,N)==0  // boolean Axis
+  B = if(Ax, Bf(c)/2.2, Bf(c))      // Darken the Axis
+  A = -Trans*!Ax
+  FaceLight(Pcen,Quad)[h Hf(c) sat Sf(c) b B a A]
+}
+
+shape FaceLight(vector3 Pcen, vector12 Quad) {
+  P0=Quad[0,3] P1=Quad[3,3] P2=Quad[6,3] P3=Quad[9,3]
+  Pmid=Scl3(0.25,Add3(Add3(P0,P1),Add3(P2,P3)))
+  Dmid=Sub3(Pmid,Pcen)  // Direction Centre->Midpoint
+  Nmid=Nrm3(Dmid)       // Face Normal approximation
+
+  Dcam=Sub3(Pcam,Pmid)  // Direction Midpoint->Camera
+  Ncam=Nrm3(Dcam)       // If transparant or Camera-
+  if (Trans || Dot3(Nmid,Ncam)>0) { //  directed face 
+    Diff=abs(Dot3(Nmid,Nsun))          // Diffuse 
+    Nrfl=Sub3(Scl3(2*Diff,Nmid),Nsun)  // Reflection
+    Spec=max(0,Dot3(Ncam,Nrfl))        // Specular 
+    SAT =-0.25*Diff^1.5 - 0.50*Spec^1.5
+    BR  = 1.00*Diff^1.5 + 0.25*Spec^6 - 0.6 
+
+    Dis =Len3(Sub3(Pmid,Pcam))  // Distance to Pcam
+    Scl =Len3(Dmid)/(Dis/CamZ)  // Scale stroke width
+    Quadrangle(Quad,Scl)[sat SAT b BR z -Dis]
+} }
+
+path  Quadrangle(vector12 Quad, Scl) {
+  MOVETO(Proj(Quad[0,3]))  LINETO(Proj(Quad[3,3]))
+  LINETO(Proj(Quad[6,3]))  LINETO(Proj(Quad[9,3]))
+  CLOSEPOLY() FILL[]
+  STROKE(0.012*Scl, CF::RoundCap)[b -0.7]
+}
+//====================================================
+// Parametric model of Clifford Torus in 3D
+//----------------------------------------------------
+vector3 Torus(i,j,k)=let( 
+  u=i*180/N; v=j*180/N; w=k*180/N;
+  Cu=cos(u); Cv=cos(v); Cw=cos(w);
+  Su=sin(u); Sv=sin(v); Sw=sin(w);
+  p0=Cu*Cv ; p1=Cu*Sv ; p2=Su*Cv ; p3=Su*Sv ;
+  n0=-p3   ; n1=p2    ; n2=p1    ; n3=-p0   ;
+  r1=Cw*p1+Sw*n1; r2=Cw*p2+Sw*n2; r3=Cw*p3+Sw*n3;
+  r0=Cw*p0+Sw*n0;       // (1,0,0,0) point at infinity
+  d =1-min(r0,0.99);    // Prevent infinity  
+  // A pleasant X,Y,Z orientation of the torus
+  X=(r2+r1)/sqrt(2); Y=r3; Z=(r2-r1)/sqrt(2);
+  (X/d, Y/d, Z/d)       // Stereographic projection
+)
+
+vector2 Proj(vector3 V)=let(    // Canvas Projection
+  dZ= max(0.05*CamZ,CamZ-V[2]); // force in front
+  (V[0]*CamZ/dZ, V[1]*CamZ/dZ)  //          of Camera
+)
+
+vector3 Rotate(vector3 V)=let(  // Rotate Deg Degrees
+  W=cos(Deg/2);  Sin=sin(Deg/2);   // about Axis 
+  X=Sin*Axis[0]; Y=Sin*Axis[1];  Z=Sin*Axis[2];
+  V0=V[0]; V1=V[1]; V2=V[2];
+  ( V0 -2*((Y*Y+Z*Z)*V0 -(X*Y-Z*W)*V1 -(Z*X+Y*W)*V2)
+  , V1 -2*((Z*Z+X*X)*V1 -(Y*Z-X*W)*V2 -(X*Y+Z*W)*V0)
+  , V2 -2*((X*X+Y*Y)*V2 -(Z*X-Y*W)*V0 -(Y*Z+X*W)*V1)
+) )
+
+//====================================================
+// Some functions
+//----------------------------------------------------
+number  SawT(X,N)=                  // Triangular Saw 
+  abs(X-N*floor(X/N)-N/2)
+number  Len3(vector3 A)=            // Length
+  sqrt(A[0]^2+A[1]^2+A[2]^2)
+vector3 Nrm3(vector3 A)=let(        // Normalize
+  L=Len3(A); ( A[0]/L, A[1]/L, A[2]/L) )
+vector3 Scl3(S,vector3 A)=          // Scale
+  ( S*A[0], S*A[1], S*A[2] )
+vector3 Add3(vector3 A, vector3 B)= // Add vectors
+  ( A[0]+B[0] , A[1]+B[1] , A[2]+B[2] )
+vector3 Sub3(vector3 A, vector3 B)= // Subtract vector
+  ( A[0]-B[0] , A[1]-B[1] , A[2]-B[2] )
+number  Dot3(vector3 A, vector3 B)= // Dot product
+  ( A[0]*B[0] + A[1]*B[1] + A[2]*B[2] )

data/lib/image_paradise/cfdg/colonize_flat_colour_pattern.cfdg

@@ -0,0 +1,14 @@
+startshape COLONIZE
+
+rule COLONIZE {
+  200*{x 1 h .9} COLONIZE2{}
+}
+
+rule COLONIZE2 {
+  SQUARE {h 0 sat 1 b 1}
+  200 * {y 1 h .9} CULTURE{}
+}
+
+rule CULTURE {
+  SQUARE{hue 1 sat 1 b 1}
+}

data/lib/image_paradise/cfdg/colour_blind_squid.cfdg

@@ -0,0 +1,30 @@
+# kominek
+startshape rotate_tentacle
+
+rule shift_segment {
+  segment { y 10 }
+}
+
+rule segment {
+  CIRCLE { }
+  segment { y -1 s 0.88 r 5 hue 10 }
+}
+rule segment {
+  CIRCLE { }
+  segment { y -1 s 0.88 r -5 hue -10 }
+}
+rule tentacle {
+  shift_segment { r 0 }
+  tentacle { r 7 hue -7 s 0.9 a -0.025 }
+}
+rule three_tentacle {
+  tentacle { flip 0 hue 0 sat 1 b 0.8 }
+  tentacle { flip 60 hue 120 sat 1 b 0.8 }
+  tentacle { flip 120 hue 240 sat 1 b 0.8 }
+}
+rule rotate_tentacle 359 {
+  rotate_tentacle { r 1 }
+}
+rule rotate_tentacle 1 {
+  three_tentacle { }
+}

data/lib/image_paradise/cfdg/colour_hole.cfdg

@@ -0,0 +1,56 @@
+# ================================================================= #
+# rgui colour_hole.cfdg
+# ================================================================= #
+
+startshape A
+
+background { hue 245 sat 0.873 b -0.7 }
+
+rule A {
+  B { x 10 y 10 r 20 s 0.9 }
+}
+
+rule B {
+  C { }
+  B { x 1 y 1 r 4 s 0.99 }
+  D { a 0.08 }
+}
+
+rule B 3 {
+  C { }
+  B { x 1 y -1 r 4 s 0.99 }
+  D { a 0.08 }
+}
+
+rule C {
+  C { s 0.8 hue 10 sat 1 b 1 }
+  S { }
+}
+
+rule S {
+  CIRCLE { s 0.05 0.8 b 1 }
+  CIRCLE { s 0.05 0.8 r 120 b 1 }
+  CIRCLE { s 0.05 0.8 r 240 b 1 }
+  S { x -2 y 2 r 10 s 0.95 }
+}
+
+rule S {
+  CIRCLE { s 0.05 0.8 b 1 }
+  CIRCLE { s 0.05 0.8 r 120 b 1 }
+  CIRCLE { s 0.05 0.8 r 240 b 1 }
+  S { x 2 y -2 r 10 s 0.95 }
+}
+
+rule D {
+  CIRCLE { s 7 b 0.7 a -0.95 }
+  D { s 0.5 r 5 x 1 a 0.08 }
+  D { s 0.5 r 12 x -2 a 0.08 }
+  D { s 0.7 r 5 y -6 a 0.08 }
+}
+
+rule D {
+  CIRCLE { s 7 b 0.7 a -0.95 }
+  D { s 0.4 r 5 x 3 a 0.08 }
+  D { s 0.5 r 10 x -5 a 0.08 }
+  D { s 0.6 r 9 y -5 a 0.08 }
+}

data/lib/image_paradise/cfdg/colour_wheel.cfdg

@@ -0,0 +1,40 @@
+# ==================================================== #
+# Interesting colourwheel.
+# 
+# rconfree $IMG/CFDG/colour_wheel.cfdg output.png
+# ==================================================== #                                                                                                    
+startshape COLOUR_WHEEL
+
+rule COLOUR_WHEEL {
+  ballsarc {rotate    0}
+  ballsarc {rotate   30}
+  ballsarc {rotate   60}
+  ballsarc {rotate   90}
+  ballsarc {rotate  120}
+  ballsarc {rotate  150}
+  ballsarc {rotate  180}
+  ballsarc {rotate  210}
+  ballsarc {rotate  240}
+  ballsarc {rotate  270}
+  ballsarc {rotate  300}
+  ballsarc {rotate  330}
+  COLOUR_WHEEL {s 0.94 rotate 7.5 hue 15 alpha 0.2}
+}
+
+rule ballsarc {
+  sphere [r 0 x 15 hue 00]
+  sphere [r 5 x 15 hue 60]
+  sphere [r 10 x 15 hue 120]
+  sphere [r 15 x 15 hue 180]
+  sphere [r 20 x 15 hue 240]
+  sphere [r 25 x 15 hue 300]
+}
+
+rule sphere {
+  spherecolor {sat 0.7 b 0.5}
+}
+
+rule spherecolor {
+  CIRCLE { }
+  spherecolor {s 0.98 b 0.1 x 0.001 y 0.001 sat 0.1}
+}