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