133 |
|
} |
134 |
|
|
135 |
|
|
136 |
< |
static HOLO *hout; /* output holodeck section */ |
136 |
> |
static BEAMI *beamdir; |
137 |
|
|
138 |
|
static int |
139 |
< |
xferbeam(bp, hb) /* transfer the given beam to hout and free */ |
140 |
< |
register BEAM *bp; |
141 |
< |
HDBEAMI *hb; |
139 |
> |
bpcmp(b1p, b2p) /* compare beam positions on disk */ |
140 |
> |
int *b1p, *b2p; |
141 |
|
{ |
142 |
< |
bcopy((char *)hdbray(bp), (char *)hdnewrays(hout,hb->b,bp->nrm), |
143 |
< |
bp->nrm*sizeof(RAYVAL)); |
144 |
< |
hdfreebeam(hb->h, hb->b); |
142 |
> |
register long pdif = beamdir[*b1p].fo - beamdir[*b2p].fo; |
143 |
> |
|
144 |
> |
if (pdif > 0L) return(1); |
145 |
> |
if (pdif < 0L) return(-1); |
146 |
|
return(0); |
147 |
|
} |
148 |
|
|
149 |
+ |
static HOLO *hout; |
150 |
+ |
|
151 |
+ |
static int |
152 |
+ |
xferclump(hp, bq, nb) /* transfer the given clump to hout and free */ |
153 |
+ |
HOLO *hp; |
154 |
+ |
int *bq, nb; |
155 |
+ |
{ |
156 |
+ |
register int i; |
157 |
+ |
register BEAM *bp; |
158 |
+ |
|
159 |
+ |
beamdir = hp->bi; /* sort based on file position */ |
160 |
+ |
qsort((char *)bq, nb, sizeof(*bq), bpcmp); |
161 |
+ |
/* transfer and free each beam */ |
162 |
+ |
for (i = 0; i < nb; i++) { |
163 |
+ |
bp = hdgetbeam(hp, bq[i]); |
164 |
+ |
bcopy((char *)hdbray(bp), (char *)hdnewrays(hout,bq[i],bp->nrm), |
165 |
+ |
bp->nrm*sizeof(RAYVAL)); |
166 |
+ |
hdfreebeam(hp, bq[i]); |
167 |
+ |
} |
168 |
+ |
hdflush(hout); /* write & free clump */ |
169 |
+ |
return(0); |
170 |
+ |
} |
171 |
+ |
|
172 |
|
copysect(ifd, ofd) /* copy holodeck section from ifd to ofd */ |
173 |
|
int ifd, ofd; |
174 |
|
{ |
178 |
|
/* create output section directory */ |
179 |
|
hout = hdinit(ofd, (HDGRID *)hinp); |
180 |
|
/* clump the beams */ |
181 |
< |
clumpbeams(hinp, 0, BKBSIZE*1024, xferbeam); |
181 |
> |
clumpbeams(hinp, 0, BKBSIZE*1024, xferclump); |
182 |
|
/* clean up */ |
183 |
|
hddone(hinp); |
184 |
|
hddone(hout); |