Index: vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u -r61353 -r61903
--- vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 61353)
+++ vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 61903)
@@ -15,16 +15,28 @@
 ]]></Implementation>
 </Method>
 
-<Method name="KadFreesRect">
+<Method name="KADBMFREES">
 <FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("KadFreesRect",Breedte,Lengte,Rotation)
+<Implementation><![CDATA[	do ..VerwerkMethodCall("KADBMFREES",Breedte,Lengte,Rotation)
 ]]></Implementation>
 </Method>
 
+<Method name="KadFreesRect">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,FreesB:%Integer=16,FreesL:%Integer=14</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("KadFreesRect",Breedte,Lengte,Rotation,FreesB,FreesL)
+]]></Implementation>
+</Method>
+
+<Method name="KadHSFreesRect">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,YPos:%Integer</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("KadHSFreesRect",Breedte,Lengte,Rotation,YPos)
+]]></Implementation>
+</Method>
+
 <Method name="MaakBoringSpecialeVorm">
-<FormalSpec>VmlId:%String,Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<FormalSpec>VmlId:%String,Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,YPos:%Integer=0</FormalSpec>
 <ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakBoringSpecialeVorm",VmlId,Breedte,Lengte,Rotation)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakBoringSpecialeVorm",VmlId,Breedte,Lengte,Rotation,YPos)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm/MaakBoringSpecialeVorm/Test.cls.xml
===================================================================
diff -u -r61602 -r61903
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm/MaakBoringSpecialeVorm/Test.cls.xml	(.../Test.cls.xml)	(revision 61602)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm/MaakBoringSpecialeVorm/Test.cls.xml	(.../Test.cls.xml)	(revision 61903)
@@ -7,10 +7,10 @@
 <Implementation><![CDATA[
 	Set CoordinatesList = ##class(%ListOfObjects).%New()
 	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
-	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten",337.9,435,30,30,12.1,29.72,12.1,.28).ExactAantalKeer(1).DanReturn(CoordinatesList)
+	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten",350,275,0,225,350,175).ExactAantalKeer(1).DanReturn(CoordinatesList)
 	#dim Path as TECH.Svg.Basis.Path = ##class(TECH.Svg.BasisElementFactory).%New().MaakPath(CoordinatesList,0)
 	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
-	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPath", CoordinatesList,1).DanReturn(Path)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPathHalveCirkel", CoordinatesList,1).DanReturn(Path)
 	Set BeslagBoringSpecialeVorm = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New(BasisElementFactoryMock, CoordinatesServiceMock)
 		
 	Do BeslagBoringSpecialeVorm.MaakBoringSpecialeVorm("SD30",350,450,0)
@@ -25,10 +25,10 @@
 <Implementation><![CDATA[
 	Set CoordinatesList = ##class(%ListOfObjects).%New()
 	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
-	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten",435,337.9,30,30,.28,12.1,29.72,12.1).ExactAantalKeer(1).DanReturn(CoordinatesList)
+	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten",175,350,225,0,275,350).ExactAantalKeer(1).DanReturn(CoordinatesList)
 	#dim Path as TECH.Svg.Basis.Path = ##class(TECH.Svg.BasisElementFactory).%New().MaakPath(CoordinatesList,0)
 	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
-	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPath", CoordinatesList,1).DanReturn(Path)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPathHalveCirkel", CoordinatesList,1).DanReturn(Path)
 	Set BeslagBoringSpecialeVorm = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New(BasisElementFactoryMock, CoordinatesServiceMock)
 		
 	Do BeslagBoringSpecialeVorm.MaakBoringSpecialeVorm("SD30",350,450,90)
@@ -45,10 +45,10 @@
 <Implementation><![CDATA[
 	Set CoordinatesList = ##class(%ListOfObjects).%New()
 	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
-	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten",337.9,435,30,30,17.9,.28,17.9,29.72).ExactAantalKeer(1).DanReturn(CoordinatesList)
+	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten",0,275,350,225,0,175).ExactAantalKeer(1).DanReturn(CoordinatesList)
 	#dim Path as TECH.Svg.Basis.Path = ##class(TECH.Svg.BasisElementFactory).%New().MaakPath(CoordinatesList,0)
 	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
-	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPath", CoordinatesList,1).DanReturn(Path)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPathHalveCirkel", CoordinatesList,1).DanReturn(Path)
 	Set BeslagBoringSpecialeVorm = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New(BasisElementFactoryMock, CoordinatesServiceMock)
 	
 	Do BeslagBoringSpecialeVorm.MaakBoringSpecialeVorm("SD30",350,450,180)
@@ -63,10 +63,10 @@
 <Implementation><![CDATA[
 	Set CoordinatesList = ##class(%ListOfObjects).%New()
 	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
-	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten",435,337.9,30,30,29.72,17.9,.28,17.9).ExactAantalKeer(1).DanReturn(CoordinatesList)
+	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten",175,0,225,350,275,0).ExactAantalKeer(1).DanReturn(CoordinatesList)
 	#dim Path as TECH.Svg.Basis.Path = ##class(TECH.Svg.BasisElementFactory).%New().MaakPath(CoordinatesList,0)
 	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
-	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPath", CoordinatesList,1).DanReturn(Path)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPathHalveCirkel", CoordinatesList,1).DanReturn(Path)
 	Set BeslagBoringSpecialeVorm = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New(BasisElementFactoryMock, CoordinatesServiceMock)
 	
 	Do BeslagBoringSpecialeVorm.MaakBoringSpecialeVorm("SD30",350,450,270)
@@ -81,10 +81,10 @@
 <Implementation><![CDATA[
 	Set CoordinatesList = ##class(%ListOfObjects).%New()
 	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
-	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten",342.5,435,30,30,7.5,33.31,7.5,1.69).ExactAantalKeer(1).DanReturn(CoordinatesList)
+	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten",350,275,0,225,350,175).ExactAantalKeer(1).DanReturn(CoordinatesList)
 	#dim Path as TECH.Svg.Basis.Path = ##class(TECH.Svg.BasisElementFactory).%New().MaakPath(CoordinatesList,0)
 	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
-	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPath", CoordinatesList,1).DanReturn(Path)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPathHalveCirkel", CoordinatesList,1).DanReturn(Path)
 	Set BeslagBoringSpecialeVorm = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New(BasisElementFactoryMock, CoordinatesServiceMock)
 		
 	Do BeslagBoringSpecialeVorm.MaakBoringSpecialeVorm("SD35",350,450,0)
@@ -100,7 +100,7 @@
 	Set CoordinatesList = ##class(%ListOfObjects).%New()
 	#dim Rect as TECH.Svg.Basis.Rect = ##class(TECH.Svg.BasisElementFactory).%New().MaakRechthoek(1,2,3,4)
 	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
-	Do BasisElementFactoryMock.VerwachtMethodCall("MaakRechthoek",334,14,16,14).DanReturn(Rect)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakRechthoek",334,436,16,14).DanReturn(Rect)
 	Set BeslagBoringSpecialeVorm = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New(BasisElementFactoryMock)
 		
 	Do BeslagBoringSpecialeVorm.MaakBoringSpecialeVorm("KAD",350,450,0)
@@ -114,10 +114,10 @@
 <Implementation><![CDATA[
 	Set CoordinatesList = ##class(%ListOfObjects).%New()
 	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
-	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten",342.5,435,30,30,7.5,33.31,7.5,1.69).ExactAantalKeer(1).DanReturn(CoordinatesList)
+	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten",350,275,0,225,350,175).ExactAantalKeer(1).DanReturn(CoordinatesList)
 	#dim Path as TECH.Svg.Basis.Path = ##class(TECH.Svg.BasisElementFactory).%New().MaakPath(CoordinatesList,0)
 	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
-	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPath", CoordinatesList,1).DanReturn(Path)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPathHalveCirkel", CoordinatesList,1).DanReturn(Path)
 	Set BeslagBoringSpecialeVorm = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New(BasisElementFactoryMock, CoordinatesServiceMock)
 		
 	Do BeslagBoringSpecialeVorm.MaakBoringSpecialeVorm("REGULA_SM",350,450,0)
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBeslagBoringen/Test.cls.xml
===================================================================
diff -u -r61641 -r61903
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBeslagBoringen/Test.cls.xml	(.../Test.cls.xml)	(revision 61641)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBeslagBoringen/Test.cls.xml	(.../Test.cls.xml)	(revision 61903)
@@ -43,7 +43,7 @@
 	Set BeslagBoringSpecialeVormMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New()
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	#dim SvgBox As TECH.Svg.Basis.SvgBox = BasisElementFactory.MaakSvgBox(0,0,5,5)
-	Do BeslagBoringSpecialeVormMock.VerwachtMethodCall("MaakBoringSpecialeVorm","KAD",40,58,0).DanReturn(SvgBox)
+	Do BeslagBoringSpecialeVormMock.VerwachtMethodCall("MaakBoringSpecialeVorm","KAD",40,58,0,29).DanReturn(SvgBox)
 	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New(,,BeslagBoringSpecialeVormMock)
 	
 	Do Boringen.VoegToeBeslagBoringen(Beslag,"PL",0,0,0)
Index: vhTest/Fake/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u -r60385 -r61903
--- vhTest/Fake/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 60385)
+++ vhTest/Fake/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 61903)
@@ -13,6 +13,18 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="KADBMFREES">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="KadHSFreesRect">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="MaakBoringSpecialeVorm">
 <FormalSpec>VmlId:%String,Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
 <ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u -r61607 -r61903
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 61607)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 61903)
@@ -31,7 +31,7 @@
 </Method>
 
 <Method name="MaakBoringSpecialeVorm">
-<FormalSpec>VmlId:%String,Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<FormalSpec>VmlId:%String,Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,YPos:%Integer=0</FormalSpec>
 <ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
 <Implementation><![CDATA[
 	If (VmlId = "KAD") {
@@ -42,6 +42,12 @@
 		Do ..SD35FREES(Breedte, Lengte,Rotation)
 	}ElseIf (VmlId ="REGULA_SM"){
 		Do ..SD35FREES(Breedte, Lengte,Rotation)
+	}ElseIf (VmlId ="KADBM"){
+		Do ..KADBMFREES(Breedte, Lengte,Rotation)
+	}ElseIf (VmlId ="KADHS"){
+		Do ..KadHSFreesRect(Breedte, Lengte,Rotation, YPos)
+	}ElseIf (VmlId ="KAD120"){
+		Do ..KadHSFreesRect(Breedte, Lengte,Rotation)
 	}
 	Quit ..SvgBox
 ]]></Implementation>
@@ -54,22 +60,38 @@
 	#dim CoordinatesList As %ListOfObjects
 	
 	If (Rotation = 0) {
-		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(Breedte-Offset,Lengte-(Diameter\2),Diameter,Diameter,Offset,P2,Offset,P1)
+		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(Breedte,Lengte-(Breedte/2),0,Lengte/2,Breedte,(Breedte/2))
 	}ElseIf (Rotation = 90) {
-		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(Lengte-(Diameter\2), Breedte-Offset,Diameter,Diameter,P1,Offset,P2,Offset)
+		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(Breedte/2, Breedte,Lengte/2,0,Lengte-(Breedte/2),Breedte)
 	}ElseIf (Rotation = 180) {
-		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(Breedte-Offset,Lengte-(Diameter\2),Diameter,Diameter,OffsetOpposite,P1,OffsetOpposite,P2)
+		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(0,Lengte-(Breedte/2),Breedte,Lengte/2,0,(Breedte\2))
 	}ElseIf (Rotation = 270) {
-		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(Lengte-(Diameter\2), Breedte-Offset,Diameter,Diameter,P2,OffsetOpposite,P1,OffsetOpposite)
+		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(Breedte/2, 0,Lengte/2,Breedte,Lengte-(Breedte/2),0)
 	}
 	
-	#dim Path As TECH.Svg.Basis.Path = ..BasisElementFactory.MaakPath(CoordinatesList,1)
+	#dim Path As TECH.Svg.Basis.Path = ..BasisElementFactory.MaakPathHalveCirkel(CoordinatesList)
+	Do Path.SetFill(##class(TECH.Svg.enu.Kleur).Blauw())
+	Do Path.SetStroke(##class(TECH.Svg.enu.Kleur).Blauw())
 	Do ..SvgBox.VoegToeElement(Path)
 	
 	Quit ..SvgBox
 ]]></Implementation>
 </Method>
 
+<Method name="KADBMFREES">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	#dim Diameter As %Integer = 35
+	#dim MiddleOffset As %Integer = 6.0
+	#dim Offset As %Integer = (Diameter/2) - MiddleOffset
+	#dim OffsetOpposite As %Integer = (Diameter/2) + MiddleOffset
+	#dim P1 As %Integer = 0.28
+	#dim P2 As %Integer = 34.72
+	
+	Do ..SDxFREES(Diameter,MiddleOffset,Offset,OffsetOpposite,P1,P2, Rotation, Breedte, Lengte)
+]]></Implementation>
+</Method>
+
 <Method name="SD30FREES">
 <FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
 <Implementation><![CDATA[
@@ -98,25 +120,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="KadHSFreesRect">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,YPos:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
+	Do ..KadFreesRect(Breedte, 23+ YPos, Rotation, 2, 46)
+	Do ..KadFreesRect(Breedte, 11 + YPos, Rotation, 16, 22)
+]]></Implementation>
+</Method>
+
 <Method name="KadFreesRect">
-<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,FreesB:%Integer=16,FreesL:%Integer=14</FormalSpec>
 <Implementation><![CDATA[
 	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	#dim FreesB As %Integer =16
-	#dim FreesL As %Integer =14
 	#dim Rechthoek As TECH.Svg.Basis.Rect
 	
 	If (Rotation = 0) {
-		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(Breedte-FreesB, FreesL, FreesB, FreesL)
+		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(Breedte-FreesB, Lengte-FreesL, FreesB, FreesL)
 	}
 	If (Rotation = 90) {
 		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(Breedte , Lengte, FreesB,FreesL)
 	}
 	If (Rotation = 180) {
-		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(0 , (Lengte - FreesL)/2, FreesB, FreesL)
+		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(0 , Lengte - FreesL, FreesB, FreesL)
 	}
 	If (Rotation = 270) {
-		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(0 , (Breedte - FreesL)/2, FreesB, FreesL)
+		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(0 , Breedte - FreesL, FreesB, FreesL)
 	}
 	Do Rechthoek.SetFill(##class(TECH.Svg.enu.Kleur).Blauw())
 	Do ElementToevoeger.VoegToeElement(..SvgBox,Rechthoek)