Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u -r60050 -r60121
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 60050)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 60121)
@@ -26,17 +26,108 @@
 <Implementation><![CDATA[
 	If (VmlId = "KAD") {
 		Do ..KadFreesRect(Breedte, Lengte, Rotation)	
+	}ElseIf (VmlId ="SD30"){
+		Do ..SD30FREES(Breedte, Lengte,Rotation)
+	}ElseIf (VmlId ="SD35"){
+		Do ..SD35FREES(Breedte, Lengte,Rotation)
+	}ElseIf (VmlId ="REGULA_SM"){
+		Do ..SD35FREES(Breedte, Lengte,Rotation)
 	}
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="SD30FREES">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set Diameter = 30
+	Set MiddleOffset = 2.9
+	Set Offset = (Diameter/2) - MiddleOffset
+	Set OffsetOpposite = (Diameter/2) + MiddleOffset
+	Set P1 = 0.28
+	Set P2 = 29.72
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	If (Rotation = 0) {
+		Set CoordinatesList = ##class(%ListOfObjects).%New()
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Breedte-Offset,Lengte-(Diameter\2)))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Diameter,Diameter))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Offset,P2))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Offset,P1))
+		Set Path = BasisElementFactory.MaakPath(CoordinatesList,1)
+		
+	}ElseIf (Rotation = 90) {
+		Set CoordinatesList = ##class(%ListOfObjects).%New()
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Lengte-(Diameter\2), Breedte-Offset))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Diameter,Diameter))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(P1,Offset))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(P2,Offset))
+		Set Path = BasisElementFactory.MaakPath(CoordinatesList,1)
+	}ElseIf (Rotation = 180) {
+		Set CoordinatesList = ##class(%ListOfObjects).%New()
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Breedte-Offset,Lengte-(Diameter\2)))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Diameter,Diameter))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(OffsetOpposite,P1))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(OffsetOpposite,P2))
+		Set Path = BasisElementFactory.MaakPath(CoordinatesList,1)
+	}ElseIf (Rotation = 270) {
+		Set CoordinatesList = ##class(%ListOfObjects).%New()
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Lengte-(Diameter\2), Breedte-Offset))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Diameter,Diameter))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(P2,OffsetOpposite))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(P1,OffsetOpposite))
+		Set Path = BasisElementFactory.MaakPath(CoordinatesList,1)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="SD35FREES">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set Diameter = 30
+	Set MiddleOffset = 7.5
+	Set Offset = (Diameter/2) - MiddleOffset
+	Set OffsetOpposite = (Diameter/2) + MiddleOffset
+	Set P1 = 1.69
+	Set P2 = 33.31
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	
+	If (Rotation = 0) {
+		Set CoordinatesList = ##class(%ListOfObjects).%New()
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Breedte-Offset,Lengte-(Diameter\2)))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Diameter,Diameter))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Offset,P2))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Offset,P1))
+		Set Path = BasisElementFactory.MaakPath(CoordinatesList,1)
+		
+	}ElseIf (Rotation = 90) {
+		Set CoordinatesList = ##class(%ListOfObjects).%New()
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Lengte-(Diameter\2), Breedte-Offset))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Diameter,Diameter))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(P1,Offset))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(P2,Offset))
+		Set Path = BasisElementFactory.MaakPath(CoordinatesList,1)
+	}ElseIf (Rotation = 180) {
+		Set CoordinatesList = ##class(%ListOfObjects).%New()
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Breedte-Offset,Lengte-(Diameter\2)))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Diameter,Diameter))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(OffsetOpposite,P1))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(OffsetOpposite,P2))
+		Set Path = BasisElementFactory.MaakPath(CoordinatesList,1)
+	}ElseIf (Rotation = 270) {
+		Set CoordinatesList = ##class(%ListOfObjects).%New()
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Lengte-(Diameter\2), Breedte-Offset))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(Diameter,Diameter))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(P2,OffsetOpposite))
+		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(P1,OffsetOpposite))
+		Set Path = BasisElementFactory.MaakPath(CoordinatesList,1)
+	}
+	Do ..SvgBox.VoegToeElement(Path)
+]]></Implementation>
+</Method>
+
 <Method name="KadFreesRect">
 <FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	;Do ##class(Tools.Wlip).%New(238).String(Breedte)
-	;Do ##class(Tools.Wlip).%New(238).String(MidX)
-	;Do ##class(Tools.Wlip).%New(238).String(MidY)
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	Set FreesB=16
 	Set FreesL=14
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml
===================================================================
diff -u -r60107 -r60121
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60107)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60121)
@@ -15,14 +15,16 @@
 	
 	Do ..Group.VoegToeID("Beslagen")
 	#dim Beslagen As array of Prod.GADef.emKadBoring = KaderdeurObject.Beslag
+	Do ##class(Tools.Wlip).%New(238).ObjToText(Beslagen)
 	#dim Key As %String = ""
 	#dim Beslag As Prod.GADef.emKadBeslag = Beslagen.GetNext(.Key)
-	Do ##class(Tools.Wlip).%New(238).ObjToText(Beslag)
+	
 	While ($$$HasLength(Beslag)) {
 		#dim Posities As array of Prod.GADef.emKadBeslagPos = Beslag.Positie
 		#dim KeyPositie As %String = ""
 		#dim Positie As Prod.GADef.emKadBeslagPos = Posities.GetNext(.KeyPositie)
 		Set blnCalcPrm=1
+		Do ##class(Tools.Wlip).%New(238).ObjToText(Beslag)
 		While ($$$HasLength(Positie)) {
 			#dim BeslagObject As Res.PI.Beslag = Beslag.Beslag
 			If (blnCalcPrm)!(KeyPositie'?.N) {
@@ -42,7 +44,8 @@
  			
  			
  			If (ProfielPlaats = "FOUT") ! ( KaderdeurObject.NietOpProfiel(ProfielPlaats)) ! (BPosX="") ! (BPosY="") ! (BPosZ="") {
-				Set Beslag = Beslagen.GetNext(.Key)
+				
+				Do ##class(Tools.Wlip).%New(238).String("foute profielplaats")
 				Quit
 			}
  			Set tmpX=BPosX
@@ -70,10 +73,13 @@
 			If (BPosZ<0) {
 	 			Set BPosZ=ProfType.Dikte+BPosZ            ; Substract = add Negative Number
  			}
+ 			Do ##class(Tools.Wlip).%New(238).String("profielplaats")
  			Do ..MaakBeslag(Beslag, BPosX, BPosY, BPosZ, ProfielPlaats)
 			Set Positie = Posities.GetNext(.KeyPositie)
+			Do ##class(Tools.Wlip).%New(238).String("volgende positie")
 		}
 		Set Beslag = Beslagen.GetNext(.Key)
+		Do ##class(Tools.Wlip).%New(238).String("volgende beslag")
 	}
 ]]></Implementation>
 </Method>