home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / fade_in_picture.amos / fade_in_picture.amosSourceCode
AMOS Source Code  |  1993-01-08  |  700b  |  20 lines
  1. 'This Proc Will fade in any picture
  2. '
  3. 'File$ is the name of your file  
  4. 'C0lours is the number of colours in your picture
  5. 'Speed is the speed you wish your picture to be faded in 
  6. ' (The Higher the number the slower it fades in) 
  7. '
  8. 'Eg. 
  9. ' _FADE_IN["Amos_Data:Iff/Amospic.iff",32,8] 
  10. '
  11. Procedure _FADE_IN[FILE$,C0LOURS,SPEED]
  12.    ' Proc Written by Brett George 
  13.    Screen Open 0,320,256,C0LOURS,Lowres : Flash Off : Cls 0 : Hide On 
  14.    Screen Open 1,320,256,C0LOURS,Lowres : Flash Off : Cls 0
  15.    Auto View Off : Load Iff FILE$,0
  16.    Screen 1 : Get Palette(0) : Screen 0
  17.    For Z=0 To C0LOURS-1 : Colour Z,0 : Next 
  18.    Screen To Front 0 : Auto View On : View 
  19.    Fade SPEED To 1 : Wait SPEED*15
  20. End Proc