home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / SYS / Rexx / ToHam.TSM < prev    next >
Text File  |  1994-10-30  |  771b  |  24 lines
  1. /* example Postscript script file for TSMorph */
  2. /* This script converts each image using ppm  */
  3. /* and wasp and then deletes the original     */
  4. /* $VER: ToHam_TSM 2.0 (13.6.93)
  5.  */
  6. parse arg Frame TotalFrames Single FileName
  7. /* Frame       - current frame number starting from Start
  8.  * TotalFrames - total number of frames
  9.  * Single      - 1 for Single image warp, 0 for two image morph
  10.  * FileName    - Name of 24 bit image just produced
  11.  */
  12.  
  13. /* Convert to ppm format in ram:temp */
  14. address command '24toppm '||FileName||' ram:temp'
  15.  
  16. /* Convert to HAM format in ram:temp.n where n = frame number */
  17. address command 'wasp ram:temp ram:temp.'||Frame
  18.  
  19. /* Delete original and temporary files */
  20. address command 'delete '||FileName
  21. address command 'delete ram:temp'
  22.  
  23. exit
  24.