Index: TECH/Svg/Tooling/CrossFactory.cls.xml
===================================================================
diff -u -r3730 -r3740
--- TECH/Svg/Tooling/CrossFactory.cls.xml	(.../CrossFactory.cls.xml)	(revision 3730)
+++ TECH/Svg/Tooling/CrossFactory.cls.xml	(.../CrossFactory.cls.xml)	(revision 3740)
@@ -46,14 +46,14 @@
 </Method>
 
 <Method name="MaakTCross">
-<FormalSpec>Width:%Integer,Height:%Integer,kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
+<FormalSpec>Width:%Integer,Height:%Integer,kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Rood()</FormalSpec>
 <ReturnType>TECH.Svg.Tooling.TCross</ReturnType>
 <Implementation><![CDATA[
 	Set TCross = ##class(TECH.Svg.Tooling.TCross).%New()
-	Set TCross.HorizontalLine = ..BasisElementFactory.MaakLijn(0,0, Width, 0)
-	Do TCross.HorizontalLine.SetStroke(kleur)
-	Set TCross.VerticalLine = ..BasisElementFactory.MaakLijn(Width/2, 0, Width/2, Height)
-	Do TCross.VerticalLine.SetStroke(kleur)
+	Set TCross.HorizontalLine = ..BasisElementFactory.MaakLijn(0,0, 0, Height)
+	Do TCross.HorizontalLine.SetStroke(kleur,5.0)
+	Set TCross.VerticalLine = ..BasisElementFactory.MaakLijn(0, Height/2, Width, Height/2)
+	Do TCross.VerticalLine.SetStroke(kleur,2.0)
 	Quit TCross
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/TECH/Svg/Tooling/CrossFactory.cls.xml
===================================================================
diff -u -r3730 -r3740
--- vhTest/Mock/TECH/Svg/Tooling/CrossFactory.cls.xml	(.../CrossFactory.cls.xml)	(revision 3730)
+++ vhTest/Mock/TECH/Svg/Tooling/CrossFactory.cls.xml	(.../CrossFactory.cls.xml)	(revision 3740)
@@ -30,7 +30,7 @@
 </Method>
 
 <Method name="MaakTCross">
-<FormalSpec>Width:%Integer,Height:%Integer,kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
+<FormalSpec>Width:%Integer,Height:%Integer,kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Rood()</FormalSpec>
 <ReturnType>TECH.Svg.Tooling.TCross</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakTCross",Width,Height,kleur)
 ]]></Implementation>
Index: vhUnitTest/TECH/Svg/Tooling/CrossFactory/Test.cls.xml
===================================================================
diff -u -r3732 -r3740
--- vhUnitTest/TECH/Svg/Tooling/CrossFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 3732)
+++ vhUnitTest/TECH/Svg/Tooling/CrossFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 3740)
@@ -99,7 +99,7 @@
 	#dim TCross As TECH.Svg.Tooling.TCross
 	Set TCross = CrossFactory.MaakTCross(25,30)
 		
-	Do ..AssertSvg(TCross, "<line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""0"" y1=""0"" x2=""25"" y2=""0""></line><line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""12.5"" y1=""0"" x2=""12.5"" y2=""30""></line>")
+	Do ..AssertSvg(TCross, "<line stroke=""red"" stroke-width=""5"" stroke-dasharray=""none"" x1=""0"" y1=""0"" x2=""0"" y2=""30""></line><line stroke=""red"" stroke-width=""2"" stroke-dasharray=""none"" x1=""0"" y1=""15"" x2=""25"" y2=""15""></line>")
 ]]></Implementation>
 </Method>
 
@@ -110,13 +110,13 @@
 	Set TCross = CrossFactory.MaakTCross(25,30)
 		
 	Do $$$AssertEquals("TECH.Svg.Basis.Line",TCross.HorizontalLine.%ClassName(1))
-	Do $$$AssertEquals(TCross.HorizontalLine.X2,25)
-	Do $$$AssertEquals(TCross.HorizontalLine.Y2,0)
-	Do $$$AssertEquals(TCross.HorizontalLine.Stroke,##class(TECH.Svg.enu.Kleur).Zwart())
+	Do $$$AssertEquals(TCross.HorizontalLine.X2,0)
+	Do $$$AssertEquals(TCross.HorizontalLine.Y2,30)
+	Do $$$AssertEquals(TCross.HorizontalLine.Stroke,##class(TECH.Svg.enu.Kleur).Rood())
 	Do $$$AssertEquals("TECH.Svg.Basis.Line",TCross.VerticalLine.%ClassName(1))
-	Do $$$AssertEquals(TCross.VerticalLine.X2,12.5)
-	Do $$$AssertEquals(TCross.VerticalLine.Y2,30)
-	Do $$$AssertEquals(TCross.VerticalLine.Stroke,##class(TECH.Svg.enu.Kleur).Zwart())
+	Do $$$AssertEquals(TCross.VerticalLine.X2,25)
+	Do $$$AssertEquals(TCross.VerticalLine.Y2,15)
+	Do $$$AssertEquals(TCross.VerticalLine.Stroke,##class(TECH.Svg.enu.Kleur).Rood())
 ]]></Implementation>
 </Method>
 
@@ -128,8 +128,8 @@
 	#dim DummyLine1 As TECH.Svg.Basis.Line = BasisElementFactory.MaakLijn(0,0,0,0)
 	#dim DummyLine2 As TECH.Svg.Basis.Line = BasisElementFactory.MaakLijn(0,0,0,0)
 	
-	Do BasisElementFactoryMock.VerwachtMethodCall("MaakLijn",0,0,25,0).DanReturn(DummyLine1)
-	Do BasisElementFactoryMock.VerwachtMethodCall("MaakLijn",12.5,0,12.5,30).DanReturn(DummyLine2)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakLijn",0,0,0,30).DanReturn(DummyLine1)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakLijn",0,15,25,15).DanReturn(DummyLine2)
 	Set CrossFactory = ##class(TECH.Svg.Tooling.CrossFactory).%New(BasisElementFactoryMock)
 	Set TCross = CrossFactory.MaakTCross(25,30, ##class(TECH.Svg.enu.Kleur).Blauw())