aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Task/Bitmap-Bresenhams-line-algorithm/M2000-Interpreter/bitmap-bresenhams-line-algorithm.m2000 Normal file
View file

@ -0,0 +1,20 @@
' using Twips
' twipsX is 15 twips. So for 96 dpi, we have 1440/96=15 twips/pixel
Module Bresenham_s_line_algorithm {
Module Br_line(x0 As Long, y0 As Long, x1 As Long, y1 As Long, Col=15) {
Long dx = Abs(x1 - x0), dy = Abs(y1 - y0)
Long sx = If(x0 < x1-> TWIPSX, -TWIPSX)
Long sy = If(y0 < y1-> TWIPSY, -TWIPSY)
Long er = If(dx > dy-> dx, -dy) div 2, e2
Do
PSet col, x0, y0
If abs(x0-x1)<=TWIPSX And abs(y0-y1)<=TWIPSY Then Exit
e2 = er
If e2 > -dx Then Er -= dy : x0 += sx
If e2 < dy Then Er += dx : y0 += sy
Always
}
cls ,0
Br_line scale.x*.2, scale.y*.2, scale.x*.8, scale.y*.8 , #FFbb77
}
Bresenham_s_line_algorithm