Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u -r61353 -r61607
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 61353)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 61607)
@@ -104,21 +104,22 @@
 	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
 	#dim FreesB As %Integer =16
 	#dim FreesL As %Integer =14
-	#dim Rect As TECH.Svg.Basis.Rect
+	#dim Rechthoek As TECH.Svg.Basis.Rect
 	
 	If (Rotation = 0) {
-		Set Rect = ..BasisElementFactory.MaakRechthoek(Breedte, Lengte, FreesB, FreesL)
+		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(Breedte-FreesB, FreesL, FreesB, FreesL)
 	}
 	If (Rotation = 90) {
-		Set Rect = ..BasisElementFactory.MaakRechthoek(Breedte , Lengte, FreesB,FreesL)
+		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(Breedte , Lengte, FreesB,FreesL)
 	}
 	If (Rotation = 180) {
-		Set Rect = ..BasisElementFactory.MaakRechthoek(0 , (Lengte - FreesL)/2, FreesB, FreesL)
+		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(0 , (Lengte - FreesL)/2, FreesB, FreesL)
 	}
 	If (Rotation = 270) {
-		Set Rect = ..BasisElementFactory.MaakRechthoek(Breedte, Lengte , FreesB, FreesL)
+		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(0 , (Breedte - FreesL)/2, FreesB, FreesL)
 	}
-	Do ElementToevoeger.VoegToeElement(..SvgBox,Rect)
+	Do Rechthoek.SetFill(##class(TECH.Svg.enu.Kleur).Blauw())
+	Do ElementToevoeger.VoegToeElement(..SvgBox,Rechthoek)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml
===================================================================
diff -u -r61337 -r61607
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 61337)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 61607)
@@ -42,8 +42,8 @@
 		Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).Grijs())
 		Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 		Do KDMiddle.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
-		Do KDMiddle.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGroen())
-		Do KDMiddle.SetStrokeDashArray($S(BorderS="LD":"2",BorderS="D":"1",1:"none"))
+		Do KDMiddle.SetFill(##class(TECH.Svg.enu.Kleur).Geen())
+		Do KDMiddle.SetStrokeDashArray($S(BorderS="LD":"4",BorderS="D":"2",1:"none"))
 		Do KDInner.SetFill($S($$$HasLength(KaderdeurObject.Vulling.Vulling):##class(TECH.Svg.enu.Kleur).LichtGroen(),1:##class(TECH.Svg.enu.Kleur).Wit()))
 		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	}Else {
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml
===================================================================
diff -u -r61395 -r61607
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(.../BoringElementFactory.cls.xml)	(revision 61395)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(.../BoringElementFactory.cls.xml)	(revision 61607)
@@ -62,7 +62,7 @@
 <ReturnType>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring</ReturnType>
 <Implementation><![CDATA[
 	#dim CrossDiag As TECH.Svg.Tooling.CrossDiag = ..CrossFactory.MaakCrossDiag(Width,Height, Kleur)
-	#dim Circle As TECH.Svg.Basis.Circle = ..BasisElementFactory.MaakCirkel(Width/2,Height/2,(Width/2.2))
+	#dim Circle As TECH.Svg.Basis.Circle = ..BasisElementFactory.MaakCirkel(Width/2,Height/2,(Width/3))
 	Do Circle.SetFill(Kleur)
 	Set Rugboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New()
 	Set Rugboring.SvgBox = ..BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)