Better trisomy box.

diff --git a/doc/flowchart.pic b/doc/flowchart.pic
index 76377a00161a07988660c8e395e3cd181614d139..de01fe3c9ac71cb5a1c0e27f2b54ccba1313eafe 100644 (file)
--- 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>