home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c011 / 3.ddi / INCS / FXLIB.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-01  |  6.3 KB  |  183 lines
  1. {* fxlib.PAS                                                                *}
  2. {* Copyright (c) Genus Microprogramming, Inc. 1988-89  All Rights Reserved. *}
  3.  
  4. {****************************************************************************
  5.  
  6.   This file contains the MS Pascal 4.0 interface for PCX Effects.
  7.  
  8.  
  9.  
  10.  
  11.   Microsoft Pascal 4.0                    Programmer: Chris Howard 12/10/89
  12.  
  13. *****************************************************************************}
  14.  
  15. interface;
  16.  
  17. unit  fxlib(fxMINEFFECT,
  18.             fxWIPE,
  19.             fxSPLIT,
  20.             fxCRUSH,
  21.             fxSLIDE,
  22.             fxSAND,
  23.             fxDRIP,
  24.             fxEXPLODE,
  25.             fxDIAGONAL,
  26.             fxSPIRAL,
  27.             fxRANDOM,
  28.             fxMAXEFFECT,
  29.  
  30.             fxFADEOUT,
  31.             fxFADEIN,
  32.  
  33.             fxNONE,
  34.             fxLEFT,
  35.             fxRIGHT,
  36.             fxUP,
  37.             fxDOWN,
  38.             fxHORIZ,
  39.             fxVERT,
  40.             fxOUT,
  41.             fxIN,
  42.  
  43.             fxMINGRAIN,
  44.             fxMAXGRAIN,
  45.  
  46.             fxMINDELAY,
  47.             fxMAXDELAY,
  48.  
  49.             fxTRUE,
  50.             fxFALSE,
  51.             fxON,
  52.             fxOFF,
  53.  
  54.             fxSUCCESS,
  55.             fxERR_ESCAPE,
  56.             fxERR_BADEFFECT,
  57.             fxERR_BADGRAIN,
  58.             fxERR_BADDELAY,
  59.  
  60.             fxSetEffect,
  61.             fxGetEffect,
  62.             fxSetGrain,
  63.             fxGetGrain,
  64.             fxSetDelay,
  65.             fxGetDelay,
  66.             fxGetVersion,
  67.             fxVirtualEffect,
  68.             fxCalibrateDelay,
  69.             fxEffectDelay,
  70.             fxKeyCheck,
  71.             fxSetSpeaker,
  72.             fxSetFrequency,
  73.             fxTone,
  74.             fxPlay,
  75.             fxPlayLeft,
  76.             fxPlayKill,
  77.             fxPlayLoop,
  78.             fxPaletteCycle,
  79.             fxPaletteFade,
  80.             fxSetRand,
  81.             fxGetRand,
  82.             fxFileImage,
  83.             fxLibImage,
  84.             fxFreeImage
  85.  
  86.             );
  87.  
  88. const
  89.  
  90.   { Effects }
  91.   fxMINEFFECT      = 0;
  92.   fxWIPE           = 0;                     { Wipe                        }
  93.   fxSPLIT          = 1;                     { Split                       }
  94.   fxCRUSH          = 2;                     { Crush                       }
  95.   fxSLIDE          = 3;                     { Slide                       }
  96.   fxSAND           = 4;                     { Sand                        }
  97.   fxDRIP           = 5;                     { Drip                        }
  98.   fxEXPLODE        = 6;                     { Explode                     }
  99.   fxDIAGONAL       = 7;                     { Spiral                      }
  100.   fxSPIRAL         = 8;                     { Diagonal                    }
  101.   fxRANDOM         = 9;                     { Random                      }
  102.   fxMAXEFFECT      = 9;
  103.  
  104.   { Palette }
  105.   fxFADEOUT        = 1000;                  { Fade out                    }
  106.   fxFADEIN         = 1001;                  { Fade in                     }
  107.  
  108.   { Directions }
  109.   fxNONE           = 0;                     { No direction                }
  110.   fxLEFT           = 1;                     { Left                        }
  111.   fxRIGHT          = 2;                     { Right                       }
  112.   fxUP             = 4;                     { Up                          }
  113.   fxDOWN           = 8;                     { Down                        }
  114.   fxHORIZ          = 1;                     { Horizontal                  }
  115.   fxVERT           = 2;                     { Vertical                    }
  116.   fxOUT            = 1;                     { Out                         }
  117.   fxIN             = 2;                     { In                          }
  118.  
  119.   { Grain }
  120.   fxMINGRAIN       = 2;                     { Minimum grain               }
  121.   fxMAXGRAIN       = 64;                    { Maximum grain               }
  122.  
  123.   { Delay }
  124.   fxMINDELAY       = 0;                     { Minimum delay               }
  125.   fxMAXDELAY       = 500;                   { Maximum delay               }
  126.  
  127.   { Miscellaneous }
  128.   fxTRUE           = 1;                     { True                        }
  129.   fxFALSE          = 0;                     { False                       }
  130.   fxON             = fxTRUE;                { On                          }
  131.   fxOFF            = fxFALSE;               { Off                         }
  132.  
  133.   { Error codes }
  134.   fxSUCCESS        = 0;                     { Successful                  }
  135.   fxERR_ESCAPE     = -20;                   { Escape key was pressed      }
  136.   fxERR_BADEFFECT  = -1000;                 { Effect not defined/invalid  }
  137.   fxERR_BADGRAIN   = -1001;                 { Grain  not defined/invalid  }
  138.   fxERR_BADDELAY   = -1002;                 { Delay  not defined/invalid  }
  139.  
  140. {fxSE.asm}
  141. function   fxSetEffect          (effect:integer):integer;
  142. function   fxGetEffect          :integer;
  143. function   fxSetGrain           (grain:integer):integer;
  144. function   fxGetGrain           :integer;
  145. function   fxSetDelay           (delay:integer):integer;
  146. function   fxGetDelay           :integer;
  147. function   fxGetVersion         (verbuf:adsmem):integer;
  148.  
  149. {fxVE.asm}
  150. function   fxVirtualEffect      (vptr:integer4;x,y,dir:integer):integer;
  151.  
  152. {fxDK.asm}
  153. function   fxLoopDelay          (delay:integer):integer;
  154. function   fxCalibrateDelay     :integer;
  155. function   fxEffectDelay        (delay:integer):integer;
  156. function   fxKeyCheck           (flag:integer):integer;
  157.  
  158. {fxTP.asm}
  159. function   fxSetSpeaker         (flag:integer):integer;
  160. function   fxSetFrequency       (freq:integer):integer;
  161. function   fxTone               (freq,dur:integer):integer;
  162. function   fxPlay               (playstr:adsmem):integer;
  163. function   fxPlayLeft           :integer;
  164. function   fxPlayKill           :integer;
  165. function   fxPlayLoop           (loopnum:integer):integer;
  166.  
  167. {fxPC.asm}
  168. function   fxPaletteCycle       (palptr:adsmem;start,total,rep,delay:integer):integer;
  169. function   fxPaletteFade        (palptr:adsmem;start,total,inc,rep,delay:integer):integer;
  170.  
  171. {fxSR.asm}
  172. function   fxSetRand            (seed:integer):integer;
  173. function   fxGetRand            (range:integer):integer;
  174.  
  175. {fxFI.asm}
  176. function   fxFileImage          (vtype:integer;vptr:adsmem;filename:adsmem):integer;
  177. function   fxLibImage           (vtype:integer;vptr:adsmem;libname,filename:adsmem):integer;
  178. function   fxFreeImage          (vptr:integer4):integer;
  179.  
  180. end;
  181.  
  182.  
  183.