38 lines
1 KiB
Lua
38 lines
1 KiB
Lua
function printf(fmt, ...)
|
|
log(string.format(fmt, unpack(arg)))
|
|
end
|
|
|
|
--[[
|
|
t_point_att = "internal\\internal_light_attpoint"
|
|
|
|
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
|
|
]] --
|