Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml
===================================================================
diff -u -r59393 -r59411
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml	(.../TCross.cls.xml)	(revision 59393)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml	(.../TCross.cls.xml)	(revision 59411)
@@ -18,46 +18,44 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer</FormalSpec>
+<FormalSpec>Width:%Integer,Height:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..HorizontalLine = (##class(TECH.Svg.Basis.Line).%New(MidX,(MidY-(Height\2)),MidX,(MidY+(Height\2))))
-	Set ..VerticalLine = (##class(TECH.Svg.Basis.Line).%New(MidX,MidY,MidX+Width,MidY))
+	Set ..HorizontalLine = (##class(TECH.Svg.Basis.Line).%New(0,0, Width, 0))
+	Set ..VerticalLine = (##class(TECH.Svg.Basis.Line).%New(Width/2, 0, Width/2, Height))
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
-<State>TCrossState</State>
-<StreamLocation>^APPS.Halux.PPS.ALUFB584.TCrossS</StreamLocation>
-<Data name="TCrossState">
+<Data name="DomElementState">
 <Value name="1">
-<Value>HorizontalLine</Value>
+<Value>Fill</Value>
 </Value>
 <Value name="2">
-<Value>VerticalLine</Value>
+<Value>Stroke</Value>
 </Value>
 <Value name="3">
-<Value>Fill</Value>
+<Value>StrokeWidth</Value>
 </Value>
 <Value name="4">
-<Value>Stroke</Value>
+<Value>StrokeDashArray</Value>
 </Value>
 <Value name="5">
-<Value>StrokeWidth</Value>
+<Value>Overflow</Value>
 </Value>
 <Value name="6">
-<Value>StrokeDashArray</Value>
+<Value>Opacity</Value>
 </Value>
 <Value name="7">
-<Value>Overflow</Value>
+<Value>HorizontalLine</Value>
 </Value>
 <Value name="8">
-<Value>Opacity</Value>
+<Value>VerticalLine</Value>
 </Value>
 </Data>
 </Storage>
Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml
===================================================================
diff -u -r59393 -r59411
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml	(.../CrossVH.cls.xml)	(revision 59393)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml	(.../CrossVH.cls.xml)	(revision 59411)
@@ -18,14 +18,14 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer</FormalSpec>
+<FormalSpec>Width:%Integer,Height:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..HorizontalLine = (##class(TECH.Svg.Basis.Line).%New(MidX-(Width/2),MidY,MidX+(Width/2),MidY))
-	Set ..VerticalLine = (##class(TECH.Svg.Basis.Line).%New(MidX,MidY-(Height/2),MidX,MidY+(Height/2)))
+	Set ..HorizontalLine = (##class(TECH.Svg.Basis.Line).%New(0,Height/2,Width,Height/2))
+	Set ..VerticalLine = (##class(TECH.Svg.Basis.Line).%New(Width/2,0,Width/2,Height))
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml
===================================================================
diff -u -r59393 -r59411
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml	(.../CrossDiag.cls.xml)	(revision 59393)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml	(.../CrossDiag.cls.xml)	(revision 59411)
@@ -18,14 +18,14 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer</FormalSpec>
+<FormalSpec>Width:%Integer,Height:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..TopLine = (##class(TECH.Svg.Basis.Line).%New((MidX-(Width/2)),(MidY-(Height/2)),(MidX+(Width/2)),(MidY+(Height/2))))
-	Set ..BottomLine = (##class(TECH.Svg.Basis.Line).%New((MidX-(Width/2)),(MidY+(Height/2)),(MidX+(Width/2)),(MidY-(Height/2))))
+	Set ..TopLine = (##class(TECH.Svg.Basis.Line).%New(0,0,Width,Height))
+	Set ..BottomLine = (##class(TECH.Svg.Basis.Line).%New(0,Height,Width,0))
 	Quit $$$OK
 ]]></Implementation>
 </Method>