Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml
===================================================================
diff -u -r59411 -r59712
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml	(.../CrossDiag.cls.xml)	(revision 59411)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml	(.../CrossDiag.cls.xml)	(revision 59712)
@@ -24,8 +24,9 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..TopLine = (##class(TECH.Svg.Basis.Line).%New(0,0,Width,Height))
-	Set ..BottomLine = (##class(TECH.Svg.Basis.Line).%New(0,Height,Width,0))
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	Set ..TopLine = BasisElementFactory.MaakLijn(0,0,Width,Height)
+	Set ..BottomLine = BasisElementFactory.MaakLijn(0,Height,Width,0)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml
===================================================================
diff -u -r59413 -r59712
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml	(.../SpecialeBoring.cls.xml)	(revision 59413)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml	(.../SpecialeBoring.cls.xml)	(revision 59712)
@@ -19,8 +19,9 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	#Dim CrossVH = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH).%New(Width,Height)
-	Set ..SvgBox = ##class(TECH.Svg.Basis.SvgBox).%New((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
+	Set ..SvgBox = BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
 	DO ..SvgBox.VoegToeElement(CrossVH)
 	DO ..SvgBox.VoegToeID("specialeBoring")
 	Quit $$$OK
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml
===================================================================
diff -u -r59503 -r59712
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml	(.../RugBoring.cls.xml)	(revision 59503)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml	(.../RugBoring.cls.xml)	(revision 59712)
@@ -19,9 +19,10 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	#Dim CrossDiag as APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag).%New(Width,Height)
-	#Dim Circle as TECH.Svg.Basis.Circle = ##class(TECH.Svg.Basis.Circle).%New(Width/2,Height/2,(Width/10))
-	Set ..SvgBox = ##class(TECH.Svg.Basis.SvgBox).%New((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
+	Set Circle = BasisElementFactory.MaakCirkel(Width/2,Height/2,(Width/10))
+	Set ..SvgBox = BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
 	DO ..SvgBox.VoegToeElement(CrossDiag)
 	DO ..SvgBox.VoegToeElement(Circle)
 	DO ..SvgBox.VoegToeID("rugboring")
Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml
===================================================================
diff -u -r59411 -r59712
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml	(.../CrossVH.cls.xml)	(revision 59411)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml	(.../CrossVH.cls.xml)	(revision 59712)
@@ -24,8 +24,9 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..HorizontalLine = (##class(TECH.Svg.Basis.Line).%New(0,Height/2,Width,Height/2))
-	Set ..VerticalLine = (##class(TECH.Svg.Basis.Line).%New(Width/2,0,Width/2,Height))
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	Set ..HorizontalLine = BasisElementFactory.MaakLijn(0,Height/2,Width,Height/2)
+	Set ..VerticalLine = BasisElementFactory.MaakLijn(Width/2,0,Width/2,Height)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml
===================================================================
diff -u -r59503 -r59712
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml	(.../ZijBoring.cls.xml)	(revision 59503)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml	(.../ZijBoring.cls.xml)	(revision 59712)
@@ -19,9 +19,9 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	Set TCross = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross).%New( Width, Height)
-	Set ..SvgBox = ##class(TECH.Svg.Basis.SvgBox).%New((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
+	Set ..SvgBox = BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
 	DO ..SvgBox.VoegToeElement(TCross)
 	DO ..SvgBox.VoegToeID("zijboring")
 	Quit $$$OK
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml
===================================================================
diff -u -r59503 -r59712
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml	(.../PuntBoring.cls.xml)	(revision 59503)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml	(.../PuntBoring.cls.xml)	(revision 59712)
@@ -19,8 +19,9 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	Set CrossDiag = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag).%New(Width,Height)
-	Set ..SvgBox = ##class(TECH.Svg.Basis.SvgBox).%New((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
+	Set ..SvgBox = BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
 	DO ..SvgBox.VoegToeElement(CrossDiag)
 	DO ..SvgBox.VoegToeID("puntboring")
 	Quit $$$OK
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml
===================================================================
diff -u -r59503 -r59712
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml	(.../DoorBoring.cls.xml)	(revision 59503)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml	(.../DoorBoring.cls.xml)	(revision 59712)
@@ -19,8 +19,9 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	#Dim Circle as TECH.Svg.Basis.Circle = ##class(TECH.Svg.Basis.Circle).%New(Width/2,Height/2,(Width/10))
-	Set ..SvgBox = ##class(TECH.Svg.Basis.SvgBox).%New((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	Set Circle = BasisElementFactory.MaakCirkel( Width/2,Height/2,(Width/10))
+	Set ..SvgBox = BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
 	DO ..SvgBox.VoegToeElement(Circle)
 	DO ..SvgBox.VoegToeID("doorboring")
 	Quit $$$OK
Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml
===================================================================
diff -u -r59411 -r59712
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml	(.../TCross.cls.xml)	(revision 59411)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml	(.../TCross.cls.xml)	(revision 59712)
@@ -24,8 +24,9 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..HorizontalLine = (##class(TECH.Svg.Basis.Line).%New(0,0, Width, 0))
-	Set ..VerticalLine = (##class(TECH.Svg.Basis.Line).%New(Width/2, 0, Width/2, Height))
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	Set ..HorizontalLine = BasisElementFactory.MaakLijn(0,0, Width, 0)
+	Set ..VerticalLine = BasisElementFactory.MaakLijn(Width/2, 0, Width/2, Height)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Verbinders.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Verbinders.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Verbinders.cls.xml	(revision 59712)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Verbinders">
+<Super>TECH.Svg.Basis.DomElement</Super>
+</Class>
+
+
+</Export>