home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / AD2.55-C.DMS / in.adf / FREDScripts.lha / FREDRenderers / RenderAsDCTV.fred.pre < prev    next >
Encoding:
Text File  |  1994-01-31  |  2.1 KB  |  112 lines
  1. /*
  2. ** RenderAsDCTV.fred.pre
  3. **
  4. ** $VER: RenderAsDCTV.fred.pre 1.2.0 (24.10.93)
  5. **
  6. ** If the RenderAsDCTV.fred script appears in the InvokeADPro list,
  7. ** this program will ask the user to select a screen mode and number of
  8. ** colors (or bitplanes) with which the images will be rendered.
  9. **
  10. ** Clips Exported:
  11. **    FREDScreenType        -    Screen type to be used
  12. **    FREDRenderType        -    Render type to be used
  13. **
  14. ** NOTE: Clip names are case sensitive
  15. **
  16. ** This script requires FRED v1.4.0 (or higher) to run.  Also required is
  17. ** ADPro v2.5.0 (or higher).
  18. **
  19. ** Copyright © 1992-1993 ASDG, Incorporated
  20. ** All Rights Reserved
  21. */
  22.  
  23.  
  24. ADDRESS "ADPro"
  25. OPTIONS RESULTS
  26.  
  27. PARSE ARG NumberOfCells NumberOfFrames
  28.  
  29. NL = '0A'X
  30. SQ = '27'X
  31. DQ = '22'X
  32. TRUE  = 1
  33. FALSE = 0
  34.  
  35.  
  36. /*
  37. ** Let's assume for now that we want a 3 bitplane DCTV image.
  38. */
  39.  
  40. ADPRO_TO_FRONT
  41.  
  42. OKAYN '"RenderAsDCTV.fred"' '"Choose Number of Bit-Planes"' '"3 Bit-Planes|4 Bit-Planes|Cancel"'
  43. IF (RC = 0) THEN Do
  44.     ADPRO_TO_FRONT
  45.     OKAY1 "Process aborted."
  46.     SCREEN_TO_FRONT "FRED"
  47.     EXIT 10
  48. END
  49. ELSE
  50.     NumColors = 8 * RC
  51.  
  52.  
  53. /*
  54. ** Let's assume for now that all screens are low res, non-interlaced
  55. */
  56.  
  57. ScreenType = 0
  58.  
  59. ADPRO_TO_FRONT
  60.  
  61. OKAYN '"RenderAsDCTV.fred"' '"Enable Horizontal Overscan?"' '"Overscan|Non-Overscan|Cancel"'
  62. IF (RC = 0) THEN DO
  63.     ADPRO_TO_FRONT
  64.     OKAY1 "Process aborted."
  65.     SCREEN_TO_FRONT "FRED"
  66.     EXIT 10
  67. END
  68. ELSE IF (RC = 1) THEN
  69.     ScreenType = ScreenType + 8
  70. ELSE IF (RC = 2) THEN
  71.     ScreenType = ScreenType
  72.  
  73. ADPRO_TO_FRONT
  74.  
  75. OKAYN '"RenderAsDCTV.fred"' '"Enable Vertical Overscan?"' '"Overscan|Non-Overscan|Cancel"'
  76. IF (RC = 0) THEN DO
  77.     ADPRO_TO_FRONT
  78.     OKAY1 "Process aborted."
  79.     SCREEN_TO_FRONT "FRED"
  80.     EXIT 10
  81. END
  82. ELSE IF (RC = 1) THEN
  83.     ScreenType = ScreenType + 16
  84. ELSE IF (RC = 2) THEN
  85.     ScreenType = ScreenType
  86.  
  87. ADPRO_TO_FRONT
  88.  
  89. OKAYN '"RenderAsDCTV.fred"' '"Enable Interlace?"' '"Interlace|Non-Interlace|Cancel"'
  90. IF (RC = 0) THEN DO
  91.     ADPRO_TO_FRONT
  92.     OKAY1 "Process aborted."
  93.     SCREEN_TO_FRONT "FRED"
  94.     EXIT 10
  95. END
  96. ELSE IF (RC = 1) THEN
  97.     ScreenType = ScreenType + 2
  98. ELSE IF (RC = 2) THEN
  99.     ScreenType = ScreenType
  100.  
  101. SCREEN_TO_FRONT "FRED"
  102.  
  103.  
  104. /*
  105. ** Update the clips.
  106. */
  107.  
  108. SETCLIP( "FREDScreenType", ScreenType )
  109. SETCLIP( "FREDRenderType", NumColors )
  110.  
  111. EXIT 0
  112.