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 2106
function WritePixelArray8( |
Rp: PRastPort; |
XStart: LongWord; |
YStart: LongWord; |
XStop: LongWord; |
YStop: LongWord; |
Array1: 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 |
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. |