Last change
on this file since 37 was
37,
checked in by (none), 14 years ago
|
Added original make3d
|
-
Property svn:executable set to
*
|
File size:
553 bytes
|
Line | |
---|
1 | |
---|
2 | proc usage args { |
---|
3 | puts "" |
---|
4 | puts "Usage: vripslicer <vrip_file>" |
---|
5 | puts "" |
---|
6 | exit |
---|
7 | } |
---|
8 | |
---|
9 | |
---|
10 | # Print usage if necessary... |
---|
11 | if {$argc == 0 || [lindex $argv 0] == "-h"} { |
---|
12 | usage |
---|
13 | } |
---|
14 | |
---|
15 | set gridFile [lindex $argv 0] |
---|
16 | |
---|
17 | # Check for valid argument |
---|
18 | if {![file isfile $gridFile]} { |
---|
19 | puts stderr "Error: Could not open grid file: $gridFile" |
---|
20 | usage |
---|
21 | } |
---|
22 | |
---|
23 | puts -nonewline "Reading volume..." |
---|
24 | |
---|
25 | if {[file extension $gridFile] == ".flat"} { |
---|
26 | vrip_readflatgrid $gridFile |
---|
27 | } else { |
---|
28 | readgrid $gridFile |
---|
29 | } |
---|
30 | puts "done." |
---|
31 | |
---|
32 | slicer |
---|
33 | update |
---|
34 | tkwait window $slicerWin |
---|
35 | |
---|
Note: See
TracBrowser
for help on using the repository browser.