| 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 |