[REBOL] Re: Large Files and Binary Read
From: james:mustard at: 21-Oct-2002 9:42
Scott wrote:
> Don't feel too silly because next you will likely run into the
/direct/skip
> bug when used on local files. In fact, I thought I would already have
seen
> a complaint. Is it working?
Hi Scott,
Yeah now I found that bug.. grrrr.. it lets me get the first block of data
then repeats endlessly.
Anyone suggest a fix?
Here's my code:
;----------------------------------------------------------------
rebol []
window: layout/size [
backcolor black
at 150x50 window-data: image 500x500 edge [color: white size: 1x1] effect
[none]
] 800x600
d: #{}
offset-column: 0
offset-row: 0
data-length: 500
data-rows: 500
map-width: 21600 * 3
for y 0 (data-rows - 1) 1 [
bp: y * map-width + offset-column + 1
e: read/binary/direct/part/skip %./gameX/eastern_hemisphere3.raw
(data-length * 3) bp
append d e
]
window-data/image: do join "make image! [" [data-length "x" data-rows " " d
]
]
view window
;---------------------------------------------------------------------------