// Bernard Hatt 27/11/06
// A prism refracting light
// Any resemblance to an album cover is coincidental

        // plane facing the camera
        // rgb 2 as there is only default ambient light
plane
{
        -z,0
        pigment{rgb 2}
}

prism
{
        0,1,3,-u,v*1.5,u
        pigment {rgb 0.2}       // not quite black
        rotate-x*90
}

        // ray of light entering prism
cylinder
{
        x*-4,y,0.03
        pigment{rgb 15}
}

camera
{
        location -z*6
}

        // loop to create coloured output from prism
        // lots of coloured cylinders
#local i=0;
#while(i<3)
        cylinder
        {
                y,x*5,0.02
                pigment
                {
                        rgb<cos(i),cos(i-1.1),cos(i-2.1)>*10
                }
                rotate-z*i*4
        }
#local i=i+.01;
#end