| 5 |
|
* Copy data into a holodeck file |
| 6 |
|
*/ |
| 7 |
|
|
| 8 |
+ |
#include "platform.h" |
| 9 |
|
#include "holo.h" |
| 10 |
|
#include "view.h" |
| 11 |
|
|
| 92 |
|
if (!strncmp(s, "OBSTRUCTIONS=", 13)) { |
| 93 |
|
s += 13; |
| 94 |
|
while (*s == ' ') s++; |
| 95 |
< |
if (*s == 't' | *s == 'T') |
| 95 |
> |
if ((*s == 't') | (*s == 'T')) |
| 96 |
|
*hf |= H_OBST; |
| 97 |
< |
else if (*s == 'f' | *s == 'F') |
| 97 |
> |
else if ((*s == 'f') | (*s == 'F')) |
| 98 |
|
*hf |= H_OBSF; |
| 99 |
|
else |
| 100 |
|
error(WARNING, "bad OBSTRUCTIONS value in holodeck"); |
| 108 |
|
char *fname; |
| 109 |
|
int append; |
| 110 |
|
{ |
| 110 |
– |
extern long ftell(); |
| 111 |
|
FILE *fp; |
| 112 |
|
int fd; |
| 113 |
|
int hflags = 0; |
| 129 |
|
nextloc = ftell(fp); /* get stdio position */ |
| 130 |
|
fclose(fp); /* done with stdio */ |
| 131 |
|
for (n = 0; nextloc > 0L; n++) { /* initialize each section */ |
| 132 |
< |
lseek(fd, (off_t)nextloc, 0); |
| 132 |
> |
lseek(fd, (off_t)nextloc, SEEK_SET); |
| 133 |
|
read(fd, (char *)&nextloc, sizeof(nextloc)); |
| 134 |
|
hdinit(fd, NULL)->priv = hflags&H_OBST ? &obstr : |
| 135 |
|
hflags&H_OBSF ? &unobstr : (char *)NULL; |
| 195 |
|
bpcmp(b1p, b2p) /* compare beam positions on disk */ |
| 196 |
|
int *b1p, *b2p; |
| 197 |
|
{ |
| 198 |
< |
register long pdif = beamdir[*b1p].fo - beamdir[*b2p].fo; |
| 198 |
> |
register off_t pdif = beamdir[*b1p].fo - beamdir[*b2p].fo; |
| 199 |
|
|
| 200 |
|
if (pdif > 0L) return(1); |
| 201 |
|
if (pdif < 0L) return(-1); |
| 299 |
|
int eshft; |
| 300 |
|
double emult; |
| 301 |
|
RESOLU prs; |
| 302 |
< |
FLOAT vl[2]; |
| 302 |
> |
RREAL vl[2]; |
| 303 |
|
FVECT ro, rd; |
| 304 |
|
double aftd; |
| 305 |
|
COLOR ctmp; |
| 315 |
|
error(SYSTEM, pcf); |
| 316 |
|
} |
| 317 |
|
/* load picture header */ |
| 318 |
< |
copystruct(&phd.vw, &stdview); |
| 318 |
> |
phd.vw = stdview; |
| 319 |
|
phd.expos = 1.0; |
| 320 |
|
phd.badfmt = phd.gotview = phd.altprims = 0; |
| 321 |
|
if (getheader(pfp, picheadline, (char *)&phd) < 0 || |
| 334 |
|
error(WARNING, errmsg); |
| 335 |
|
} |
| 336 |
|
/* figure out what to do about exposure */ |
| 337 |
< |
if (phd.expos < 0.99 | phd.expos > 1.01) { |
| 337 |
> |
if ((phd.expos < 0.99) | (phd.expos > 1.01)) { |
| 338 |
|
emult = -log(phd.expos)/log(2.); |
| 339 |
|
eshft = emult >= 0. ? emult+.5 : emult-.5; |
| 340 |
|
emult -= (double)eshft; |
| 341 |
< |
if (emult <= 0.01 & emult >= -0.01) |
| 341 |
> |
if ((emult <= 0.01) & (emult >= -0.01)) |
| 342 |
|
emult = -1.; |
| 343 |
|
else { |
| 344 |
|
emult = 1./phd.expos; |
| 351 |
|
/* allocate buffers */ |
| 352 |
|
cscn = (COLR *)malloc(scanlen(&prs)*sizeof(COLR)); |
| 353 |
|
zscn = (float *)malloc(scanlen(&prs)*sizeof(float)); |
| 354 |
< |
if (cscn == NULL | zscn == NULL) |
| 354 |
> |
if ((cscn == NULL) | (zscn == NULL)) |
| 355 |
|
error(SYSTEM, "out of memory in addpicz"); |
| 356 |
|
/* read and process each scanline */ |
| 357 |
|
for (j = 0; j < numscans(&prs); j++) { |