10 COLOR 0,1
20 COLOR 4,7
30 COLOR 1,16
40 COLOR 2,1
50 GRAPHIC 3,1
60 XP=90:YP=45
70 XR=3.14*1.5
80 XF=XR/XP
90 ZF=XR/YP
100 FOR ZI=-YP TO YP
110 ZT=ZI*XP/YP
....
170 Y1=INT(YY-ZI+90)
180 DRAW 1,X1,170-Y1
190 DRAW 2,X1,171-Y1 TO X1,190
200 NEXT XI
210 NEXT ZI
No comments:
Post a Comment