home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Screen_Squash_v.asc < prev    next >
Text File  |  1996-01-21  |  953b  |  53 lines
  1. ' Verticle Zoom (Squash)   
  2. ' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯  
  3. ' cODED bY ßudda/NFA 
  4. ' StARtEd : 15/10/1995 
  5. ' FiNiSHed: 15/10/1995 
  6.  
  7. Load "Scr_Man.abk"
  8.  
  9. ' --- demonstrational picture
  10. Unpack 5 To 0
  11. Screen Hide 0
  12.  
  13. ' --- save details about screen
  14. SH=Screen Height(0)
  15. SW=Screen Width(0)
  16. SC=Screen Colour
  17. SM=Screen Mode
  18.  
  19. ' --- variable variables!! try changing them 
  20. SPEED=5
  21. _SQUASH=SH/4 : Rem height of squashed picture in verticle lines   
  22.  
  23. ' --- open screen to see it all on 
  24. Screen Open 1,SW,SH,SC,SM
  25. Flash Off 
  26. Curs Off 
  27. Hide On 
  28. Get Palette 0
  29. Double Buffer 
  30. Autoback 0
  31.  
  32. ' --- actual squash code (very small?!)  
  33. For SCAN#=SH To _SQUASH Step -SPEED
  34.    
  35.    Blit Clear -1 : Rem this is quicker than CLS (113=Cls 110=Blit Clear)
  36.    
  37.    LIN#=SH/SCAN#
  38.    OFFSET=(SH/2)-((SH/LIN#)/2)
  39.    
  40.    For YYY#=0 To SH Step(LIN#*SPEED)
  41.       Screen Copy 0,0,YYY#,SW,YYY#+SPEED To 1,0,OFFSET
  42.       Add OFFSET,SPEED
  43.    Next YYY#
  44.    
  45.    Screen Swap 
  46.    Wait Vbl 
  47. Next SCAN#
  48.  
  49.  
  50.  
  51.  
  52.  
  53.