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