mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-05 11:24:17 +03:00
94 lines
2.2 KiB
Plaintext
Executable File
94 lines
2.2 KiB
Plaintext
Executable File
puts "TODO ?OCC11111 ALL: Error on Record"
|
|
puts "TODO ?OCC11111 ALL: Error : Colors are not equal"
|
|
puts "TODO ?OCC11111 ALL: \\*\\* Exception"
|
|
puts "TODO ?OCC11111 ALL: Faulty : colors are not equal."
|
|
puts "TODO ?OCC11111 ALL: Tcl Exception"
|
|
puts "TODO ?OCC11111 ALL: TEST INCOMPLETE"
|
|
|
|
pload QAcommands
|
|
|
|
puts "============"
|
|
puts "OCC22982"
|
|
puts "============"
|
|
puts ""
|
|
##################################################################
|
|
# Generic color is overriden in STEPCAFControl_Writer::WriteColors
|
|
##################################################################
|
|
|
|
set BugNumber OCC22982
|
|
pload DCAF
|
|
|
|
NewDocument D11 MDTV-XCAF
|
|
UndoLimit D11 100
|
|
|
|
# Open a transaction
|
|
NewCommand D11
|
|
|
|
set fileNameAir [locate_data_file OCC22982-Air.step]
|
|
|
|
set status 0
|
|
|
|
if { [catch { ReadStep D11 $fileNameAir } catch_result] } {
|
|
puts "Faulty ${BugNumber} : there is reading problem"
|
|
set status 1
|
|
}
|
|
|
|
XSetColor D11 0:1:1:1 0 0 1
|
|
XSetColor D11 0:1:1:1:1 1 0 0
|
|
XUnsetColor D11 0:1:1:1:2 s
|
|
XUnsetColor D11 0:1:1:1:3 s
|
|
|
|
set XRedCoords {2 148 179 204}
|
|
set XRedCoords [split $XRedCoords " "]
|
|
set YRedCoords {177 54 166 78}
|
|
set YRedCoords [split $YRedCoords " "]
|
|
|
|
set XBlueCoords {238 315 406 347 369 204 171 62}
|
|
set XBlueCoords [split $XBlueCoords " "]
|
|
set YBlueCoords {171 87 188 174 290 286 237 303}
|
|
set YBlueCoords [split $YBlueCoords " "]
|
|
|
|
XShow D11
|
|
vfit
|
|
|
|
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
|
|
}
|
|
|
|
# Close/Open a transaction
|
|
NewCommand D11
|
|
|
|
if { [catch { WriteStep D11 ${imagedir}/${test_image}.step } catch_result] } {
|
|
puts "Faulty ${BugNumber} : there is writing problem"
|
|
set status 1
|
|
}
|
|
|
|
NewDocument D2 MDTV-XCAF
|
|
UndoLimit D2 100
|
|
|
|
# Close/Open a transaction
|
|
NewCommand D2
|
|
|
|
if { [catch { ReadStep D2 ${imagedir}/${test_image}.step } catch_result] } {
|
|
puts "Faulty ${BugNumber} : there is reading problem"
|
|
set status 1
|
|
}
|
|
|
|
XShow D2
|
|
vfit
|
|
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
|
|
}
|
|
|
|
if { $status != 0 } {
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
puts "OK ${BugNumber}"
|
|
}
|
|
|
|
set 3dviewer 0
|