3d58dc49 |
1 | puts "========" |
2 | puts "OCC25124" |
3 | puts "========" |
4 | puts "" |
5 | ###################################################### |
6 | # Removal of continuity checks for offset geometries |
7 | ###################################################### |
8 | |
9 | smallview |
10 | |
11 | restore [locate_data_file OCC25124_a_2999.draw] a1 |
12 | getsurfcontinuity a1 |
13 | offset o1 a1 20 |
14 | getsurfcontinuity o1 |
15 | |
16 | set bug_info_1 [dump a1] |
17 | set bug_info_1 [string range $bug_info_1 39 [expr {[string length $bug_info_1] -1}]] |
18 | set bug_info_2 [dump o1] |
19 | set bug_info_2 [string range $bug_info_2 39 [expr {[string length $bug_info_2] -1}]] |
20 | if {[string compare $bug_info_1 $bug_info_2] == 0} { |
21 | puts "ERROR: OCC25124 is reproduced (a1 = o1)." |
22 | } |
23 | |
24 | donly a1 o1 |
25 | fit |
26 | |
27 | set only_screen_axo 1 |