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>