From e3282f8fa609518defa241a528f447d8351a55c6 Mon Sep 17 00:00:00 2001
From: Jean-Francois Moine <moinejf@free.fr>
Date: Sat, 5 Feb 2022 10:56:12 +0100
Subject: [PATCH] move the single bars 1 point to the left

Issue #109.
---
 draw.c | 1 +
 syms.c | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/draw.c b/draw.c
index 6220b69..67906ad 100644
--- a/draw.c
+++ b/draw.c
@@ -1244,6 +1244,7 @@ static void draw_bar(struct SYMBOL *s, float bot, float h)
 		case B_BAR:
 			if (s->u.bar.dotted)
 				psf = "dotbar";
+			x -= 1;
 			break;
 		case B_OBRA:
 		case B_CBRA:
diff --git a/syms.c b/syms.c
index 9ffe348..bb16b53 100644
--- a/syms.c
+++ b/syms.c
@@ -374,7 +374,7 @@ static char ps_head[] =
 
 	/* -- bars -- */
 	/* h x y bar - thin bar */
-	"/bar{M 1 SLW 0 exch RL stroke}!\n"
+	"/bar{3 -1 roll 1 exch rectfill}!\n"
 	/* h x y dotbar - dotted bar */
 	"/dotbar{[5] 0 setdash bar [] 0 setdash}!\n"
 	/* h x y thbar - thick bar */