switched to anim entity,

added disappear distance option,
changed fgd keyvalues to mimic portal 2 linked_portal_door,
fixed portal rotation,
fixed #1 (portal shaking),
resolved bliptec/world-portals/#4 (missing pair failing hard)

README.md

@@ -8,4 +8,4 @@ World portals inspired by Overv's Portal Project and Portal 2's linked_portal_do
 
 * Rendering: almost complete
 * Weapon and trace diversion: just started
-* Entity teleportation: not started
+* Entity teleportation: just started

gmod_worldportal.fgd → gmod_worldportals.fgd

@@ -1,14 +1,16 @@
 //=============================================================================
 //
-// Purpose: Garry's Mod world portal declarations
+// Garry's Mod world portal declarations
 //
 //=============================================================================
 
 @include "base.fgd" 
 
 @BaseClass = LinkedPortalDoor : "An entity that can be linked to another door and create a passage between them dynamically."
 [
-	input SetPair(integer) : "Changes the pair of portals this portal belongs to"
+	partnername(target_destination) : "Linked Partner" : : "Another 'prop_linked_portal_door' entity which will link to this one."
+
+	input SetPartner(string) : "Set a new partner door."
 	input Open(void) : "Open the door and cause the portal to activate."
 	input Close(void) : "Close the door and cause the portal to deactivate."
 
@@ -20,11 +22,11 @@
 	output OnPlayerTeleportToMe(void)		: "When the player is teleported from this linked partner to the portal."
 ]
 
-@PointClass base(Targetname, Parentname, Angles, LinkedPortalDoor) studio("models/editor/axis_helper_thick.mdl") = linked_portal_door :
+@PointClass base(Targetname, Parentname, Angles, LinkedPortalDoor) sphere(DisappearDist) studio("models/editor/axis_helper_thick.mdl") = linked_portal_door :
 "A door which is linked by a portal to another 'linked_portal_door' entity."
 [
-	pair(integer) : "Pair" : 1 : "Unique identifier for a set of portals."
-	width(integer) : "Width" : 128 : "Width of the desired portal."
-	height(integer) : "Height" : 128 : "Height of the desired portal."
+	width(integer) : "Width" : 128 : "Width of the desired portal. Measured from the center"
+	height(integer) : "Height" : 128 : "Height of the desired portal. Measured from the center"
 	startactive(integer) : "Start Active" : 1 : "Whether to start the linkage as active from the start."
+	DisappearDist(integer)    : "Disappear Distance" : -1 : "Distance at which the portal will stop rendering"
 ]

lua/autorun/worldportals_init.lua

@@ -0,0 +1,15 @@
+
+worldportals = {}
+
+-- Load required files
+if SERVER then
+
+	include( "worldportals/render_sv.lua" )
+
+	AddCSLuaFile( "worldportals/render_cl.lua" )
+
+else
+
+	include( "worldportals/render_cl.lua" )
+
+end

lua/entities/linked_portal_door/cl_init.lua

@@ -0,0 +1,40 @@
+
+include( "shared.lua" )
+
+AccessorFunc( ENT, "texture", "Texture" )
+
+
+--Draw world portals
+function ENT:Draw()
+
+	--self:DrawModel()
+
+	if ( worldportals.drawing ) then return end
+
+	render.ClearStencil()
+	render.SetStencilEnable( true )
+
+	render.SetStencilWriteMask( 1 )
+	render.SetStencilTestMask( 1 )
+
+	render.SetStencilFailOperation( STENCILOPERATION_KEEP )
+	render.SetStencilZFailOperation( STENCILOPERATION_KEEP )
+	render.SetStencilPassOperation( STENCILOPERATION_REPLACE )
+	render.SetStencilCompareFunction( STENCILCOMPARISONFUNCTION_ALWAYS )
+	render.SetStencilReferenceValue( 1 )
+
+	render.SetMaterial( worldportals.matDummy )
+	render.SetColorModulation( 1, 1, 1 )
+
+	render.DrawQuadEasy( self:GetPos(), self:GetForward(), self:GetWidth(), self:GetHeight(), Color( 255, 255, 255, 255), self:GetAngles().roll )
+
+	render.SetStencilCompareFunction( STENCILCOMPARISONFUNCTION_EQUAL )
+	render.SetStencilPassOperation( STENCILOPERATION_REPLACE )
+	render.SetStencilReferenceValue( 1 )
+
+	worldportals.matView:SetTexture( "$basetexture", self:GetTexture() )
+	render.SetMaterial( worldportals.matView )
+	render.DrawScreenQuad()
+
+	render.SetStencilEnable( false )
+end

lua/entities/linked_portal_door/init.lua

@@ -1,30 +1,26 @@
 
-ENT.Type = "point"
-
-
--- Find paired entity
--- not the most efficient implementation, but good enough for now
-function ENT:Think()
-	-- Determine exit portal
-	if ( !self.exit ) then
-		for _, ent in ipairs( ents.FindByClass( "linked_portal_door" ) ) do
-			if ( ent ~= self and ent.pair == self.pair ) then
-				self.exit = ent
-			end
-		end
-	end
-end
+AddCSLuaFile( "cl_init.lua" )
+AddCSLuaFile( "shared.lua" )
+
+include( "shared.lua" )
+
+AccessorFunc( ENT, "partnername", "PartnerName" )
 
 -- Collect properties
 function ENT:KeyValue( key, value )
-	if ( key == "pair" ) then
-		self.pair = tonumber( value )
+
+	if ( key == "partnername" ) then
+		self:SetPartnerName( value )
+		self:SetExit( ents.FindByName( value )[1] )
 
 	elseif ( key == "width" ) then
-		self.width = tonumber( value )
+		self:SetWidth( tonumber(value) *2 )
 
 	elseif ( key == "height" ) then
-		self.height = tonumber( value )
+		self:SetHeight( tonumber(value) *2 )
+
+	elseif ( key == "DisappearDist" ) then
+		self:SetDisappearDist( tonumber(value) )
 
 	elseif ( key == "angles" ) then
 		local args = value:Split( " " )
@@ -33,7 +29,6 @@ function ENT:KeyValue( key, value )
 			args[k] = tonumber(arg)
 		end
 
-		self.forward = Angle( unpack(args) ):Forward()
-		print( value, forward )
+		self:SetAngles( Angle( unpack(args) ) )
 	end
-end
+end

lua/entities/linked_portal_door/shared.lua

@@ -0,0 +1,50 @@
+
+ENT.Type				= "anim"
+ENT.Spawnable			= false
+ENT.AdminOnly			= false
+ENT.Editable			= false
+
+
+--ENT.Model = Model("models/props/cs_office/microwave.mdl")
+
+function ENT:Initialize()
+
+	local mins = Vector(-1, -self:GetWidth() /2, -self:GetHeight() /2)
+	local maxs = -mins
+
+	if CLIENT then
+
+		self:SetTexture( GetRenderTarget("portal" .. self:EntIndex(),
+			ScrW(),
+			ScrH(),
+			false
+		) )
+
+		self:SetRenderBounds( mins, maxs )
+
+	end
+
+	--[[self:SetModel(self.Model)
+
+	self:PhysicsInit(SOLID_VPHYSICS)
+	self:SetMoveType(MOVETYPE_VPHYSICS)
+	self:SetSolid(SOLID_BBOX)
+
+	local b = 32
+	self:SetCollisionBounds(Vector(-b, -b, -b), Vector(b,b,b))
+
+	local phys = self:GetPhysicsObject()
+	--phys:EnableMotion( true )
+	--phys:Wake()]]--
+
+end
+
+
+function ENT:SetupDataTables()
+
+	self:NetworkVar( "Entity", 0, "Exit" )
+	self:NetworkVar( "Int", 1, "Width" )
+	self:NetworkVar( "Int", 2, "Height" )
+	self:NetworkVar( "Int", 2, "DisappearDist" )
+
+end