--- ray/src/cal/cal/blackbody.cal	2005/05/23 22:11:35	1.2
+++ ray/src/cal/cal/blackbody.cal	2005/05/23 22:13:56	1.3
@@ -1,4 +1,4 @@
-{ RCSid $Id: blackbody.cal,v 1.2 2005/05/23 22:11:35 greg Exp $ }
+{ RCSid $Id: blackbody.cal,v 1.3 2005/05/23 22:13:56 greg Exp $ }
 {
 	Plank's formula for black body radiation spectrum
 }
@@ -108,7 +108,7 @@ cct_x`p334(i):select(i,0.6527561,0.6457256,0.6387621,
 0.2529916,0.2529592,0.252927,0.2528949,0.252863,0.2528312,
 0.2527995,0.2527681,0.2527367,0.2527056,0.2526745,0.2526436,
 0.2526129,0.2525823,0.2525519,0.2525215);
-tct_x(t):interp_arr`((t-1000)/50+1,cct_x`p334);
+cct_x(t):interp_arr`((t-1000)/50+1,cct_x`p334);
 cct_y`p334(i):select(i,0.3444569,0.350601,0.3564928,
 0.3621137,0.3674494,0.3724897,0.3772277,0.3816595,0.3857839,
 0.3896022,0.3931174,0.3963348,0.3992608,0.4019032,0.404271,