home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / dos / grafik / tcega / gpstyle.c < prev    next >
Encoding:
Text File  |  1986-02-22  |  790 b   |  19 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: Set the current style for line drawing primitives.       */
  6. /*      Setting the line style will set the line style flag on and setting    */
  7. /*      the current color will reset it zero.  If the line style flag is      */
  8. /*      zero then the current color will be used, else the line style.        */
  9.  
  10. void GPSTYLE(style)
  11.   char *style;
  12. {
  13.   extern char *GDSTYLE;
  14.   extern char GDS_FLG;
  15.  
  16.   GDSTYLE = style;
  17.   GDS_FLG = -1;
  18. }
  19.