1 |
< |
# SCCSid "$SunId$ LBL" |
1 |
> |
# RCSid: $Id$ |
2 |
|
# |
3 |
|
# Results screen for trad |
4 |
|
# |
34 |
|
set conv(ras-24,com) "ra_pr24 %s %s" |
35 |
|
set conv(ras-24,suf) .ras |
36 |
|
set conv(PS-bw,nam) "PostScript B&W" |
37 |
< |
set conv(PS-bw,com) "ra_ps %s %s" |
37 |
> |
set conv(PS-bw,com) "ra_ps -b -C %s %s" |
38 |
|
set conv(PS-bw,suf) .ps |
39 |
|
set conv(PS-clr,nam) "PostScript Color" |
40 |
< |
set conv(PS-clr,com) "ra_ps -c %s %s" |
40 |
> |
set conv(PS-clr,com) "ra_ps -c -C %s %s" |
41 |
|
set conv(PS-clr,suf) .ps |
42 |
|
set conv(tga-bw,nam) "Targa B&W" |
43 |
|
set conv(tga-bw,com) "ra_t8 -b %s %s" |
57 |
|
|
58 |
|
proc testappend {flst tf} { # test if tf exists and append to flst if so |
59 |
|
upvar $flst mylist |
60 |
< |
if [file exists $tf] { |
60 |
> |
if [file isfile $tf] { |
61 |
|
lappend mylist $tf |
62 |
|
} |
63 |
|
} |
67 |
|
set fpics {} |
68 |
|
set ufpics {} |
69 |
|
foreach vw $radvar(view) { |
70 |
< |
if [file exists ${rawfroot}_[lindex $vw 0].unf] { |
70 |
> |
if [file isfile ${rawfroot}_[lindex $vw 0].unf] { |
71 |
|
lappend ufpics [lindex $vw 0] |
72 |
< |
} elseif {[file exists $radvar(PICTURE)_[lindex $vw 0].pic]} { |
72 |
> |
} elseif {[file isfile $radvar(PICTURE)_[lindex $vw 0].pic]} { |
73 |
|
lappend fpics [lindex $vw 0] |
74 |
|
} |
75 |
|
} |