' Horizontal Zoom (Stretch)  
' ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ  
' cODED bY ßudda/NFA 
' StARtEd : 15/10/1995 
' FiNiSHed: 15/10/1995 

Load "Scr_Man.abk"

' --- demonstrational picture
Unpack 5 To 0
Screen Hide 0

' --- save details about screen
SH=Screen Height(0)
SW=Screen Width(0)
SC=Screen Colour
SM=Screen Mode

' --- variable variables!! try changing them 
SPEED=5
STRETCH=SW*4 : Rem stretched to twice it's original height! 

' --- open screen to see it all on 
Screen Open 1,SW,SH,SC,SM
Flash Off 
Curs Off 
Hide On 
Get Palette 0
Double Buffer 
Autoback 0

' --- actual stretch code (very small?!) 
For SCAN#=SW To STRETCH Step SPEED
   LIN#=SW/SCAN#
   OFFSET=(SW/2)-(SW/LIN#)/2
   
   For XXX#=0 To SW Step(LIN#*SPEED)
      Screen Copy 0,XXX#,0,XXX#+SPEED,SH To 1,OFFSET,0
      Add OFFSET,SPEED
   Next XXX#
   
   Screen Swap 
   Wait Vbl 
Next SCAN#