Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug60899_1
1
2 puts "============"
3 puts "BUC60899"
4 puts "============"
5 puts ""
6 #####################################################
7 ## Execution of the script prism_sec.tcl gives  exception "NumericError". 
8 #####################################################
9
10 set n 2
11 set dx 4
12 set sx 1
13 set sz 10
14 set xc [dval (2*$dx+2*$sx)*$n/2]
15 set zc -30
16 set r  [dval $xc*0.9]
17
18 set x 0
19 set y -50
20 set z 0
21 set pol "polyline w $x $y $z"
22 for {set i 1} {$i <= $n} {incr i} {
23     set x [dval $x+$dx]
24     set pol "$pol $x $y $z"
25     set x [dval $x+$sx]
26     set z [dval $z+$sz]
27     set pol "$pol $x $y $z"
28     set x [dval $x+$dx]
29     set pol "$pol $x $y $z"
30     set x [dval $x+$sx]
31     set z [dval $z-$sz]
32     set pol "$pol $x $y $z"
33 }
34
35 eval $pol
36 circle c $xc 0 $zc $r
37 mkedge c c
38
39 prism cyl c 0 0 -$zc*2 inf
40 prism crg w 0 -$y*2 0 inf
41
42 bsection result crg cyl
43
44 set length 15.1392
45 set 2dviewer 0
46
47 # checksection res
48 # checkshape res