mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-11 01:58:22 +08:00
32 lines
754 B
Plaintext
Executable File
32 lines
754 B
Plaintext
Executable File
puts "==========="
|
|
puts "OCC23766"
|
|
puts "==========="
|
|
puts ""
|
|
############################################################
|
|
# Shape orientation processing mechanism redesign
|
|
############################################################
|
|
|
|
# test to check compatibility of old xml format
|
|
|
|
Open [locate_data_file bug23766_ttt1_old.xml] 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"
|
|
}
|