home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Screen_Stretch_h.asc < prev    next >
Text File  |  1996-01-21  |  868b  |  51 lines
  1. ' Horizontal Zoom (Stretch)  
  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. STRETCH=SW*4 : Rem stretched to twice it's original height! 
  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 STRETCH Step SPEED
  34.    LIN#=SW/SCAN#
  35.    OFFSET=(SW/2)-(SW/LIN#)/2
  36.    
  37.    For XXX#=0 To SW Step(LIN#*SPEED)
  38.       Screen Copy 0,XXX#,0,XXX#+SPEED,SH To 1,OFFSET,0
  39.       Add OFFSET,SPEED
  40.    Next XXX#
  41.    
  42.    Screen Swap 
  43.    Wait Vbl 
  44. Next SCAN#
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.