home *** CD-ROM | disk | FTP | other *** search
/ 3D Images / 3D Images.iso / programs / amiga / batchfactory / scripts / par / view.info < prev   
Encoding:
Text File  |  1995-01-12  |  1.7 KB  |  60 lines
  1. /* 
  2.                         PAR VIEW IMAGE OR ANIMATION
  3.                                By J.L. White
  4.                           ©1994 Merlin's Software
  5.  
  6.                      Allows You To View A PAR Anim Or 
  7.                 Still With The View Button In Batch Factory
  8.  
  9.                     Personal Animation Recorder Script
  10.  
  11.  Batch Factory Batch Conversion Scripts are basically Arexx scripts that
  12. allow you to pass certain parameters to the external program you wish
  13. to use to convert the images from one format to another. You can pass
  14. five different strings from Batch Factory to the script by using the
  15. following commands:
  16.  
  17. $N = This will pass the current selected filename.
  18. $P = This will tell Batch Factory to ask for a path to save new frames to.
  19. $# = This will pass the current frame number in the script.
  20. $T = This will pass the total number of frames in the script.
  21. $A = This will pass an offset number to be used to save frames with.
  22.  
  23. NOTE: The following line is required to work as a Batch Factory Script:
  24.  
  25. PARSE=$N
  26.  
  27. */
  28.  
  29. arg InFile
  30. options results
  31.  
  32. address "DDR"
  33. PathName = GetPathName(InFile)
  34. ProjectName = GetProjectName(PathName)
  35. NameLength = Length(ProjectName)
  36. ProjectName = left(ProjectName,NameLength-1)
  37. Project ProjectName
  38. FileName = GetFileName(InFile)
  39. FPS 30
  40. Play FileName
  41. exit
  42.  
  43. GetFileName: procedure  
  44.    ARG CompleteName
  45.    c = lastpos("/",CompleteName)
  46.    if c = 0 then c = lastpos(":",CompleteName)
  47.    return substr(CompleteName, c + 1)
  48.  
  49. GetPathName: procedure  
  50.    ARG CompleteName
  51.    c = lastpos("/",CompleteName)
  52.    if c = 0 then c = lastpos(":",CompleteName)
  53.    return left(CompleteName,c)
  54.  
  55. GetProjectName: procedure  
  56.    ARG CompleteName
  57.    c = lastpos(":",CompleteName)
  58.    return substr(CompleteName,c+1)
  59.  
  60.