Can't use Rect, sorry Panno. But, I'll probably go with something similar.
Allright, got the line drawing figured out. Not antialiased, but I don,t need that anyway. I took the Antialiased lines code and tailored it for my needs. Finally I will take the code and adapt it to work with banks.
Allright, got the line drawing figured out. Not antialiased, but I don,t need that anyway. I took the Antialiased lines code and tailored it for my needs. Finally I will take the code and adapt it to work with banks.
Graphics 320,240,32,2 For i=0 To 360 Step 5 dx = 180*Sin(i) dy = 160*Cos(i) Line2(160+dx,120+dy,160-dx,120-dy) Next WaitKey() End Function Line2(x1%, y1%, x2%, y2%) Local xd# Local yd# If (x1 > x2) Or (y1 > y2) Then tmp = x1: x1 = x2: x2 = tmp tmp = y1: y1 = y2: y2 = tmp EndIf xd = x2-x1 yd = y2-y1 If (Abs(xd) >= Abs(yd)) Then grad# = yd*65536/xd yf = y1*65536 For x=x1 To x2 y = yf Sar 16 If (x Mod 320) = Fast_ABS(x) And (y Mod 240) = Fast_ABS(y) Then Plot x ,y EndIf yf = yf + grad Next Else grad# = xd*65536/yd xf = x1*65536 For y=y1 To y2 x = xf Sar 16 If (x Mod 320) = Fast_ABS(x) And (y Mod 240) = Fast_ABS(y) Then Plot x,y EndIf xf = xf + grad Next EndIf End Function Function Fast_ABS%(value%) Return value And $7FFFFFFF End Function