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
29
30
31
32
33
34
35
36
37
38
39
|
puts "================"
puts "CR24127"
puts "================"
puts ""
###############################################
## Mesh generated with BRepMesh_FastDiscret does not reflect a deflection setting
###############################################
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 f s
incmesh f 1
trinfo f
set trinfo_s [trinfo f]
regexp {([0-9]+) triangles} ${trinfo_s} str nbtri_s
regexp {([0-9]+) nodes} ${trinfo_s} str nbnod_s
regexp {deflection ([0-9.+e-]+)} ${trinfo_s} str defl_s
if { ${nbtri_s} != 99 } {
puts "Error: triangle number is bad"
}
if { ${nbnod_s} != 59 } {
puts "Error: node number is bad"
}
set expected_defl_s 0.59663444648536146
set tol_abs_defl_s 1.e-3
set tol_rel_defl_s 0.01
checkreal "Deflection" ${defl_s} ${expected_defl_s} ${tol_abs_defl_s} ${tol_rel_defl_s}
vinit
vdisplay f
vfit
set only_screen 1
|
