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
|
puts "TODO OCC12345 ALL: Faulty OCC601: function BLEND works wrongly"
puts "========================"
puts " OCC601 "
puts "SAM1542"
puts "========================"
puts ""
#############################################
## No possibility to make a fillet 13 at the inner edge of the shape
#############################################
restore [locate_data_file OCC601.brep] a
checkshape a
explode a e
if [catch {blend result a 13 a_41 } res] {
puts "Faulty OCC601: function BLEND works wrongly"
} else {
puts "OCC601 OK: function BLEND works without exception"
checkshape result
set square 10
set 2dviewer 0
}
|
