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 |
# | User | Rev | Content |
---|---|---|---|
1 | greg | 1.1 | #!/bin/csh -f |
2 | greg | 1.2 | # RCSid: $Id: illumcal.csh,v 1.1 2003/02/22 02:07:21 greg Exp $ |
3 | greg | 1.1 | # |
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 | greg | 1.2 | set spc=(`sed -e 1d -e 's/^[ ]*\([1-9][.0-9]*\)[ ].*$/\1/' -e 3q $illum`) |
16 | greg | 1.1 | 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 |