tests/bugs/moddata_3/bug25706_3

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