home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Science / Science.zip / goat006.zip / SRC.ZIP / goatsrc / SubProcs / saveimageas < prev    next >
Text File  |  2002-07-17  |  938b  |  34 lines
  1. imagefilename = VpFileDialog(window,'SAVE',filetypes,'GOAT - Save Image File As')
  2. IF LENGTH(imagefilename) > 0 THEN
  3.   do
  4.     parse upper value imagefilename with,
  5.       imagename'.'ext
  6.     imagetype=0
  7.     Do i=1 to 25 
  8.       if word(extensions, i) = translate(ext) then
  9.       Do
  10.         if translate(ext)='PNM' then
  11.           /* need to use pnmtotiff */
  12.           imagetype=2
  13.         /* everything else is internal */
  14.         else imagetype=1
  15.       End
  16.     End
  17.     drop i
  18.     if imagetype=2 then
  19.       do
  20.         convertimage=1
  21.         imagefilename=imagename||'_TMP.TIF'
  22.         CALL VpImgEdt window, 1000, 'SAVE', imagefilename, 'PAL1BPP'
  23.         tifftopnm imagefilename' > 'imagename||'.PNM'||' 2>>error.log'
  24.       end
  25.       else
  26.         do
  27.           convertimage=0
  28.           /* Save image 1000 Image Editor */
  29.           CALL VpImgEdt window, 1000, 'SAVE', imagefilename, 'PAL1BPP'
  30.         end
  31.   end
  32.  
  33.  
  34.