tests/bugs/modalg_1/buc60899_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