puts "========" puts "OCC328" puts "========" vinit set dx 10 set dy 10 set dz 10 set x1 30 set y1 307 set x2 30 set y2 107 box b ${dx} ${dy} ${dz} vdisplay b vfit vselmode 2 1 set info [OCC328 b VERTEX] if { [regexp "VERTEX" $info] != 1 } { puts "Faulty: Incorrect selection mode" } vselect ${x1} ${y1} vselect ${x2} ${y2} 1 checkcolor ${x1} ${y1} 0.8 0.8 0.8 checkcolor ${x2} ${y2} 0.8 0.8 0.8 set only_screen 1