restore pen color after text in record shapes (rtest/graphs/b57.dot)

diff --git a/lib/common/shapes.c b/lib/common/shapes.c
index bbcc8c22708148502fe65040d5563404eb65b215..c1db44798cf94bac0f74c3dd62d3a9aea68d2da0 100644 (file)
--- a/lib/common/shapes.c
+++ b/lib/common/shapes.c
@@ -1842,6 +1842,7 @@ static void gen_fields(GVJ_t * job, node_t * n, field_t * f)
        cy = (f->b.LL.y + f->b.UR.y) / 2.0 + ND_coord_i(n).y;
        f->lp->p = pointof((int) cx, (int) cy);
        emit_label(job, EMIT_NLABEL, f->lp);
+        pencolor(job, n);
     }
 
     for (i = 0; i < f->n_flds; i++) {