Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml
===================================================================
diff -u -r60049 -r60106
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml	(.../PuntBoring.cls.xml)	(revision 60049)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml	(.../PuntBoring.cls.xml)	(revision 60106)
@@ -13,14 +13,14 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer,kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
+<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer,Kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <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,kleur)
+	Set CrossDiag = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag).%New(Width,Height,Kleur)
 	Set ..SvgBox = BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
 	DO ..SvgBox.VoegToeElement(CrossDiag)
 	DO ..SvgBox.VoegToeID("puntboring")
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml
===================================================================
diff -u -r60049 -r60106
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml	(.../DoorBoring.cls.xml)	(revision 60049)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml	(.../DoorBoring.cls.xml)	(revision 60106)
@@ -13,16 +13,16 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer,kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
+<FormalSpec>PosX:%Integer,PosY:%Integer,Straal:%Integer,Kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set Circle = BasisElementFactory.MaakCirkel( Width/2,Height/2,(Width/10))
-	Do Circle.SetFill(kleur)
-	Set ..SvgBox = BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
+	Set Circle = BasisElementFactory.MaakCirkel( Straal,Straal,Straal)
+	Do Circle.SetFill(Kleur)
+	Set ..SvgBox = BasisElementFactory.MaakSvgBox(PosX,PosY, Straal*2, Straal*2)
 	DO ..SvgBox.VoegToeElement(Circle)
 	DO ..SvgBox.VoegToeID("doorboring")
 	Quit $$$OK
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml
===================================================================
diff -u -r60049 -r60106
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml	(.../RugBoring.cls.xml)	(revision 60049)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml	(.../RugBoring.cls.xml)	(revision 60106)
@@ -18,17 +18,17 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer,kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart(),BasisElementFactory:TECH.Svg.BasisElementFactory=""</FormalSpec>
+<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer,Kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart(),BasisElementFactory:TECH.Svg.BasisElementFactory=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	;Set ..BasisElementFactory = $$$Inject(BasisElementFactory, ##class(TECH.Svg.BasisElementFactory).%New())
 	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, kleur)
+	#Dim CrossDiag as APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag).%New(Width,Height, Kleur)
 	Set Circle = ..BasisElementFactory.MaakCirkel(Width/2,Height/2,(Width/2.2))
-	Do Circle.SetFill(kleur)
+	Do Circle.SetFill(Kleur)
 	Set ..SvgBox = ..BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
 	DO ..SvgBox.VoegToeElement(CrossDiag)
 	DO ..SvgBox.VoegToeElement(Circle)
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r60050 -r60106
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60050)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60106)
@@ -30,7 +30,6 @@
 	
 	
 	While ($$$HasLength(Boring) ) {
-		Do ##class(Tools.Wlip).%New(238).ObjToText(Boring)
 		#dim ProfielPlaats As %String = KaderdeurObject.ProfielPlaatsGet(Boring)
 		If (KaderdeurObject.NietOpProfiel(ProfielPlaats)) {
 			Set Boring = Boringen.GetNext(.Key)
@@ -49,13 +48,12 @@
 				Do ..Group.VoegToeElement(SpecialeBoring)
 			}
 			ElseIf (Boring.BoorDiepte < 0) {
-				Set Circle= ##class(TECH.Svg.BasisElementFactory).%New().MaakCirkel(XPos,YPos,Straal)
-				Do Circle.SetFill(Kleur)
-				Do ..Group.VoegToeElement(Circle)
+				Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,Straal, Kleur)
+				Do ..Group.VoegToeElement(DoorBoring)
 			}
 			ElseIf(Boring.BoorDiameter<0)||(Boring.BoorDiepte=0){
-				Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,10,10,Kleur)
-				Do ..Group.VoegToeElement(DoorBoring)
+				Set PuntBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(XPos,YPos,10,10,Kleur)
+				Do ..Group.VoegToeElement(PuntBoring)
 			}
 			Else {
 		
@@ -84,7 +82,6 @@
 	#dim BoringenIterator as TECH.ListIterator = ##class(TECH.ListIterator).%New(Boringen)
 	#dim BasisElementFactory As TECH.Svg.BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	#dim Kleur As TECH.Svg.enu.Kleur = ##class(TECH.Svg.enu.Kleur).Blauw()
-	Do ##class(Tools.Wlip).%New(238).ObjToText(Beslag)
 	Set:(BPosX<0) BPosX= Breedte - BPosX
 	Set:(BPosY<0) BPosY= Hoogte - BPosY
 	Set TijdelijkeOffsetX = Beslag.ConstructAfm.GetAt("OFFSX")
@@ -117,7 +114,6 @@
 	While (BoringenIterator.HasNext()) {
 		
 		Set Boring = BoringenIterator.Next()
-		Do ##class(Tools.Wlip).%New(238).ObjToText(Boring)
 		Set tmpX=Boring.XPos
  		Set tmpY=Boring.YPos
  		Set XPos = $S(ProfielPlaats="PR":-tmpX, (ProfielPlaats="PB")!(ProfielPlaats="PO"):tmpY, 1:tmpX)
@@ -161,7 +157,7 @@
 		ElseIf (Boring.BoorDiepte < 0) {
 			Do ##class(Tools.Wlip).%New(238).String("4")
 			Set GrootteBoring = 10
-			Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,GrootteBoring,GrootteBoring, Kleur)
+			Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,GrootteBoring/2, Kleur)
 			Do SvgBox.VoegToeElement(DoorBoring)
 		}
 		ElseIf(Boring.BoorDiameter<0) || (Boring.BoorDiepte=0){
@@ -185,9 +181,8 @@
 			}Else {
 			
 				Set Straal = GrootteBoring\2
-				Set Cirkel = BasisElementFactory.MaakCirkel((XPos-(Straal))\1 +Straal, (YPos-(Straal))\1 +Straal, Straal)
-				Do Cirkel.SetFill(Kleur)
-				Do SvgBox.VoegToeElement(Cirkel)	
+				Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,GrootteBoring/2, Kleur)
+				Do SvgBox.VoegToeElement(DoorBoring)	
 			}
 		}