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

puts "============"
puts "CR24133"
puts "============"
puts ""
#######################################################################
#  Development of improvement of dimensions implementation
#  Angle dimension
#######################################################################
pload VISUALIZATION

vinit
vpoint angleP1 0 0 0
vpoint angleP2 50 50 50
vpoint angleP3 50 50 100
vdimension dim1 -angle -shapes angleP1 angleP2 angleP3
vfit
vmoveto 249 206

set x_coord 249
set y_coord 200

checkcolor $x_coord $y_coord 0 1 1

if { $stat != 1 } {
   puts "Error : Highlighting of angle dimension with 2d text is wrong."
}
vinit Viewer2/View2
vdisplay angleP1 angleP2 angleP3
vdimension dim2 -angle -text 3d -shapes angleP1 angleP2 angleP3
vfit
vmoveto 263 251

set x_coord 335
set y_coord 319

checkcolor $x_coord $y_coord 0 1 1

if { $stat != 1 } {
   puts "Error : Highlighting of angle dimension with 3d text is wrong."
}

set only_screen 1
Commit	Line	Data
a6eb515f	1	puts "============"
	2	puts "CR24133"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Development of improvement of dimensions implementation
	7	# Angle dimension
	8	#######################################################################
	9	pload VISUALIZATION
	10
	11	vinit
	12	vpoint angleP1 0 0 0
	13	vpoint angleP2 50 50 50
	14	vpoint angleP3 50 50 100
0499eb06	15	vdimension dim1 -angle -shapes angleP1 angleP2 angleP3
a6eb515f	16	vfit
	17	vmoveto 249 206
	18
	19	set x_coord 249
	20	set y_coord 200
	21
	22	checkcolor $x_coord $y_coord 0 1 1
	23
	24	if { $stat != 1 } {
	25	puts "Error : Highlighting of angle dimension with 2d text is wrong."
	26	}
d7bffd44	27	vinit Viewer2/View2
d7bffd44	28	vdisplay angleP1 angleP2 angleP3
0499eb06	29	vdimension dim2 -angle -text 3d -shapes angleP1 angleP2 angleP3
a6eb515f	30	vfit
	31	vmoveto 263 251
	32
d7bffd44	33	set x_coord 335
d7bffd44	34	set y_coord 319
a6eb515f	35
	36	checkcolor $x_coord $y_coord 0 1 1
	37
	38	if { $stat != 1 } {
	39	puts "Error : Highlighting of angle dimension with 3d text is wrong."
	40	}
	41
	42	set only_screen 1