home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / graf / grasp.zip / ALLFADES.TXT next >
Text File  |  1986-09-11  |  2KB  |  78 lines
  1. ;      Demonstration Program to show all basic fades of GRASP.
  2.  
  3. ;           by Doug Wolfgram - Microtex Industries, Inc.
  4.  
  5. ; To run this demo, press F10. When running, to quit, press ESC.
  6.  
  7. ; The screen will clear to blue, then do each fade, full screen, 
  8. ; at what I consider to be the best speed on a PC.  To see  what
  9. ; effect the WINDOW command has  on  the  fades,  uncomment  the
  10. ; command at line 20 by removing the semi-colon and press F10 to
  11. ; run it again. 
  12.  
  13.  
  14.     video a            ; set video mode to 4 color cga
  15.     pload grasp        ; load the picture. default buffer is 1
  16.     color 1            ; set the drawing color for the boxes
  17.  
  18. ; Un-comment the next line to see effect of clip window settings
  19.  
  20.  
  21. ;       window 56,17,164,115    ; set clip window to constrain fades
  22.  
  23. Top:                ;label indicating the top of the loop
  24.     box 0,0,319,199,100    ; draw with box command to clear screen
  25.     fade 1,1,0,0        ; do the first fade
  26.     box 0,0,319,199,100    ;   etc...
  27.     fade 2,1,0,0
  28.     box 0,0,319,199,100
  29.     fade 3,1,0,0
  30.     box 0,0,319,199,100
  31.     fade 4,1,0,0
  32.     box 0,0,319,199,100
  33.     fade 5,1,0,0
  34.     box 0,0,319,199,100
  35.     fade 6,1,0,0
  36.     box 0,0,319,199,100
  37.     fade 7,1,0,0
  38.     box 0,0,319,199,100
  39.     fade 8,1,0,0
  40.     box 0,0,319,199,100
  41.     fade 9,1,50,0
  42.     box 0,0,319,199,100
  43.     fade 10,1,50,0
  44.     box 0,0,319,199,100
  45.     fade 11,1,50,0
  46.     box 0,0,319,199,100
  47.     fade 12,1,50,0
  48.     box 0,0,319,199,100
  49.     fade 13,1,50,0
  50.     box 0,0,319,199,100
  51.     fade 14,1,50,0
  52.     box 0,0,319,199,100
  53.     fade 15,1,50,0
  54.     box 0,0,319,199,100
  55.     fade 16,1,50,0
  56.     box 0,0,319,199,100
  57.     fade 17,1,50,0
  58.     box 0,0,319,199,100
  59.     fade 18,1,50,0
  60.     box 0,0,319,199,100
  61.     fade 19,1,0,0
  62.     box 0,0,319,199,100
  63.     fade 20,1,0,0
  64.     box 0,0,319,199,100
  65.     fade 21,1,0,0
  66.     box 0,0,319,199,100
  67.     fade 22,1,100,0
  68.     box 0,0,319,199,100
  69.     fade 23,1,100,0
  70.     box 0,0,319,199,100
  71.     fade 24,1,0,0
  72.     box 0,0,319,199,100
  73.     fade 25,1,0,0
  74.  
  75.     goto Top        ; loop back to label 'Top'
  76.  
  77.     exit            ; Exit program. Here for cosmetics only.
  78.