home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 076-100 / apd077 / equalizer.amos / equalizer.amosSourceCode < prev    next >
AMOS Source Code  |  1990-11-07  |  941b  |  30 lines
  1. '  
  2. ' Simple equalizer bars, soundtracker style. By spadge.
  3. '
  4. Cls 0
  5. Music 1
  6. ST: Show On : Cls 0 : Screen Open 0,400,256,2,LORES : Cls 0 : Palette 0,$FF
  7.  C1=0 : C2=0 : C3=0 : C4=0
  8. View 
  9. Gosub RB
  10. Do 
  11. V1=Int(Vumeter(0)/2) : V2=Int(Vumeter(1)/2) : V3=Int(Vumeter(2)/2) : V4=Int(Vumeter(3)/2)
  12. If V1>C1 Then C1=V1
  13. If V1<C1 and C1>0 Then Dec C1
  14. If V2>C2 Then C2=V2
  15. If V2<C2 and C2>0 Then Dec C2
  16. If V3>C3 Then C3=V3
  17. If V3<C3 and C3>0 Then Dec C3
  18. If V4>C4 Then C4=V4
  19. If V4<C4 and C4>0 Then Dec C4
  20. Bob 1,160,180,C1 : Bob 2,170,180,C2 : Bob 3,180,180,C3 : Bob 4,190,180,C4 : Wait Vbl 
  21. Loop 
  22. RB:
  23. Rem
  24. Set Rainbow 0,1,35,"","","" : Rainbow 0,0,220,35 : Colour Back 0 : Restore RDATA7
  25. For C=0 To 34 : Read CVA : Rain(0,C)=CVA
  26. Next C : View : Return 
  27. RDATA7:
  28. Data $0,$0,$0,$544,$655,$766,$877,$988,$A99,$BAA,$CBB,$DCC,$EDD,$FED,$FEC,$FEB
  29. Data $FEA,$FE9,$FE8,$FE7,$FD6,$FC5,$FA3,$F92,$F81,$F70,$E60,$D50,$C40,$B30,$A20,$910
  30. Data $800,$700,$600,$0,$0,$0,$0,$0