home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Objects / TAI-HFX1.LHA / ARexx.lzh / CvtToIcon.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-11-29  |  543 b   |  33 lines
  1. /* Convert images to icons */
  2.  
  3. PARSE ARG InName ',' frame ',' first ',' last ',' total ',' format ',' resolution ',' alpha
  4.  
  5. ADDRESS "ADPro"
  6. OPTIONS RESULTS
  7.  
  8. OutName = Left(InName, Length(InName) - 3) || Right(InName, 2)
  9. PalletName = "HFX:Work/Images/Pallet"
  10.  
  11. LFORMAT "UNIVERSAL"
  12.  
  13. /* Setup the palette first */
  14.  
  15. PLOAD PalletName
  16. PSTATUS LOCKED
  17.  
  18. /* Now load scale, and save images */
  19.  
  20. LOAD """"InName""""
  21. RENDER_TYPE 16
  22. SCREEN_TYPE 1 + 2
  23. DITHER 0
  24. ABS_SCALE 80 50
  25. EXECUTE
  26. SAVER "IFF"
  27. SAVE "OutName" IMAGE
  28.  
  29. ADDRESS COMMAND
  30. delete "InName"
  31.  
  32. EXIT 0
  33.