Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/Test.cls.xml
===================================================================
diff -u -r60114 -r60130
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/Test.cls.xml	(.../Test.cls.xml)	(revision 60114)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/Test.cls.xml	(.../Test.cls.xml)	(revision 60130)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test aanmaken objecten voor hoekverbinder">
+<Method name="Test aanmaken objecten voor hoekverbinder links boven">
 <Implementation><![CDATA[
 	
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
@@ -26,12 +26,102 @@
 	Do CoordinatesList.Insert(LeftInnerBottomBreed)
 	Do CoordinatesList.Insert(LeftBottomBreed)
 	Set VerbinderLinksBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do VerbinderLinksBoven.MaakHoekverbinder(CoordinatesList,0,0,"Verbinder links boven")
+	Do VerbinderLinksBoven.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links boven")
 	
 	Do $$$AssertEquals(VerbinderLinksBoven.Group.Circles.Count(),2)
 	Do $$$AssertEquals(VerbinderLinksBoven.Group.Paths.Count(),1)
 ]]></Implementation>
 </Method>
+
+<Method name="Test aanmaken objecten voor hoekverbinder links onder">
+<Implementation><![CDATA[
+	
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	Set CoordinatesList = ##class(%ListOfObjects).%New()
+	Set StartVerbinder =1
+	Set BreedteVerbinder = 61
+	Set LengteVerbinder = 41
+	Set XCirkel =39
+	Set YCirkel = 19 
+	Set LeftTopBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,StartVerbinder)
+	Set RightTopBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,StartVerbinder)
+	Set RightInnerBottomBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,LengteVerbinder)
+	Set InnerBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,LengteVerbinder)
+	Set LeftInnerBottomBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,BreedteVerbinder)
+	Set LeftBottomBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,BreedteVerbinder)
+	Do CoordinatesList.Insert(LeftTopBreed)
+	Do CoordinatesList.Insert(RightTopBreed)
+	Do CoordinatesList.Insert(RightInnerBottomBreed)
+	Do CoordinatesList.Insert(InnerBreed)
+	Do CoordinatesList.Insert(LeftInnerBottomBreed)
+	Do CoordinatesList.Insert(LeftBottomBreed)
+	Set VerbinderLinksOnder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
+	Do VerbinderLinksOnder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links onder","translate(0 "_450_") rotate(270)")
+	
+	Do $$$AssertEquals(VerbinderLinksOnder.Group.Circles.Count(),2)
+	Do $$$AssertEquals(VerbinderLinksOnder.Group.Paths.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test aanmaken objecten voor hoekverbinder rechts onder">
+<Implementation><![CDATA[
+	
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	Set CoordinatesList = ##class(%ListOfObjects).%New()
+	Set StartVerbinder =1
+	Set BreedteVerbinder = 61
+	Set LengteVerbinder = 41
+	Set XCirkel =39
+	Set YCirkel = 19 
+	Set LeftTopBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,StartVerbinder)
+	Set RightTopBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,StartVerbinder)
+	Set RightInnerBottomBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,LengteVerbinder)
+	Set InnerBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,LengteVerbinder)
+	Set LeftInnerBottomBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,BreedteVerbinder)
+	Set LeftBottomBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,BreedteVerbinder)
+	Do CoordinatesList.Insert(LeftTopBreed)
+	Do CoordinatesList.Insert(RightTopBreed)
+	Do CoordinatesList.Insert(RightInnerBottomBreed)
+	Do CoordinatesList.Insert(InnerBreed)
+	Do CoordinatesList.Insert(LeftInnerBottomBreed)
+	Do CoordinatesList.Insert(LeftBottomBreed)
+	Set VerbinderRechtsOnder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
+	Do VerbinderRechtsOnder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts onder","translate("_350_" "_450_") rotate(180)")
+	
+	Do $$$AssertEquals(VerbinderRechtsOnder.Group.Circles.Count(),2)
+	Do $$$AssertEquals(VerbinderRechtsOnder.Group.Paths.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test aanmaken objecten voor hoekverbinder rechts boven">
+<Implementation><![CDATA[
+	
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	Set CoordinatesList = ##class(%ListOfObjects).%New()
+	Set StartVerbinder =1
+	Set BreedteVerbinder = 61
+	Set LengteVerbinder = 41
+	Set XCirkel =39
+	Set YCirkel = 19 
+	Set LeftTopBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,StartVerbinder)
+	Set RightTopBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,StartVerbinder)
+	Set RightInnerBottomBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,LengteVerbinder)
+	Set InnerBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,LengteVerbinder)
+	Set LeftInnerBottomBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,BreedteVerbinder)
+	Set LeftBottomBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,BreedteVerbinder)
+	Do CoordinatesList.Insert(LeftTopBreed)
+	Do CoordinatesList.Insert(RightTopBreed)
+	Do CoordinatesList.Insert(RightInnerBottomBreed)
+	Do CoordinatesList.Insert(InnerBreed)
+	Do CoordinatesList.Insert(LeftInnerBottomBreed)
+	Do CoordinatesList.Insert(LeftBottomBreed)
+	Set VerbinderRechtsBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
+	Do VerbinderRechtsBoven.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts boven","translate("_350_" 0) rotate(90)")
+	
+	Do $$$AssertEquals(VerbinderRechtsBoven.Group.Circles.Count(),2)
+	Do $$$AssertEquals(VerbinderRechtsBoven.Group.Paths.Count(),1)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml
===================================================================
diff -u -r60114 -r60130
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60114)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60130)
@@ -3,15 +3,14 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: aanmaken groepen hoekverbinders verbindingen standaardkaderdeur">
+<Method name="Test: aanmaken groepen hoekverbinders verbindingen kaderdeur met links profiel">
 <Implementation><![CDATA[
 	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
 	Set ProfPlaats = "PL"
 	Set ProductiewijzeID= ""
 	Set HoekId=2
 	Set Breedte = 350
-	Set Hoogte = 450
-	Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
+	Set Hoogte = 450 
 	Set VerbindersGroup = HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
 	Do $$$AssertEquals(VerbindersGroup.Groups.Count(),4)
 ]]></Implementation>