Index: TECH/Svg/BasisElementFactory.cls.xml
===================================================================
diff -u -r3735 -r3743
--- TECH/Svg/BasisElementFactory.cls.xml	(.../BasisElementFactory.cls.xml)	(revision 3735)
+++ TECH/Svg/BasisElementFactory.cls.xml	(.../BasisElementFactory.cls.xml)	(revision 3743)
@@ -60,6 +60,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakPathHalveCirkel">
+<FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates"),Afsluiten:%Boolean=1</FormalSpec>
+<ReturnType>TECH.Svg.Basis.Path</ReturnType>
+<Implementation><![CDATA[
+	Set Path = ##class(TECH.Svg.Basis.Path).%New()
+	
+	Do Path.VoegToeInhoudDHalveCirkel(CoordinatesList)
+	
+	Quit Path
+]]></Implementation>
+</Method>
+
 <Method name="MaakText">
 <FormalSpec>X:%Integer,Y:%Integer,Content:%String</FormalSpec>
 <ReturnType>TECH.Svg.Basis.Text</ReturnType>
Index: vhTest/Mock/TECH/Svg/BasisElementFactory.cls.xml
===================================================================
diff -u -r3735 -r3743
--- vhTest/Mock/TECH/Svg/BasisElementFactory.cls.xml	(.../BasisElementFactory.cls.xml)	(revision 3735)
+++ vhTest/Mock/TECH/Svg/BasisElementFactory.cls.xml	(.../BasisElementFactory.cls.xml)	(revision 3743)
@@ -42,6 +42,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakPathHalveCirkel">
+<FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates"),Afsluiten:%Boolean=1</FormalSpec>
+<ReturnType>TECH.Svg.Basis.Path</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakPathHalveCirkel",CoordinatesList,Afsluiten)
+]]></Implementation>
+</Method>
+
 <Method name="MaakRechthoek">
 <FormalSpec>X:%Integer,Y:%Integer,Width:%Integer,Height:%Integer</FormalSpec>
 <ReturnType>TECH.Svg.Basis.Rect</ReturnType>
Index: vhTest/Fake/TECH/Svg/BasisElementFactory.cls.xml
===================================================================
diff -u -r3682 -r3743
--- vhTest/Fake/TECH/Svg/BasisElementFactory.cls.xml	(.../BasisElementFactory.cls.xml)	(revision 3682)
+++ vhTest/Fake/TECH/Svg/BasisElementFactory.cls.xml	(.../BasisElementFactory.cls.xml)	(revision 3743)
@@ -21,6 +21,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakPathHalveCirkel">
+<FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates"),Afsluiten:%Boolean=1</FormalSpec>
+<ReturnType>TECH.Svg.Basis.Path</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="MaakGroup">
 <ReturnType>TECH.Svg.Basis.Group</ReturnType>
 <Implementation><![CDATA[	Quit ""
Index: TECH/Svg/Basis/Path.cls.xml
===================================================================
diff -u -r3728 -r3743
--- TECH/Svg/Basis/Path.cls.xml	(.../Path.cls.xml)	(revision 3728)
+++ TECH/Svg/Basis/Path.cls.xml	(.../Path.cls.xml)	(revision 3743)
@@ -48,6 +48,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeInhoudDHalveCirkel">
+<FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates")</FormalSpec>
+<Implementation><![CDATA[
+	Set CoordinatesIterator = ##class(TECH.ListIterator).%New(CoordinatesList)
+	
+	// Voor de eerste Coordinates
+	If (CoordinatesIterator.HasNext()) {
+		#dim FirstCoordinates As TECH.Svg.Basis.Path.Coordinates = CoordinatesIterator.Next()
+		Set ..D = "M"_FirstCoordinates.X_" "_FirstCoordinates.Y
+		
+		If (CoordinatesIterator.HasNext()) {
+		#dim SecondCoordinates As TECH.Svg.Basis.Path.Coordinates = CoordinatesIterator.Next()
+		Set ..D = ##class(TECH.StringUtils).Append(..D, "Q"_SecondCoordinates.X_" "_SecondCoordinates.Y, " ")
+		}
+		
+		If (CoordinatesIterator.HasNext()) {
+		#dim ThirdCoordinates As TECH.Svg.Basis.Path.Coordinates = CoordinatesIterator.Next()
+		Set ..D = ##class(TECH.StringUtils).Append(..D, ThirdCoordinates.X_" "_ThirdCoordinates.Y, " ")
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeInhoudAfgeslotenD">
 <FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates")</FormalSpec>
 <Implementation><![CDATA[