+++ /dev/null
-
-puts "============"
-puts "BUC60899"
-puts "============"
-puts ""
-#####################################################
-## Execution of the script prism_sec.tcl gives exception "NumericError".
-#####################################################
-
-set n 2
-set dx 4
-set sx 1
-set sz 10
-set xc [dval (2*$dx+2*$sx)*$n/2]
-set zc -30
-set r [dval $xc*0.9]
-
-set x 0
-set y -50
-set z 0
-set pol "polyline w $x $y $z"
-for {set i 1} {$i <= $n} {incr i} {
- set x [dval $x+$dx]
- set pol "$pol $x $y $z"
- set x [dval $x+$sx]
- set z [dval $z+$sz]
- set pol "$pol $x $y $z"
- set x [dval $x+$dx]
- set pol "$pol $x $y $z"
- set x [dval $x+$sx]
- set z [dval $z-$sz]
- set pol "$pol $x $y $z"
-}
-
-eval $pol
-circle c $xc 0 $zc $r
-mkedge c c
-
-prism cyl c 0 0 -$zc*2 inf
-prism crg w 0 -$y*2 0 inf
-
-bsection result crg cyl
-
-set length 15.1392
-set 2dviewer 0
-
-# checksection res
-# checkshape res