src/px/xyzimage.csh

#!/bin/csh -f
# RCSid: $Id$
#
# 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
Revision:	2.3
Committed:	Sat Feb 22 02:07:28 2003 UTC (21 years, 2 months ago) by greg
Content type:	application/x-csh
Branch:	MAIN
CVS Tags:	rad3R5, rad3R6, rad3R6P1
Changes since 2.2:	+1 -1 lines
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	User	Rev	Content
1	greg	2.1	#!/bin/csh -f
2	greg	2.3	# RCSid: $Id$
3	greg	2.1	#
4			# Display one or more CIE XYZE pictures using ximage
5			#
6			set popt=""
7			if ( $?DISPLAY_PRIMARIES ) then
8			set popt="-p $DISPLAY_PRIMARIES"
9			endif
10			set xiargs=""
11			set i=1
12			set firstarg=0
13			while ( $i <= $#argv && ! $firstarg )
14			@ i1= $i + 1
15			switch ( $argv[$i] )
16			case -ge*:
17			case -di*:
18			case -g:
19			case -c:
20			case -e:
21			if ( $i1 > $#argv ) goto notenough
22			set xiargs=($xiargs $argv[$i] $argv[$i1])
23			@ i1++
24			breaksw
25			case -d:
26			case -b:
27			case -m:
28			case -f:
29			case -s:
30			case =*:
31			case -o*:
32			set xiargs=($xiargs $argv[$i])
33			breaksw
34			case -p:
35			set popt="-p"
36			while ( $i1 <= $i + 8 )
37			if ( $i1 > $#argv ) goto notenough
38			set popt="$popt $argv[$i1]"
39			@ i1++
40			end
41			breaksw
42			case -*:
43			echo "Unknown option: $argv[$i]"
44			exit 1
45			default:
46			set firstarg=$i
47			breaksw
48			endsw
49			set i=$i1
50			end
51	greg	2.2	set td=/usr/tmp/xyz$$
52			set ecode=1
53	greg	2.1	onintr quit
54	greg	2.2	mkdir $td
55	greg	2.1	if ( ! $firstarg ) then
56	greg	2.2	ra_xyze -r -u $popt > $td/stdin
57	greg	2.1	if ( $status ) goto quit
58			else
59			set i=$firstarg
60			while ( $i <= $#argv )
61	greg	2.2	ra_xyze -r -u $popt $argv[$i] $td/$argv[$i]:t
62	greg	2.1	if ( $status ) goto quit
63			@ i++
64			end
65			endif
66	greg	2.2	ximage $xiargs $td/*
67			set ecode=$status
68	greg	2.1	quit:
69	greg	2.2	rm -rf $td
70			exit $ecode
71	greg	2.1	notenough:
72			echo "Missing arguments for $argv[$i] option"
73			exit 1