Need 2d functions

Blitz3D Forums/Blitz3D Programming/Need 2d functions

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