wnsrc/lua/pac3/core/client/parts/trail.lua

--[[
| This file was obtained through the combined efforts
| of Madbluntz & Plymouth Antiquarian Society.
|
| Credits: lifestorm, Gregory Wayne Rossel JR.,
| 	Maloy, DrPepper10 @ RIP, Atle!
|
| Visit for more: https://plymouth.thetwilightzone.ru/
--]]

local Lerp = Lerp
local tonumber = tonumber
local table_insert = table.insert
local table_remove = table.remove
local math_ceil = math.ceil
local math_abs = math.abs
local math_min = math.min
local render_StartBeam = render.StartBeam
local cam_IgnoreZ = cam.IgnoreZ
local render_EndBeam = render.EndBeam
local render_AddBeam = render.AddBeam
local render_SetMaterial = render.SetMaterial
local Vector = Vector
local RealTime = RealTime

local temp_color = Color(255, 255, 255)

function pac.DrawTrail(self, len, spc, pos, ang, mat, scr,scg,scb,sca, ecr,ecg,ecb,eca, start_size, end_size, stretch)
	self.trail_points = self.trail_points or {}
	local points = self.trail_points

	if pac.drawing_motionblur_alpha then
		local a = pac.drawing_motionblur_alpha
		self.trail_points_motionblur = self.trail_points_motionblur or {}
		self.trail_points_motionblur[a] = self.trail_points_motionblur[a] or {}
		points = self.trail_points_motionblur[a]
	end

	local time = RealTime()

	if not points[1] or points[#points].pos:Distance(pos) > spc then
		table_insert(points, {pos = pos * 1, life_time = time + len})
	end

	local count = #points

	render_SetMaterial(mat)

	render_StartBeam(count)
		for i = #points, 1, -1 do
			local data = points[i]

			local f = (data.life_time - time)/len
			local f2 = f
			f = -f+1

			local coord = (1 / count) * (i - 1)

			temp_color.r = math_min(Lerp(coord, ecr, scr), 255)
			temp_color.g = math_min(Lerp(coord, ecg, scg), 255)
			temp_color.b = math_min(Lerp(coord, ecb, scb), 255)
			temp_color.a = math_min(Lerp(coord, eca, sca), 255)

			render_AddBeam(data.pos, (f * start_size) + (f2 * end_size), coord * stretch, temp_color)

			if f >= 1 then
				table_remove(points, i)
			end
		end
	render_EndBeam()

	if self.CenterAttraction ~= 0 then
		local attraction = FrameTime() * self.CenterAttraction
		local center = Vector(0,0,0)
		for _, data in ipairs(points) do
			center:Zero()
			for _, data in ipairs(points) do
				center:Add(data.pos)
			end
			center:Mul(1 / #points)
			center:Sub(data.pos)
			center:Mul(attraction)

			data.pos:Add(center)
		end
	end

	if not self.Gravity:IsZero() then
		local gravity = self.Gravity * FrameTime()
		gravity:Rotate(ang)
		for _, data in ipairs(points) do
			data.pos:Add(gravity)
		end
	end
end

local BUILDER, PART = pac.PartTemplate("base_drawable")

PART.FriendlyName = "trail"
PART.ClassName = "trail2"
PART.Icon = 'icon16/arrow_undo.png'
PART.Group = 'effects'
PART.ProperColorRange = true

BUILDER:StartStorableVars()
	:GetSet("Duration", 1)
	:GetSet("Spacing", 0.25)
	:GetSet("StartSize", 3)
	:GetSet("EndSize", 0)
	:GetSet("StartColor", Vector(1, 1, 1), {editor_panel = "color2"})
	:GetSet("EndColor", Vector(1, 1, 1), {editor_panel = "color2"})
	:GetSet("StartAlpha", 1)
	:GetSet("EndAlpha", 0)
	:GetSet("Stretch", 1)
	:GetSet("CenterAttraction", 0)
	:GetSet("Gravity", Vector(0,0,0))
	:GetSet("IgnoreZ", false)
	:GetSet("TrailPath", "trails/laser", {editor_panel = "material"})
	:GetSet("Translucent", true)
:EndStorableVars()

function PART:GetNiceName()
	local str = pac.PrettifyName("/" .. self:GetTrailPath())
	local matched = str and str:match(".+/(.+)")
	return matched and matched:gsub("%..+", "") or "error"
end

PART.LastAdd = 0

function PART:Initialize()
	self:SetTrailPath(self.TrailPath)
end

function PART:SetTrailPath(var)
	self.TrailPath = var
	self:SetMaterial(var)
end

function PART:SetMaterial(var)
	var = var or ""

	if not pac.Handleurltex(self, var, function(mat)
		self.Materialm = mat
		self:MakeMaterialUnlit()
	end) then
		if isstring(var) then
			self.Materialm = pac.Material(var, self)
			self:CallRecursive("OnMaterialChanged")
		elseif type(var) == "IMaterial" then
			self.Materialm = var
			self:CallRecursive("OnMaterialChanged")
		end
		self:MakeMaterialUnlit()
	end
end

function PART:MakeMaterialUnlit()
	if not self.Materialm then return end

	local shader = self.Materialm:GetShader()
	if shader == "VertexLitGeneric" or shader == "Cable" or shader == "LightmappedGeneric" then
		self.Materialm = pac.MakeMaterialUnlitGeneric(self.Materialm, self.Id)
	end
end

function PART:OnShow()
	self.points = {}
end

function PART:OnHide()
	self.points = {}
end

function PART:OnDraw()
	local pos, ang = self:GetDrawPosition()
	local mat = self.material_override and self.material_override[0][1] and self.material_override[0][1]:GetRawMaterial() or self.Materialm
	if not mat then return end
	pac.DrawTrail(
		self,
		math.min(self.Duration, 10),
		self.Spacing + (self.StartSize/10),
		pos,
		ang,
		mat,

		self.StartColor.x*255, self.StartColor.y*255, self.StartColor.z*255,self.StartAlpha*255,
		self.EndColor.x*255, self.EndColor.y*255, self.EndColor.z*255,self.EndAlpha*255,

		self.StartSize,
		self.EndSize,
		1/self.Stretch
	)
end

BUILDER:Register()