NAME
        WritePixelArray8 -- write the pen number value of a rectangular array
        of pixels starting at a specified x,y location and continuing
        through to another x,y location within a certain rastport. (v36)

   SYNOPSIS
        count = WritePixelArray8(rp,xstart,ystart,xstop,ystop,array,temprp)
        D0                       A0 D0:16  D1:16  D2:16 D3:16  A2   A1

        long writepixelarray8(struct  rastport *, uword, uword,
             uword, uword, ubyte *, struct  rastport *);

   FUNCTION
        For each pixel in a rectangular region, decode the pen number selector
        from a linear array of pen numbers into the bit-planes used to describe
        a particular rastport.

   INPUTS
        rp     -  pointer to a rastport structure
        (xstart,ystart) -  starting point in the rastport
        (xstop,ystop)   -  stopping point in the rastport
        array  - pointer to an array of UBYTEs from which to fetch the
                 pixel data. allocate at least
                 ((((width+15)>>4)<<4)*(ystop-ystart+1)) bytes.
        temprp - temporary rastport (copy of rp with layer set == null,
                 temporary memory allocated for
                 temprp->BitMap with Rows set == 1,
                 temprp->BitMap with BytesPerRow == (((width+15)>>4)<<1),
                 and temporary memory allocated for
                 temprp->BitMap->Planes[])

   RESULT
        count will be set to the number of pixels plotted.

   NOTE
        xstop must be >= xstart
        ystop must be >= ystart

   BUGS

   SEE ALSO
        writepixel()  graphics/rastport.h