[Therion] boxed label

[Martin Sluka]

Marco, 

you are right. But the discussion is that Missouri mappers use number in box as point height. So by my meaning correct way should be to define new symbol set which will generate point height in sguare label.

User definition is temporary solution in this case.

Martin S.


> 24. 9. 2018 v 11:16, Marco Corvi via Therion <therion at speleo.sk>:
> 
> 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
> 
> 
> _______________________________________________
> Therion mailing list
> Therion at speleo.sk
> https://mailman.speleo.sk/listinfo/therion