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

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

vertex v_v 0 0 0
vertex v_v1 100 100 0
v2ddisplay v_v
v2ddisplay v_v1
v2dfit

set color [QAAISGetPixelColor2d 405 7]
regexp {RED +: +([-0-9.+eE]+)} $color full rd
regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
regexp {BLUE +: +([-0-9.+eE]+)} $color full bl

if { ${rd} != 1 || ${gr} != 1 || ${bl} != 0 } {
    puts "Error : colors are not equal"
    puts "Error : Vertexes 2D were NOT LOADED properly"
}

set only_screen2d 1
Commit	Line	Data
a87752f3	1	puts "========"
	2	puts "OCC155"
	3	puts "OCC190"
	4	puts "========"
	5	puts ""
	6	#####################################
	7	##puts "Creating of Vertexes 2D"
	8	##puts "(visual checking for this case is desirable)"
	9	#####################################
	10	v2dinit
	11
	12	vertex v_v 0 0 0
	13	vertex v_v1 100 100 0
	14	v2ddisplay v_v
	15	v2ddisplay v_v1
	16	v2dfit
	17
	18	set color [QAAISGetPixelColor2d 405 7]
	19	regexp {RED +: +([-0-9.+eE]+)} $color full rd
	20	regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
	21	regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
	22
	23	if { ${rd} != 1 \|\| ${gr} != 1 \|\| ${bl} != 0 } {
	24	puts "Error : colors are not equal"
	25	puts "Error : Vertexes 2D were NOT LOADED properly"
	26	}
	27
	28	set only_screen2d 1