d2388a81 |
1 | puts "========" |
2 | puts "OCC24959" |
3 | puts "========" |
4 | puts "" |
5 | #################################################### |
6 | ## GCPnts_TangentialDeflection does not implement functionality by its meaning in case of BSpline with local splash |
7 | #################################################### |
8 | |
9 | bsplinesurf s 2 12 0.0 3 0.1 1 0.2 1 0.3 1 0.4 1 0.5 1 0.525 1 0.55 1 0.575 1 0.8 1 0.9 1 1.0 3 1 2 0.0 2 1.0 2 16 0 0 1 14 0 0 1 12 0 0 1 10 0 0 1 8 0 0 1 6 0 0 1 4 0 0 1 2 0 0 1 0 0 0 1 -2 0 0 1 -4 0 0 1 -6 0 0 1 -8 0 0 1 16 5 0 1 14 5 0 1 12 5 0 1 10 5 0 1 8 5 0 1 6 5 0 1 4 5 0 1 1.5 9 0 1 0 5 0 1 -2 5 0 1 -4 5 0 1 -6 5 0 1 -8 5 0 1 |
d2388a81 |
10 | mkface result s |
11 | incmesh result 1 |
12 | set tri_info [trinfo result] |
8f7e78f4 |
13 | regexp {deflection ([0-9.+e-]+)} $tri_info full defl |
d2388a81 |
14 | |
8f7e78f4 |
15 | # check deflections |
16 | if { $defl > 1 } { |
17 | puts "Error: too big deflection on original face (${defl} > 1)" |
d2388a81 |
18 | } else { |
8f7e78f4 |
19 | puts "Deflection is OK (${defl})" |
d2388a81 |
20 | } |
21 | |
22 | vdisplay result |
23 | vsetdispmode 1 |
24 | vtop |
25 | vfit |
26 | set only_screen 1 |