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
|
puts "========================"
puts " SAL594 "
puts "========================"
puts ""
###################################
## It is impossible to put correct fillets on the shape
###################################
restore [locate_data_file SAL594.brep] a
explode a e
if [catch {blend result1 a 20 a_23 20 a_25 20 a_26 20 a_28} catch_result] {
puts "Faulty SAL594 (case 1): function BLEND works wrongly"
} else {
puts "SAL594 OK (case 1): function BLEND works OK"
}
if [catch {blend result result1 2.5 a_15 2.5 a_12 2.5 a_4} catch_result] {
puts "Faulty SAL594 (case 2): function BLEND works wrongly."
} else {
puts "SAL594 OK (case 2): function BLEND works OK"
}
set square 60513.1
set 2dviewer 0
|
