// bob's little test scene

// fill light (helps to visualize scene)
light_source
{
        y,0.25
}

sphere
{
        0,1
        pigment
        {
                color rgb <1,0.5,0.25>
        }
        translate <0,-1,5>
}

box
{
        -1,1
        pigment
        {
                color rgb <0.25,0.5,1>
        }
        scale 5
        translate <0,3,4>
}


/* light disk macro */
#macro
        CyLite
        (Thickness,Color,FadeDistance,Orientation,Position)
union
{
light_source
{
        Thickness*y,Color
        spotlight
        point_at -y
        radius 89.99
        falloff 90
        tightness 0
        fade_distance FadeDistance
        fade_power 1
}
light_source
{
        -Thickness*y,-Color
        spotlight
        point_at -y
        radius 89.99
        falloff 90
        tightness 0
        fade_distance FadeDistance
        fade_power 1
}
        rotate Orientation
        translate Position
}
#end


 // multiple disk lights
#local Count=10;

#while (Count>0)

/* Create the disk of light.
 Thickness, Color, FadeDistance, Orientation, Position */
CyLite ( 0.05, <1,1,1>, 10, <-5,10,-15>*Count, <1,-1,0>*Count/10 )

#local Count=Count-1;

#end

Post a reply to this message