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.
Source position: agraphics.pas line 2168
function WritePixelArray8( |
Rp: PRastPort; |
xStart: LongWord; |
yStart: LongWord; |
xStop: LongWord; |
yStop: LongWord; |
Array_: PByte; |
TempRp: PRastPort |
):LongInt; |
Rp |
|
A pointer to a RastPort |
xStart |
|
X Start point |
yStart |
|
Y Start point |
xStop |
|
X end point |
yStop |
|
Y end point |
Array_ |
|
a pointer to an array of Bytess from which to fetch the pixel data. Allocate at least ((((Width + 15) shr 4) shl 4) * (ystop - ystart + 1)) bytes. |
TempRp |
|
A temporary rastport (copy of rp with Layer set = nil, temporary memory allocated for temprp^.BitMap with Rows set = 1, temprp^.BitMap with BytesPerRow = (((width + 15) shr 4) shl 1), and temporary memory allocated for temprp^.BitMap^.Planes[]) |
Count will be set to the number of pixels plotted.
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. xstop must be >= xstart and ystop must be >= ystart
|
Change the pen num of one specific pixel in a specified RastPort. |