# | 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 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |