#include "plplot.h"

extern short int *hersh[];

void plpoi1(x,y,code)
float x,y;
int code;
{
      int sym, font, col;

/* Initialize parameters. */

      gatt(&font,&col);
      sym = *(hersh[font-1]+code);
      plhrsh(sym,wcpcx(x),wcpcy(y));
}