mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
d399d3c36b
- Missing code restored - "vtexture" command improved to support texture modulation option remarks from kgv
45 lines
826 B
Plaintext
45 lines
826 B
Plaintext
puts "============"
|
|
puts "CR24725"
|
|
puts "============"
|
|
puts ""
|
|
|
|
########################################################
|
|
# Test texture color modulation for AIS_TexturedShape
|
|
########################################################
|
|
|
|
set aV "Driver1/Viewer1/View1"
|
|
vinit name=$aV l=32 t=32 w=400 h=400
|
|
vactivate $aV
|
|
vclear
|
|
|
|
box b 1 2 3
|
|
vdisplay b
|
|
vsetdispmode 1
|
|
vtexture b 0
|
|
vlight clear
|
|
vlight add ambient color white
|
|
vfit
|
|
|
|
set check_x 142
|
|
set check_y 352
|
|
|
|
vtexture b -modulate off
|
|
|
|
checkcolor $check_x $check_y 1 1 1
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : color of non-modulated texture is incorrect"
|
|
}
|
|
|
|
vdump $imagedir/${casename}_1.png
|
|
|
|
vtexture b -modulate on
|
|
|
|
checkcolor $check_x $check_y 0.329 0.224 0.027
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : color of modulated texture is incorrect"
|
|
}
|
|
|
|
vdump $imagedir/${casename}_2.png
|