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

Comparing ray/src/util/do_action.tcl (file contents):
Revision 2.2 by greg, Thu Oct 27 17:28:19 1994 UTC vs.
Revision 2.3 by greg, Thu Oct 27 18:08:09 1994 UTC

# Line 37 | Line 37 | proc make_oct args {           # Make octree file ($args is {-t
37                  set fi [open "|make $radvar(OCTREE) $args" r]
38                  while {[gets $fi curmess] >= 0} { update ; after 1000 }
39                  catch {close $fi} curmess
40                if {"$args" == {}} {return}
40          }
41          if {"$args" == {}} {
42                  run_rad -v 0

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines