23 static const real64 kTintScale = -3000.0;
31 	real64 r;
32 	real64 u;
33 	real64 v;
34 	real64 t;
79 	real64 u = 2.0 * xy.x / (1.5 - xy.x + 6.0 * xy.y);  in Set_xy_coord()
80 	real64 v = 3.0 * xy.y / (1.5 - xy.x + 6.0 * xy.y);  in Set_xy_coord()
84 	real64 last_dt = 0.0;  in Set_xy_coord()
86 	real64 last_dv = 0.0;  in Set_xy_coord()
87 	real64 last_du = 0.0;  in Set_xy_coord()
94 		real64 du = 1.0;  in Set_xy_coord()
95 		real64 dv = kTempTable [index] . t;  in Set_xy_coord()
97 		real64 len = sqrt (1.0 + dv * dv);  in Set_xy_coord()
104 		real64 uu = u - kTempTable [index] . u;  in Set_xy_coord()
105 		real64 vv = v - kTempTable [index] . v;  in Set_xy_coord()
109 		real64 dt = - uu * dv + vv * du;  in Set_xy_coord()
123 			real64 f;  in Set_xy_coord()
185 	real64 r = 1.0E6 / fTemperature;  in Get_xy_coord()
189 	real64 offset = fTint * (1.0 / kTintScale);  in Get_xy_coord()
201 			real64 f = (kTempTable [index + 1] . r - r) /  in Get_xy_coord()
206 			real64 u = kTempTable [index    ] . u * f +  in Get_xy_coord()
209 			real64 v = kTempTable [index    ] . v * f +  in Get_xy_coord()
214 			real64 uu1 = 1.0;  in Get_xy_coord()
215 			real64 vv1 = kTempTable [index] . t;  in Get_xy_coord()
217 			real64 uu2 = 1.0;  in Get_xy_coord()
218 			real64 vv2 = kTempTable [index + 1] . t;  in Get_xy_coord()
220 			real64 len1 = sqrt (1.0 + vv1 * vv1);  in Get_xy_coord()
221 			real64 len2 = sqrt (1.0 + vv2 * vv2);  in Get_xy_coord()
231 			real64 uu3 = uu1 * f + uu2 * (1.0 - f);  in Get_xy_coord()
232 			real64 vv3 = vv1 * f + vv2 * (1.0 - f);  in Get_xy_coord()
234 			real64 len3 = sqrt (uu3 * uu3 + vv3 * vv3);  in Get_xy_coord()