# ==================================================== # # 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}

}