Microcomputer Graphics
myers-1982-microcomputer-graphics
myers-1982-microcomputer-graphics
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
180 <strong>Microcomputer</strong> <strong>Graphics</strong><br />
16<br />
17<br />
Figure 7 .17<br />
11<br />
14<br />
50 DATA 5 , 7 , -5<br />
60 DATA 5 I 7 I 5<br />
70<br />
DATA 5 , -7 , 5<br />
80 DATA 5 , -7 , -5<br />
90<br />
DATA -5 , 7 , -5<br />
100 DATA -5 , -7 , -5<br />
1 1 0 DATA -5 , -7 , 5<br />
1 2 0 DATA -5 , 7 , 5<br />
130 DATA 0 , 7 , 8<br />
140 DATA 0 , -7 , 8<br />
150 REM VERTICES OF OBJ ECT 2 (CHIMNEY><br />
160 DATA -2 , -7 , -5<br />
170 DATA -2 , -9 , -5<br />
180 DATA -5 , -9 , -5<br />
190 DATA -5 , -7 , -5<br />
200 DATA -2 , -7 , 9<br />
21 0 DATA -2 , -9 , 9<br />
220 DATA -5 , -9 , 9<br />
230 DATA -5 , -7 , 9<br />
240 REM FILL VERTEX ARRAYS<br />
250 DIM V(18, 3) , SV C18 , 3)<br />
260 FOR I = 1 TO 18<br />
270 READ x I y I z<br />
280 V(I, 1 ) = X:V(l, 2)<br />
= Y:V(l, 3)<br />
=<br />
z