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