home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 67 / af067a.adf / SYSTEM.DMS / SYSTEM.adf / Examples / AMALRainbow.AMOS / AMALRainbow.amosSourceCode
AMOS Source Code  |  1994-09-08  |  1KB  |  72 lines
  1. Rem *** Animated Rainbow Effect
  2. Rem *** By Jason Holborn 
  3.  
  4. Rem *** Taken from the book 'ULTIMATE AMOS'
  5. Rem *** Available from Future Publishing on 0225 442244
  6.  
  7.  
  8. Screen Open 0,320,256,2,Lowres
  9. Flash Off : Curs Off 
  10.  
  11. Rem *** Define AMAL program... 
  12. A$="      Let R1 = 0"
  13. A$=A$+"A: Let R1 = R1 + 2"
  14. A$=A$+"   If R1 > 191 Jump B"
  15. A$=A$+"   Jump C"
  16. A$=A$+"B: Let R1 = 0"
  17. A$=A$+"   Jump C"
  18. A$=A$+"C: Let X = R1"
  19. A$=A$+"   Pause"
  20. A$=A$+"   Jump A"
  21.  
  22.  
  23. Set Rainbow 0,0,192,"","",""
  24.  
  25. Rem *** Set up copper list 
  26. COUNT=0
  27. For R=0 To 15
  28.    RGB=Val(Hex$(R)+"00")
  29.    Rain(0,COUNT)=RGB
  30.    Rain(0,COUNT+1)=RGB
  31.    COUNT=COUNT+2
  32. Next R
  33. For R=15 To 0 Step -1
  34.    RGB=Val(Hex$(R)+"00")
  35.    Rain(0,COUNT)=RGB
  36.    Rain(0,COUNT+1)=RGB
  37.    COUNT=COUNT+2
  38. Next R
  39. For G=0 To 15
  40.    RGB=Val("$0"+Right$(Hex$(G),1)+"0")
  41.    Rain(0,COUNT)=RGB
  42.    Rain(0,COUNT+1)=RGB
  43.    COUNT=COUNT+2
  44. Next G
  45. For G=15 To 0 Step -1
  46.    RGB=Val("$0"+Right$(Hex$(G),1)+"0")
  47.    Rain(0,COUNT)=RGB
  48.    Rain(0,COUNT+1)=RGB
  49.    COUNT=COUNT+2
  50. Next G
  51. For B=0 To 15
  52.    RGB=Val("$00"+Right$(Hex$(B),1))
  53.    Rain(0,COUNT)=RGB
  54.    Rain(0,COUNT+1)=RGB
  55.    COUNT=COUNT+2
  56. Next B
  57. For B=15 To 0 Step -1
  58.    RGB=Val("$00"+Right$(Hex$(B),1))
  59.    Rain(0,COUNT)=RGB
  60.    Rain(0,COUNT+1)=RGB
  61.    COUNT=COUNT+2
  62. Next B
  63.  
  64. Rem *** Turn on Rainbow effect...
  65. Rainbow 0,0,0,280
  66.  
  67. Rem *** Assign AMAL channel to Rainbow...
  68. Channel 1 To Rainbow 0
  69.  
  70. Amal 1,A$
  71. Amal On 
  72. Direct