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>