--- /dev/null
+puts "============="
+puts "0030949: Foundation Classes - Dump improvement for OCCT classes"
+puts "============="
+
+pload VISUALIZATION
+vinit View1
+
+set pred 0.088428
+set pgreen 0.041081
+set pblue 0.00209
+
+set dump_aligned_off [vaspects -defaults -dumpJson -dumpCompact on]
+
+if {![regexp {"RGBA": \[+([-0-9.+eE]+)\, +([-0-9.+eE]+)\, +([-0-9.+eE]+)\, +([-0-9.+eE]+)\]} $dump_aligned_off full cred cgreen cblue]} {
+ puts "Error in Dump. Wrong format of output."
+}
+
+checkreal "Cred" $cred $pred 1.0e-7 0.0
+checkreal "Cgreen" $cgreen $pgreen 1.0e-7 0.0
+checkreal "Cblue" $cblue $pblue 1.0e-7 0.0
+
+
+set dump_aligned_off_deep [vaspects -defaults -dumpJson -dumpCompact on -dumpDepth 2]
+
+if {[regexp {\[+([-0-9.+eE]+)\, +([-0-9.+eE]+)\, +([-0-9.+eE]+)\, +([-0-9.+eE]+)\]} dump_aligned_off_deep full cred cgreen cblue]} {
+ puts "Error in Dump. Wrong deep of output"
+}
+
+
+puts "Aligned Dump of vaspects:"
+set dump_aligned_on [vaspects -defaults -dumpJson]
+
+puts "Aligned Dump of vaspects (deep = 2):"
+set dump_aligned_on_deep [vaspects -defaults -dumpJson -dumpCompact off -dumpDepth 2]