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