0025624: Visualization - selection is incorrect in perspective mode in a specific...

[occt.git] / tests / bugs / moddata_1 / bug130

puts "================"
puts "OCC130"
puts "================"
puts ""
######################################################
## Draw Environment: No intersection found between a specific surface and a line
######################################################

restore [locate_data_file OCC130.brep] sh 
checkshape sh

line l -120 -100 400 0 0 1
mksurface surf sh
############## checkshape surf   # - not a topological shape


if [catch {intersect res l surf } result] {
set mistake 1
} else {
set  mistake 0
}

if { $mistake == 0} {
    puts "OCC130 OK : intersection found between a specific surface and a line"
    puts ""
 set nom 0
   set j 1
   repeat 10 {
     set che [whatis res_$j]
       set err [lindex $che [expr [llength $che] - 1]]

          if { $err != "point"} {
          	break
              } else {
              set nom [expr $nom + 1]
              }
    incr j}
 if { $nom != 2 && $nom != 0} {
    puts [format "Faulty OCC130: Intersection was made WRONGLY: %s points" $nom]
} else {
    puts [format "OCC130 OK : Intersection command works properly: %s points" $nom]
}

} else {
    puts "Faulty OCC130 : NO intersection found between a specific surface and a line"
}