Nice one James!
If you want to add a colour shift, so that it doesn't use the standard Magenta's, Yellows etc, add it like this:
(pnt (list x y) (1+ (rem [color=red](+[/color] i [color=red]60)[/color] 255)))))
You can add whatever number you like to shift the colour set by that amount
ooohhhh you beat me to my next experiment... I was hoping to see if I could manipulate the color to get a more standard range.
My next thought is to see about using RGB color instead of ACI color, though I'm not sure how to specify it... I imagine if I wanted a "monochromatic" output, it'd be a static number for either RG -or- B, and then a range for the remaining two colors, making sure they're equal, for example:
120,250,120
120,225,120
120,200,120
120,175,120
and so forth.
That'd take me some researchin' though, but I'm sure someone's already done this part, out there in the net. But I'll be out of the office for lunch today so it'll have to be after work.