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
|
puts "TODO OCC24156 MacOS: Faulty OCC485: function BLEND works wrongly"
puts "TODO OCC24156 MacOS: Tcl Exception: result is not a topological shape!!!"
puts "TODO OCC24156 MacOS: TEST INCOMPLETE"
puts "========================"
puts " OCC487 "
puts "========================"
#######################################################
## Regression on KAS:dev:ros with respect to OCC4.0
## Case cfi 900 N3.
## Fillets are created on OCC4.0
#######################################################
restore [locate_data_file CFI_pro15441.rle] m
explode m e
if [catch {blend result m 2 m_36 2 m_21 } result] {
puts "Faulty OCC485: function BLEND works wrongly"
} else {
puts "OCC485 OK: function BLEND works properly "
}
explode result sh
renamevar result_1 result
set square 6265.68
set 3dviewer 1
|
