mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
37d6975c77
Change platform in occt test cases in TODOs from Debian\Mandriva to Linux Small corrections in test cases. Return procedure _tests_platform_def.
36 lines
906 B
Plaintext
36 lines
906 B
Plaintext
puts "========"
|
|
puts "OCC25732"
|
|
puts "========"
|
|
puts ""
|
|
#########################################################################################
|
|
# Visualization, TKOpenGl - back face culling should not affect textured font rendering
|
|
#########################################################################################
|
|
|
|
box b -100 0 -200 50 100 200
|
|
|
|
vinit View1
|
|
vclear
|
|
vaxo
|
|
|
|
vdisplay b
|
|
vfit
|
|
vsetdispmode b 1
|
|
|
|
vdrawtext text "Open\nCASCADE" -pos 0 0 0 -color 1.0 0.0 0.0 -halign center -valign center -angle -45 -zoom 1 -height 50 -aspect regular -font Arial
|
|
|
|
set env(os_type) $tcl_platform(platform)
|
|
if { [string compare ${env(os_type)} "windows"] != 0 } {
|
|
set x_coord 259
|
|
set y_coord 279
|
|
} else {
|
|
set x_coord 255
|
|
set y_coord 277
|
|
}
|
|
|
|
set bug_info [vreadpixel ${x_coord} ${y_coord} rgb name]
|
|
if {$bug_info != "RED"} {
|
|
puts "ERROR: OCC25732 is reproduced. Text is missed."
|
|
}
|
|
|
|
set only_screen 1
|