home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd470 / neil_wright / hamsandwich.amos / hamsandwich.amosSourceCode
AMOS Source Code  |  1993-03-07  |  3KB  |  197 lines
  1. ' Multi Ham Effect Tm (4096 cycling colours GROOVY!!!!)  
  2. ' By Neil Wright (C) 1993
  3. ' Of the C.I.A 
  4. '
  5. ' Using Gary Shilvock's excellent rainbow (APD 54) 
  6. '
  7. ' *** Save Memory ***
  8. Close Editor 
  9. Close Workbench 
  10. ' *** Open a HAM Screen ***
  11. Screen Open 0,320,256,4096,Lowres
  12. Curs Off : Hide 
  13. Cls 0
  14. ' *** Turn off Auto View           *** 
  15. ' *** So that you can't            ***   
  16. ' *** See the effect being created *** 
  17. Auto View Off 
  18. ' *** Set speed off Extra-Half Bright Bars *** 
  19. CIA=1
  20. ' *** Draw a screen with each line a different colour ***
  21. For I=0 To 360 Step 1
  22.    B=(I mod 4096)
  23.    Ink B
  24.    Box 1,256-I To 320,256-I
  25. Next I
  26. ' *** Cycle palette ***
  27. Shift Down CIA,1,4095,1
  28. ' *** Activite Gary's excellent Rainbows *** 
  29. _RAINBOW
  30. Procedure _RAINBOW
  31. Set Rainbow 0,0,400,"","",""
  32. OFFSET=0
  33. A=$0
  34. For B=0 To 15
  35.    Rain(0,OFFSET)=A
  36.    Inc OFFSET
  37.    Add A,$1
  38. Next 
  39. A=$F
  40. For B=0 To 15
  41.    Rain(0,OFFSET)=A
  42.    Inc OFFSET
  43.    Add A,$100
  44. Next 
  45. A=$F0F
  46. For B=0 To 15
  47.    Rain(0,OFFSET)=A
  48.    Inc OFFSET
  49.    Add A,$10
  50. Next 
  51. A=$FFF
  52. For B=0 To 15
  53.    Rain(0,OFFSET)=A
  54.    Inc OFFSET
  55.    A=A-$1
  56. Next 
  57. A=$FF0
  58. For B=0 To 15
  59.    Rain(0,OFFSET)=A
  60.    Inc OFFSET
  61.    A=A-$10
  62. Next 
  63. A=$F00
  64. For B=0 To 15
  65.    Rain(0,OFFSET)=A
  66.    Inc OFFSET
  67.    A=A-$100
  68. Next 
  69. A=$0
  70. For B=0 To 15
  71.    Rain(0,OFFSET)=A
  72.    Inc OFFSET
  73.    Add A,$1
  74. Next 
  75. A=$F
  76. For B=0 To 15
  77.    Rain(0,OFFSET)=A
  78.    Inc OFFSET
  79.    Add A,$100
  80. Next 
  81. A=$F0F
  82. For B=0 To 15
  83.    Rain(0,OFFSET)=A
  84.    Inc OFFSET
  85.    Add A,$10
  86. Next 
  87. A=$FFF
  88. For B=0 To 15
  89.    Rain(0,OFFSET)=A
  90.    Inc OFFSET
  91.    A=A-$1
  92. Next 
  93. A=$FF0
  94. For B=0 To 15
  95.    Rain(0,OFFSET)=A
  96.    Inc OFFSET
  97.    A=A-$10
  98. Next 
  99. A=$F00
  100. For B=0 To 15
  101.    Rain(0,OFFSET)=A
  102.    Inc OFFSET
  103.    A=A-$100
  104. Next 
  105. A=$0
  106. For B=0 To 15
  107.    Rain(0,OFFSET)=A
  108.    Inc OFFSET
  109.    Add A,$1
  110. Next 
  111. A=$F
  112. For B=0 To 15
  113.    Rain(0,OFFSET)=A
  114.    Inc OFFSET
  115.    Add A,$100
  116. Next 
  117. A=$F0F
  118. For B=0 To 15
  119.    Rain(0,OFFSET)=A
  120.    Inc OFFSET
  121.    Add A,$10
  122. Next 
  123. A=$FFF
  124. For B=0 To 15
  125.    Rain(0,OFFSET)=A
  126.    Inc OFFSET
  127.    A=A-$1
  128. Next 
  129. A=$FF0
  130. For B=0 To 15
  131.    Rain(0,OFFSET)=A
  132.    Inc OFFSET
  133.    A=A-$10
  134. Next 
  135. A=$F00
  136. For B=0 To 15
  137.    Rain(0,OFFSET)=A
  138.    Inc OFFSET
  139.    A=A-$100
  140. Next 
  141. A=$0
  142. For B=0 To 15
  143.    Rain(0,OFFSET)=A
  144.    Inc OFFSET
  145.    Add A,$1
  146. Next 
  147. A=$F
  148. For B=0 To 15
  149.    Rain(0,OFFSET)=A
  150.    Inc OFFSET
  151.    Add A,$100
  152. Next 
  153. A=$F0F
  154. For B=0 To 15
  155.    Rain(0,OFFSET)=A
  156.    Inc OFFSET
  157.    Add A,$10
  158. Next 
  159. A=$FFF
  160. For B=0 To 15
  161.    Rain(0,OFFSET)=A
  162.    Inc OFFSET
  163.    A=A-$1
  164. Next 
  165. A=$FF0
  166. For B=0 To 15
  167.    Rain(0,OFFSET)=A
  168.    Inc OFFSET
  169.    A=A-$10
  170. Next 
  171. A=$F00
  172. For B=0 To 15
  173.    Rain(0,OFFSET)=A
  174.    Inc OFFSET
  175.    A=A-$100
  176. Next 
  177. Rainbow 0,40,1,300
  178. End Proc
  179. ' *** Roll those rainbows using a multi-purpose  *** 
  180. ' *** routine created for the AMOS Pro procedure *** 
  181. ' *** Competition (C) CIA                        *** 
  182. _AMAL_RAINBOW_ROLL[0,0]
  183. Procedure _AMAL_RAINBOW_ROLL[CHAN,RB]
  184.    ' *** This procedure is (C) 1993 Neil Wright *** 
  185.    ' *** Use and abuse but credit me            *** 
  186.    ' *** Assign Chosen Channel To Chosen Rainbow ***
  187.    Channel CHAN To Rainbow RB
  188.    ' *** Set up Amal Channel ************************** 
  189.    Amal CHAN,"L: For R0=0 To 192; Let X=R0 ; Next R0; Jump L"
  190.    Amal On CHAN
  191. End Proc
  192. ' *** Make effect automagicwhiztastically appear *** 
  193. View 
  194. Auto View On 
  195. ' *** Wait for ever ***
  196. Do 
  197. Loop