home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / FREDScripts.lha / FREDOperators / HorizontalScroll.fred < prev    next >
Encoding:
Text File  |  1994-01-31  |  3.4 KB  |  165 lines
  1. /*
  2. ** HorizontalScroll.fred
  3. **
  4. ** $VER: HorizontalScroll.fred 1.2.0 (23.10.93)
  5. **
  6. ** This program can be run from an InvokeADPro list to horizontally scroll
  7. ** the image across the screen.
  8. **
  9. ** Clips Imported:
  10. **    FREDNumberOfFrames    -    Total frames selected
  11. **    FREDXPosition        -    Current X Position of the frame
  12. **    FREDXIncrement        -    X Increment per frame
  13. **    FREDXDirection        -    ~0 if movement is to the right
  14. **                    0 if to the left
  15. **    FREDRollWrap        -    ~0 if image should wrap around
  16. **                    0 if not
  17. **
  18. ** Clips Exported:
  19. **    FREDXPosition        -    Current X Position of the frame
  20. **
  21. ** NOTE: Clip names are case sensitive.
  22. **
  23. ** This script requires FRED v1.4.0 (or higher) to run.  Also required is
  24. ** ADPro v2.5.0 (or higher).
  25. **
  26. ** Copyright © 1992-1993 ASDG, Incorporated
  27. ** All Rights Reserved
  28. */
  29.  
  30.  
  31. ADDRESS "ADPro"
  32. OPTIONS RESULTS
  33.  
  34. PARSE ARG FrameNum FrameFName Length LoadFlag FirstCallSeq FirstCallCell
  35.  
  36. NL = '0A'X
  37. SQ = '27'X
  38. DQ = '22'X
  39. TRUE  = 1
  40. FALSE = 0
  41.  
  42.  
  43. /*
  44. ** Get the required clips.  Error if any are missing.
  45. */
  46.  
  47. IF (FirstCallSeq ~= 0) THEN DO
  48.     NumberOfFrames = GETCLIP( "FREDNumberOfFrames" )
  49.     IF (NumberOfFrames = "") THEN DO
  50.         ADPRO_TO_FRONT
  51.         OKAY1 "Required clip, FREDNumberOfFrames," || NL ||,
  52.             "is not specified."
  53.         SCREEN_TO_FRONT "FRED"
  54.         EXIT 10
  55.     END
  56.  
  57.     XDirection = GETCLIP( "FREDXDirection" )
  58.     IF (XDirection = "") THEN DO
  59.         ADPRO_TO_FRONT
  60.         OKAY1 "Required clip, FREDXDirection," || NL ||,
  61.             "is not specified."
  62.                 SCREEN_TO_FRONT "FRED"
  63.         EXIT 10
  64.     END
  65. END
  66.  
  67. XPosition = GETCLIP( "FREDXPosition" )
  68. IF (XPosition = "") THEN DO
  69.     ADPRO_TO_FRONT
  70.     OKAY1 "Required clip, FREDXPosition," || NL ||,
  71.         "is not specified."
  72.         SCREEN_TO_FRONT "FRED"
  73.     EXIT 10
  74. END
  75.  
  76. XIncrement = GETCLIP( "FREDXIncrement" )
  77. IF (XIncrement = "") THEN DO
  78.     ADPRO_TO_FRONT
  79.     OKAY1 "Required clip, FREDXIncrement," || NL ||,
  80.         "is not specified."
  81.     SCREEN_TO_FRONT "FRED"
  82.     EXIT 10
  83. END
  84.  
  85. RollWrap = GETCLIP( "FREDRollWrap" )
  86. IF (RollWrap = "") THEN DO
  87.     ADPRO_TO_FRONT
  88.     OKAY1 "Required clip, FREDRollWrap," || NL ||,
  89.         "is not specified."
  90.     SCREEN_TO_FRONT "FRED"
  91.     EXIT 10
  92. END
  93.  
  94.  
  95. /*
  96. ** See what type of data is loaded in ADPro/MorphPlus.
  97. */
  98.  
  99. CALL "FREDSCRIPTS:FREDFunctions/CheckForRawImageData" TRUE
  100. IF (RESULT ~= 0) THEN
  101.     EXIT 10
  102.  
  103.  
  104. /*
  105. ** Do the Roll operation, incrementing the current X position (and
  106. ** adjusting the x offset to be used) with each iteration.
  107. */
  108.  
  109. IF (FirstCallSeq ~= 0) THEN DO
  110.     XSIZE
  111.     ImageWidth = ADPRO_RESULT
  112.  
  113.     XIncrement = TRUNC( (2 * ImageWidth - 2) / (NumberOfFrames - 1) )
  114.     IF (XDirection = 0) THEN DO
  115.         XPosition = ImageWidth - 1
  116.         XIncrement = -XIncrement
  117.     END
  118.     ELSE
  119.         XPosition = 1 - ImageWidth
  120.  
  121.     SETCLIP( "FREDXPosition", XPosition )
  122.     SETCLIP( "FREDXIncrement", XIncrement )
  123. END
  124.  
  125. IF (XPosition ~= 0) THEN DO
  126.     IF (XPosition < 0) THEN DO
  127.         XOffset = -XPosition
  128.         DirectionString = "LEFT"
  129.     END
  130.     ELSE DO
  131.         XOffset = XPosition
  132.         DirectionString = "RIGHT"
  133.     END
  134.  
  135.     IF (RollWrap ~= 0) THEN
  136.         WrapString = "WRAP"
  137.     ELSE
  138.         WrapString = "NO_WRAP"
  139.  
  140.     OPERATOR "ROLL" DirectionString XOffset WrapString
  141.  
  142.     IF (RC ~= 0) THEN DO
  143.         Why = ADPRO_RESULT
  144.         ADPRO_TO_FRONT
  145.         OKAY1 "The operator ROLL" || NL ||,
  146.             "failed to execute." || NL ||,
  147.             Why || NL ||,
  148.             "Argument Information:" || NL ||,
  149.             "Direction = " || DirectionString || NL ||,
  150.             "XOffset = " || XOffset || NL ||,
  151.             "Wrap = " || WrapString
  152.         SCREEN_TO_FRONT "FRED"
  153.         EXIT 10
  154.     END
  155. END
  156.  
  157.  
  158. /*
  159. ** Update the clips.
  160. */
  161.  
  162. SETCLIP( "FREDXPosition", XPosition + XIncrement )
  163.  
  164. EXIT 0
  165.