Thread: [Brlcad-commits] CVS: brlcad/src/tclscripts/mged shaders.tcl,14.5,14.6
Open Source Solid Modeling CAD
Brought to you by:
brlcad
From: Sean M. <br...@us...> - 2005-06-30 14:52:29
|
Update of /cvsroot/brlcad/brlcad/src/tclscripts/mged In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31656 Modified Files: shaders.tcl Log Message: allow up to 64 shadow rays to be selected Index: shaders.tcl =================================================================== RCS file: /cvsroot/brlcad/brlcad/src/tclscripts/mged/shaders.tcl,v retrieving revision 14.5 retrieving revision 14.6 diff -w -u -r14.5 -r14.6 --- shaders.tcl 30 Jan 2005 20:31:14 -0000 14.5 +++ shaders.tcl 30 Jun 2005 14:52:18 -0000 14.6 @@ -1663,11 +1663,11 @@ # Create the scale for shadow rays grid [scale $w.shadows -orient horiz -label "Shadow Rays" \ - -from 0 -to 9 -bd 3 -relief sunken \ + -from 0 -to 64 -bd 3 -relief sunken \ -command "light_scale $shade_var $id $w.icon"\ -variable shader_params($id,light_s) ] \ -row 0 -column 2 -rowspan 3 -columnspan 2 -sticky nesw - hoc_register_data $w.shadows shadows [list [list summary "number of rays to fire at light source in determining shadow\n0 rays means no shadows"] [list range "0..9"]] + hoc_register_data $w.shadows shadows [list [list summary "number of rays to fire at light source in determining shadow\n0 rays means no shadows"] [list range "0..64"]] @@ -1772,7 +1772,13 @@ append name "light_i" $shader_params($id,light_i) append name "_v" $shader_params($id,light_v) + + # only have shadow images for up to 9 shadow rays + if { $shader_params($id,light_s) > 9 } { + append name "_s" 9 + } else { append name "_s" $shader_params($id,light_s) + } $shader_params($id,icon) configure -image $shader_params($name) } |