puts "============="
puts "0030949: Foundation Classes - Dump improvement for OCCT classes"
puts "============="

pload VISUALIZATION
vinit View1

set pred 0.329
set pgreen 0.224
set pblue 0.027

set dump_aligned_off [vaspects -defaults -dumpJson -dumpCompact on]

if {![regexp {"RGB": \[+([-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]+)\]} 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]
