c0e32b3c |
1 | puts "========" |
2 | puts "OCC25820" |
3 | puts "========" |
4 | puts "" |
5 | ################################################################### |
6 | # No Intersection Curves between surface of revolution and planes |
7 | ################################################################### |
8 | |
9 | restore [locate_data_file OCC25820-Revolution_5.brep] b1 |
10 | explode b1 f |
11 | copy b1_4 b1 |
12 | |
13 | restore [locate_data_file OCC25820-Translation_3.brep] b2 |
14 | explode b2 f |
15 | copy b2_3 b2 |
16 | |
17 | smallview |
18 | clear |
19 | display b1 |
20 | display b2 |
21 | fit |
22 | |
23 | dlog reset |
24 | dlog on |
25 | decho off |
26 | bopcurves b1 b2 |
27 | decho on |
28 | set bug_info [dlog get] |
29 | |
30 | set bug_info [string trim [string range $bug_info [expr {[string first "\n" $bug_info] + 1}] [expr {[string last "\n" $bug_info] - 1}]]] |
31 | set bug_info_tol [string trim [string range $bug_info [expr {[string first "=" $bug_info] + 1}] [expr {[string first "\n" $bug_info] - 1}]]] |
32 | set bug_info_cur [string trim [string range $bug_info [expr {[string first "\n" $bug_info] + 1}] [expr {[string length $bug_info] - 1}]]] |
33 | set bug_info_cur [string trim [string range $bug_info_cur 0 [expr {[string first " " $bug_info_cur] - 1}]]] |
34 | |
35 | if {$bug_info_tol > 1.0e-7} { |
36 | puts "ERROR: OCC25820 is reproduced. Tolerance is to large ($bug_info_tol)." |
37 | } |
38 | |
39 | if {$bug_info_cur != 1} { |
40 | puts "ERROR: OCC25820 is reproduced. Too many curves were found." |
41 | } |
42 | |
43 | set only_screen_axo 1 |