home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 255_01 / gprdclr.c < prev    next >
Text File  |  1988-03-30  |  896b  |  17 lines
  1. /*                                                                            */
  2. /*      EGA Graphic Primitive for Turbo Pascal 3.01A, Version 01Feb86.        */
  3. /*      (C) 1986 by Kent Cedola, 2015 Meadow Lake Ct., Norfolk, VA, 23518     */
  4. /*                                                                            */
  5. /*      Description: Read the current color to be used by other graphic       */
  6. /*      primitives.  If the current color is set to -1 then then current      */
  7. /*      line style will be used for drawing lines or shading will be used     */
  8. /*      instead of solid color.                                               */
  9. /*                                                                            */
  10.  
  11. int GPRDCLR()
  12. {
  13.   extern int GDCOLOR;
  14.  
  15.   return (GDCOLOR);
  16. }
  17.