home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / AdPro2_5_0ConversionPack.DMS / in.adf / FREDScripts / FREDSavers / SaveAsTIFF.fred < prev    next >
Encoding:
Text File  |  1993-11-05  |  3.7 KB  |  151 lines
  1. /*
  2. ** SaveAsTIFF.fred
  3. **
  4. ** $VER: SaveAsTIFF.fred 1.1.0 (24.10.93)
  5. **
  6. ** This program can be run from an InvokeADPro list to save images in
  7. ** TIFF format.  Including this program automatically causes a pre script
  8. ** to be executed as well (to select the TIFF file extension).
  9. **
  10. ** It is up to the user to include the necessary scripts to create raw or
  11. ** rendered data.  This script will only try to save out what you tell it,
  12. ** and not do any error detecting regarding what type of image data is
  13. ** available.
  14. **
  15. ** Clips Imported:
  16. **    FREDTIFFSaveType    -    Image type to save
  17. **    FREDTIFFSaveCompression -    Type of compression to use
  18. **    FREDTIFFFNameSelect    -    String describing how the filename
  19. **                    should be modified
  20. **    FREDTIFFSeqFileSelect    -    Name of sequence file created
  21. **
  22. ** NOTE: Clip names are case sensitive.
  23. **
  24. ** This script requires FRED v1.4.0 (or higher) to run.  Also required is
  25. ** ADPro v2.5.0 (or higher) and Professional Conversion Pack v2.1.0
  26. ** (or higher).
  27. **
  28. ** Copyright © 1992-1993 ASDG, Incorporated
  29. ** All Rights Reserved
  30. */
  31.  
  32.  
  33. ADDRESS "ADPro"
  34. OPTIONS RESULTS
  35.  
  36. PARSE ARG FrameNum FrameFName Length LoadFlag FirstCallSeq FirstCallCell
  37.  
  38. NL = '0A'X
  39. SQ = '27'X
  40. DQ = '22'X
  41. TRUE  = 1
  42. FALSE = 0
  43.  
  44. FrameFName = STRIP(STRIP(FrameFName , "B" , " ") , "B" , '"')
  45.  
  46.  
  47. /*
  48. ** Get the required parameters.  Error if any are missing.
  49. */
  50.  
  51. SaveType = GETCLIP( "FREDTIFFSaveType" )
  52. IF (SaveType = "") THEN DO
  53.     ADPRO_TO_FRONT
  54.     OKAY1 "Required clip, FREDTIFFSaveType," || NL ||,
  55.         "is not specified."
  56.     SCREEN_TO_FRONT "FRED"
  57.     EXIT 10
  58. END
  59.  
  60. SaveCompression = GETCLIP( "FREDTIFFSaveCompression" )
  61. IF (SaveCompression = "") THEN DO
  62.     ADPRO_TO_FRONT
  63.     OKAY1 "Required clip, FREDTIFFSaveCompression," || NL ||,
  64.         "is not specified."
  65.     SCREEN_TO_FRONT "FRED"
  66.     EXIT 10
  67. END
  68.  
  69. FNameSelect = GETCLIP( "FREDTIFFFNameSelect" )
  70. IF (FNameSelect = "") THEN DO
  71.     ADPRO_TO_FRONT
  72.     OKAY1 "Required clip, FREDTIFFFNameSelect," || NL ||,
  73.         "is not specified."
  74.     SCREEN_TO_FRONT "FRED"
  75.     EXIT 10
  76. END
  77.  
  78. SeqFileSelect = GETCLIP( "FREDTIFFSeqFileSelect" )
  79. IF (SeqFileSelect = "") THEN DO
  80.     ADPRO_TO_FRONT
  81.     OKAY1 "Required clip, FREDTIFFSeqFileSelect," || NL ||,
  82.         "is not specified."
  83.     SCREEN_TO_FRONT "FRED"
  84.     EXIT 10
  85. END
  86.  
  87.  
  88. /*
  89. ** See what type of data is loaded in ADPro/MorphPlus.
  90. */
  91.  
  92. IF (SaveType = "RAW") THEN DO
  93.     CALL "FREDSCRIPTS:FREDFunctions/CheckForRawImageData" TRUE
  94.     IF (RESULT ~= 0) THEN
  95.         EXIT 10
  96. END
  97. ELSE IF ((SaveType = "IMAGE") | (SaveType = "SCREEN")) THEN DO
  98.     CALL "FREDSCRIPTS:FREDFunctions/CheckForRenderedImageData" TRUE
  99.     IF (RESULT ~= 0) THEN
  100.         EXIT 10
  101. END
  102.  
  103.  
  104. /*
  105. ** TIFF images cannot be in an Amiga-specific format, such as EHB, HAM, or HAM8.
  106. */
  107.  
  108. RENDER_TYPE
  109. RenderType = ADPRO_RESULT
  110. IF (RC ~= 0) THEN DO
  111.     ADPRO_TO_FRONT
  112.     OKAY1 "Error retrieving render type."
  113.     SCREEN_TO_FRONT "FRED"
  114.     EXIT 10
  115. END
  116.  
  117. IF (RenderType = "EHB") | (RenderType = "HAM") | (RenderType = "HAM8") THEN DO
  118.     ADPRO_TO_FRONT
  119.     OKAY1 RenderType || " images are not supported" || NL ||,
  120.         "as valid TIFF files."
  121.     SCREEN_TO_FRONT "FRED"
  122.     EXIT 10
  123. END
  124.  
  125.  
  126. /*
  127. ** Do the save.  If we aren't using the same filename, we will use the
  128. ** same basename and make every effort possible to replace the
  129. ** perceived filename extension with the selected TIFF extension.
  130. */
  131.  
  132. CALL "FREDSCRIPTS:FREDFunctions/ModifyFilename" FNameSelect '"'FrameFName'"' FrameNum FALSE
  133. NewFName = '"'RESULT'"'
  134.  
  135. SAVER "TIFF" NewFName SaveType SaveCompression
  136. IF (RC ~= 0) THEN DO
  137.     Why = ADPRO_RESULT
  138.     ADPRO_TO_FRONT
  139.     OKAY1 "TIFF save failed:" || NL || Why || NL ||,
  140.         "Argument Information:" || NL ||,
  141.         "Filename = " || NewFName || NL ||,
  142.         "Type = " || SaveType || NL ||,
  143.         "Compression = " || SaveCompression
  144.     SCREEN_TO_FRONT "FRED"
  145.     EXIT 10
  146. END
  147.  
  148. CALL "FREDSCRIPTS:FREDFunctions/SeqFileAppend" SeqFileSelect NewFName 1
  149.  
  150. EXIT 0
  151.