home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top1136 / gifv.slt < prev    next >
Text File  |  1993-10-05  |  961b  |  43 lines
  1. ;
  2. ; GIFV.SLT
  3. ; Take every GIF file in G:\IMAGES and make them GRAY scaled using
  4. ; an EGA monitor and keeping all 256 colors that may be in the image.
  5. ; This way you can use a cheapo monitor to process your image files!
  6. ; It also will keep the original screen size intact so that when a
  7. ; viewer tries to display the NEW image it won't try to switch into
  8. ; EGA mode!
  9. ;
  10.         EGA-MODE
  11.         EGA-COLOR-ADJUST OFF
  12.         KEEP-SCREEN-SIZE
  13.         slide-type-Fade
  14.         change-path G:\IMAGES\*.GIF
  15. :loop
  16.         loadnext        :exit
  17.         gray
  18.         write G
  19.         goto :loop
  20. :exit
  21.         ENTER
  22.  picture is centered, before continuing on.
  23. ;
  24.         change-path *.gif
  25.         res 1
  26.         res-lock
  27. :loop
  28.         loadnext :next
  29.         res+
  30.         res+
  31.         res-
  32.         res-
  33.         center
  34.         res-up
  35.         goto     :loop
  36. :next
  37.         loadprev :exit
  38.         res-down
  39.         goto     :next
  40. :exit
  41.  
  42.  
  43.