home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / util / dosreqtools.lha / DOSReqTools / demo.ext < prev    next >
Text File  |  1994-11-26  |  3KB  |  114 lines
  1. ;demo.ext
  2.  
  3. ; Requires DJPEG (v5) from AmiNet gfx/conv/jpegv5.bin.lha
  4. ;          a viewer like ViewTek
  5. ;          DOSReqtools
  6.  
  7. ; CONVERTS JPEGS TO GIFS
  8.  
  9. FAILAT 21
  10.  
  11. LAB START
  12.  
  13. ;---------------------
  14. ;                     SET UP THE SOURCE AND DEST. DIRECTORIES
  15. ;---------------------
  16.  
  17. SETENV sourcedrawer Work:graphics/pictures/JPEG/gals
  18. ;SETENV destdrawer Work:graphics/pictures/GIF
  19. SETENV destdrawer ram:temp
  20.  
  21. ;---------------------
  22. ;                     GET A JPEG FILENAME TO CONVERT
  23. ;---------------------
  24.  
  25. rtFileRequest "Convert a JPEG to a GIF" DRAWER $sourcedrawer TO ENV:source
  26. SET result $RC
  27.  
  28. ;---------------------
  29. ;                     TEST IF QUIT WAS SELECTED
  30. ;---------------------
  31.  
  32. IF $Result eq 0
  33.   SKIP SHUTDOWN
  34. ENDIF
  35.  
  36. ;---------------------
  37. ;                     SPLIT THE SOURCE PATH/FILENAME INTO TWO PARTS
  38. ;---------------------
  39.  
  40. PathPart >ENV:sourcepath $source
  41. FilePart >ENV:sourcename $source
  42.  
  43. ;---------------------
  44. ;                     SELECT THE DESTINATION DIRECTORY TO WRITE THE GIF
  45. ;---------------------
  46.  
  47. rtFileRequest "Convert to Grayscale, Half Size" DRAWER $destdrawer NOFILES TO ENV:targetdir
  48.  
  49. ;---------------------
  50. ;                     TAKE THE ROOT FILENAME (XXX.JPG) AND ASSIGN IT TO A
  51. ;                     NEW VARIABLE SO THAT LATER WE CAN CHANGE THE EXTENSION 
  52. ;---------------------
  53.  
  54. SETENV targetname $sourcename
  55.  
  56. ;---------------------
  57. ;                     CHANGE THE EXTENSION FROM .JPG TO .GIF AND RETAIN THE ROOT NAME
  58. ;---------------------
  59.  
  60. ChangeExt >env:tempname $targetname ".gif"
  61.  
  62. ;---------------------
  63. ;                     COPY THE NEW NAME BACK AS $TARGETNAME
  64. ;---------------------
  65.  
  66. SETENV targetname $tempname
  67.  
  68. ;---------------------
  69. ;                     COPY THE TARGET DIRECTORY BACK TO $DESTINATION
  70. ;---------------------
  71.  
  72. SETENV destination $targetdir
  73.  
  74. ;---------------------
  75. ;                     MERGE THE DESTINATION PATH WITH THE NEW FILENAME (XXX.GIF)
  76. ;                     AND PUT IT IN $TEMPNAME
  77. ;---------------------
  78.  
  79. Addpart >env:tempname $destination $targetname
  80.  
  81. ;---------------------
  82. ;                     COPY THE NEW DESTINATION BACK TO $DESTINATION 
  83. ;---------------------
  84.  
  85. SETENV destination $tempname
  86.  
  87. ;---------------------
  88. ;                     CALL DGPEG FOR THE CONVERSION
  89. ;                      MAKE THE OUTFILE 1/2 HALF SIZE AND GRAYSCALE
  90. ;---------------------
  91.  
  92. djpeg -gr -gif -scale 1/2 $source $destination 
  93.  
  94. ;---------------------
  95. ;                     LOOK AT THE GIF WITH VIEWTEK
  96. ;---------------------
  97.  
  98. vt $destination
  99.  
  100. SKIP BACK START
  101.  
  102. LAB SHUTDOWN
  103.  
  104. DELETE ENV:SOURCE
  105. DELETE ENV:SOURCEDRAWER
  106. DELETE ENV:SOURCEPATH
  107. DELETE ENV:SOURCENAME
  108. DELETE ENV:TARGETDIR
  109. DELETE ENV:TARGETNAME
  110. DELETE ENV:TEMPNAME
  111. DELETE ENV:DESTINATION
  112.  
  113.  
  114. quit