2 puts "================"
4 puts "================"
6 ######################################################
7 ## Draw Environment: No intersection found between a specific surface and a line
8 ######################################################
10 restore [locate_data_file OCC130.brep] sh
13 line l -120 -100 400 0 0 1
15 ############## checkshape surf # - not a topological shape
18 if [catch {intersect res l surf } result] {
25 puts "OCC130 OK : intersection found between a specific surface and a line"
30 set che [whatis res_$j]
31 set err [lindex $che [expr [llength $che] - 1]]
33 if { $err != "point"} {
36 set nom [expr $nom + 1]
39 if { $nom != 2 && $nom != 0} {
40 puts [format "Faulty OCC130: Intersection was made WRONGLY: %s points" $nom]
42 puts [format "OCC130 OK : Intersection command works properly: %s points" $nom]
46 puts "Faulty OCC130 : NO intersection found between a specific surface and a line"