# | 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 | |
# | Line 101 | Line 100 | proc kill_batch {} { # kill batch rendering | |
100 | switch -glob [exec uname] { | |
101 | SunOS - | |
102 | ULTRIX {set ps "ps -lg"} | |
103 | < | default {set ps "ps -lu $env(USER)"} |
103 | > | default {set ps "ps -lu $env(LOGNAME)"} |
104 | } | |
105 | set fi [open "|$ps" r] | |
106 | gets $fi li |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |