/* draw a 'flower' of coloured circles  */

  /*  not used  
c : [
 "#ff1900", "#ff3100", "#ff4a00", "#ff6300", "#ff7b00", "#ff9400", "#ffad00", 
 "#ffc500", "#ffde00", "#fff700", "#efff00", "#d6ff00", "#bdff00", "#a5ff00", 
 "#8cff00", "#73ff00", "#5aff00", "#42ff00", "#29ff00", "#10ff00", "#00ff08", 
 "#00ff21", "#00ff3a", "#00ff52", "#00ff6b", "#00ff84", "#00ff9c", "#00ffb5", 
 "#00ffce", "#00ffe6", "#00ffff", "#00e6ff", "#00ceff", "#00b5ff", "#009cff", 
 "#0084ff", "#006bff", "#0052ff", "#003aff", "#0021ff", "#0008ff", "#1000ff", 
 "#2900ff", "#4200ff", "#5a00ff", "#7300ff", "#8c00ff", "#a500ff", "#bd00ff", 
 "#d600ff", "#ef00ff", "#ff00f7", "#ff00de", "#ff00c5", "#ff00ad", "#ff0094", 
 "#ff007b", "#ff0063", "#ff004a", "#ff0031", "#ff0019", "#ff0000"] $
  */

  /*  Create Mathematica Hue[] scheme {0..61} / 72  */

xBase : ["00", "15", "2A", "3F", "55", "6A",
  "7F", "94", "AA", "BF", "D4", "E9", "FF"]$
x : append(xBase, reverse(rest(copylist(xBase), -1)))$
p1 : makelist(sconcat("#FF", x[k], "00"), k, 1, 12)$
p2 : makelist(sconcat("#", x[k], "FF00"), k, 13, 24)$
p3 : makelist(sconcat("#00FF", x[k]), k, 1, 12)$
p4 : makelist(sconcat("#00", x[k], "FF"), k, 13, 24)$
p5 : makelist(sconcat("#", x[k], "00FF"), k, 1, 12)$
p6 : makelist(sconcat("#FF00", x[k]), k, 13, 24)$
c : append(p1, p2, p3, p4, p5, p6)$
remvalue(x, xBase, p1, p2, p3, p4, p5, p6)$

draw2d(proportional_axes='xy, color="#40404080",
    flatten(makelist(
        makelist(
            [fill_color=concat(c[-10+q+10*r],"99"),
			ellipse((8-r)*cos(q*%pi/6), (8-r)*sin(q*%pi/6), .3*(8-r), .3*(8-r), 0, 360)],
        q, 1, 12),
    r, 1, 6))
);