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

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
Commit	Line	Data
a87752f3	1	puts "========"
	2	puts "OCC155"
	3	puts "OCC191"
	4	puts "========"
	5	puts ""
	6	#####################################
	7	##puts "Creating of pCone 2D"
	8	##puts "(visual checking for this case is desirable)"
	9	#####################################
	10
	11	v2dinit
	12
	13	pcone c_o 15 0 50 360
	14	v2ddisplay c_o
	15	v2dfit
	16
f1aa2b62	17	set x_coord 338
	18	set y_coord 77
	19	set color2d 1
a87752f3	20
f1aa2b62	21	checkcolor $x_coord $y_coord 1 1 0
	22
	23	if { $stat != 1 } {
a87752f3	24	puts "Error : pCone 2D was NOT LOADED properly into viewer"
	25	}
	26
	27	set only_screen2d 1
	28