--- ray/src/cv/ies2rad.c	1993/08/23 10:22:42	2.9
+++ ray/src/cv/ies2rad.c	1994/05/23 10:45:41	2.11
@@ -40,7 +40,7 @@ static char SCCSid[] = "$SunId$ LBL";
 					/* file types */
 #define T_RAD		".rad"
 #define T_DST		".dat"
-#define T_TLT		"+.dat"
+#define T_TLT		"%.dat"
 					/* shape types */
 #define RECT		1
 #define DISK		2
@@ -660,9 +660,9 @@ makeshape(shp, width, length, height)		/* make source 
 register SHAPE	*shp;
 double	width, length, height;
 {
-	if (illumrad >= MINDIM/2.) {
+	if (illumrad/meters2out >= MINDIM/2.) {
 		shp->type = SPHERE;
-		shp->w = shp->l = shp->h = 2.*illumrad;
+		shp->w = shp->l = shp->h = 2.*illumrad / meters2out;
 	} else if (width < MINDIM) {
 		width = -width;
 		if (width < MINDIM) {