2 puts "================"
4 puts "================"
6 ##################################################
7 ## It is impossible to intersect two surfaces
8 ##################################################
10 restore [locate_data_file OCC13-1.draw] su1
11 ############### checkshape su1 # is not a topological shape
12 restore [locate_data_file OCC13-2.draw] su2
13 ############### checkshape su2 # is not a topological shape
15 #Try to intersect two surfaces with tolerance 0.1
16 #note that distance between shapes is about 0.005942345501409
18 catch {intersect res su1 su2 0.1 } result
22 set che [whatis res_$j]
23 set che1 [whatis res_$j]
24 set err [lindex $che [expr [llength $che] - 1]]
25 set err1 [lindex $che1 [expr [llength $che1] - 2]]
27 if { $err != "curve" && $err1 != "3d"} {
30 set nom [expr $nom + 1]
34 puts "Error : Intersection was made WRONGLY"