tests/bugs/modalg_5/bug23706_6

   1 puts "============"
   2 puts "OCC23706"
   3 puts "============"
   4 puts ""
   5 #########################################################################
   6 # Cannot project point on curve
   7 #########################################################################
   8
   9 pload XSDRAW
  10 2dbsplinecurve cc 3 2 0 4 1 4 -1 -1 1 0 -1 1 0 0 1 0 0 1
  11 offset2dcurve o cc .5
  12 set info [length o]
  13 regexp {The length o is+ +([-0-9.+eE]+)} $info full ll
  14 set ll_check 2.3717833300483151
  15
  16 if { [expr 1.*abs($ll_check - $ll)/$ll_check] > 0.01 } {
  17    puts "Error : The lenght of result shape is $ll"
  18 }