410 |
|
} |
411 |
|
break; |
412 |
|
case 'f': /* binary float */ |
413 |
< |
if (fread((char *)vf, sizeof(float), 3, fp) != 3) |
413 |
> |
if (getbinary(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(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); |
720 |
|
error(INTERNAL, "code error in putd()"); |
721 |
|
for (i = n; i--; ) |
722 |
|
da[i] = v[i]; |
723 |
< |
fwrite(da, sizeof(double), n, stdout); |
723 |
> |
putbinary(da, sizeof(double), n, stdout); |
724 |
|
#else |
725 |
< |
fwrite(v, sizeof(RREAL), n, stdout); |
725 |
> |
putbinary(v, sizeof(RREAL), n, stdout); |
726 |
|
#endif |
727 |
|
} |
728 |
|
|
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 |
< |
fwrite(v, sizeof(RREAL), n, stdout); |
743 |
> |
putbinary(v, sizeof(RREAL), n, stdout); |
744 |
|
#endif |
745 |
|
} |