Drawing lines of text... simpel stuff.. help

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Apollonius

Incbin "background.bmp"

SetGraphicsDriver GLMax2DDriver()
Graphics 800,600,0,60 'the 0 stands for debugging, 60 is the herts(FPS)
' -------------------------
' Variables
' -------------------------
'Local bline_y = 20
Local bline_n = 5

' -------------------------
' Load Images
' -------------------------
Local g_background:TImage = LoadImage("background.bmp") ' YOUR IMAGE GOES HERE
' -------------------------
' Create Timers
' -------------------------
Local fps:TTimer = CreateTimer(1)
Local timer:TTimer = CreateTimer(60)

Repeat
WaitTimer(fps)
	PollEvent ' check for events without halting like WaitEvent
	Cls
	
	SetBlend AlphaBlend
	SetAlpha(1)
	' Background
	DrawImage g_background,0,0
	
	' ------------------
	' Special Effect 1
	' ------------------
	SetColor(165,225,225)
	SetAlpha(0.2)
	
For Local bline_y = 20 To 140 Step 30
	For Local x = 35 To 755 Step 30
		DrawText "0", x, bline_y
	Next
Next	
	' Return to no Color or Alpha
	SetColor(255,255,255)
	SetAlpha 1
	
	Flip

Until KeyHit(key_escape)

End

remove the rather large 800x600 image.

--------
edited:
btw the one with the functions work pretty well I think Im gonna use that technique

Function drawbinary()
	For Local bline_y = 20 To 140 Step 30
		For Local x = 35 To 755 Step 30
			DrawText "0", x, bline_y
		Next
	Next
End Function

but my version lags in the main loop