[occt.git] / tests / bugs / vis / bug155_3

puts "========"
puts "OCC155"
puts "========"
puts ""
###################################################
##puts "Creating of pCylinder 2D"
##puts "(visual checking for this case is desirable)"
###################################################

v2dinit

pcylinder c_y 5 10
v2ddisplay c_y
v2dfit

set x_coord 338
set y_coord 75
set color2d 1

checkcolor $x_coord $y_coord 1 1 0

if { $stat != 1 } {
    puts "Error : pCylinder 2D was NOT LOADED properly into viewer"
}

set only_screen2d 1
Commit	Line	Data
a87752f3	1	puts "========"
	2	puts "OCC155"
	3	puts "========"
	4	puts ""
	5	###################################################
	6	##puts "Creating of pCylinder 2D"
	7	##puts "(visual checking for this case is desirable)"
	8	###################################################
	9
	10	v2dinit
	11
	12	pcylinder c_y 5 10
	13	v2ddisplay c_y
	14	v2dfit
	15
f1aa2b62	16	set x_coord 338
	17	set y_coord 75
	18	set color2d 1
a87752f3	19
f1aa2b62	20	checkcolor $x_coord $y_coord 1 1 0
	21
	22	if { $stat != 1 } {
a87752f3	23	puts "Error : pCylinder 2D was NOT LOADED properly into viewer"
	24	}
	25
	26	set only_screen2d 1
f1aa2b62	27