function printf(fmt, ...)
    log(string.format(fmt, unpack(arg)))
end

t_point_att = "internal\\internal_light_attpoint"
t_rt        = "$user$rendertarget"
t_distort   = "$user$distort"
t_noise     = "fx\\fx_noise2"

function r1_lspot(shader, t_base, vs, aref)
    shader:begin(vs, "add_spot")
        :fog(false)
        :zb(true, false)
        :blend(true, blend.one, blend.one)
        :aref(true, aref or 0)
    shader:sampler("s_base"):texture(t_base)
    shader:sampler("s_lmap"):texture("internal\\internal_light_att")
        :clamp()
        :f_linear()
        :project(true)
    shader:sampler("s_att"):texture("internal\\internal_light_attclip")
        :clamp()
        :f_linear()
end

function r1_lpoint(shader, t_base, vs, aref)
    shader:begin(vs, "add_point")
        :fog(false)
        :zb(true, false)
        :blend(true, blend.one, blend.one)
        :aref(true, aref or 0)
    shader:sampler("s_base"):texture(t_base)
    shader:sampler("s_lmap"):texture(t_point_att)
        :clamp()
        :f_linear()
    shader:sampler("s_att"):texture(t_point_att)
        :clamp()
        :f_linear()
end