2 puts "================"
5 puts "================"
8 restore [locate_data_file OCC106-1.draw] sh1
9 #### checkshape sh1 # - not a topological shape
10 restore [locate_data_file OCC106-2.draw] sh2
11 #### checkshape sh2 # - not a topological shape
13 trimv s1 sh1 -1000 1000
14 trimv s2 sh2 -1000 1000
16 if [catch {intersect res s1 s2} result] {
22 if { $mistake == 0 } {
27 set che [whatis res_$j]
28 set che1 [whatis res_$j]
29 set err [lindex $che [expr [llength $che] - 1]]
30 set err1 [lindex $che1 [expr [llength $che1] - 2]]
32 if { $err != "curve" && $err1 != "3d"} {
35 set nom [expr $nom + 1]
39 puts "1) Faulty OCC106: Intersection was made WRONGLY"
41 puts [format "1) OCC106 OK : Intersection command works properly: %s curves" $nom]
45 puts "1) Faulty OCC106: Intersection was made WRONGLY"
48 if [catch {intersect rrs sh1 sh2} result] {
54 if { $mistake == 0 } {
59 set che [whatis rrs_$j]
60 set che1 [whatis rrs_$j]
61 set err [lindex $che [expr [llength $che] - 1]]
62 set err1 [lindex $che1 [expr [llength $che1] - 2]]
64 if { $err != "curve" && $err1 != "3d"} {
67 set nom [expr $nom + 1]
71 puts "2) Faulty OCC106: Intersection was made WRONGLY"
73 puts [format "2) OCC106 OK : Intersection command works properly: %s curves" $nom]
76 puts "2) Faulty OCC106: Intersection was made WRONGLY"