| # | 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 |