home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / quiver.amos / quiver.amosSourceCode
AMOS Source Code  |  1992-09-02  |  706b  |  57 lines
  1. ' *********************
  2. ' *** QUIVER EFFECT ***
  3. ' *********************
  4.  
  5. ' *** This Routines Makes A Sort Of Quiver Effect On A Picture.
  6.  
  7. ' *** Load Picture.
  8.  
  9. F$=Fsel$("","","LOAD IFF PICTURE")
  10. If F$<>""
  11.    Load Iff F$,0
  12. Else 
  13.    Direct 
  14. End If 
  15.  
  16. ' *** Get Picture Details. 
  17.  
  18. W=Screen Width
  19. H=Screen Height
  20. C=Screen Colour
  21. M=Screen Mode
  22.  
  23. ' *** Open Work Screen.
  24.  
  25. Screen Open 1,W,H,C,M
  26. Curs Off 
  27. Flash Off 
  28. Cls 0
  29. Get Palette 0
  30.  
  31. ' *** Set Quiver Sizes.
  32.  
  33. XQU=0
  34. YQU=1
  35.  
  36. ' *** Do Quiver Effect.
  37.  
  38. For Y=0 To H-1
  39.    For X=0 To W-1
  40.       
  41.       Screen 0
  42.       
  43.       C=Point(X,Y)
  44.       
  45.       Screen 1
  46.       
  47.       Plot X+XQU,Y+YQU,C
  48.       
  49.       XQU=-XQU
  50.       YQU=-YQU
  51.       
  52.    Next X
  53. Next Y
  54.  
  55. ' *** Quit.
  56.  
  57. Direct