home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / Dopus4 / ArexxScripts / DOPBT5.LHA / jpeg / JPEG-asks < prev   
Encoding:
AmigaDOS Script File  |  1996-02-05  |  902 b   |  59 lines
  1. .key File/A,screen
  2. .bra {
  3. .ket }
  4.  
  5. failat 21
  6.  
  7. list {file}.map >ram:1
  8.  
  9.      if error
  10.   c:fjpeg {file}
  11.   skip ask
  12.  endif
  13.  
  14. c:jpegAGA.020 {file}
  15. skip ready
  16.  
  17. lab ask
  18.    MultiRequestChoice "A map requester" "Create a map file for this picture ?" "  Ok  |Cancel" pub {screen}
  19.    Set Result $RC
  20.    If $Result EQ 1
  21.       echo "creating .map file for " {file}
  22. jpegd  -pnm -outfile JPEGTMP:temp.ppm "{file}"
  23.  
  24. IF ERROR
  25.  
  26.   delete >NIL: JPEGTMP:temp.ppm
  27.   echo "Fatal error: could not decode JPEG file."
  28.   QUIT 20
  29.   skip niels
  30.  
  31. ENDIF
  32.  
  33. jpegppm2aga JPEGTMP:temp.ppm "{file}.map" -jpegAGA {option}
  34.  
  35. IF ERROR
  36.   delete >NIL: JPEGTMP:temp.ppm
  37.   delete >NIL: "{file}.map"
  38.   echo "Fatal error: could not create map file."
  39.   QUIT 20
  40.   skip niels
  41. ENDIF
  42.  
  43. delete >NIL: JPEGTMP:temp.ppm
  44. c:jpegAGA.020 {file}
  45. skip ready
  46.    EndIf
  47.  
  48.    If $Result EQ 0
  49.      skip ready
  50.    EndIf
  51. skip ready
  52.  
  53.  
  54. lab niels
  55. echo "error"
  56.  
  57. lab ready
  58. echo "ready"
  59.