mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
33 lines
755 B
Plaintext
Executable File
33 lines
755 B
Plaintext
Executable File
puts "==========="
|
|
puts "OCC23766"
|
|
puts "==========="
|
|
puts ""
|
|
############################################################
|
|
# Shape orientation processing mechanism redesign
|
|
############################################################
|
|
|
|
# test to check compatibility of old cbf format
|
|
|
|
Open [locate_data_file bug23766_ttt1_old.cbf] D
|
|
|
|
GetShape D 0:1:2:1:2 E1
|
|
set info1 [whatis E1]
|
|
|
|
## to be FORWARD:
|
|
if { [regexp "FORWARD" $info1] != 1 } {
|
|
puts "Error: orientation of E1 is incorrect"
|
|
} else {
|
|
puts "OK: orientation of E1 is correct"
|
|
}
|
|
|
|
GetShape D 0:1:3:1:2 E2
|
|
set info2 [whatis E2]
|
|
|
|
## to be REVERSED:
|
|
if { [regexp "REVERSED" $info2] != 1 } {
|
|
puts "Error: orientation of E2 is incorrect"
|
|
} else {
|
|
puts "OK: orientation of E2 is correct"
|
|
}
|
|
|