1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-07-30 13:05:50 +03:00
occt/tests/bugs/vis/bug155_2
apn f1aa2b6272 Adding new testing cases for chl grid
Adding procedures checkcolor and checkpoint.
Modified test cases which are used QAGetPixelColor or QAAISGetPixelColor2d
Allow using command QAAISGetPixelColor2d on WNT
Rename test case tests/bugs/vis/bug19619 to pro19619
Added test cases to modalg and moddata
2012-12-14 16:56:11 +04:00

29 lines
473 B
Plaintext
Executable File

puts "========"
puts "OCC155"
puts "OCC191"
puts "========"
puts ""
#####################################
##puts "Creating of pCone 2D"
##puts "(visual checking for this case is desirable)"
#####################################
v2dinit
pcone c_o 15 0 50 360
v2ddisplay c_o
v2dfit
set x_coord 338
set y_coord 77
set color2d 1
checkcolor $x_coord $y_coord 1 1 0
if { $stat != 1 } {
puts "Error : pCone 2D was NOT LOADED properly into viewer"
}
set only_screen2d 1