1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-06-15 11:44:07 +03:00

25 lines
566 B
Plaintext
Executable File

puts "========"
puts "OCC175"
puts "========"
puts ""
###########################################
## ABug of a symmetry on this specific attached BREP shape.
###########################################
restore [locate_data_file OCC175.brep] result
puts [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 check_square 1
set square 13091.3
set 2dviewer 0