home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / apps / 6 / demos / graphi.bas < prev    next >
Encoding:
BASIC Source File  |  1985-11-19  |  768 b   |  17 lines
  1. 10    pi=3.14159
  2. 20    fullw 2:clearw 2:gotoxy 10,10:? "Color 1-3";:input c:color 1,1,c
  3. 30    inc=0:gotoxy 25,10:? "ROT (1-9),VX (0-50),VY (0-50)";:input ROT,VX,VY
  4. 40    pass=0
  5. 50    clearw 2
  6. 60    inc=inc+ROT
  7. 70    if VX=0 then NX=int(sin(inc*pi/180)*170):goto 90
  8. 80    NX=int(sin(inc*pi/180)*abs(sin(inc*VX*pi/180))*170)
  9. 90    NY=int(cos(inc*pi/180)*abs(cos(inc*VY*pi/180))*70)
  10. 100   if pass=0 then 160
  11. 110   bx=nx+303:by=ny+83
  12. 120   linef cx,cy,bx,by
  13. 130   cx=bx:cy=by
  14. 140   if NX<>0 or NY<>70 then 60
  15. 150   gotoxy 0,0:? "Again Y/N";:input ans$:if ans$="Y" or ans$="y" then 20 else end
  16. 160   cx=nx+303:cy=ny+83:linef 303,153,cx,cy:pass=1:goto 60
  17. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə