[occt.git] / tests / v3d / glsl / double_precision

puts "========"
puts "0024393: Visualization - objects position with enchanced precision"
puts "========"

pload MODELING VISUALIZATION
vclear
vinit View1
vaxo
vzbufftrihedron
circle c 0 0 0 0.001
mkedge e c
wire   w e
plane  s
mkface f0    s w
mkface f1000 s w
ttranslate f1000 1000 0 0
# Display object with pre-applied transformation.
# Result presentation is already corrupted
# AND it jumps while rotating the camera.
vpoint v1000 1000 0 0.001
vdisplay -dispMode 1 f1000
vfit

# Display object with external transformation.
# Result presentation jumps while rotating the camera.
vdisplay -dispMode 1 f0
vsetlocation f0 1000 0 0

# Display object with external transformation
# in Z-layer with translated Origin.
# Result presentation does not jump while rotating the camera.
vzlayer top -origin 1000 0 0
vdisplay -dispMode 1 -top f0

# check transformation persistence
vtrihedron tt
vdisplay -top -trihedron topLeft 100 100 tt

box zp 40 50 30
vdisplay -top -dispMode 1 -trsfPers zoom -trsfPersPos 1000 0 0 zp

# check clippling planes
vclipplane pln -equation -1 0 0 1000 -set

# check positional lights
vlight add positional pos 1000 0 0.001 color RED1 headlight 0

vremove f1000
vmoveto 220 220

vdrawtext text Text -pos 0 0 0
vdisplay -top text -trsfPers zoomRotate -trsfPersPos 1000 0 0.001

vdump $::imagedir/${::casename}.png
Commit	Line	Data
7c3ef2f7	1	puts "========"
	2	puts "0024393: Visualization - objects position with enchanced precision"
	3	puts "========"
	4
	5	pload MODELING VISUALIZATION
	6	vclear
	7	vinit View1
	8	vaxo
	9	vzbufftrihedron
	10	circle c 0 0 0 0.001
	11	mkedge e c
	12	wire w e
	13	plane s
	14	mkface f0 s w
	15	mkface f1000 s w
	16	ttranslate f1000 1000 0 0
	17	# Display object with pre-applied transformation.
	18	# Result presentation is already corrupted
	19	# AND it jumps while rotating the camera.
	20	vpoint v1000 1000 0 0.001
	21	vdisplay -dispMode 1 f1000
	22	vfit
	23
	24	# Display object with external transformation.
	25	# Result presentation jumps while rotating the camera.
	26	vdisplay -dispMode 1 f0
	27	vsetlocation f0 1000 0 0
	28
	29	# Display object with external transformation
	30	# in Z-layer with translated Origin.
	31	# Result presentation does not jump while rotating the camera.
	32	vzlayer top -origin 1000 0 0
	33	vdisplay -dispMode 1 -top f0
	34
	35	# check transformation persistence
	36	vtrihedron tt
	37	vdisplay -top -trihedron topLeft 100 100 tt
	38
	39	box zp 40 50 30
	40	vdisplay -top -dispMode 1 -trsfPers zoom -trsfPersPos 1000 0 0 zp
	41
	42	# check clippling planes
	43	vclipplane pln -equation -1 0 0 1000 -set
	44
	45	# check positional lights
	46	vlight add positional pos 1000 0 0.001 color RED1 headlight 0
	47
	48	vremove f1000
	49	vmoveto 220 220
	50
	51	vdrawtext text Text -pos 0 0 0
	52	vdisplay -top text -trsfPers zoomRotate -trsfPersPos 1000 0 0.001
	53
	54	vdump $::imagedir/${::casename}.png