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
|
puts "================"
puts "OCC636"
puts "================"
puts ""
#####################################
## BRepOffsetAPI_MakePipeShell builds twisted pipe
#####################################
restore [locate_data_file OCC636a.brep] s
checkshape s
restore [locate_data_file OCC636b.brep] s1
checkshape s1
restore [locate_data_file OCC636c.brep] s2
checkshape s2
mksweep s
addsweep s1
addsweep s2
if [catch { buildsweep result } catch_result] {
puts "Faulty OCC636: function buildsweep works wrongly"
} else {
puts "OCC636 OK: function buildsweep works properly"
}
set square 3836.92
set 2dviewer 0
|
