// Funky Lamp. Posted under the name 'mystery' in p.b.i
// The lamp is centered about the origin. Enjoy it.

#declare point = array[20]
{
  <0.618034, 1., 0.449028>,
  <-0.236068, 1., 0.726543>,
  <-0.763932, 1., 0.>,
  <-0.236068, 1., -0.726543>,
  <0.618034, 1., -0.449028>,
  <1., 0.236068, 0.726543>,
  <-0.381966, 0.236068, 1.17557>,
  <-1.23607, 0.236068, 0.>,
  <-0.381966, 0.236068, -1.17557>,
  <1., 0.236068, -0.726543>,
  <0.381966, -0.236068, 1.17557>,
  <-1., -0.236068, 0.726543>,
  <-1., -0.236068, -0.726543>,
  <0.381966, -0.236068, -1.17557>,
  <1.23607, -0.236068, 0.>,
  <0.236068, -1., 0.726543>,
  <-0.618034, -1., 0.449028>,
  <-0.618034, -1., -0.449028>,
  <0.236068, -1., -0.726543>,
  <0.763932, -1., 0.>
}

#declare k=0;
blob{threshold .85
  #while(k< 20)
    sphere{point[k] .763932 1}
    #declare k=k+1;
  #end
  finish{ambient 0 diffuse 0}
  interior{ior 1.1 caustics .5
    media{emission <.4,.6,1>} // try <1,.5,0> instead.
  }
  pigment{rgbf<1,1,1,1>}
  hollow
}

Post a reply to this message