home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 101-125 / apd107 / wibblelogo.amos / wibblelogo.amosSourceCode < prev   
AMOS Source Code  |  1978-01-16  |  2KB  |  81 lines
  1. ' Simple Sinewave : Feb 91 By D. Ramsey
  2. ' 2, The Paddocks, Haddenham, Aylesbury, Bucks. HP17 8AG.
  3. '
  4. ' Set Up Small Screen etc. 
  5. Music 1 : Gosub SEASCAPE
  6. Screen Open 0,320,68,4,Lowres : Curs Off : Palette 0,$CDF,$60,$C00
  7. Screen Display 0,,100,, : Cls 0 : Flash Off : Hide On : Double Buffer : Autoback 0
  8. Dim SN(45) : Degree 
  9. ' Calc Sine Values 
  10. For A=1 To 45
  11.  SN(A)=Sin(A*8)*9
  12. Next 
  13. ' Draw Logo On Logical Screen
  14. Locate 2,1 : Pen 3 : Print "  Pixel  "
  15. Locate 2,2 : Print "Precision"
  16. Box 11,4 To 91,27 : Ink 1, : Paint 15,6
  17. A=1 : X=1
  18. ' Wibble 
  19. Repeat 
  20.  Screen Copy Logic,X,1,X+2,31 To Physic,X+110,30+SN(A)
  21.   Add A,1,1 To 45
  22.   Add X,2,1 To 93
  23.  Until Mouse Key
  24. Music Off : End 
  25. '
  26. '
  27. '
  28. SEASCAPE:
  29. Rem
  30. Rem  * Created with RAINBOW WARRIOR - Amos Copper Generator *
  31. Rem  *  Yup, you can blame good ol' Spadge for this one...  *
  32. Rem
  33. Set Rainbow 0,0,280,"","",""
  34. Rainbow 0,0,0,280
  35. Colour Back 175
  36. Restore RDATA
  37. For C=0 To 279 : Read CVA : Rain(0,C)=CVA
  38. Next C : View 
  39. Return 
  40. RDATA:
  41. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  42. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  43. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  44. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  45. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  46. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  47. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  48. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  49. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  50. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  51. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  52. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$1BF
  53. Data $2CF,$3DF,$4EF,$5EF,$7EF,$8EF,$AEF,$9EF
  54. Data $AF,$11F,$11F,$11F,$11F,$11F,$11F,$11F
  55. Data $11F,$E,$F,$E,$F,$E,$E,$E
  56. Data $E,$D,$E,$D,$E,$D,$D,$D
  57. Data $D,$C,$D,$C,$D,$C,$C,$C
  58. Data $C,$B,$B,$C,$B,$C,$B,$B
  59. Data $B,$A,$B,$A,$B,$A,$A,$A
  60. Data $A,$9,$9,$A,$9,$A,$9,$9
  61. Data $9,$8,$9,$8,$8,$9,$8,$8
  62. Data $8,$7,$8,$7,$8,$7,$7,$7
  63. Data $7,$6,$7,$6,$7,$6,$6,$6
  64. Data $6,$5,$6,$5,$5,$6,$5,$5
  65. Data $5,$4,$4,$5,$4,$5,$4,$4
  66. Data $4,$3,$3,$4,$3,$3,$4,$3
  67. Data $3,$2,$2,$3,$2,$2,$3,$2
  68. Data $2,$1,$2,$2,$2,$2,$2,$2
  69. Data $2,$2,$2,$2,$2,$2,$2,$2
  70. Data $2,$2,$2,$1,$1,$1,$1,$1
  71. Data $1,$1,$1,$1,$1,$1,$1,$1
  72. Data $1,$1,$1,$1,$1,$1,$1,$1
  73. Data $1,$1,$1,$1,$1,$1,$0,$0
  74. Data $0,$0,$0,$0,$0,$0,$0,$0
  75. Data $0,$0,$0,$0,$0,$0,$0,$0
  76. Data $0,$0,$0,$0,$0,$0,$0,$0
  77. Rem
  78. Rem  * Alter the values in the RAINBOW and SET RAINBOW * 
  79. Rem  * to position and control the rainbows. See the   * 
  80. Rem  * manual to check on Y positioning, Length and    * 
  81. Rem  * which colour it is to effect.. Have fun!        *