5 #########################################################################
6 # Cannot project point on curve
7 #########################################################################
9 bsplinecurve r2 4 3 1 5 2 1 3 5 0 8 0 1 2 8 2 1 4 8 3 1 4 8 3 1 6 8 4 1 10 8 10 1
12 circle profile 0 8 0 1 0 1 0.2
13 mkedge profile profile
15 mkplane profile profile
27 regexp {Mass +: +([-0-9.+eE]+)} $info full sq
30 if { [expr 1.*abs($sq_check - $sq)/$sq_check] > 0.01 } {
31 puts "Error : The square of result shape is $sq"