| 684 |
|
RAY *r |
| 685 |
|
) |
| 686 |
|
{ |
| 687 |
< |
RREAL cval[3]; |
| 688 |
< |
|
| 689 |
< |
cval[0] = colval(r->mcol,RED); |
| 690 |
< |
cval[1] = colval(r->mcol,GRN); |
| 691 |
< |
cval[2] = colval(r->mcol,BLU); |
| 692 |
< |
(*putreal)(cval, 3); |
| 687 |
> |
putscolor(r->mcol); |
| 688 |
|
} |
| 689 |
|
|
| 690 |
|
|
| 921 |
|
putd(RREAL *v, int n) /* output binary double(s) */ |
| 922 |
|
{ |
| 923 |
|
#ifdef SMLFLT |
| 924 |
< |
double da[3]; |
| 924 |
> |
double da[MAXCSAMP]; |
| 925 |
|
int i; |
| 926 |
|
|
| 927 |
< |
if (n > 3) |
| 927 |
> |
if (n > MAXCSAMP) |
| 928 |
|
error(INTERNAL, "code error in putd()"); |
| 929 |
|
for (i = n; i--; ) |
| 930 |
|
da[i] = v[i]; |
| 939 |
|
putf(RREAL *v, int n) /* output binary float(s) */ |
| 940 |
|
{ |
| 941 |
|
#ifndef SMLFLT |
| 942 |
< |
float fa[3]; |
| 942 |
> |
float fa[MAXCSAMP]; |
| 943 |
|
int i; |
| 944 |
|
|
| 945 |
< |
if (n > 3) |
| 945 |
> |
if (n > MAXCSAMP) |
| 946 |
|
error(INTERNAL, "code error in putf()"); |
| 947 |
|
for (i = n; i--; ) |
| 948 |
|
fa[i] = v[i]; |
