# =========================================================================== # # From: # # www.contextfreeart.org/gallery2/#design/4098 # # HEIGHT: 600 # WIDTH: 600 # # =========================================================================== #
CF::ColorDepth= 16 CF::Background= [b -0.9] W= 800 R= 0.95
startshape Sphere[b 1] CF::Size=[s (2*(1/R))]
shape Sphere {
loop X=(1/W-1/R, 1/W+1/R, (2/R/W)) [] loop Y=(1/W-1/R, 1/W+1/R, (2/R/W)) [] Pixel(X,Y) [x X Y s (2/R/W)]
} shape Pixel(X,Y) {
if (X^2+Y^2<1) { Z = sqrt(1-X^2-Y^2) Xf= floor(X*W*R+0.5)/W/R Yf= floor(Y*W*R+0.5)/W/R Zf= floor(Z*W*R+0.5)/W/R Qf= Xf^2+Yf^2+Zf^2 H = (1-Qf)*(1+exp(Qf))*W*40+210 SQUARE [h H sat (1-Z/2)]
} }
# runcfdg blue_moon