--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/orig/illumcal.csh	Sat Apr 09 17:55:16 2011 +0100
@@ -0,0 +1,21 @@
+#!/bin/csh -f
+# RCSid: $Id: illumcal.csh,v 1.2 2006/04/05 06:22:29 greg Exp $
+#
+# Compute color characteristics of light sources
+#
+# Each input file should contain evenly-spaced pairs of wavelength (nm) and
+# power values (watts/nm), one per line.
+#
+if ( $#argv < 1 ) then
+	echo Usage: $0 illum.dat ..
+	exit 1
+endif
+set cal = .
+foreach illum ($*)
+set spc=(`sed -e 1d -e 's/^[ 	]*\([1-9][.0-9]*\)[ 	].*$/\1/' -e 3q $illum`)
+rcalc -f $cal/cieresp.cal -f $cal/stdrefl.cal -e "intvl=abs($spc[2]-$spc[1])" \
+	-f $cal/conv1.cal $illum | total >> /tmp/il$$.dat
+end
+rcalc -f $cal/conv2.cal -f $cal/cct.cal -f $cal/cri.cal \
+	-o $cal/illum.fmt /tmp/il$$.dat
+rm -f /tmp/il$$.dat