home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c011 / 3.ddi / INCS / FXLIB.FOR < prev    next >
Encoding:
Text File  |  1989-06-01  |  3.8 KB  |  116 lines
  1. * fxLib.FOR                                                                 *
  2. * Copyright (c) Genus Microprogramming, Inc. 1988-89  All Rights Reserved.  *
  3.  
  4. *****************************************************************************
  5. *                                                                           *
  6. * Parameter declarations for PCX Effects, MS Fortran 4.1.                   *
  7. *                                                                           *
  8. *                                                                           *
  9. *                                                                           *
  10. * Microsoft Fortran 4.1                   Programmer: Chris Howard  5/09/89 *
  11. *                                                                           *
  12. *****************************************************************************
  13.  
  14. $NOTRUNCATE
  15.  
  16. * Functions
  17.       INTEGER*2 fxSetEffect
  18.       INTEGER*2 fxGetEffect
  19.       INTEGER*2 fxSetGrain 
  20.       INTEGER*2 fxGetGrain
  21.       INTEGER*2 fxSetDelay
  22.       INTEGER*2 fxGetDelay
  23.       INTEGER*2 fxGetVersion
  24.       INTEGER*2 fxVirtualEffect
  25.  
  26.       INTEGER*2 fxCalibrateDelay
  27.       INTEGER*2 fxEffectDelay
  28.       INTEGER*2 fxKeyCheck
  29.  
  30.       INTEGER*2 fxSetSpeaker
  31.       INTEGER*2 fxSetFrequency
  32.       INTEGER*2 fxTone
  33.       INTEGER*2 fxPlay
  34.       INTEGER*2 fxPlayLeft
  35.       INTEGER*2 fxPlayKill
  36.       INTEGER*2 fxPlayLoop
  37.  
  38.       INTEGER*2 fxPaletteCycle
  39.       INTEGER*2 fxPaletteFade
  40.  
  41.       INTEGER*2 fxSetRand
  42.       INTEGER*2 fxGetRand
  43.  
  44.       INTEGER*2 fxFileImage
  45.       INTEGER*2 fxLibImage
  46.       INTEGER*2 fxFreeImage
  47.  
  48. * Effects
  49.       INTEGER*2  fxMINEFFECT,fxWIPE,fxSPLIT,fxCRUSH,fxSLIDE,fxSAND
  50.       INTEGER*2  fxDRIP,fxEXPLODE,fxDIAGONAL,fxSPIRAL,fxRANDOM
  51.       INTEGER*2  fxMAXEFFECT
  52.       PARAMETER (fxMINEFFECT = 0)
  53.       PARAMETER (fxWIPE      = 0)
  54.       PARAMETER (fxSPLIT     = 1)
  55.       PARAMETER (fxCRUSH     = 2)
  56.       PARAMETER (fxSLIDE     = 3)
  57.       PARAMETER (fxSAND      = 4)
  58.       PARAMETER (fxDRIP      = 5)
  59.       PARAMETER (fxEXPLODE   = 6)
  60.       PARAMETER (fxDIAGONAL  = 7)
  61.       PARAMETER (fxSPIRAL    = 8)
  62.       PARAMETER (fxRANDOM    = 9)
  63.       PARAMETER (fxMAXEFFECT = 9)
  64.  
  65. * Palette
  66.       INTEGER*2  fxFADEOUT,fxFADEIN
  67.       PARAMETER (fxFADEOUT   = 1000)
  68.       PARAMETER (fxFADEIN    = 1001)
  69.  
  70. * Directions
  71.       INTEGER*2  fxNONE,fxLEFT,fxRIGHT,fxUP,fxDOWN,fxHORIZ,fxVERT
  72.       INTEGER*2  fxOUT,fxIN
  73.       PARAMETER (fxNONE      = 0)
  74.       PARAMETER (fxLEFT      = 1)
  75.       PARAMETER (fxRIGHT     = 2)
  76.       PARAMETER (fxUP        = 4)
  77.       PARAMETER (fxDOWN      = 8)
  78.       PARAMETER (fxHORIZ     = 1)
  79.       PARAMETER (fxVERT      = 2)
  80.       PARAMETER (fxOUT       = 1)
  81.       PARAMETER (fxIN        = 2)
  82.  
  83. * Grain
  84.       INTEGER*2  fxMINGRAIN,fxMAXGRAIN
  85.       PARAMETER (fxMINGRAIN  = 2)
  86.       PARAMETER (fxMAXGRAIN  = 64)
  87.  
  88. * Delay
  89.       INTEGER*2  fxMINDELAY,fxMAXDELAY
  90.       PARAMETER (fxMINDELAY  = 0)
  91.       PARAMETER (fxMAXDELAY  = 500)
  92.  
  93. * Miscellaneous
  94.       INTEGER*2  fxTRUE,fxFALSE,fxON,fxOFF
  95.       PARAMETER (fxTRUE      = 1)
  96.       PARAMETER (fxFALSE     = 0)
  97.       PARAMETER (fxON        = fxTRUE)
  98.       PARAMETER (fxOFF       = fxFALSE)
  99.  
  100. * Error Codes
  101.       INTEGER*2  fxSUCCESS,fxERR_CLIPPARM,fxERR_ESCAPE,fxERR_BADEFFECT
  102.       INTEGER*2  fxERR_BADGRAIN,fxERR_BADDELAY
  103. *     Successful
  104.       PARAMETER (fxSUCCESS        =  0)
  105. *     Bad number of Clipper parms
  106.       PARAMETER (fxERR_CLIPPARM   = pcxERR_CLIPPARM)
  107. *     Escape key was pressed
  108.       PARAMETER (fxERR_ESCAPE     = pcxERR_ESCAPE)
  109. *     Effect not defined/invalid
  110.       PARAMETER (fxERR_BADEFFECT  = -1000)
  111. *     Grain  not defined/invalid
  112.       PARAMETER (fxERR_BADGRAIN   = -1001)
  113. *     Delay  not defined/invalid
  114.       PARAMETER (fxERR_BADDELAY   = -1002)
  115.  
  116.