xyzimage
#!/bin/csh -f
# SCCSid "@(#)xyzimage.csh 2.2 2/15/96 LBL"
#
# Display one or more CIE XYZE pictures using ximage
#
set popt=""
if ( $?DISPLAY_PRIMARIES ) then
set popt="-p $DISPLAY_PRIMARIES"
endif
set xiargs=""
set i=1
set firstarg=0
while ( $i <= $#argv && ! $firstarg )
@ i1= $i + 1
switch ( $argv[$i] )
case -ge*:
case -di*:
case -g:
case -c:
case -e:
if ( $i1 > $#argv ) goto notenough
set xiargs=($xiargs $argv[$i] $argv[$i1])
@ i1++
breaksw
case -d:
case -b:
case -m:
case -f:
case -s:
case =*:
case -o*:
set xiargs=($xiargs $argv[$i])
breaksw
case -p:
set popt="-p"
while ( $i1 <= $i + 8 )
if ( $i1 > $#argv ) goto notenough
set popt="$popt $argv[$i1]"
@ i1++
end
breaksw
case -*:
echo "Unknown option: $argv[$i]"
exit 1
default:
set firstarg=$i
breaksw
endsw
set i=$i1
end
set td=/usr/tmp/xyz$$
set ecode=1
onintr quit
mkdir $td
if ( ! $firstarg ) then
ra_xyze -r -u $popt > $td/stdin
if ( $status ) goto quit
else
set i=$firstarg
while ( $i <= $#argv )
ra_xyze -r -u $popt $argv[$i] $td/$argv[$i]:t
if ( $status ) goto quit
@ i++
end
endif
ximage $xiargs $td/*
set ecode=$status
quit:
rm -rf $td
exit $ecode
notenough:
echo "Missing arguments for $argv[$i] option"
exit 1
by
admin
– last modified
Nov 09, 2019 09:22 AM