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[