home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 576-600 / apd593 / n_zoom_in.amos / n_zoom_in.amosSourceCode
AMOS Source Code  |  1993-03-31  |  2KB  |  71 lines
  1. '
  2. '**************************************
  3. '
  4. '               ZOOM IN
  5. '               -------
  6. '
  7. '         By Malcolm Lavery 1993 
  8. '
  9. '**************************************
  10. '
  11. '
  12. Screen Open 0,320,256,8,Lowres
  13. Curs Off : Cls 0 : Flash Off 
  14. Palette $5,$F00,,,,,,,,$0,$FFF
  15. '
  16. Screen Open 1,320,256,8,Lowres
  17. Curs Off : Cls 0 : Flash Off 
  18. Ink 10,0
  19. For T=0 To 100
  20.    Plot Rnd(320),Rnd(256)
  21. Next T
  22. Text 70,20,"POINT AND CLICK MOUSE"
  23. Text 40,240,"N_ZOOM BY MALCOLM LAVERY 1993"
  24. '
  25. Wait Vbl 
  26. Dual Playfield 0,1
  27. '
  28. Screen Open 2,320,256,4,Lowres
  29. Curs Off : Cls 0 : Flash Off 
  30. Palette $0,$FFF
  31. Screen Hide 2
  32. '
  33. '
  34. Do 
  35.    '
  36.    If Mouse Click
  37.       X=X Screen(0,X Mouse)
  38.       Y=Y Screen(0,Y Mouse)
  39.       _HOME_IN[X,Y]
  40.    End If 
  41.    '
  42. Loop 
  43. '
  44. Procedure _HOME_IN[X,Y]
  45.    '
  46.    X2=160 : Y2=128 : XSIZE1=161 : YSIZE1=129 : XSIZE2=160 : YSIZE2=128
  47.    SPEED=10
  48.    TIMES=15
  49.    Ink 1,0
  50.    '
  51.    For COUNT=0 To TIMES
  52.       If X2>X : Add X2,-SPEED : End If 
  53.       If X2<X : Add X2,SPEED : End If 
  54.       If Y2>Y : Add Y2,-SPEED : End If 
  55.       If Y2<Y : Add Y2,SPEED : End If 
  56.       If XSIZE1>40 : Add XSIZE1,-SPEED : End If 
  57.       If YSIZE1>20 : Add YSIZE1,-SPEED : End If 
  58.       If XSIZE2>40 : Add XSIZE2,-SPEED : End If 
  59.       If YSIZE2>20 : Add YSIZE2,-SPEED : End If 
  60.       Screen 2
  61.       Cls 0
  62.       Draw -1,Y2 To X2-XSIZE1,Y2
  63.       Draw X2+XSIZE2,Y2 To 321,Y2
  64.       Draw X2,-1 To X2,Y2-YSIZE1
  65.       Draw X2,Y2+YSIZE2 To X2,257
  66.       Box X2-XSIZE1,Y2-YSIZE1 To X2+XSIZE2,Y2+YSIZE2
  67.       Screen Copy 2,0,0,320,256 To 0,0,0
  68.    Next COUNT
  69.    Screen 0
  70.    '
  71. End Proc