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 | circle profile 0 8 0 1 0 1 0.2 |
13 | mkedge profile profile |
14 | wire profile profile |
15 | mkplane profile profile |
16 | pipe p spine profile |
17 | explode p f |
18 | mksurface ss1 p_1 |
19 | mksurface ss2 p_2 |
20 | mksurface ss3 p_3 |
21 | offset o1 ss1 0.1 |
22 | offset o2 ss2 0.1 |
23 | offset o3 ss3 0.1 |
24 | |
25 | mkface res o2 |
26 | set info [sprops res] |
27 | regexp {Mass +: +([-0-9.+eE]+)} $info full sq |
28 | set sq_check 9.00819 |
29 | |
30 | if { [expr 1.*abs($sq_check - $sq)/$sq_check] > 0.01 } { |
31 | puts "Error : The square of result shape is $sq" |
32 | } |