13cd069d |
1 | puts "================" |
2 | puts "CR25519" |
3 | puts "================" |
4 | puts "" |
5 | ############################################### |
6 | ## BRepMesh can break mesh regularity for BSpline surfaces |
7 | ############################################### |
8 | |
9 | restore [locate_data_file bug25519_testtriangulation.brep] a |
10 | |
11 | tclean a |
12 | incmesh a 0.01 |
13 | front |
14 | fit |
15 | isos a 0 |
16 | triangles a |
17 | |
18 | set trinfo_s [trinfo a] |
19 | regexp {([0-9]+) triangles} ${trinfo_s} str nbtri_s |
20 | regexp {([0-9]+) nodes} ${trinfo_s} str nbnod_s |
21 | regexp {deflection ([0-9.+e-]+)} ${trinfo_s} str defl_s |
22 | |
23 | set good_nbtri 2721 |
24 | set good_nbnod 1405 |
ec26bf88 |
25 | set good_defl 0.044436924588798624 |
13cd069d |
26 | |
27 | set good_percent 5 |
28 | |
29 | set nbtri_percent [expr abs (${good_nbtri} - ${nbtri_s}) / double (${nbtri_s}) * 100 ] |
30 | set nbnod_percent [expr abs (${good_nbnod} - ${nbnod_s}) / double (${nbnod_s}) * 100 ] |
31 | set defl_percent [expr abs (${good_defl} - ${defl_s}) / ${defl_s} * 100 ] |
32 | |
33 | if { ${nbtri_percent} > ${good_percent} } { |
34 | puts "Error: triangle number is bad, it has changed to ${nbtri_percent} %" |
35 | } |
36 | |
37 | if { ${nbnod_percent} > ${good_percent} } { |
38 | puts "Error: node number is bad, it has changed to ${nbnod_percent} %" |
39 | } |
40 | |
41 | if { ${defl_percent} > ${good_percent} } { |
42 | puts "Error: deflection is bad, it has changed to ${defl_percent} %" |
43 | } |
44 | |
45 | set only_screen_axo 1 |