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