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

puts "============"
puts "CR23747"
puts "Checking environment mapping in general"
puts "============"
puts ""

vinit
vclear
vaxo
psphere b 20
vdisplay b
vsetdispmode b 1
vfit

puts "Applying standard environment textures"
set max_textures 8
for {set i 0} {$i < $max_textures} {incr i} {
  vtextureenv on $i
  vdump $imagedir/${casename}_std_texture_${i}.png  
}

puts "Varying parameters of the 6th std texture (black stripes on white background)"
puts "Trying modulate flag"
vtextureenv on 6 clamp modulate trilinear 1 1 0 0 0
vdump $imagedir/${casename}_modulate.png

puts "Trying nearest texture filtering mode"
vtextureenv on 6 clamp decal nearest 1 1 0 0 0
vdump $imagedir/${casename}_nearest.png

puts "Trying scaling of s and t texture coordinates by 5 (texture repeat on)"
vtextureenv on 6 repeat decal trilinear 5 5 0 0 0
vdump $imagedir/${casename}_scaled.png

puts "Trying translation of s and t texture coordinates by 0.5 (texture repeat on)"
vtextureenv on 6 repeat decal trilinear 1 1 0.5 0.5 0
vdump $imagedir/${casename}_translated.png

puts "Trying rotation of texture coordinates by 90 degrees around the texture center (texture repeat on)"
vtextureenv on 6 repeat decal trilinear 1 1 0 0 90
vdump $imagedir/${casename}_rotated.png
Commit	Line	Data
269294d6	1	puts "============"
	2	puts "CR23747"
	3	puts "Checking environment mapping in general"
	4	puts "============"
	5	puts ""
	6
	7	vinit
	8	vclear
	9	vaxo
b5ac8292	10	psphere b 20
269294d6	11	vdisplay b
	12	vsetdispmode b 1
	13	vfit
	14
	15	puts "Applying standard environment textures"
	16	set max_textures 8
	17	for {set i 0} {$i < $max_textures} {incr i} {
	18	vtextureenv on $i
	19	vdump $imagedir/${casename}_std_texture_${i}.png
	20	}
	21
	22	puts "Varying parameters of the 6th std texture (black stripes on white background)"
	23	puts "Trying modulate flag"
	24	vtextureenv on 6 clamp modulate trilinear 1 1 0 0 0
	25	vdump $imagedir/${casename}_modulate.png
	26
	27	puts "Trying nearest texture filtering mode"
	28	vtextureenv on 6 clamp decal nearest 1 1 0 0 0
	29	vdump $imagedir/${casename}_nearest.png
	30
	31	puts "Trying scaling of s and t texture coordinates by 5 (texture repeat on)"
	32	vtextureenv on 6 repeat decal trilinear 5 5 0 0 0
	33	vdump $imagedir/${casename}_scaled.png
	34
	35	puts "Trying translation of s and t texture coordinates by 0.5 (texture repeat on)"
	36	vtextureenv on 6 repeat decal trilinear 1 1 0.5 0.5 0
	37	vdump $imagedir/${casename}_translated.png
	38
	39	puts "Trying rotation of texture coordinates by 90 degrees around the texture center (texture repeat on)"
	40	vtextureenv on 6 repeat decal trilinear 1 1 0 0 90
	41	vdump $imagedir/${casename}_rotated.png
	42