mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
e837410dac
All uses of "MDTV-Standard" and "MDTV-Design" in tests changed to "BinOcaf", and "MDTV-XCAF" changed to "BinXCAF". Formats changed: .std to .cbf, .dxc to .dbf. Test groups renamed accordingly: xcaf: brep_to_dxc -> brep_to_xbf, igs_to_dxc -> igs_to_xbf, stp_to_dxc -> stp_to_xbf, dxc -> xbf/A1, dxc_add_CL -> xbf_add_CL xml: ocaf_std -> ocaf_cbf, xcaf_dxc -> xcaf_xbf
89 lines
2.2 KiB
Plaintext
Executable File
89 lines
2.2 KiB
Plaintext
Executable File
puts "TODO OCC22982 ALL: Error on Record"
|
|
# errors appear during reading source step file
|
|
pload QAcommands
|
|
|
|
puts "============"
|
|
puts "OCC22982"
|
|
puts "============"
|
|
puts ""
|
|
##################################################################
|
|
# Generic color is overriden in STEPCAFControl_Writer::WriteColors
|
|
##################################################################
|
|
|
|
set BugNumber OCC22982
|
|
pload DCAF
|
|
|
|
NewDocument D11 BinXCAF
|
|
UndoLimit D11 100
|
|
|
|
# Open a transaction
|
|
NewCommand D11
|
|
|
|
ReadStep D11 [locate_data_file OCC22982-Air.step]
|
|
|
|
XUnsetColor D11 0:1:1:1 s
|
|
XUnsetColor D11 0:1:1:1:1 s
|
|
XUnsetColor D11 0:1:1:1:2 s
|
|
XUnsetColor D11 0:1:1:1:3 s
|
|
XUnsetColor D11 0:1:1:1:4 s
|
|
XUnsetColor D11 0:1:1:1:5 s
|
|
XUnsetColor D11 0:1:1:1:6 s
|
|
XSetColor D11 0:1:1:1 0 0 1
|
|
XSetColor D11 0:1:1:1:1 1 0 0
|
|
|
|
set XRedCoords {2 160 186 204}
|
|
set XRedCoords [split $XRedCoords " "]
|
|
set YRedCoords {177 48 162 78}
|
|
set YRedCoords [split $YRedCoords " "]
|
|
|
|
set XBlueCoords {238 315 406 348 370 204 171 62}
|
|
set XBlueCoords [split $XBlueCoords " "]
|
|
set YBlueCoords {172 87 188 175 290 271 238 303}
|
|
set YBlueCoords [split $YBlueCoords " "]
|
|
|
|
XShow D11
|
|
vfit
|
|
|
|
# Check colors of document with source shape
|
|
for {set i 0} {$i < [llength $XRedCoords]} {incr i} {
|
|
set XCoord [lindex $XRedCoords $i]
|
|
set YCoord [lindex $YRedCoords $i]
|
|
checkcolor $XCoord $YCoord 1 0 0
|
|
}
|
|
for {set i 0} {$i < [llength $XBlueCoords]} {incr i} {
|
|
set XCoord [lindex $XBlueCoords $i]
|
|
set YCoord [lindex $YBlueCoords $i]
|
|
checkcolor $XCoord $YCoord 0 0 1
|
|
}
|
|
|
|
# Close/Open a transaction
|
|
NewCommand D11
|
|
|
|
file delete -force ${imagedir}/${test_image}.step
|
|
WriteStep D11 ${imagedir}/${test_image}.step
|
|
|
|
NewDocument D2 BinXCAF
|
|
UndoLimit D2 100
|
|
|
|
# Close/Open a transaction
|
|
NewCommand D2
|
|
|
|
ReadStep D2 ${imagedir}/${test_image}.step
|
|
|
|
XShow D2
|
|
vfit
|
|
|
|
# Check colors of document with resulting shape
|
|
for {set i 0} {$i < [llength $XRedCoords]} {incr i} {
|
|
set XCoord [lindex $XRedCoords $i]
|
|
set YCoord [lindex $YRedCoords $i]
|
|
checkcolor $XCoord $YCoord 1 0 0
|
|
}
|
|
for {set i 0} {$i < [llength $XBlueCoords]} {incr i} {
|
|
set XCoord [lindex $XBlueCoords $i]
|
|
set YCoord [lindex $YBlueCoords $i]
|
|
checkcolor $XCoord $YCoord 0 0 1
|
|
}
|
|
|
|
set only_screen 1
|