0e94a94e |
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 | |
7c4e9501 |
44 | set length 110.093 |
0e94a94e |
45 | set 2dviewer 0 |
46 | |
47 | # checksection res |
48 | # checkshape res |