Thanks for the great blog post! I thought I might be able to make some random artwork with your code, so I tried swapping the RGB data set with the one below. I would be interested in any theory as to why I get a diamond shape of points with this particular choice of random seed, other choices lead to clouds of points that are more square shaped.

data RGB ;
length color $8 ;
call streaminit(1588) ;
do ID = 1 to 1000;
R = floor( 256*rand("uniform") ) ;
G = floor( 256*rand("uniform") ) ;
B = floor( 256*rand("uniform") ) ;
color = cats('CX', put(R,hex2.), put(G,hex2.), put(B,hex2.)) ;
output ;
end ;
run ;

proc sql noprint ;
select color into :AllColors separated by ' ' from RGB ;
quit ;