I'm trying to turn from QBasic to TurboPascal and I'd like to do some graphics programming, but i dont know how...
Below is one short part of my QBasic program, I'd like to know - can something like this be done in Pascal also? HOW it can be done?
If it's not too much please give me some short exmple...
You can contact me using e-mail also...
My e-mail is [email protected]
Thank You very much...
'Here's an QBasic example
SCREEN 12 'puts screen to mode (640x480) x16 colors
DIM klucis(225) 'bitmap size (x*y)
FOR y = 1 TO 15 'how many rows of pixels does picture contain
FOR x = 1 TO 15 'how many columns of pixels it contain
READ klucis 'reads pixels line by line from DATA lines
PSET (x, y), klucis 'puts pixels on sscreen
GET (1, 1)-(15, 15), klucis 'puts image to memory and assigns a name
PUT (100,100),klucis, PSET 'Joy can change x,y and it puts image there
'Below is bitmap of image for reading&putting on screen