tests/bugs/modalg_5/bug23706_9

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