Private Sub line(BC As BitmapCreator, x1 As Int, y1 As Int, x2 As Int, y2 As Int, Color As Int)
Dim Dx,Dy,Diff As Int
Dim x,y As Float
Dx = x2 - x1
Dy = y2 - y1
Diff=Max(Abs(Dx),Abs(Dy))
For D=0 To Diff
x= x1 + Dx*D/Diff
y = y1 + Dy*D/Diff
If (x>=0 And x<BC.mWidth) And (y>=0 And y<BC.mHeight) Then BC.SetColor(x,y,Color)
Next
End Sub