Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml
===================================================================
diff -u -r60122 -r60197
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(.../LosProfielToevoeger.cls.xml)	(revision 60122)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(.../LosProfielToevoeger.cls.xml)	(revision 60197)
@@ -7,6 +7,7 @@
 <FormalSpec>Breedte:%Integer,Lengte:%Integer,LosOffset:%Integer,ProfPlaats:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	Set CoordinatesService = ##class(TECH.Svg.Services.CoordinatesService).%New()
 	Set LeftTopInner  = BasisElementFactory.MaakCoordinaat(LosOffset,LosOffset)
 	Set RightTopInner = BasisElementFactory.MaakCoordinaat(Breedte - LosOffset,LosOffset)
 	Set LeftBottomInner = BasisElementFactory.MaakCoordinaat(LosOffset,Lengte-LosOffset)
@@ -17,34 +18,20 @@
 	Set LeftBottomOuter = BasisElementFactory.MaakCoordinaat(0, Lengte)
 	Set RightBottomOuter = BasisElementFactory.MaakCoordinaat(Breedte, Lengte)
 	
-	#dim CoordinatesList As %ListOfObjects = ##class(%ListOfObjects).%New()
-	
 	If (ProfPlaats="PL") {
-		Do CoordinatesList.Insert(LeftTopInner)
-		Do CoordinatesList.Insert(LeftTopOuter)
-		Do CoordinatesList.Insert(LeftBottomOuter)
-		Do CoordinatesList.Insert(LeftBottomInner)
+		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanCoordinaten(LeftTopInner, LeftTopOuter, LeftBottomOuter, LeftBottomInner)
 		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
 	}
 		If (ProfPlaats="PB") {
-		Do CoordinatesList.Insert(LeftTopInner)
-		Do CoordinatesList.Insert(LeftTopOuter)
-		Do CoordinatesList.Insert(RightTopOuter)
-		Do CoordinatesList.Insert(RightTopInner)
+		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanCoordinaten(LeftTopInner, LeftTopOuter, RightTopOuter, RightTopInner)
 		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
 	}
 		If (ProfPlaats="PR") {
-		Do CoordinatesList.Insert(RightTopInner)
-		Do CoordinatesList.Insert(RightTopOuter)
-		Do CoordinatesList.Insert(RightBottomOuter)
-		Do CoordinatesList.Insert(RightBottomInner)
+		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanCoordinaten(RightTopInner, RightTopOuter, RightBottomOuter, RightBottomInner)
 		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
 	}
 		If (ProfPlaats="PO") {
-		Do CoordinatesList.Insert(RightBottomInner)
-		Do CoordinatesList.Insert(RightBottomOuter)
-		Do CoordinatesList.Insert(LeftBottomOuter)
-		Do CoordinatesList.Insert(LeftBottomInner)
+		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanCoordinaten(RightBottomInner, RightBottomOuter, LeftBottomOuter, LeftBottomInner)
 		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
 	}
 		Do Path.SetFill("#F0F0F0")