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

puts "============"
puts "CR23407"
puts "============"
puts ""
#######################################################################
# Draw face outlines for XDE objects
#######################################################################
pload QAcommands
pload XDEDRAW

set r_check 1
set g_check 0
set b_check 0
set x1 227
set y1 143

XNewDoc Doc1
ReadStep Doc1 [locate_data_file CR23407-screw.step]
XShow Doc1 0:1:1:1
XShowFaceBoundary Doc1 0:1:1:1 1 255 0 0 200 1
vfit
vsetdispmode 1

set color [ QAGetPixelColor ${x1} ${y1} ]
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 != $r_check || $gr != $g_check || $bl != $b_check } {
    puts "Error : color are not equal"
    puts "Error : Boundary of face is not changed"
}

set 3dviewer 1
Commit	Line	Data
a2d5ab2e	1	puts "============"
	2	puts "CR23407"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Draw face outlines for XDE objects
	7	#######################################################################
	8	pload QAcommands
	9	pload XDEDRAW
	10
	11	set r_check 1
	12	set g_check 0
	13	set b_check 0
	14	set x1 227
	15	set y1 143
	16
	17	XNewDoc Doc1
	18	ReadStep Doc1 [locate_data_file CR23407-screw.step]
	19	XShow Doc1 0:1:1:1
	20	XShowFaceBoundary Doc1 0:1:1:1 1 255 0 0 200 1
	21	vfit
	22	vsetdispmode 1
	23
	24	set color [ QAGetPixelColor ${x1} ${y1} ]
	25	regexp {RED +: +([-0-9.+eE]+)} $color full rd
	26	regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
	27	regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
	28
	29	if { $rd != $r_check \|\| $gr != $g_check \|\| $bl != $b_check } {
	30	puts "Error : color are not equal"
	31	puts "Error : Boundary of face is not changed"
	32	}
	33
	34	set 3dviewer 1
	35
	36
	37
	38
	39
	40