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