home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Screen_Zoom_Out.asc < prev    next >
Text File  |  1996-01-21  |  1KB  |  70 lines
  1. ' Zoom Out   
  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=12
  21. _ZOOM=SW/50 : Rem zoomed away x50  
  22.  
  23. ' --- open temp screen to work on  
  24. Screen Open 2,SW,SH,SC,SM
  25. Flash Off 
  26. Curs Off 
  27. Screen Hide 2
  28.  
  29. ' --- open screen to see it all on 
  30. Screen Open 1,SW,SH,SC,SM
  31. Flash Off 
  32. Curs Off 
  33. Hide On 
  34. Get Palette 0
  35. Double Buffer 
  36. Autoback 0
  37.  
  38. ' --- actual stretch code (very small?!) 
  39. For SCAN#=SW To _ZOOM Step -SPEED
  40.    
  41.    Screen 2 : Blit Clear -1
  42.    
  43.    ' - horizontal calculations
  44.    LIN1#=SW/SCAN#
  45.    OFFSET1=(SW/2)-(SW/LIN1#)/2
  46.    For XXX#=0 To SW Step(LIN1#*SPEED)
  47.       Screen Copy 0,XXX#,0,XXX#+SPEED,SH To 2,OFFSET1,0
  48.       Add OFFSET1,SPEED
  49.    Next XXX#
  50.    
  51.    Screen 1 : Blit Clear -1
  52.    
  53.    ' - verticle calculations
  54.    LIN2#=SH/SCAN#
  55.    OFFSET2=(SH/2)-((SH/LIN2#)/2)
  56.    For YYY#=0 To SH Step(LIN2#*SPEED)
  57.       Screen Copy 2,0,YYY#,SW,YYY#+SPEED To 1,0,OFFSET2
  58.       Add OFFSET2,SPEED
  59.    Next YYY#
  60.    
  61.    Screen Swap 
  62.    Wait Vbl 
  63. Next SCAN#
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.