Need 2d functions

Blitz3D Forums/Blitz3D Programming/Need 2d functions

Ross C. It doesn't matter if it's writePixel fast with a LockBuffer, or if it's Plot. The code is migrated into new functions here, where I use PokeByte instead.

EDIT: And the Disc :)
Graphics 800,600,0,2
SetBuffer FrontBuffer()
draw_disc(400, 300, 100, 200)
WaitKey()

Function draw_disc(midx, midy, sizex, sizey)
	Local inc# = 36.0 / Float sizex
	Local angle# = 0
	old_col_rad = 0
	While angle <= 180.99
		col_rad = sizex*Cos(angle)
		row_rad = sizey*Sin(angle)
	
		col = midx + col_rad
		row1 = midy - row_rad
		row2 = midy + row_rad
		If col_rad <> old_col_rad
			For row = row1 To row2
				Plot col,row ; replaced by a PokeByte for use with a bank
			Next
			old_col_rad = col_rad
			VWait ; just to see how it is drawn
		EndIf
		angle = angle + inc
	Wend
End Function