Posted By
Csabo
on 2002-05-09
|  Some graphics
I don't have the book, but I remember those graphics. I got inspired by your question, and went back to Basic for a while... Stuff like this, right? 
10 GRAPHIC 1,1
11 FOR I = 0 TO 100 STEP 5
12 COLOR 1, 3, 4
13 CIRCLE 1, 160, 100, 90, 90, , , I, 90
14 K = 160 - I * 1.6
15 COLOR 1, 2, 0
16 DRAW 1, K, 0 TO 0, I
17 DRAW 1, 319 - K, 0 TO 319, I
18 DRAW 1, 319 - K, 199 TO 319, 199 - I
19 DRAW 1, K, 199 TO 0, 199 - I
20 NEXT I
21 GETKEY A$ : GRAPHIC 0
Oh so pretty... Oh the memories
|
