/* Sets line color */

#include "plplot.h"

void plcol(color)
PLINT color;
{
      PLINT font,col;
      PLINT level;

      glev(&level);
      if (level < 1)  plexit("Please call plstar before calling plcol.");
      if (color < 0)  plexit("Invalid color in plcol.");

      gatt(&font,&col);
      satt(font,color);
      grcol();
}