home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / maksiu / utils / eaissue3b.lha / Source_Code / PG_IFF_Picroll.AMOS / PG_IFF_Picroll.amosSourceCode < prev    next >
AMOS Source Code  |  1995-12-30  |  1KB  |  61 lines
  1. Proc _IFFROOL
  2. Procedure _IFFROOL
  3.    On Error Goto ER
  4.    H=10
  5.    Load Iff Fsel$("","","Select an IFF file"),0
  6.    Screen Hide 0
  7.    SM=K
  8.    Screen Open 1,Screen Width,Screen Height,Screen Colour,SM
  9.    Screen Hide 1
  10.    Curs Off 
  11.    Flash Off 
  12.    Cls 0
  13.    Get Palette 0
  14.    Screen Copy 0 To 1
  15.    Screen Open 0,Screen Width,Screen Height+1,Screen Colour,SM
  16.    Screen Hide 0
  17.    Curs Off 
  18.    Flash Off 
  19.    Cls 0
  20.    Get Palette 1
  21.    Screen Copy 1 To 0
  22.    Screen Close 1
  23.    Hide 
  24.    Screen Hide 0
  25.    Screen Open 1,Screen Width,H*2,Screen Colour,Lowres
  26.    Curs Off 
  27.    Flash Off 
  28.    Cls 0
  29.    Screen Hide 1
  30.    Screen Open 2,Screen Width,Screen Height(0)+(H*2),Screen Colour,SM
  31.    Screen Display 2,,,,Screen Height(0)
  32.    Curs Off 
  33.    Flash Off 
  34.    Get Palette 0
  35.    Cls 0
  36.    For Y=1 To Screen Height(0)-1
  37.       YY=Y
  38.       For LOP=Y To Y+H
  39.          Screen Copy 0,0,LOP+(H*4),Screen Width,(LOP+(H*4))+1 To 1,0,(LOP-YY)*2
  40.          Screen Copy 0,0,LOP+(H*4),Screen Width,(LOP+(H*4))+1 To 1,0,(LOP-YY)*2+1
  41.       Next LOP
  42.       Screen 1
  43.       Get Block 1,0,0,Screen Width,Screen Height
  44.       Screen 2
  45.       Vrev Block 1
  46.       Put Block 1,0,Y
  47.       Screen Copy 0,0,Y-H,Screen Width,Y+1 To 2,0,Y-H
  48.       Wait Vbl 
  49.    Next Y
  50.    Screen Close 0
  51.    Screen Close 1
  52.    Repeat 
  53.    Until Inkey$<>"" or Mouse Key
  54.    Screen Close 2
  55.    Direct 
  56.    ER:
  57.    Resume ER2
  58.    ER2:
  59.    Boom 
  60. End Proc
  61. Edit