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>