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

puts "========"
puts "OCC281"
puts "========"

vinit

set x 205
set y 208
set TypeOfMarker 0

set scale    50.0521
set center_X 0
set center_Y 0
set proj_X   0.57735
set proj_Y   -0.57735
set proj_Z   0.57735
set up_X     -0.408248
set up_Y     0.408248
set up_Z     0.816497
set at_X     0
set at_Y     0
set at_Z     0

vviewparams ${scale} ${center_X} ${center_Y} ${proj_X} ${proj_Y} ${proj_Z} ${up_X} ${up_Y} ${up_Z} ${at_X} ${at_Y} ${at_Z}

OCC281 ${x} ${y} ${TypeOfMarker}
OCC281 ${x} ${y} ${TypeOfMarker}

OCC281 200 200 0
OCC281 200 200 0
puts "Type of marker mast be blue point!"

set only_screen 1
Commit	Line	Data
61c421bf	1	puts "========"
	2	puts "OCC281"
	3	puts "========"
	4
	5	vinit
	6
	7	set x 205
	8	set y 208
	9	set TypeOfMarker 0
	10
	11	set scale 50.0521
	12	set center_X 0
	13	set center_Y 0
	14	set proj_X 0.57735
	15	set proj_Y -0.57735
	16	set proj_Z 0.57735
	17	set up_X -0.408248
	18	set up_Y 0.408248
	19	set up_Z 0.816497
	20	set at_X 0
	21	set at_Y 0
	22	set at_Z 0
	23
4754e164	24	vviewparams ${scale} ${center_X} ${center_Y} ${proj_X} ${proj_Y} ${proj_Z} ${up_X} ${up_Y} ${up_Z} ${at_X} ${at_Y} ${at_Z}
61c421bf	25
	26	OCC281 ${x} ${y} ${TypeOfMarker}
	27	OCC281 ${x} ${y} ${TypeOfMarker}
	28
	29	OCC281 200 200 0
	30	OCC281 200 200 0
	31	puts "Type of marker mast be blue point!"
	32
	33	set only_screen 1