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 2413
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. |