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
|
pload QAcommands
puts "========"
puts "OCC828"
puts "========"
puts ""
###############################
## BRepFilletAPI_MakeFillet fails on prism
###############################
if { [ catch { set info_result [OCC828 a1] } ] } {
puts "Faulty : an exception was caught"
} else {
if { [lsearch ${info_result} FAILED] > -1} {
puts "Faulty : command was FAILED"
}
checkshape a1
explode a1 e
blend result a1 10 a1_7 10 a1_6
set ExplodeList [explode result]
if {[llength ${ExplodeList}] < 1} {
puts "Faulty : Resulting shape is empty COMPOUND"
}
}
checkprops result -s 17816.2
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png
|
