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())