--- ray/src/rt/rtmain.c	2025/06/20 03:43:17	2.60
+++ ray/src/rt/rtmain.c	2025/12/05 17:51:34	2.62
@@ -1,5 +1,5 @@
 #ifndef lint
-static const char	RCSid[] = "$Id: rtmain.c,v 2.60 2025/06/20 03:43:17 greg Exp $";
+static const char	RCSid[] = "$Id: rtmain.c,v 2.62 2025/12/05 17:51:34 greg Exp $";
 #endif
 /*
  *  rtmain.c - main for rtrace per-ray calculation program
@@ -18,9 +18,6 @@ static const char	RCSid[] = "$Id: rtmain.c,v 2.60 2025
 #include  "ambient.h"
 #include  "random.h"
 #include  "pmapray.h"
-
-extern char	*progname;		/* global argv[0] */
-
 					/* persistent processes define */
 #ifdef  F_SETLKW
 #define  PERSIST	1		/* normal persist */
@@ -304,14 +301,20 @@ main(int  argc, char  *argv[])
 			case 'S':			/* scotopic response */
 				if (argv[i][3])
 					goto badopt;
-				sens_curve = scolor_scotopic;
 				out_scalefactor = WHTSCOTOPIC;
+				sens_curve = scolor_scotopic;
 				break;
 			case 'M':			/* melanopic response */
 				if (argv[i][3])
 					goto badopt;
-				sens_curve = scolor_melanopic;
 				out_scalefactor = WHTMELANOPIC;
+				sens_curve = scolor_melanopic;
+				break;
+			case 'A':			/* radiometric average */
+				if (argv[i][3])
+					goto badopt;
+				out_scalefactor = 1;
+				sens_curve = scolor_mean;
 				break;
 			default:
 				goto badopt;