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
#	Content
1	#!/bin/csh -f
2	# RCSid: $Id$
3	#
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	set td=/usr/tmp/xyz$$
52	set ecode=1
53	onintr quit
54	mkdir $td
55	if ( ! $firstarg ) then
56	ra_xyze -r -u $popt > $td/stdin
57	if ( $status ) goto quit
58	else
59	set i=$firstarg
60	while ( $i <= $#argv )
61	ra_xyze -r -u $popt $argv[$i] $td/$argv[$i]:t
62	if ( $status ) goto quit
63	@ i++
64	end
65	endif
66	ximage $xiargs $td/*
67	set ecode=$status
68	quit:
69	rm -rf $td
70	exit $ecode
71	notenough:
72	echo "Missing arguments for $argv[$i] option"
73	exit 1