0023748: Bad monitoring of intermediate results in offset commands
[occt.git] / tests / bugs / modalg_2 / bug427_6
1 puts "TODO ?OCC12345 ALL: ERROR. offsetperform operation not done."
2 puts "TODO ?OCC12345 ALL: Tcl Exception: ERROR. offsetperform operation not done."
3 puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
4
5 puts "========================"
6 puts " OCC427 "
7 puts "(case 6)"
8 puts "========================"
9 puts ""
10 cpulimit 1200
11 proc OFFSETSHAPE {distance faces  calcul type} {
12         uplevel #0 explode s f
13         uplevel #0 offsetparameter 1e-7 $calcul $type
14         uplevel #0 offsetload s $distance $faces
15         uplevel #0 offsetperform result
16 }
17
18 #Shell no rough and rounded mode
19
20 set calcul "c"
21 set type "i"
22
23 circle w -20 0 0 20
24 mkedge w w 0 pi*2/5
25 wire w w
26 polyline profile 0 0 0  10 0 0  5 0 5  0 0 0
27 mkplane profile profile
28 pipe s w profile
29
30 OFFSETSHAPE 1 {s_4 s_5} $calcul $type
31
32 set square 808.448
33 set 2dviewer 0