home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / amos / lturbo / demos / new_starfield_demo.asc < prev    next >
Text File  |  1980-05-18  |  2KB  |  85 lines
  1. 'Little starfield demo...
  2. '
  3. 'These routines have their limitations...
  4. '
  5. 'The "STARS" are only drawn in the first bitplane, but it has the advantage
  6. 'that you can display BOB's on top of the "STARS" whithout having to save  
  7. 'the background of them !
  8. '
  9. 'Read the Set Bob command in the AMOS manual for better understanding of 
  10. 'this process !
  11. '
  12. 'No more than 4000 "STARS" can be defined... 
  13. '
  14. 'The amount of stars you can display on the screen in 1 VBL depends of the 
  15. 'X SPEED and Y SPEED parameters... 
  16. '
  17. 'If you only use X SPEED (so X SPEED <> 0 but Y SPEED = 0), then 670 STARS 
  18. 'are the limit.
  19. '
  20. 'If you only use Y SPEED (X SPEED = 0 but Y SPEED <> 0), then 660 STARS  
  21. 'are the limit.
  22. '
  23. 'If you use both speeds (X SPEED <> 0 AND Y SPEED <> 0), then 520 STARS
  24. 'are the limit.
  25. '
  26. 'You may define more stars but the display will flimmer... 
  27. '
  28. 'Owners of accelerator cards can display more 'STARS', this is because 
  29. 'I use the 68000 processor to display the 'STARS' !!!
  30. '
  31. 'Maybe in the future I'll make some SPRITE "STAR" routines...
  32. '
  33. Close Editor 
  34. Hide On 
  35. Screen Open 1,320,250,4,Lowres
  36. Double Buffer 
  37. Autoback 0
  38. Curs Off 
  39. Wait Vbl 
  40. Screen Open 2,320,250,4,Lowres
  41. Curs Off 
  42. Cls 0
  43. For I=1 To 31
  44.    Colour I,0
  45. Next 
  46. Colour 2,$AC
  47. Colour 3,$F00
  48. Colour 9,$FFF
  49. Wait 50
  50. Dual Playfield 2,1
  51. Dual Priority 1,2
  52. For I=1 To 16 : Print " AMOS !! STARS !! AMOS !! STARS !! AMOS " : Next 
  53. Ink 3
  54. Text 12,78,"ROUTINES FOR AMOS CODED BY ! MADMAX !"
  55. Text 30,110,"OOPS IT'S SNOWING STARS TODAY !!!"
  56. Text 30,142,"PRESS LEFT MOUSE BUTTON TO STOP !"
  57. Screen 1
  58. Reserve Stars 520
  59. For I=1 To 520
  60.    Define Star I,Rnd(319),Rnd(239),Rnd(3)+1,Rnd(2)
  61. Next 
  62. Stars Clip 0,0,319,239
  63. Multi No 
  64. Repeat 
  65.    Add COUNT,1,1 To 451
  66.    Screen Swap 
  67.    Vbl Wait 0
  68. '  Only 1 plane is cleared 
  69.    Blit Clear 1
  70.    Display Stars 
  71.    If COUNT=150
  72.       Stars Speed 1 To 200,Rnd(4)+1,Rnd(3)
  73.    Else 
  74.       If COUNT=300
  75.          Stars Speed 100 To 300,-Rnd(3),Rnd(2)+1
  76.       Else 
  77.          If COUNT=450
  78.             Stars Speed 50 To 150,-(Rnd(3)+1),-Rnd(3)
  79.          End If 
  80.       End If 
  81.    End If 
  82. Until Left Click
  83. Stars Erase 
  84. Multi Yes 
  85.