/usr/bin/ra_pfm is in radiance 4R1+20120125-1.1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 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
|