1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
puts "========"
puts "OCC24959"
puts "========"
puts ""
####################################################
## GCPnts_TangentialDeflection does not implement functionality by its meaning in case of BSpline with local splash
####################################################
bsplinesurf s 2 4 0.0 3 0.34 1 0.67 1 1.0 3 1 2 0.0 2 1.0 2 10 0 0 1 6 0 0 1 4 0 0 1 2 0 0 1 0 0 0 1 10 5 0 1 6 5 0 1 4 5 0 1 1.5 9 0 1 0 5 0 1
mkface result s
incmesh result 1
set tri_info [trinfo result]
set tri 0
set nod 0
regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
if { ${tri} < 90 || ${nod} < 54 } {
puts "Error: Bad meshing"
} else {
puts "OK: Good meshing"
}
vdisplay result
vsetdispmode 1
vtop
vfit
set only_screen 1
|
