Index: TECH/Svg/Basis/Path/Coordinates.cls.xml
===================================================================
diff -u
--- TECH/Svg/Basis/Path/Coordinates.cls.xml	(revision 0)
+++ TECH/Svg/Basis/Path/Coordinates.cls.xml	(revision 3637)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Svg.Basis.Path.Coordinates">
+<Super>%SerialObject</Super>
+
+<Property name="X">
+<Type>%Float</Type>
+</Property>
+
+<Property name="Y">
+<Type>%Float</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>X:%Float,Y:%Float</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..X = $Get(X)
+	Set ..Y = $Get(Y)
+	Quit 1
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>CoordinatesState</State>
+<StreamLocation>^TECH.Svg.Basis634E.CoordinatesS</StreamLocation>
+<Data name="CoordinatesState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>X</Value>
+</Value>
+<Value name="2">
+<Value>Y</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: TECH/Svg/Basis/Path.cls.xml
===================================================================
diff -u -r3632 -r3637
--- TECH/Svg/Basis/Path.cls.xml	(.../Path.cls.xml)	(revision 3632)
+++ TECH/Svg/Basis/Path.cls.xml	(.../Path.cls.xml)	(revision 3637)
@@ -3,6 +3,13 @@
 <Class name="TECH.Svg.Basis.Path">
 <Super>TECH.Svg.Basis.DomElement</Super>
 
+<UDLText name="T">
+<Content><![CDATA[
+// voorlopig enkel voor veelvlakken
+
+]]></Content>
+</UDLText>
+
 <Parameter name="XMLNAME">
 <Default>path</Default>
 </Parameter>
@@ -14,17 +21,66 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>D:%String</FormalSpec>
+<FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates"),Aflsluiten:%Boolean=0</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..D = D
+	If (Aflsluiten =0)
+	{ 
+	Do ..VoegToeInhoudD(CoordinatesList)
+	}
+	Else
+	{
+	 Do ..VoegToeInhoudAfgelsotenD(CoordinatesList)
+	}
+	
 	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()
+		Set ..D = ##class(TECH.StringUtils).Append(..D, "L"_Coordinates.X_" "_Coordinates.Y, " ")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeInhoudAfgelsotenD">
+<FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates")</FormalSpec>
+<Private>1</Private>
+<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()
+		Set ..D = ##class(TECH.StringUtils).Append(..D, "L"_Coordinates.X_" "_Coordinates.Y, " ")
+	} 
+	Set ..D = ##class(TECH.StringUtils).Append(..D, "z","")
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="DomElementState">
@@ -49,6 +105,9 @@
 <Value name="7">
 <Value>D</Value>
 </Value>
+<Value name="8">
+<Value>Coordinates</Value>
+</Value>
 </Data>
 </Storage>
 </Class>