function normal    (shader, t_base, t_second, t_detail)
  shader:begin  ("model_distort4ghost","particle_hard")    -- particle_alphaonly
      : sorting  (3, true)
      : blend    (true,blend.srccolor,blend.invsrcalpha)
      : aref     (true,0)
      : zb     (true,false)
      : fog    (false)
      : distort   (false)
--  shader:sampler  ("s_base")      :texture  (t_base)
	shader: dx10texture ("s_base", t_base)
	shader: dx10sampler ("smp_base")
end

function l_special  (shader, t_base, t_second, t_detail)
  shader:begin  ("model_distort4ghost","particle_distort")
      : sorting   (3, true)
      : blend    (true,blend.srcalpha,blend.invsrcalpha)
      : zb        (true,false)
      : fog       (false)
      : distort   (true)
--  shader:sampler  ("s_base")      :texture  (t_base)
--  shader:sampler  ("s_distort")   :texture  ("pfx\\pfx_dist_glass") --:texture  (t_base) -- ("pfx\\pfx_dist_glass2")
	shader: dx10texture ("s_base", t_base)
	shader: dx10texture ("s_distort", "pfx\\pfx_dist_glass") --:texture  (t_base) -- ("pfx\\pfx_dist_glass2")
	shader: dx10sampler ("smp_linear")

end

--[[
function normal    (shader, t_base, t_second, t_detail)
  shader:begin  ("model_def_lplanes","base_lplanes")
      : fog      (false)
      : zb       (true,false)
      : blend   (true,blend.srccolor,blend.one)
      : aref    (true,0)
      : sorting  (2, true)
  shader:sampler  ("s_base")      :texture  (t_base)
end
]]