0022834: Instable case testing 3d offset algorithm (problem with cone-like surfaces)
[occt.git] / tests / bugs / modalg_4 / bug8842_6
CommitLineData
a8676008 1puts "============"
2puts "OCC8842"
3puts "============"
4puts ""
5#######################################################################
6# Errors in Offset Shape algorithm working with bspline and surface of revolution
7#######################################################################
8
9set BugNumber OCC8842
10
11if {[info commands testreadiges] == ""} {pload XSDRAW}
12
13proc myoffset {result sh val tan} {
14 if {$tan == 1} {
15 offsetparameter 1e-7 p i
16 } else {
17 offsetparameter 1e-7 p a
18 }
19 uplevel offsetload $sh $val
20 uplevel offsetperform $result
21}
22
23testreadiges [locate_data_file OCC8842_cone_Ideas.igs] a2
24
25DT_ShapeDivide con2 a2
26
27# join type Arc
28puts "***** offsetting with join type Arc"
29puts " cone_Ideas - 5"
30
31if [catch { myoffset result con2 -5 0 } catch_result] {
32 puts "${BugNumber}: Faulty (1)"
33} else {
34
35set square 9885.2
36set nb_v_good 4
37set nb_e_good 9
38set nb_w_good 4
39set nb_f_good 4
40set nb_sh_good 1
41set nb_sol_good 1
42set nb_compsol_good 0
43set nb_compound_good 0
44set nb_shape_good 23
45
46}
47
48set 2dviewer 0