home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 11 / Amoszine 11 (Disk 2 of 2).adf / Loads_Of_Source.lha / screenwipes1.amos / screenwipes1.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1980-11-12  |  3.0 KB  |  109 lines
  1. '***These are just a few of the screen wipes I have either 
  2. '***'borrowed' or written myself. The credit for the 'borrowed'
  3. '***ones should go to the programmer who coded them, not me. 
  4. '***I must have around 40 different routines by now, somewhere 
  5. '***around 15 were written by me.(the ones below were 'borrowed' 
  6. '***from the official amos demo(i think!) so credit probably goes
  7. '***to PETER HICKMAN(nice one peter!)
  8. '*slightly altered by me.(nice one me?)
  9. '***load in a screen, iff or packed then use this********  
  10. '***as the source, open a second screen as the destination***
  11. '***the remmed basic lines in each proc are for ntsc sized screens 
  12. '***hope you find them as useful as i have!
  13. '***if you have any trouble attatching them to your proggy 
  14. '***send in a letter and i will try to help. 
  15. '
  16. '****there is a demo iff screen packed in bank 14 to 
  17. '****test the routines, just 'unpack 14 to 0' to view
  18. SOURCE=1
  19. DEST=0
  20. APEAR_1[SOURCE,DEST]
  21. Procedure APEAR_1[SOURCE,DEST]
  22.    Screen To Front DEST
  23.    Screen DEST
  24.    Get Palette SOURCE
  25. '****for 200 scns
  26. '   For LOP=0 To 99 Step 2 
  27. '*for 256 screens
  28. For LOP=0 To 125 Step 2
  29.       Y=LOP*2
  30. '**** for 200 scns 
  31. '      Y2=197-(Y-1)
  32. ' for 256 scns 
  33. Y2=253-(Y-1)
  34.       Screen Copy SOURCE,0,Y,320,Y+2 To DEST,0,Y
  35.       Screen Copy SOURCE,0,Y2,320,Y2+2 To DEST,0,Y2
  36. '      PAUSE[10] 
  37. Wait 2
  38.    Next LOP
  39.    Screen SOURCE
  40. End Proc
  41. Procedure APEAR_2[SOURCE,DEST]
  42.    Screen To Front DEST
  43.    Screen DEST
  44.    Get Palette SOURCE
  45.    For LOP=0 To 159 Step 2
  46.       X=LOP*2
  47.       X2=317-(X-1)
  48. '****for 200 scns
  49. '      Screen Copy SOURCE,X,0,X+2,200 To DEST,X,0
  50. '      Screen Copy SOURCE,X2,0,X2+2,200 To DEST,X2,0 
  51. '****for 256 scns
  52.       Screen Copy SOURCE,X,0,X+2,256 To DEST,X,0
  53.       Screen Copy SOURCE,X2,0,X2+2,256 To DEST,X2,0
  54.  '     PAUSE[5] 
  55.    Next LOP
  56.    Screen SOURCE
  57. End Proc
  58. Procedure APEAR_3[SOURCE,DEST]
  59.    Screen To Front DEST
  60.    Screen DEST
  61.    Get Palette SOURCE
  62.    For LOP=0 To 319 Step 2
  63.       X=LOP
  64.       X2=318-(X-1)
  65. '******for 200 screens 
  66. '      Screen Copy SOURCE,X,0,X+1,200 To DEST,X,0
  67. '      Screen Copy SOURCE,X2,0,X2+1,200 To DEST,X2,0 
  68. '***for 256 screens
  69.       Screen Copy SOURCE,X,0,X+1,256 To DEST,X,0
  70.       Screen Copy SOURCE,X2,0,X2+1,256 To DEST,X2,0
  71.    Next LOP
  72.    Screen SOURCE
  73. End Proc
  74. Procedure APEAR_4[SOURCE,DEST]
  75.    Screen To Front DEST
  76.    Screen DEST
  77.    Get Palette SOURCE
  78. ' ****for 200 screens
  79. '   For X=0 To 39
  80. '****for 256 screens 
  81. For X=0 To 43
  82.       For Y=0 To X
  83.          Screen Copy SOURCE,(X-Y)*16,Y*10,(X-Y+1)*16,(Y+1)*10 To DEST,(X-Y)*16,Y*10
  84.       Next Y
  85.    Next X
  86.    Screen SOURCE
  87. End Proc
  88. Procedure APEAR_5[SOURCE,DEST]
  89.    Screen To Front DEST
  90.    Screen DEST
  91.    Get Palette SOURCE
  92.    XAXIS=20
  93. '***for 200 screens
  94. ' YAXIS=20 
  95. '****for 256 screens 
  96.    YAXIS=26
  97.    XMID=10
  98.    YMID=10
  99.    For Y=0 To YAXIS
  100.       C=Y
  101.       For X=XMID To 0 Step -1
  102.          If C>0
  103.             Screen Copy SOURCE,X*16,(YMID-C)*10,(XAXIS-X)*16,(YMID+C)*10 To DEST,X*16,(YMID-C)*10
  104.          End If 
  105.          Dec C
  106.       Next X
  107.    Next Y
  108.    Screen SOURCE
  109. End Proc