From c8977e4dafb2a70bb5d4fe4233dba38745b2bfcf Mon Sep 17 00:00:00 2001
From: Diomidis Spinellis <dds@aueb.gr>
Date: Sun, 16 May 2004 15:47:03 +0000
Subject: [PATCH] Hard-coded guillemot characters to keep them compatible
 between groff and pic2plot.

---
 sequence.pic | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/sequence.pic b/sequence.pic
index d476287..dfbd723 100644
--- a/sequence.pic
+++ b/sequence.pic
@@ -134,7 +134,8 @@ define create_message {
 		off_from = -awid * .6;
 		off_to = boxwid * .51;
 	}
-	XSEQA: arrow from ($1.x + off_from, Here.y) to ($2.x + off_to, Here.y) "\Focreate\Fc" " ";
+	# See comment in destroy_message
+	XSEQA: arrow from ($1.x + off_from, Here.y) to ($2.x + off_to, Here.y) "«create»" " ";
 	if ($1.x <= $2.x) then {
 		{ XSEQB: box $3 with .w at XSEQA.end; }
 	} else {
@@ -161,9 +162,12 @@ define drawx {
 
 # Draw a destroy message(from_object,to_object)
 define destroy_message {
-	# troff code is \(Fo \(Fc, but they don't work in pic2plot
+	# The troff code is \(Fo \(Fc
+	# The groff code is also \[Fo] \[Fc]
+	# The pic2plot code is \Fo \Fc
 	# See http://www.delorie.com/gnu/docs/plotutils/plotutils_71.html
-	message($1,$2,"\Fodestroy\Fc");
+	# To stay compatible with all we have to hardcode the characters
+	message($1,$2,"«destroy»");
 	complete($2);
 	drawx($2);
 }