1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
puts "========"
puts "OCC175"
puts "========"
puts ""
###########################################
## ABug of a symmetry on this specific attached BREP shape.
###########################################
restore [locate_data_file OCC175.brep] result
checkshape result
regexp {SHAPE +: +([-0-9.+eE]+)} [nbshapes result] full col1
tmirror result 0 0 0 0 1 0
regexp {SHAPE +: +([-0-9.+eE]+)} [nbshapes result] full col2
if { $col1 != $col2} {
puts "Error : Command mirror does NOT work properly. "
}
set square 13091.3
set 2dviewer 0
|
