mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-26 10:19:45 +03:00
115 lines
2.5 KiB
Plaintext
Executable File
115 lines
2.5 KiB
Plaintext
Executable File
puts "========"
|
|
puts "OCC232"
|
|
puts "Pick filter does NOT work for TopAbs_COMPSOLID topology"
|
|
puts "========"
|
|
|
|
vinit
|
|
OCC232
|
|
vfit
|
|
|
|
# selected point of first CompSolid
|
|
set x1 69
|
|
set y1 204
|
|
|
|
set x2 116
|
|
set y2 231
|
|
|
|
#set x3 160; set y3 257 - it's bad for lin,aki.
|
|
set x3 159
|
|
set y3 256
|
|
|
|
# selected point of second CompSolid
|
|
set x4 298
|
|
set y4 76
|
|
|
|
set x5 339
|
|
set y5 100
|
|
|
|
set x6 381
|
|
set y6 124
|
|
|
|
set Cyan_R 0
|
|
set Cyan_G 1
|
|
set Cyan_B 1
|
|
|
|
set Yellow_R 1
|
|
set Yellow_G 1
|
|
set Yellow_B 0
|
|
|
|
# There is not selection
|
|
puts "There is not selection"
|
|
catch {QAGetPixelColor $x1 $y1 $Yellow_R $Yellow_G $Yellow_B} result11
|
|
catch {QAGetPixelColor $x2 $y2 $Yellow_R $Yellow_G $Yellow_B} result12
|
|
catch {QAGetPixelColor $x3 $y3 $Yellow_R $Yellow_G $Yellow_B} result13
|
|
catch {QAGetPixelColor $x4 $y4 $Yellow_R $Yellow_G $Yellow_B} result14
|
|
catch {QAGetPixelColor $x5 $y5 $Yellow_R $Yellow_G $Yellow_B} result15
|
|
catch {QAGetPixelColor $x6 $y6 $Yellow_R $Yellow_G $Yellow_B} result16
|
|
|
|
# Move a mouse
|
|
puts "Move a mouse"
|
|
QAMoveTo $x2 $y2
|
|
QAMoveTo $x2 $y2
|
|
|
|
# Second box of first CompSolid is selected
|
|
puts "Second box of first CompSolid is selected"
|
|
catch {QAGetPixelColor $x1 $y1 $Yellow_R $Yellow_G $Yellow_B} result21
|
|
catch {QAGetPixelColor $x3 $y3 $Yellow_R $Yellow_G $Yellow_B} result22
|
|
catch {QAGetPixelColor $x4 $y4 $Yellow_R $Yellow_G $Yellow_B} result23
|
|
catch {QAGetPixelColor $x5 $y5 $Yellow_R $Yellow_G $Yellow_B} result24
|
|
catch {QAGetPixelColor $x6 $y6 $Yellow_R $Yellow_G $Yellow_B} result25
|
|
|
|
if { [array get env os_type] != "" } {
|
|
set os $env(os_type)
|
|
}
|
|
if { [string compare $os "windows"] != 0 } {
|
|
QAUpdateLights
|
|
catch {QAGetPixelColor $x2 $y2 $Cyan_R $Cyan_G $Cyan_B} result31
|
|
}
|
|
|
|
set IsFaulty 0
|
|
if { [regexp "Faulty" $result11] == 1 } {
|
|
set IsFaulty 1
|
|
}
|
|
if { [regexp "Faulty" $result12] == 1 } {
|
|
set IsFaulty 1
|
|
}
|
|
if { [regexp "Faulty" $result13] == 1 } {
|
|
set IsFaulty 1
|
|
}
|
|
if { [regexp "Faulty" $result14] == 1 } {
|
|
set IsFaulty 1
|
|
}
|
|
if { [regexp "Faulty" $result15] == 1 } {
|
|
set IsFaulty 1
|
|
}
|
|
if { [regexp "Faulty" $result16] == 1 } {
|
|
set IsFaulty 1
|
|
}
|
|
if { [regexp "Faulty" $result21] == 1 } {
|
|
set IsFaulty 1
|
|
}
|
|
if { [regexp "Faulty" $result22] == 1 } {
|
|
set IsFaulty 1
|
|
}
|
|
if { [regexp "Faulty" $result23] == 1 } {
|
|
set IsFaulty 1
|
|
}
|
|
if { [regexp "Faulty" $result24] == 1 } {
|
|
set IsFaulty 1
|
|
}
|
|
if { [regexp "Faulty" $result25] == 1 } {
|
|
set IsFaulty 1
|
|
}
|
|
|
|
if { [string compare $os "windows"] != 0 } {
|
|
if { [regexp "Faulty" $result31] == 1 } {
|
|
set IsFaulty 1
|
|
}
|
|
}
|
|
|
|
if {$IsFaulty != 0} {
|
|
puts "Error : OCC232"
|
|
}
|
|
|
|
set only_screen 1
|