Index: TECH/Svg/Basis/Path.cls.xml
===================================================================
diff -u -r3647 -r3744
--- TECH/Svg/Basis/Path.cls.xml	(.../Path.cls.xml)	(revision 3647)
+++ TECH/Svg/Basis/Path.cls.xml	(.../Path.cls.xml)	(revision 3744)
@@ -21,33 +21,25 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates"),Aflsluiten:%Boolean=1</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	If (Aflsluiten =0) { 
-		Do ..VoegToeInhoudD(CoordinatesList)
-	}
-	Else {
-		Do ..VoegToeInhoudAfgelsotenD(CoordinatesList)
-	}
-	
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeInhoudD">
 <FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates")</FormalSpec>
-<Private>1</Private>
 <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
 	}
+	
 	// Voor alle volgende Coordinates
 	While (CoordinatesIterator.HasNext()) {
 		#dim Coordinates As TECH.Svg.Basis.Path.Coordinates = CoordinatesIterator.Next()
@@ -56,19 +48,44 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeInhoudAfgelsotenD">
+<Method name="VoegToeInhoudDHalveCirkel">
 <FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates")</FormalSpec>
-<Private>1</Private>
 <Implementation><![CDATA[
-	If (CoordinatesList.Count() <3) {
+	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[
+	If (CoordinatesList.Count() < 3) {
 	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Het afsluiten van een figuur is pas praktisch als er meer dan 2 coördinaten aanwezig zijn."))
 	}
+	
 	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
 	}
+	
 	// Voor alle volgende Coordinates
 	While (CoordinatesIterator.HasNext()) {
 		#dim Coordinates As TECH.Svg.Basis.Path.Coordinates = CoordinatesIterator.Next()
@@ -78,36 +95,6 @@
 	Set ..D = ##class(TECH.StringUtils).Append(..D, "z","")
 ]]></Implementation>
 </Method>
-
-<Storage name="Default">
-<Type>%Library.CacheSerialState</Type>
-<Data name="DomElementState">
-<Value name="1">
-<Value>Fill</Value>
-</Value>
-<Value name="2">
-<Value>Stroke</Value>
-</Value>
-<Value name="3">
-<Value>StrokeWidth</Value>
-</Value>
-<Value name="4">
-<Value>StrokeDashArray</Value>
-</Value>
-<Value name="5">
-<Value>Overflow</Value>
-</Value>
-<Value name="6">
-<Value>Opacity</Value>
-</Value>
-<Value name="7">
-<Value>D</Value>
-</Value>
-<Value name="8">
-<Value>Coordinates</Value>
-</Value>
-</Data>
-</Storage>
 </Class>