+void
+chart_vector_end (struct chart *ch)
+{
+ pl_endpath_r (ch->lp);
+ pl_colorname_r (ch->lp, "black");
+ ch->in_path = false;
+ pl_restorestate_r (ch->lp);
+}
+
+/* Plot a data point */
+void
+chart_vector (struct chart *ch, double x, double y)
+{
+ if ( ! ch )
+ return ;
+
+ {
+ const double x_pos =
+ (x - ch->x_min) * ch->abscissa_scale + ch->data_left ;
+
+ const double y_pos =
+ (y - ch->y_min) * ch->ordinate_scale + ch->data_bottom ;
+
+ if ( ch->in_path)
+ pl_fcont_r (ch->lp, x_pos, y_pos);
+ else
+ {
+ pl_fmove_r (ch->lp, x_pos, y_pos);
+ ch->in_path = true;
+ }
+ }
+}
+
+
+