--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/orig/ra_pfm.csh	Sat Apr 09 17:55:16 2011 +0100
@@ -0,0 +1,87 @@
+#!/bin/csh -f
+# RCSid $Id: ra_pfm.csh,v 2.5 2006/11/17 19:14:54 greg Exp $
+#
+# Convert to/from Poskanzer Float Map image format using pvalue
+#
+if (`uname -p` == powerpc) then
+	set machend=big
+else
+	set machend=little
+endif
+while ($#argv > 0)
+	if ("$argv[1]" == "-r") then
+		set reverse
+	else if (! $?inp) then
+		set inp="$argv[1]"
+	else if (! $?out) then
+		set out="$argv[1]"
+	else
+		goto userr
+	endif
+	shift argv
+end
+if ($?reverse) then
+	if (! $?inp) then
+		goto userr
+	endif
+	set opt=""
+	set hl="`head -3 $inp:q`"
+	if ("$hl[1]" == "Pf") then
+		set opt=($opt -b)
+	else if ("$hl[1]" != "PF") then
+		echo "Input not a Poskanzer Float Map"
+		exit 1
+	endif
+	if (`ev "if($hl[3],1,0)"`) then
+		set filend=big
+	else
+		set filend=little
+	endif
+	if ($filend != $machend) then
+		set opt=($opt -dF)
+	else
+		set opt=($opt -df)
+	endif
+	set res=($hl[2])
+	if ($?out) then
+		tail +4 $inp:q | pvalue -r -h $opt +y $res[2] +x $res[1] > $out:q
+	else
+		tail +4 $inp:q | pvalue -r -h $opt +y $res[2] +x $res[1]
+	endif
+	exit $status
+endif
+if (! $?inp) then
+	goto userr
+endif
+set res=(`getinfo -d < $inp:q`)
+if ($?out) then
+	( echo PF ; echo $res[4] $res[2] ) > $out:q
+	if ($machend == little) then
+		echo "-1.000000" >> $out:q
+	else
+		echo "1.000000" >> $out:q
+	endif
+	if ("$res[1]" == "-Y") then
+		pflip -v $inp:q | pvalue -h -H -df >> $out:q
+	else
+		pvalue -h -H -df $inp:q >> $out:q
+	endif
+else
+	echo PF
+	echo $res[4] $res[2]
+	if ($machend == little) then
+		echo "-1.000000"
+	else
+		echo "1.000000"
+	endif
+	if ("$res[1]" == "-Y") then
+		pflip -v $inp:q | pvalue -h -H -df
+	else
+		pvalue -h -H -df $inp:q
+	endif
+endif
+exit $status
+userr:
+echo "Usage: $0 input.hdr [output.pfm]"
+echo "   or: $0 -r input.pfm [output.hdr]"
+exit 1