9 |
|
#include <stdlib.h> |
10 |
|
#include <string.h> |
11 |
|
#include <fcntl.h> |
12 |
+ |
#include "rtio.h" |
13 |
|
#include "platform.h" |
14 |
|
#include "resolu.h" |
15 |
|
#include "paths.h" |
134 |
|
} |
135 |
|
for (i = 0; i < rm->nrows; i++) |
136 |
|
for (j = 0; j < rm->ncols; j++) { |
137 |
< |
if (fread(val, sizeof(val[0]), rm->ncomp, fp) != rm->ncomp) |
137 |
> |
if (getbinary(val, sizeof(val[0]), rm->ncomp, fp) != rm->ncomp) |
138 |
|
return(0); |
139 |
|
for (k = rm->ncomp; k--; ) |
140 |
|
rmx_lval(rm,i,j,k) = val[k]; |
154 |
|
} |
155 |
|
for (i = 0; i < rm->nrows; i++) |
156 |
|
for (j = 0; j < rm->ncols; j++) { |
157 |
< |
if (fread(val, sizeof(val[0]), rm->ncomp, fp) != rm->ncomp) |
157 |
> |
if (getbinary(val, sizeof(val[0]), rm->ncomp, fp) != rm->ncomp) |
158 |
|
return(0); |
159 |
|
for (k = rm->ncomp; k--; ) |
160 |
|
rmx_lval(rm,i,j,k) = val[k]; |
330 |
|
for (j = 0; j < rm->ncols; j++) { |
331 |
|
for (k = rm->ncomp; k--; ) |
332 |
|
val[k] = (float)rmx_lval(rm,i,j,k); |
333 |
< |
if (fwrite(val, sizeof(val[0]), rm->ncomp, fp) != rm->ncomp) |
333 |
> |
if (putbinary(val, sizeof(val[0]), rm->ncomp, fp) != rm->ncomp) |
334 |
|
return(0); |
335 |
|
} |
336 |
|
return(1); |
350 |
|
for (j = 0; j < rm->ncols; j++) { |
351 |
|
for (k = rm->ncomp; k--; ) |
352 |
|
val[k] = rmx_lval(rm,i,j,k); |
353 |
< |
if (fwrite(val, sizeof(val[0]), rm->ncomp, fp) != rm->ncomp) |
353 |
> |
if (putbinary(val, sizeof(val[0]), rm->ncomp, fp) != rm->ncomp) |
354 |
|
return(0); |
355 |
|
} |
356 |
|
return(1); |