Write the pen number value of a horizontal line of pixels starting at a specified x,y location and continuing right for count pixels.
Source position: agraphics.pas line 2423
function WritePixelLine8( |
Rp: PRastPort; |
XStart: LongWord; |
YStart: LongWord; |
Width: LongWord; |
Array_: PByte; |
TempRP: PRastPort |
):LongInt; |
Rp |
|
A pointer to a RastPort |
XStart |
|
X Start point |
YStart |
|
Line To write |
Width |
|
Count of horizontal pixels to write |
Array_ |
|
pointer to an array of Bytes from which to fetch the pixel data allocate at least (((Width + 15) shr 4) shl 4) bytes. |
TempRP |
|
temporary rastport (copy of rp with Layer set = nil, temporary memory allocated for temprp^.BitMap with Rows set = 1, temprp^.BitMap 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 horizontal region, decode the pen number selector from a linear array of pen numbers into the bit-planes used to describe a particular rastport.
|
Change the pen num of one specific pixel in a specified RastPort. |