puts "========"
puts "OCC138"
puts "========"

pload VISUALIZATION QAcommands
vinit View1
set info [OCC138LC]

set ll [llength ${info}]
if {${ll} < 5 } {
   puts "OCC138: Error (case 1)"
} else {
  regexp {No of selected += +([-0-9.+eE]+)} $info full NbCurrents
  if {${NbCurrents} != 3 } {
     puts "OCC138: Error (case 2)"
  }
}

vfit
vdump $imagedir/${casename}.png