home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / amos / lturbo / demos / starfield.asc < prev    next >
Text File  |  1980-05-18  |  798b  |  46 lines
  1. 'This is another demo to demonstrate the speed of my F Plot instruction !
  2. 'A STARFIELD DEMO..... 
  3. 'Compile it (WB option) to see the real SPEED !!!  
  4. Screen Open 1,320,256,2,Lowres
  5. Double Buffer 
  6. Autoback 0
  7. Curs Off 
  8. Palette 0,$FFF
  9. Hide On 
  10. Blit Clear -1
  11. Wait Vbl 
  12. Comp Test Off 
  13. AANTAL=100
  14. Dim SPEED(AANTAL)
  15. Dim X_AS(AANTAL)
  16. Shared AANTAL,X_AS(),SPEED()
  17. For I=1 To AANTAL
  18.    SPEED(I)=Rnd(2)+1
  19.    X_AS(I)=Rnd(310)
  20.    F Plot X_AS(I),Y,1
  21.    Add Y,2
  22. Next 
  23. Comp Test 
  24. Multi No 
  25. Repeat 
  26.    Comp Test 
  27.    SET_STARS
  28.    CLEAR_STARS
  29. Until Left Click
  30. Multi Yes 
  31. End 
  32. Procedure SET_STARS
  33.    For I=1 To AANTAL
  34.       F Plot X_AS(I),Y,1
  35.       Add Y,2
  36.    Next 
  37. End Proc
  38. Procedure CLEAR_STARS
  39.    For I=1 To AANTAL
  40.       Add X_AS(I),SPEED(I),0 To 310
  41.    Next 
  42.    Screen Swap 
  43.    Wait Vbl 
  44.    Blit Clear -1
  45. End Proc
  46.