Tetris_20161215_002737.BAS.bak

'***********************************************************************************************
' To Do
'
'***********************************************************************************************


#COMPILE EXE
#DIM ALL
#INCLUDE "win32api.inc"


'***********************************************************************************************


FUNCTION PBMAIN () AS LONG
'***********************************************************************************************
' main
'***********************************************************************************************
                                                      '
	Dim janelaBloco as long
	graphic window new "Blocks v1.0 - Autor Fábio Moura", 0, 0, 400, 700 to janelaBloco
	
	local larguraTela, alturaTela as long
	' Obter tamanho:
	graphic get ppi to larguraTela, alturaTela
	
	' Anexa contexto gráfico.
	graphic attach janelaBloco, 0, redraw
	
	local linha as long
	do
		for linha = 0 to 255
			GRAPHIC line (0, linha) - (255, linha), rgb(0, 0, linha)
    next linha
		for linha = 255 to  510 
			GRAPHIC line (0, linha) - (510, linha), rgb(0, linha, 0)		
		next linha
		graphic redraw 
	loop while asc(graphic$(INKEY$)) <> 27
		
     


END FUNCTION


'***********************************************************************************************
'***********************************************************************************************
'***********************************************************************************************