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
|
puts "TODO OCC28167 ALL: Error: Fillet has strange form at its end"
puts "========"
puts "OCC28167"
puts "========"
puts ""
#####################################
# Fillet has strange form at its end
#####################################
restore [locate_data_file bug28167_solid.brep] s
explode s E
fillet r s 1 s_3
explode r F
explode r_6 E
renamevar r_6_1 res
regexp {Mass +: +([-0-9.+eE]+)} [lprops res] full length_r_6_1
set expected_length 1.31899
set toleranse 1.e-4
if {[expr abs(${length_r_6_1} - ${expected_length})] <= ${toleranse}} {
puts "Error: Fillet has strange form at its end"
}
checkview -display r_6 -2d -path ${imagedir}/${test_image}.png
|
