From: Eric S. Raymond <esr@thyrsus,com>
Date: Mon, 1 Mar 2004 23:33:25 +0000 (+0000)
Subject: Better trisomy box.
X-Git-Tag: 1.0~48
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=fcc86fb01339a98a43305b4b84847babb2077438;p=mad.git

Better trisomy box.
---

diff --git a/doc/flowchart.pic b/doc/flowchart.pic
index 76377a0..de01fe3 100644
--- a/doc/flowchart.pic
+++ b/doc/flowchart.pic
@@ -47,18 +47,17 @@ define revtriangle {[
 
 # Computed-goto triangle
 define trisomy {[
-   FRAME: box invis "$1" ht 1.0 $2 $3 $4
+   FRAME: box invis ht 2.0 $1
    line from FRAME.w to FRAME.ne
    line from FRAME.w to FRAME.se
    line from FRAME.se to FRAME.ne
-   LT: 0.8<FRAME.se,FRAME.ne>
-   "<" at LT + (0.2, 0.06)
-   GT: 0.2<FRAME.se,FRAME.ne>
-   ">" at GT + (0.2, 0.06)
-   EQ: FRAME.e
-   "=" at EQ + (0.2, 0.06)
+   HI: 0.8<FRAME.se,FRAME.ne>
+   MID: FRAME.e
+   LO: 0.2<FRAME.se,FRAME.ne>
 ]}
 
+define t_annotate {$2 at $1 + (0.2, 0.06)}
+
 define iter {[
    FRAME: box "      $4" "      $3" "      $5" ht 1.5 wid 1.0
    line from FRAME.w to 0.85<FRAME.se,FRAME.ne>