home *** CD-ROM | disk | FTP | other *** search
/ World of Graphics / WOGRAPH.BIN / 269.GIFV.SLG < prev    next >
Text File  |  1993-02-17  |  1KB  |  44 lines
  1. ;
  2. ; GIFV.SLG
  3. ; This script shows how to use the color altering effects.
  4. ; F:\CINDY8.GIF is loaded and then the red level is increased 25 times
  5. ; Then the Green level is increased 25 times.
  6. ; Then the Blue level is increased 25 times.
  7. ; Then the colors are reset to normal.
  8. ; By the way, this script also shows you how to use variables
  9. ; At the end the picture is held for 5 seconds, then a DIR of the drive C:\
  10. ; is done with the SYSTEM command. Then a SHELL to DOS is performed.
  11. : NOTE: The TEXT command was used so that you could see what the DIR of Drive
  12. ;       C:\ looks like. If you keep the screen in graphics mode and do a DOS
  13. ;       command that prints to your screen, you might NOT like the appearance.
  14. ;
  15.         set v1 1
  16.         load f:\cindy8.gif
  17. :loop1
  18.         more-red
  19.         set v1 +
  20.         if v1>25 :exit1
  21.         goto :loop1
  22. :exit1
  23.         set v1 1
  24. :loop2
  25.         more-green
  26.         set v1 +
  27.         if v1>25 :exit2
  28.         goto :loop2
  29. :exit2
  30.         set v1 1
  31. :loop3
  32.         more-blue
  33.         set v1 +
  34.         if v1>25 :exit3
  35.         goto :loop3
  36. :exit3
  37.         reset-colors
  38.         Wait 500
  39.         Text
  40.         system dir c:\
  41.         Wait 200
  42.         system
  43.         beep
  44.