--- ray/src/util/do_results3.6.tcl	1995/09/28 14:11:53	2.9
+++ ray/src/util/do_results3.6.tcl	2003/02/22 02:07:30	2.12
@@ -1,4 +1,4 @@
-# SCCSid "$SunId$ LBL"
+# RCSid: $Id: do_results3.6.tcl,v 2.12 2003/02/22 02:07:30 greg Exp $
 #
 # Results screen for trad
 #
@@ -34,10 +34,10 @@ set conv(ras-24,nam)	"Sun 24-bit"
 set conv(ras-24,com)	"ra_pr24 %s %s"
 set conv(ras-24,suf)	.ras
 set conv(PS-bw,nam)	"PostScript B&W"
-set conv(PS-bw,com)	"ra_ps %s %s"
+set conv(PS-bw,com)	"ra_ps -b -C %s %s"
 set conv(PS-bw,suf)	.ps
 set conv(PS-clr,nam)	"PostScript Color"
-set conv(PS-clr,com)	"ra_ps -c %s %s"
+set conv(PS-clr,com)	"ra_ps -c -C %s %s"
 set conv(PS-clr,suf)	.ps
 set conv(tga-bw,nam)	"Targa B&W"
 set conv(tga-bw,com)	"ra_t8 -b %s %s"
@@ -57,7 +57,7 @@ set conv(typ) tga-24
 
 proc testappend {flst tf} {	# test if tf exists and append to flst if so
 	upvar $flst mylist
-	if [file exists $tf] {
+	if [file isfile $tf] {
 		lappend mylist $tf
 	}
 }
@@ -67,9 +67,9 @@ proc list_views {} {		# List finished and unfinished p
 	set fpics {}
 	set ufpics {}
 	foreach vw $radvar(view) {
-		if [file exists ${rawfroot}_[lindex $vw 0].unf] {
+		if [file isfile ${rawfroot}_[lindex $vw 0].unf] {
 			lappend ufpics [lindex $vw 0]
-		} elseif {[file exists $radvar(PICTURE)_[lindex $vw 0].pic]} {
+		} elseif {[file isfile $radvar(PICTURE)_[lindex $vw 0].pic]} {
 			lappend fpics [lindex $vw 0]
 		}
 	}