add the graphics book to the docs

This commit is contained in:
Greg Gauthier 2023-07-07 16:19:52 +01:00
parent cf0a8ebee0
commit 47a1d8638e
3 changed files with 43 additions and 0 deletions

Binary file not shown.

43
HDISK/BASIC/GRTEST.BAS Normal file
View File

@ -0,0 +1,43 @@
10 DIM A(800)
20 POKE 82,0:POKE 83,39
25 REM ****************
26 REM * USE PLOT, DRAWTO,
27 REM * AND COLOR TO DRAW A
28 REM * "V" ON SCREEN
29 REM *****************
30 GRAPHICS 3
40 COLOR 1:PLOT 0,0:DRAWTO 19,19
50 COLOR 3:PLOT 39,0:DRAWTO 20,19
60 POSITION 17,10:PRINT #6;"123123"
95 REM *****************
96 REM * STORES THE COLOR VALUES
97 REM * PLOTTED EARLIER, SO WE CAN
98 REM * PRINT THEM IN GR MODE 0
99 REM *****************
100 POSITION 0,0
110 FOR I=1 TO 800
120 GET #6,X
130 A(I)=X
140 NEXT I
194 REM ************
195 REM * NOW WE CAN OUTPUT THE ARRAY
196 REM * AS VALUES, IN THE SAME
197 REM * PATTERN AS THE PLOTTED
198 REM * GRAPHICS EARLIER!
199 REM ************
200 GRAPHICS 0
210 FOR I=1 TO 800
220 PRINT A(I);
230 NEXT I
240 FOR J=1 TO 2000:NEXT J
244 REM ***************
245 REM * AND NOW WE CAN REDRAW THE
246 REM * PATTERN USING PUT INSTEAD
247 REM * OF PLOT AND DRAWTO
248 REM * (A MUCH SLOWER PROCESS!)
249 REM ***************
300 GRAPHICS 3
310 POSITION 0,0
320 FOR I=1 TO 800
330 PUT #6,A(I)
340 NEXT I

BIN
atari002.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.0 KiB