POV-Ray : Newsgroups : povray.text.scene-files : funky lamp Server Time
31 Oct 2024 19:30:23 EDT (-0400)
  funky lamp (Message 1 to 1 of 1)  
From: Alberto
Subject: funky lamp
Date: 16 Aug 1999 18:45:33
Message: <37B894FF.FA07AE99@ma.usb.ve>
// 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

Copyright 2003-2023 Persistence of Vision Raytracer Pty. Ltd.