I tried work with looks_like function but result is not good, i wrote my
version of looks_like:

#macro
MY_LOOKS_LIKE(_l_model_object,_l_pos,_l_angles,_l_offset,_l_radius,_l_color)
object
{
    union
    {
        light_source
        {
            _l_offset
            color _l_color

            spotlight radius _l_radius falloff _l_radius+8 tightness 1
point_at _l_offset - <0,1,0>
            fade_power 2 fade_distance  200
        }

        _l_model_object

        sphere
        {
            _l_offset
            8
            pigment { rgbt _l_color }
            finish { ambient 10 }
            no_shadow
        }

    }

    rotate      _l_angles
    translate   _l_pos

}
#end

#declare LAMP_POS = <0,40,0>;
#declare LAMP_ANG = <0,0,55>;
#declare LIGHT_OFFSET = <0,-18,0>;
#declare LIGHT_RADIUS = 35;
#declare LIGHT_COLOR = <1,0,0>;

MY_LOOKS_LIKE(lamp_model_,LAMP_POS,LAMP_ANG,LIGHT_OFFSET,LIGHT_RADIUS,LIGHT_COLOR)

#declare LAMP_POS = <0,40,20>;
#declare LIGHT_COLOR = <0,1,0>;

MY_LOOKS_LIKE(lamp_model_,LAMP_POS,LAMP_ANG,LIGHT_OFFSET,LIGHT_RADIUS,LIGHT_COLOR)

#declare LAMP_POS = <0,40,40>;
#declare LIGHT_COLOR = <0,0,1>;
MY_LOOKS_LIKE(lamp_model_,LAMP_POS,LAMP_ANG,LIGHT_OFFSET,LIGHT_RADIUS,LIGHT_COLOR)

Scene sample is here:
http://artwork.intelligentdevelopment.sk/TGP_light_and_model_macro.zip

Post a reply to this message

Attachments:
Download 'scene.jpg' (21 KB)

Preview of image 'scene.jpg'