add the graphics book to the docs
This commit is contained in:
parent
cf0a8ebee0
commit
47a1d8638e
Binary file not shown.
|
@ -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
|
Binary file not shown.
After Width: | Height: | Size: 1.0 KiB |
Loading…
Reference in New Issue