mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-22 12:48:37 +08:00
36 lines
682 B
Plaintext
36 lines
682 B
Plaintext
puts "========"
|
|
puts "OCC403"
|
|
puts "========"
|
|
|
|
v2dinit
|
|
v2dgrid Rect 0 0 10 10 0 Lines
|
|
|
|
OCC403 RED GREEN
|
|
|
|
puts "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
|
|
puts "Visual control: background is RED"
|
|
puts "Visual control: major grid lines are GREEN"
|
|
puts "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
|
|
puts ""
|
|
|
|
set x_coord 175
|
|
set y_coord 155
|
|
set color2d 1
|
|
checkcolor $x_coord $y_coord 1 0 0
|
|
|
|
if {$stat != 1} {
|
|
puts "Faulty OCC403: background has NOT RED color"
|
|
} else {
|
|
puts "OCC403 OK: background is RED"
|
|
}
|
|
|
|
set x_coord 122
|
|
set y_coord 105
|
|
checkcolor $x_coord $y_coord 0 1 0
|
|
|
|
if {$stat != 1} {
|
|
puts "Faulty OCC403: major grid lines have NOT GREEN color"
|
|
}
|
|
|
|
set only_screen2d 1
|