Index: TECH/Svg/Basis/Path.cls.xml
===================================================================
diff -u -r3653 -r3654
--- TECH/Svg/Basis/Path.cls.xml	(.../Path.cls.xml)	(revision 3653)
+++ TECH/Svg/Basis/Path.cls.xml	(.../Path.cls.xml)	(revision 3654)
@@ -46,7 +46,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeInhoudAfgelsotenD">
+<Method name="VoegToeInhoudAfgeslotenD">
 <FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates")</FormalSpec>
 <Implementation><![CDATA[
 	If (CoordinatesList.Count() <3) {
Index: TECH/Svg/Basis/SvgBox.cls.xml
===================================================================
diff -u -r3648 -r3654
--- TECH/Svg/Basis/SvgBox.cls.xml	(.../SvgBox.cls.xml)	(revision 3648)
+++ TECH/Svg/Basis/SvgBox.cls.xml	(.../SvgBox.cls.xml)	(revision 3654)
@@ -106,16 +106,12 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>X:%Integer=0,Y:%Integer=0,Height:%Integer,Width:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..X =X
-	Set ..Y = Y 
-	Set ..Height = Height
-	Set ..Width = Width
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: TECH/Svg/BasisElementFactory.cls.xml
===================================================================
diff -u -r3653 -r3654
--- TECH/Svg/BasisElementFactory.cls.xml	(.../BasisElementFactory.cls.xml)	(revision 3653)
+++ TECH/Svg/BasisElementFactory.cls.xml	(.../BasisElementFactory.cls.xml)	(revision 3654)
@@ -50,7 +50,7 @@
 		Do Path.VoegToeInhoudD(CoordinatesList)
 	}
 	Else {
-		Do Path.VoegToeInhoudAfgelsotenD(CoordinatesList)
+		Do Path.VoegToeInhoudAfgeslotenD(CoordinatesList)
 	}
 	Quit Path
 ]]></Implementation>
@@ -67,6 +67,30 @@
 	Quit Text
 ]]></Implementation>
 </Method>
+
+<Method name="MaakSvgBox">
+<FormalSpec>X:%Integer=0,Y:%Integer=0,Height:%Integer,Width:%Integer</FormalSpec>
+<ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
+<Implementation><![CDATA[
+	Set SvgBox = ##class(TECH.Svg.Basis.SvgBox).%New()
+	Set SvgBox.X =X
+	Set SvgBox.Y = Y 
+	Set SvgBox.Height = Height
+	Set SvgBox.Width = Width
+	Quit SvgBox
+]]></Implementation>
+</Method>
+
+<Method name="MaakCoordinaat">
+<FormalSpec>X:%Decimal,Y:%Decimal</FormalSpec>
+<ReturnType>TECH.Svg.Basis.Path.Coordinates</ReturnType>
+<Implementation><![CDATA[
+	Set Coordinaat = ##class(TECH.Svg.Basis.Path.Coordinates).%New()
+	Set Coordinaat.X = X 
+	Set Coordinaat.Y = Y 
+	Quit Coordinaat
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: TECH/Svg/Basis/Path/Coordinates.cls.xml
===================================================================
diff -u -r3647 -r3654
--- TECH/Svg/Basis/Path/Coordinates.cls.xml	(.../Coordinates.cls.xml)	(revision 3647)
+++ TECH/Svg/Basis/Path/Coordinates.cls.xml	(.../Coordinates.cls.xml)	(revision 3654)
@@ -12,14 +12,10 @@
 </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><![CDATA[	Quit 1
 ]]></Implementation>
 </Method>