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