ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/util/do_scene3.6.tcl
(Generate patch)

Comparing ray/src/util/do_scene3.6.tcl (file contents):
Revision 2.3 by greg, Fri Oct 28 11:10:16 1994 UTC vs.
Revision 2.10 by greg, Sat Feb 22 02:07:30 2003 UTC

# Line 1 | Line 1
1 < # SCCSid "$SunId$ LBL"
1 > # RCSid: $Id$
2   #
3   # Track octree and scene files
4   #
5  
6 – set myglob(materials) *.mat
7 – set myglob(illum) *.rad
8 – set myglob(scene) *.rad
9 – set myglob(objects) *.rad
10 –
6   proc newfent f {                # add file to our list
7          global rifname radvar mybox myvar
8          set rd [file dirname $rifname]
# Line 25 | Line 20 | proc lbgetf nm {               # get list box files
20          global myglob radvar mybox myvar curpat curmess
21          set myvar $nm
22          set oldnum [llength $radvar($nm)]
23 <        if [getfile -perm -glob $myglob($nm) -view view_txt -send newfent] {
23 >        if [getfile -grab -perm -glob $myglob($nm) -view view_txt -send newfent] {
24                  set curmess "Added [expr [llength $radvar($nm)] - $oldnum] entries."
25          } elseif {[llength $radvar($nm)] > $oldnum} {
26                  set radvar($nm) [lreplace $radvar($nm) $oldnum end]
# Line 39 | Line 34 | proc lbgetf nm {               # get list box files
34  
35   proc oct_delete {} {            # delete octree file
36          global radvar curmess
37 <        if {"$radvar(OCTREE)" == {} || ! [file exists $radvar(OCTREE)]} {
37 >        if {"$radvar(OCTREE)" == {} || ! [file isfile $radvar(OCTREE)]} {
38                  set curmess {No octree file.}
39                  return
40          }
41          if [tk_dialog .dlg {Verification} \
42                          "Really delete octree file $radvar(OCTREE)?" \
43 <                        questhead 1 {Delete} {Cancel}] {
43 >                        questhead 0 {Delete} {Cancel}] {
44                  return 0
45          }
46          if [catch {exec rm $radvar(OCTREE) < /dev/null} curmess] {return 0}
# Line 56 | Line 51 | proc oct_delete {} {           # delete octree file
51   proc getdepend {} {             # get object dependencies
52          global radvar curmess mybox
53          set curmess "Please wait..."
54 <        update idletasks
54 >        update
55          foreach newf [eval exec raddepend $radvar(illum) $radvar(scene)] {
56                  if {[lsearch -exact $radvar(objects) $newf] < 0} {
57                          lappend radvar(objects) $newf
# Line 216 | Line 211 | proc do_scene w {              # Create scene screen
211          place $w.revert -relwidth .1071 -relheight .0610 -relx .98 -rely .98 \
212                          -anchor se
213          helplink $w.revert trad scene revert
214 <        button $w.copy -text Copy -relief raised -command {getfile \
214 >        button $w.copy -text Copy -relief raised -command {getfile -grab \
215                          -send copyscene -view view_txt -glob $rif_glob}
216          place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \
217                          -anchor se

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines