Index: vhTest/Utils/TECH/Svg/Basis/Path/Coordinates/CoordinatesList.cls.xml
===================================================================
diff -u -r3694 -r3734
--- vhTest/Utils/TECH/Svg/Basis/Path/Coordinates/CoordinatesList.cls.xml	(.../CoordinatesList.cls.xml)	(revision 3694)
+++ vhTest/Utils/TECH/Svg/Basis/Path/Coordinates/CoordinatesList.cls.xml	(.../CoordinatesList.cls.xml)	(revision 3734)
@@ -28,6 +28,32 @@
 	Quit CoordinatesList
 ]]></Implementation>
 </Method>
+
+<Method name="CoordinatesListHoekverbinderSmal">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	Set CoordinatesList = ##class(%ListOfObjects).%New()
+	#dim StartVerbinder As %Integer =1
+	#dim BreedteVerbinder As %Integer = 43
+	#dim LengteVerbinder As %Integer = 17
+	#dim LeftTopBreed As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(StartVerbinder,StartVerbinder)
+	#dim RightTopBreed As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,StartVerbinder)
+	#dim RightInnerBottomBreed As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,LengteVerbinder)
+	#dim InnerBreed As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(LengteVerbinder,LengteVerbinder)
+	#dim LeftInnerBottomBreed As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(LengteVerbinder,BreedteVerbinder)
+	#dim LeftBottomBreed As TECH.Svg.Basis.Path.Coordinates = 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)
+	Do ##class(Tools.Wlip).%New(238).ObjToText(CoordinatesList)
+	Quit CoordinatesList
+]]></Implementation>
+</Method>
 </Class>