0025124: [Feature request] Removal of continuity checks for offset geometries
[occt.git] / tests / bugs / modalg_5 / bug25124_4
1 puts "========"
2 puts "OCC25124"
3 puts "========"
4 puts ""
5 ######################################################
6 # Removal of continuity checks for offset geometries
7 ######################################################
8
9 smallview
10
11 point pp 0 0 1
12 circle cc 20 40 30 20
13 convert bc cc
14 trim bc bc 1 6
15 offsetcurve oc bc 10 pp
16 trim bc oc 2 5
17 extsurf se bc 0 0 1
18 offset os se 15
19
20 set bug_info [getsurfcontinuity se]
21 getsurfcontinuity os
22
23 if {[string compare $bug_info "se has G1 continuity.\n"] != 0} {
24   puts "ERROR: OCC25124 is reproduced (se does not have G1 continuity)."
25 }
26
27 set bug_info_1 [dump se]
28 set bug_info_1 [string range $bug_info_1 39 [expr {[string length $bug_info_1] -1}]]
29 set bug_info_2 [dump os]
30 set bug_info_2 [string range $bug_info_2 39 [expr {[string length $bug_info_2] -1}]]
31 if {[string compare $bug_info_1 $bug_info_2] == 0} {
32   puts "ERROR: OCC25124 is reproduced (se = os)."
33 }
34
35 donly os se
36 fit
37
38 set only_screen_axo 1