32ca7a51 |
1 | puts "============" |
2 | puts "OCC23706" |
3 | puts "============" |
4 | puts "" |
5 | ######################################################################### |
6 | # Cannot project point on curve |
7 | ######################################################################### |
8 | |
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 |
10 | mkedge spine r2 |
11 | wire spine spine |
12 | mksweep spine |
13 | addsweep spine -R |
14 | buildsweep spine -R |
15 | explode spine f |
16 | mksurface ss spine_1 |
17 | offset o1 ss 2 |
18 | |
19 | mkface res o1 |
20 | set info [sprops res] |
21 | regexp {Mass +: +([-0-9.+eE]+)} $info full sq |
c8ea5b8e |
22 | set sq_check 248.667 |
32ca7a51 |
23 | |
24 | if { [expr 1.*abs($sq_check - $sq)/$sq_check] > 0.01 } { |
25 | puts "Error : The square of result shape is $sq" |
26 | } |