home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 101-125 / apd107 / wibblephoto.amos / wibblephoto.amosSourceCode < prev   
AMOS Source Code  |  1991-02-14  |  3KB  |  77 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. Screen Open 0,196,121,16,Lowres : Flash Off : Hide On 
  6. Palette 0,$111,$122,$233,$344,$455,$566,$677,$788,$899,$9AA,$ABB,$BCC,$CDD,$DEE,$EFF
  7. Cls 0
  8. Gosub SEASCAPE
  9. Curs Off 
  10. Screen Display 0,,90,, : Cls 0 : Double Buffer : Autoback 0
  11. Dim SN(45) : Degree 
  12. ' Calc Sine Values 
  13. For A=1 To 45
  14.  SN(A)=Sin(A*8)*9
  15. Next 
  16. ' Paste Photo on logical screen
  17. Paste Bob 0,3,1
  18. A=1 : X=1
  19. ' Wibble 
  20. Repeat 
  21.  Screen Copy Logic,X,1,X+2,107 To Physic,113+X,10+SN(A)
  22.   Add A,1,1 To 45
  23.   Add X,2,1 To 93
  24.  Until Mouse Key
  25. End 
  26. '
  27. '
  28. '
  29. SEASCAPE:
  30. Rem
  31. Rem  * Created with RAINBOW WARRIOR - Amos Copper Generator *
  32. Rem  *  Yup, you can blame good ol' Spadge for this one...  *
  33. Rem
  34. Set Rainbow 0,0,280,"","",""
  35. Rainbow 0,0,0,280
  36. Colour Back 0
  37. Restore RDATA
  38. For C=0 To 279 : Read CVA : Rain(0,C)=CVA
  39. Next C : View 
  40. Return 
  41. RDATA:
  42. Data $D5F,$D5F,$E5F,$E5F,$E5F,$F5F,$F5F,$F5F
  43. Data $F5F,$F6F,$F6F,$F6F,$F7F,$F7F,$F7F,$F7F
  44. Data $F7F,$F7F,$F7F,$F7E,$F7E,$F7E,$F7E,$F7E
  45. Data $F7E,$F7D,$F7D,$F7C,$F7C,$F7C,$F7B,$F7B
  46. Data $F7A,$F7A,$F7A,$F7A,$F79,$F79,$F78,$F78
  47. Data $F77,$F77,$F77,$F77,$F77,$F77,$F77,$F77
  48. Data $F77,$F77,$E77,$E77,$E77,$E77,$E77,$E77
  49. Data $D77,$D77,$D77,$D77,$D77,$D77,$D77,$C77
  50. Data $C77,$B77,$B77,$B77,$B77,$A77,$A77,$977
  51. Data $977,$977,$877,$877,$777,$777,$777,$777
  52. Data $877,$877,$977,$977,$977,$A77,$A77,$B77
  53. Data $B77,$B77,$B77,$C77,$C77,$D77,$D77,$D77
  54. Data $D77,$D77,$D77,$D77,$E77,$E77,$E77,$E77
  55. Data $E77,$E77,$F77,$F77,$F77,$F77,$F77,$F77
  56. Data $F77,$F77,$F77,$F77,$F77,$F77,$F77,$F67
  57. Data $F77,$F67,$F67,$F57,$F67,$F57,$F57,$F47
  58. Data $F47,$F47,$F47,$F47,$F47,$F37,$F37,$F37
  59. Data $F37,$F37,$F37,$F27,$F27,$F27,$F27,$F27
  60. Data $F26,$F26,$F26,$F25,$F25,$F25,$F25,$F25
  61. Data $F24,$F24,$F24,$F24,$F23,$F23,$F23,$F13
  62. Data $F13,$F13,$F13,$F13,$F13,$F13,$F13,$F13
  63. Data $F13,$E13,$D13,$D13,$D13,$D13,$C13,$C13
  64. Data $C13,$B13,$B13,$B13,$A13,$A13,$A13,$A14
  65. Data $A14,$A15,$A15,$A15,$A15,$A16,$A16,$A16
  66. Data $A16,$A17,$A17,$A17,$A17,$A17,$A17,$A17
  67. Data $A17,$917,$917,$917,$917,$817,$817,$817
  68. Data $817,$817,$717,$717,$717,$717,$717,$717
  69. Data $718,$718,$718,$719,$729,$729,$729,$729
  70. Data $739,$739,$739,$739,$749,$749,$749,$749
  71. Data $749,$759,$759,$759,$759,$759,$769,$769
  72. Data $769,$769,$768,$768,$768,$767,$767,$767
  73. Data $777,$777,$777,$777,$776,$776,$776,$776
  74. Data $786,$786,$786,$796,$7A6,$F37,$F37,$F37
  75. Data $F37,$F37,$F47,$F47,$F47,$F47,$F47,$F47
  76. Data $F57,$F57,$F67,$F57,$F67,$F67,$F77,$0
  77. Data $0,$0,$0,$0,$0,$0,$0,$0