cal/cal/illumcal.csh

#!/bin/csh -f
# RCSid: $Id$
#
# Compute color characteristics of light sources
#
# Each input file should contain evenly-spaced pairs of wavelength (nm) and
# power values (watts/nm), one per line.
#
if ( $#argv < 1 ) then
        echo Usage: $0 illum.dat ..
        exit 1
endif
set cal = .
foreach illum ($*)
set spc=(`sed -e 1d -e 's/^[    ]*\([1-9][0-9]*\)[      ].*$/\1/' -e 3q $illum`)
rcalc -f $cal/cieresp.cal -f $cal/stdrefl.cal -e "intvl=abs($spc[2]-$spc[1])" \
        -f $cal/conv1.cal $illum | total >> /tmp/il$$.dat
end
rcalc -f $cal/conv2.cal -f $cal/cct.cal -f $cal/cri.cal \
        -o $cal/illum.fmt /tmp/il$$.dat
rm -f /tmp/il$$.dat
Revision:	1.1
Committed:	Sat Feb 22 02:07:21 2003 UTC (21 years, 2 months ago) by greg
Content type:	application/x-csh
Branch:	MAIN
CVS Tags:	rad3R7P2, rad3R7P1, rad3R5, rad3R6, rad3R6P1
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	1.1	#!/bin/csh -f
2			# RCSid: $Id$
3			#
4			# Compute color characteristics of light sources
5			#
6			# Each input file should contain evenly-spaced pairs of wavelength (nm) and
7			# power values (watts/nm), one per line.
8			#
9			if ( $#argv < 1 ) then
10			echo Usage: $0 illum.dat ..
11			exit 1
12			endif
13			set cal = .
14			foreach illum ($*)
15			set spc=(`sed -e 1d -e 's/^[ ]\([1-9][0-9]\)[ ].*$/\1/' -e 3q $illum`)
16			rcalc -f $cal/cieresp.cal -f $cal/stdrefl.cal -e "intvl=abs($spc[2]-$spc[1])" \
17			-f $cal/conv1.cal $illum \| total >> /tmp/il$$.dat
18			end
19			rcalc -f $cal/conv2.cal -f $cal/cct.cal -f $cal/cri.cal \
20			-o $cal/illum.fmt /tmp/il$$.dat
21			rm -f /tmp/il$$.dat