1 puts "TODO OCC27950 ALL: ERROR: OCC27950 is reproduced."
7 ############################################################################
8 # Result of intersection algorithm depends too much on surface trim bounds
9 ############################################################################
11 restore [locate_data_file bug27950_s1.draw] s1
12 restore [locate_data_file bug27950_s2.draw] s2
14 set bug_info [string trim [intersect i1 s1 s2]]
15 if {[llength $bug_info] != 4} {
16 puts "ERROR: OCC27950 is reproduced. Step #1. Result of intersection is [llength $bug_info]."
20 set bug_info [string trim [intersect i2 s1 s2t]]
21 if {[llength $bug_info] != 4} {
22 puts "ERROR: OCC27950 is reproduced. Step #2. Result of intersection is [llength $bug_info]."
26 set bug_info [string trim [intersect i3 s1 s2t]]
27 if {[llength $bug_info] != 4} {
28 puts "ERROR: OCC27950 is reproduced. Step #3. Result of intersection is [llength $bug_info]."
31 trimv s2t s2 205.38050051360744 210.55652011282123
32 set bug_info [string trim [intersect i4 s1 s2t]]
33 if {[llength $bug_info] != 4} {
34 puts "ERROR: OCC27950 is reproduced. Step #4. Result of intersection is [llength $bug_info]."
38 set bug_info [string trim [intersect i5 s1 s2t]]
39 if {[llength $bug_info] != 4} {
40 puts "ERROR: OCC27950 is reproduced. Step #5. Result of intersection is [llength $bug_info]."
44 set bug_info [string trim [intersect i6 s1 s2t]]
45 if {[llength $bug_info] != 4} {
46 puts "ERROR: OCC27950 is reproduced. Step #6. Result of intersection is [llength $bug_info]."
49 trimv s2t s2 205.4 210.575
50 set bug_info [string trim [intersect i7 s1 s2t]]
51 if {[llength $bug_info] != 4} {
52 puts "ERROR: OCC27950 is reproduced. Step #7. Result of intersection is [llength $bug_info]."
55 trimv s2t s2 205.353 210.529
56 set bug_info [string trim [intersect i8 s1 s2t]]
57 if {[llength $bug_info] != 4} {
58 puts "ERROR: OCC27950 is reproduced. Step #8. Result of intersection is [llength $bug_info]."