home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Screen_Squash_h.asc < prev    next >
Text File  |  1996-01-21  |  895b  |  53 lines
  1. ' Horizontal 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=SW/4 : Rem squashed to a quarter it's original width! 
  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 stretch code (very small?!) 
  33. For SCAN#=SW To _SQUASH Step -SPEED
  34.    
  35.    Blit Clear -1
  36.    
  37.    LIN#=SW/SCAN#
  38.    OFFSET=(SW/2)-(SW/LIN#)/2
  39.    
  40.    For XXX#=0 To SW Step(LIN#*SPEED)
  41.       Screen Copy 0,XXX#,0,XXX#+SPEED,SH To 1,OFFSET,0
  42.       Add OFFSET,SPEED
  43.    Next XXX#
  44.    
  45.    Screen Swap 
  46.    Wait Vbl 
  47. Next SCAN#
  48.  
  49.  
  50.  
  51.  
  52.  
  53.