1 puts "TODO OCC11111 ALL: OCC299: Error 2"
5 puts "================"
7 puts "================"
10 restore [locate_data_file OCC298.brep] pr
13 point p 0.86427836 -1 -1
15 set info_result [OCC299 pr p]
16 set ll [llength ${info_result}]
18 puts "OCC299: Error 1"
20 if { [regexp {IN} $info_result] } {
23 puts "OCC299: Error 2"