tests/bugs/moddata_3/bug25706_1

   1 puts "================"
   2 puts "OCC25706"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # Exception in conversion B-spline to rational
   7 #######################################################################
   8
   9 bsplinecurve bc 2 2  0.0 3  1.0 3  0 0 0 1.0  0.5 1 0 1.0  1 0 0 1.0
  10 mkedge e1 bc
  11
  12 dump bc
  13
  14 setweight bc 2 0.5
  15
  16 set info [dump bc]
  17 if { [regexp {rational} ${info}] } {
  18     puts "OK : B-spline is rational"
  19 } else {
  20     puts "Error : B-spline is non-rational"
  21 }
  22
  23 mkedge result bc
  24
  25 set 2dviewer 1