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

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

vinit
vpoint radP1 0 0 0
vpoint radP2 50 50 0
vpoint radP3 100 0 0
vcircle circle radP1 radP2 radP3 0
verase radP1 radP2 radP3
vdimension dim1 -radius -shapes circle
vfit
vmoveto 123 158

set x_coord 112
set y_coord 151

checkcolor $x_coord $y_coord 0 1 1

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

vinit Viewer2/View2
vdisplay circle
vdimension dim2 -radius -text 3d -shapes circle
vfit
vmoveto 191 196

set x_coord 129
set y_coord 172

checkcolor $x_coord $y_coord 0 1 1

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

set only_screen 1
Commit	Line	Data
	1	puts "============"
	2	puts "CR24133"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Development of improvement of dimensions implementation
	7	# Radius dimension
	8	#######################################################################
	9	pload VISUALIZATION
	10
	11	vinit
	12	vpoint radP1 0 0 0
	13	vpoint radP2 50 50 0
	14	vpoint radP3 100 0 0
	15	vcircle circle radP1 radP2 radP3 0
	16	verase radP1 radP2 radP3
	17	vdimension dim1 -radius -shapes circle
	18	vfit
	19	vmoveto 123 158
	20
	21	set x_coord 112
	22	set y_coord 151
	23
	24	checkcolor $x_coord $y_coord 0 1 1
	25
	26	if { $stat != 1 } {
	27	puts "Error : Highlighting of radius dimension with 2d text is wrong."
	28	}
	29
	30	vinit Viewer2/View2
	31	vdisplay circle
	32	vdimension dim2 -radius -text 3d -shapes circle
	33	vfit
	34	vmoveto 191 196
	35
	36	set x_coord 129
	37	set y_coord 172
	38
	39	checkcolor $x_coord $y_coord 0 1 1
	40
	41	if { $stat != 1 } {
	42	puts "Error : Highlighting of radius dimension with 3d text is wrong."
	43	}
	44
	45	set only_screen 1