Thanks Marco

Eventually the squeaky wheel gets oiled :)

Looks like it should work, but it seems to complain about setting the parsed attribute to a picture.

I will look some more when I have time tonight..

**data.mp

(./data.mp [4001] [4002] [4003] [4004] [4005] [4006] [4007] [4008] [4009] [4010

] [4011] [4012] [4013]

[4014] [4015] [4016] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13]

[14] [15] [16] [17]

>> unknown picture pic

>> thelabelboxed

! Equation cannot be performed (unknown picture=numeric).

<to be read again>

Bruce

From: Therion <therion-bounces@speleo.sk> On Behalf Of Marco Corvi via Therion
Sent: Monday, 24 September 2018 21:16
To: therion@speleo.sk
Cc: Marco Corvi <marco.corvi@gmail.com>
Subject: [Therion] boxed label

hi bruce,

this is a boxed u:label

basically it gets the string as picture,

its bounding box corners, and define the x and y to draw the box, 

then draw the string picture

point 10 20 u:label -attr val 20

def p_u_label ( expr p,r,s,t ) =

  picture pic;

  pic := thelabel( ATTR_val, (0,0)) scaled s;

 pair q[]; numeric n[], m[], v;

 path bb;

 v := defaultscale;

 qO = ulcorner pic;

 q1 = lrcorner pic;

 nO := ypart q0 + 2.5 * v;

 n1 := ypart q1 - 1.5*v;

 m0 := xpart q0 - v;

 m1 := xpart q1 + 1.5*v;

bb := (m0,n0) -- (m0,n1) -- (m1,n1) -- (m1,n0) -- cycle;

draw bb  rotated r shifted p;

draw pic rotated r shifted p;

enddef;