mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-25 09:07:26 +08:00
24 lines
565 B
Plaintext
24 lines
565 B
Plaintext
puts "========"
|
|
puts "OCC200"
|
|
puts "========"
|
|
puts ""
|
|
|
|
#######################################################
|
|
##puts "2D Viewer. Changing of background color from BLACK to R (R is missing color name)"
|
|
##puts "(visual checking for this case is desirable)"
|
|
#######################################################
|
|
|
|
set mistake 0
|
|
v2dinit
|
|
if [catch {v2dsetbgcolor R} ] {
|
|
set mistake 1
|
|
}
|
|
|
|
if {$mistake != 0} {
|
|
puts "Faulty : Changing of backgroundcolor was NOT MADE properly"
|
|
} else {
|
|
puts "Changing of backgroundcolor was made properly"
|
|
}
|
|
|
|
set only_screen2d 1
|