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
|
puts "========"
puts "OCC25124"
puts "========"
puts ""
######################################################
# Removal of continuity checks for offset geometries
######################################################
smallview
point pp 0 0 1
circle cc 20 40 30 20
convert bc cc
trim bc bc 1 6
offsetcurve oc bc 10 pp
trim bc oc 2 5
revsurf se bc 0 0 0 0 1 0
offset os se 15
set bug_info [getsurfcontinuity se]
getsurfcontinuity os
if {[string compare $bug_info "se has G1 continuity.\n"] != 0} {
puts "ERROR: OCC25124 is reproduced (se does not have G1 continuity)."
}
set bug_info_1 [dump se]
set bug_info_1 [string range $bug_info_1 39 [expr {[string length $bug_info_1] -1}]]
set bug_info_2 [dump os]
set bug_info_2 [string range $bug_info_2 39 [expr {[string length $bug_info_2] -1}]]
if {[string compare $bug_info_1 $bug_info_2] == 0} {
puts "ERROR: OCC25124 is reproduced (se = os)."
}
donly os se
fit
set only_screen_axo 1
|
