Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag/Test.cls.xml
===================================================================
diff -u -r59416 -r60047
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag/Test.cls.xml	(.../Test.cls.xml)	(revision 59416)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag/Test.cls.xml	(.../Test.cls.xml)	(revision 60047)
@@ -6,7 +6,7 @@
 <Method name="Test bestaan CrossDiag">
 <Implementation><![CDATA[
 		Set CrossDiag = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag).%New(30,30)
-		Do ..AssertSvg(CrossDiag, "<crossdiag>  <line x1=""0"" y1=""0"" x2=""30"" y2=""30""></line>  <line x1=""0"" y1=""30"" x2=""30"" y2=""0""></line></crossdiag>")
+		Do ..AssertSvg(CrossDiag, "<line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""0"" y1=""0"" x2=""30"" y2=""30""></line><line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""0"" y1=""30"" x2=""30"" y2=""0""></line>")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring/Test.cls.xml
===================================================================
diff -u -r59503 -r60047
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring/Test.cls.xml	(.../Test.cls.xml)	(revision 59503)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring/Test.cls.xml	(.../Test.cls.xml)	(revision 60047)
@@ -8,7 +8,7 @@
 	
 		Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(15,15,5,5)
 		
-		Do ..AssertSvg(DoorBoring, "<doorboring>  <svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""doorboring"">    <circle cx=""2.5"" cy=""2.5"" r="".5""></circle>  </svg></doorboring>")
+		Do ..AssertSvg(DoorBoring, "<svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""doorboring"">  <circle fill=""black"" cx=""2.5"" cy=""2.5"" r="".5""></circle></svg>")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Rugboring/Test.cls.xml
===================================================================
diff -u -r59913 -r60047
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Rugboring/Test.cls.xml	(.../Test.cls.xml)	(revision 59913)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Rugboring/Test.cls.xml	(.../Test.cls.xml)	(revision 60047)
@@ -7,6 +7,7 @@
 <Implementation><![CDATA[
 	
 		Set Rugboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New(15,15,5,5)
+		Do ..AssertSvg(Rugboring,"<svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""rugboring"">  <circle fill=""black"" cx=""2.5"" cy=""2.5"" r=""2.272727272727272727""></circle>  <line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""0"" y1=""0"" x2=""5"" y2=""5""></line>  <line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""0"" y1=""5"" x2=""5"" y2=""0""></line></svg>")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross/Test.cls.xml
===================================================================
diff -u -r59416 -r60047
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross/Test.cls.xml	(.../Test.cls.xml)	(revision 59416)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross/Test.cls.xml	(.../Test.cls.xml)	(revision 60047)
@@ -6,7 +6,7 @@
 <Method name="Test bestaan TCross">
 <Implementation><![CDATA[
 		Set TCross = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross).%New(30,30)
-		Do ..AssertSvg(TCross, "<tcross>  <line x1=""0"" y1=""0"" x2=""30"" y2=""0""></line>  <line x1=""15"" y1=""0"" x2=""15"" y2=""30""></line></tcross>")
+		Do ..AssertSvg(TCross, "<line fill=""black"" x1=""0"" y1=""0"" x2=""30"" y2=""0""></line><line fill=""black"" x1=""15"" y1=""0"" x2=""15"" y2=""30""></line>")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/SpecialeBoring/Test.cls.xml
===================================================================
diff -u -r59913 -r60047
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/SpecialeBoring/Test.cls.xml	(.../Test.cls.xml)	(revision 59913)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/SpecialeBoring/Test.cls.xml	(.../Test.cls.xml)	(revision 60047)
@@ -7,6 +7,7 @@
 <Implementation><![CDATA[
 	
 		Set SpecialeBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring).%New(15,15,5,5)
+		Do ..AssertSvg(SpecialeBoring,"<svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""specialeBoring"">  <line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""0"" y1=""2.5"" x2=""5"" y2=""2.5""></line>  <line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""2.5"" y1=""0"" x2=""2.5"" y2=""5""></line></svg>")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH/Test.cls.xml
===================================================================
diff -u -r59416 -r60047
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH/Test.cls.xml	(.../Test.cls.xml)	(revision 59416)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH/Test.cls.xml	(.../Test.cls.xml)	(revision 60047)
@@ -6,7 +6,7 @@
 <Method name="Test bestaan CrossVH">
 <Implementation><![CDATA[
 		Set CrossVH = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH).%New(30,30)
-		Do ..AssertSvg(CrossVH, "<crossvh>  <line x1=""0"" y1=""15"" x2=""30"" y2=""15""></line>  <line x1=""15"" y1=""0"" x2=""15"" y2=""30""></line></crossvh>")
+		Do ..AssertSvg(CrossVH, "<line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""0"" y1=""15"" x2=""30"" y2=""15""></line><line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""15"" y1=""0"" x2=""15"" y2=""30""></line>")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring/Test.cls.xml
===================================================================
diff -u -r59503 -r60047
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring/Test.cls.xml	(.../Test.cls.xml)	(revision 59503)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring/Test.cls.xml	(.../Test.cls.xml)	(revision 60047)
@@ -8,7 +8,7 @@
 	
 		Set Puntboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(15,15,5,5)
 		
-		Do ..AssertSvg(Puntboring, "<puntboring>  <svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""puntboring"">    <crossdiag>      <line x1=""0"" y1=""0"" x2=""5"" y2=""5""></line>      <line x1=""0"" y1=""5"" x2=""5"" y2=""0""></line>    </crossdiag>  </svg></puntboring>")
+		Do ..AssertSvg(Puntboring, "<svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""puntboring"">  <line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""0"" y1=""0"" x2=""5"" y2=""5""></line>  <line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""0"" y1=""5"" x2=""5"" y2=""0""></line></svg>")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Zijboring/Test.cls.xml
===================================================================
diff -u -r59915 -r60047
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Zijboring/Test.cls.xml	(.../Test.cls.xml)	(revision 59915)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Zijboring/Test.cls.xml	(.../Test.cls.xml)	(revision 60047)
@@ -7,6 +7,7 @@
 <Implementation><![CDATA[
 	
 		Set Zijboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring).%New(15,15,5,5)
+		Do ..AssertSvg(Zijboring,"<svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""zijboring"">  <g transform=""rotate(0 2.5 2.5)"">    <line fill=""black"" x1=""0"" y1=""0"" x2=""5"" y2=""0""></line>    <line fill=""black"" x1=""2.5"" y1=""0"" x2=""2.5"" y2=""5""></line>  </g></svg>")
 ]]></Implementation>
 </Method>