--- ray/src/px/normpat.csh	2004/01/29 22:18:26	2.5
+++ ray/src/px/normpat.csh	2023/06/22 16:40:11	2.8
@@ -1,5 +1,5 @@
 #!/bin/csh -f
-# RCSid: $Id: normpat.csh,v 2.5 2004/01/29 22:18:26 greg Exp $
+# RCSid: $Id: normpat.csh,v 2.8 2023/06/22 16:40:11 greg Exp $
 #
 # Normalize a pattern for tiling (-b option blends edges) by removing
 # lowest frequencies from image (-f option) and reducing to
@@ -35,8 +35,7 @@ while ($#argv > 0)
 end
 dofiles:
 onintr quit
-set td=/usr/tmp/np$$
-mkdir $td
+set td=`mktemp -d /tmp/np.XXXXXX`
 goto skipthis
 cat > $td/coef.fmt << '_EOF_'
    rm:${  $25   };    gm:${  $26   };    bm:${  $27   };
@@ -88,7 +87,8 @@ $ha
 w
 q
 _EOF_
-	set resolu=`getinfo -d < $td/pf | sed 's/-Y \([1-9][0-9]*\) +X \([1-9][0-9]*\)/\2 \1/'`
+	set resolu=`getinfo -d < $td/pf`
+	set resolu=($resolu[4] $resolu[2])
 	if ( ! $?dofsub ) then
 		mv $td/pf $td/hf
 		goto donefsub