home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c011 / 1.ddi / CLIPPER / FXSR_C.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-06-01  |  1.6 KB  |  79 lines
  1. /* fxSR_c.C                                                                 */
  2. /* Copyright (c) Genus Microprogramming, Inc. 1988-89  All Rights Reserved. */
  3.  
  4. /****************************************************************************
  5.  
  6.   This file provides the Clipper interface to PCX Effects.             
  7.   It makes calls to the PCX LARGE model C library.
  8.  
  9.  
  10.   NOTE: Compile as "CL /c /W3 /AL /Zl /Oalt /FPa /Gs fxSR_c.C"
  11.         as per the Clipper documentation for the EXTEND system
  12.  
  13.   Microsoft C version 5.1                 Programmer: Chris Howard  5/08/89
  14.  
  15. *****************************************************************************/
  16.  
  17. #include <stdio.h>
  18.  
  19. #include "..\h\nandef.h"
  20. #include "..\h\extend.h"
  21. #include "..\h\pcxlib.h"
  22. #include "..\h\fxlib.h"
  23. #include "..\h\fxclip.h"
  24.  
  25. /**********/
  26.  
  27. CLIPPER fxSR()
  28.  
  29. /*
  30.  * retcode = fxSetRand(int seed)
  31.  *
  32.  */
  33.  
  34. {
  35.   int  retcode;
  36.  
  37.   /* Verify parameters */
  38.   if (PCOUNT == 1) {
  39.     /* Pass call on to toolkit */
  40.     retcode = fxSetRand(_parni(1));
  41.   }
  42.   else {
  43.     /* Error in parameter list */
  44.     retcode = fxERR_CLIPPARM;
  45.   }
  46.  
  47.   /* Return code to Clipper */
  48.   _retni(retcode);
  49.  
  50. } /* end of fxSR */
  51.  
  52. /**********/
  53.  
  54. CLIPPER fxGR()
  55.  
  56. /*
  57.  * retcode = fxGetRand(int range)
  58.  *
  59.  */
  60.  
  61. {
  62.   int  retcode;
  63.  
  64.   /* Verify parameters */
  65.   if (PCOUNT == 1) {
  66.     /* Pass call on to toolkit */
  67.     retcode = fxGetRand(_parni(1));
  68.   }
  69.   else {
  70.     /* Error in parameter list */
  71.     retcode = fxERR_CLIPPARM;
  72.   }
  73.  
  74.   /* Return code to Clipper */
  75.   _retni(retcode);
  76.  
  77. } /* end of fxGR */
  78.  
  79.