Revision: | 1.2 |
Committed: | Wed Apr 5 06:22:29 2006 UTC (18 years, 1 month ago) by greg |
Content type: | application/x-csh |
Branch: | MAIN |
CVS Tags: | rad5R4, rad5R2, rad4R2P2, rad5R0, rad5R1, rad4R2, rad4R1, rad4R0, rad3R8, rad3R9, rad4R2P1, rad5R3, HEAD |
Changes since 1.1: | +2 -2 lines |
Log Message: | Minor fix to allow fractional wavelength values |
# | Content |
---|---|
1 | #!/bin/csh -f |
2 | # RCSid: $Id: illumcal.csh,v 1.1 2003/02/22 02:07:21 greg Exp $ |
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 |