dfdfa61f |
1 | puts "========" |
2 | puts "OCC26034" |
3 | puts "========" |
4 | puts "" |
5 | ########################################################## |
6 | # Result of revolution aborts the bopcheck if translated |
7 | ########################################################## |
8 | |
9 | restore [locate_data_file bug26034_revolve-seg1-tcl-Revolve002.brep] Revolve002 |
10 | |
11 | set bug_info [ string trim [bopcheck Revolve002]] |
12 | if {$bug_info != "This shape seems to be OK."} { |
13 | puts "ERROR: Initial shape is invalid." |
14 | } |
15 | |
16 | ttranslate Revolve002 0 0 -0.5 |
17 | |
18 | set bug_info [ string trim [bopcheck Revolve002]] |
19 | if {$bug_info != "This shape seems to be OK."} { |
20 | puts "ERROR: OCC26034 is reproduced. bopcheck gives incorrect result after ttranslate operation." |
21 | } |