6 #####################################################
7 ## Execution of the script prism_sec.tcl gives exception "NumericError".
8 #####################################################
14 set xc [dval (2*$dx+2*$sx)*$n/2]
21 set pol "polyline w $x $y $z"
22 for {set i 1} {$i <= $n} {incr i} {
24 set pol "$pol $x $y $z"
27 set pol "$pol $x $y $z"
29 set pol "$pol $x $y $z"
32 set pol "$pol $x $y $z"
39 prism cyl c 0 0 -$zc*2 inf
40 prism crg w 0 -$y*2 0 inf
42 bsection result crg cyl