home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / FREDScripts.lha / FREDOperators / Fresco.fred.pre < prev    next >
Encoding:
Text File  |  1994-01-31  |  704 b   |  38 lines
  1. /*
  2. ** Fresco.fred.pre
  3. **
  4. ** $VER: Fresco.fred.pre 1.1.0 (23.10.93)
  5. **
  6. ** If the Fresco.fred script appears in the InvokeADPro list,
  7. ** this program will check for the existence of the required
  8. ** convolution matrices.
  9. **
  10. ** This script requires FRED v1.4.0 (or higher) to run.  Also required is
  11. ** ADPro v2.5.0 (or higher).
  12. **
  13. ** Copyright © 1992-1993 ASDG, Incorporated
  14. ** All Rights Reserved
  15. */
  16.  
  17.  
  18. ADDRESS "ADPro"
  19. OPTIONS RESULTS
  20.  
  21. PARSE ARG NumberOfCells NumberOfFrames
  22.  
  23. NL = '0A'X
  24. SQ = '27'X
  25. DQ = '22'X
  26. TRUE  = 1
  27. FALSE = 0
  28.  
  29. IF (~EXISTS( "ADPRO:Convolutions/WoodCut" )) THEN DO
  30.     ADPRO_TO_FRONT
  31.     OKAY1 "The WoodCut convolution cannot" || NL ||,
  32.         "be found."
  33.     SCREEN_TO_FRONT "FRED"
  34.     EXIT 10
  35. END
  36.  
  37. EXIT 0
  38.