home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 576-600 / apd593 / o_lens_effect_three.amos / o_lens_effect_three.amosSourceCode
AMOS Source Code  |  1986-08-03  |  854b  |  55 lines
  1. '
  2. '********************************
  3. '
  4. '         LENS EFFECT. 
  5. '         RIPPLE TWO 
  6. '         ------------ 
  7. '
  8. '     By Malcolm Lavery 1993   
  9. '
  10. '********************************
  11. '
  12. Load ":PIX/SNOW_MAN.abk",10
  13. Unpack 10 To 0
  14. GRA=Screen Colour
  15. Double Buffer 
  16. '
  17. Screen Open 1,320,100,GRA,Lowres
  18. Get Palette 0
  19. Flash Off 
  20. Hide On 
  21. Cls 0
  22. '
  23. Screen Hide 1
  24. '
  25. XSIZE=60
  26. YSIZE=60
  27. '
  28. Do 
  29.    '
  30.    X=X Screen(X Mouse)
  31.    Y=Y Screen(Y Mouse)
  32.    Screen 1
  33.    Wait Vbl 
  34.    Bob Clear 
  35.    Screen Copy 0,X,Y,X+XSIZE,Y+YSIZE To 1,0,0
  36.    Bob Draw 
  37.    '  
  38.    For XP=0 To XSIZE
  39.       Screen Copy 1,XP,0,XP+1,YSIZE To 1,100+XP,YP
  40.       If YP=3
  41.          DY=-1
  42.       End If 
  43.       If YP=0
  44.          DY=1
  45.       End If 
  46.       Add YP,DY
  47.    Next XP
  48.    '
  49.    Box 100,0 To 99+XSIZE+INL,YSIZE+INL-1
  50.    Get Bob 1,100,0 To 100+XSIZE+INL,YSIZE+INL
  51.    Screen 0
  52.    Bob 1,X,Y,1
  53.    Wait Vbl 
  54.    '
  55. Loop