| 410 |
|
} |
| 411 |
|
break; |
| 412 |
|
case 'f': /* binary float */ |
| 413 |
< |
if (fread((char *)vf, sizeof(float), 3, fp) != 3) |
| 413 |
> |
if (getbinary((char *)vf, sizeof(float), 3, fp) != 3) |
| 414 |
|
return(-1); |
| 415 |
|
VCOPY(vec, vf); |
| 416 |
|
break; |
| 417 |
|
case 'd': /* binary double */ |
| 418 |
< |
if (fread((char *)vd, sizeof(double), 3, fp) != 3) |
| 418 |
> |
if (getbinary((char *)vd, sizeof(double), 3, fp) != 3) |
| 419 |
|
return(-1); |
| 420 |
|
VCOPY(vec, vd); |
| 421 |
|
break; |
| 519 |
|
setcolr(cout, colval(r->rcol,RED), |
| 520 |
|
colval(r->rcol,GRN), |
| 521 |
|
colval(r->rcol,BLU)); |
| 522 |
< |
fwrite(cout, sizeof(cout), 1, stdout); |
| 522 |
> |
putbinary(cout, sizeof(cout), 1, stdout); |
| 523 |
|
return; |
| 524 |
|
} |
| 525 |
|
cval[0] = colval(r->rcol,RED); |
| 712 |
|
static void |
| 713 |
|
putd(RREAL *v, int n) /* print binary double(s) */ |
| 714 |
|
{ |
| 715 |
< |
if (sizeof(RREAL) != sizeof(double)) |
| 715 |
> |
#ifdef SMLFLT |
| 716 |
> |
double da[3]; |
| 717 |
> |
int i; |
| 718 |
> |
|
| 719 |
> |
if (n > 3) |
| 720 |
|
error(INTERNAL, "code error in putd()"); |
| 721 |
< |
fwrite(v, sizeof(RREAL), n, stdout); |
| 721 |
> |
for (i = n; i--; ) |
| 722 |
> |
da[i] = v[i]; |
| 723 |
> |
putbinary(da, sizeof(double), n, stdout); |
| 724 |
> |
#else |
| 725 |
> |
putbinary(v, sizeof(RREAL), n, stdout); |
| 726 |
> |
#endif |
| 727 |
|
} |
| 728 |
|
|
| 729 |
|
|
| 730 |
|
static void |
| 731 |
|
putf(RREAL *v, int n) /* print binary float(s) */ |
| 732 |
|
{ |
| 733 |
+ |
#ifndef SMLFLT |
| 734 |
|
float fa[3]; |
| 735 |
|
int i; |
| 736 |
|
|
| 738 |
|
error(INTERNAL, "code error in putf()"); |
| 739 |
|
for (i = n; i--; ) |
| 740 |
|
fa[i] = v[i]; |
| 741 |
< |
fwrite(fa, sizeof(float), n, stdout); |
| 741 |
> |
putbinary(fa, sizeof(float), n, stdout); |
| 742 |
> |
#else |
| 743 |
> |
putbinary(v, sizeof(RREAL), n, stdout); |
| 744 |
> |
#endif |
| 745 |
|
} |