Bitmap/Bresenham's line algorithm: Difference between revisions

m (→‎{{header|Wren}}: Changed to Wren S/H)
imported>Chinhouse
 
(4 intermediate revisions by the same user not shown)
Line 2,836:
This GUI implementation is for use with [http://miniscript.org/MiniMicro Mini Micro].
<syntaxhighlight lang="miniscript">
Img.linedrawLine = function(x1img, y1x0, x2y0, y2x1, y1, colr)
dxsign = absfunction(x2a, - x1b)
sx if =a -1< *b -(x1then <return x2)1
return -1
dy = abs(y2 - y1)
end function
sy = -1 * -(y1 < y2)
er = -dy
if dx >= dyabs(x1 then- er = dxx0)
ersx = floorsign(erx0, / 2x1)
dy = abs(y2y1 - y1y0)
sy = sign(y0, y1)
if dx > dy then
err = dx
else
er err = -dy
end if
err = floor(err / 2)
while true
selfimg.setPixel x1x0, y1y0, colr
if x1x0 == x2x1 and y1y0 == y2y1 then break
e2 = ererr
if e2 > -dx then
ererr -= er - dy
x1x0 += x1 + sx
end if
if e2 < dy then
ererr += er + dx
y1y0 += y1 + sy
end if
end while
end function
 
img= Image.create(320, 320)
drawLine img, 0, 0, 250, 300, color.red
gfx.clear
gfx.drawImage img, 0, 0
</syntaxhighlight>
 
Anonymous user