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
|
pload QAcommands
puts "======="
puts "OCC24"
puts "======="
puts ""
###########################################################################
## Recorded modifications are lost when converting from ShapeBuild_ReShape into ShapeProcess_ShapeContext
## and back
###########################################################################
restore [locate_data_file OCC24.brep] s
checkshape s
explode s f
compound s_1 c
if [catch { OCC24 result s c OCC24 Seq } ] {
puts "OCC24 ERROR"
} else {
puts "OCC24 OK"
}
set square 37.6991
set 2dviewer 2
|
