ref: ef6ce918c04fc82bea759fd843cc09e273ec9f6c
dir: /libdraw/unloadimage.c/
#include "lib9.h" #include "draw.h" #include "kernel.h" #include "interp.h" int unloadimage(Image *i, Rectangle r, uchar *data, int ndata) { int bpl, n, ntot, dy; uchar *a; Display *d; if(!rectinrect(r, i->r)){ kwerrstr("unloadimage: bad rectangle"); return -1; } bpl = bytesperline(r, i->depth); if(ndata < bpl*Dy(r)){ kwerrstr("unloadimage: buffer too small"); return -1; } d = i->display; flushimage(d, 0); /* make sure subsequent flush is for us only */ ntot = 0; while(r.min.y < r.max.y){ a = bufimage(d, 1+4+4*4); if(a == 0){ kwerrstr("unloadimage: %r"); return -1; } dy = 8000/bpl; if(dy <= 0){ kwerrstr("unloadimage: image too wide"); return -1; } if(dy > Dy(r)) dy = Dy(r); a[0] = 'r'; BPLONG(a+1, i->id); BPLONG(a+5, r.min.x); BPLONG(a+9, r.min.y); BPLONG(a+13, r.max.x); BPLONG(a+17, r.min.y+dy); if(flushimage(d, 0) < 0) return -1; if(d->local == 0) release(); n = kchanio(d->datachan, data+ntot, ndata-ntot, OREAD); if(d->local == 0) acquire(); if(n < 0) return n; ntot += n; r.min.y += dy; } return ntot; }