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

puts "==========="
puts "BUC60915"
puts "==========="
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="

vinit
BUC60915

set x_coord 300
set y_coord 164

checkcolor $x_coord $y_coord 0.51 0.98 0

if {$stat != 1} {
   puts "Error : Cannot set the arrow size when using AIS_LengthDimension or AIS_RadiusDimensin."
}

set only_screen 1
Commit	Line	Data
352ffd73	1	puts "==========="
	2	puts "BUC60915"
	3	puts "==========="
	4	puts "=================================="
	5	puts "It takes visual check for this BUG"
	6	puts "=================================="
	7
	8	vinit
	9	BUC60915
	10
	11	set x_coord 300
	12	set y_coord 164
	13
	14	checkcolor $x_coord $y_coord 0.51 0.98 0
	15
	16	if {$stat != 1} {
	17	puts "Error : Cannot set the arrow size when using AIS_LengthDimension or AIS_RadiusDimensin."
	18	}
	19
	20	set only_screen 1
	21
	22