Sorry Beni you'll get this twice as I forgot to send to the list...
The function def p_continuation (I know not the one you're using).
has the line:
if known(ATTR__text) and picture(ATTR__text):
This seems to work, but not sure if it's because of the next few lines:
% set labeling color to light orange
push_label_fill_color(0.8, 0.8, 0.0);
% draw filled label with text next to symbol ?
p_label.urt(ATTR__text,(.5u,-.25u) transformed T,0.0,8);
% restore original labeling color
pop_label_fill_color;
fi;
It seems like the P_label.urt is fairly important, as this is what tells it
where to place the label, in this case in the upper right (.urt) and then tells
it to put the attr_text there.
[cid:4b8816ef-abef-4e06-8047-3dee7b44eed9]
https://books.google.co.uk/books?id=hh6rdgZ9m3MC&pg=PA65&lpg=PA65&dq=p_label.urt&source=bl&ots=1unNIgxr0Q&sig=ACfU3U39-oFLnFB5msQcedNUKtjMkbdY8A&hl=en&sa=X&ved=2ahUKEwig4MyeqfDnAhUyThUIHUSxDSIQ6AEwBHoECAkQAQ#v=onepage&q=p_label.urt&f=false
Regards,
Alastair Gott.
[email protected],
M: 07931779380.
________________________________
From: Therion <[email protected]> on behalf of Benedikt Hallinger
<[email protected]>
Sent: 26 February 2020 22:47
To: [email protected] <[email protected]>
Subject: Re: [Therion] Need metapost wizard: new text label
Hello,
meanwhile i tried to play more with this.
I'm nearly there, however i still have no clue how to read out the text
attribute i attached to the symbol in the th2. "txt := ATTR__text;"
throws metapost out the window.
The point is defined like this:
point 234.0909090909091 626.3636363636364 u:mappe -attr text 1234
Layout i came up with so far (does not support
scaling/alignment/rotation, but thats fine so far):
---------------------
layout m
# Symbol to denote assigned survey.
# If option -attr text <string> is given, it will be used; otherwise
current survey is shown.
code metapost
def p_u_mappe(expr pos, theta, sc, al) =
T:=identity aligned al rotated theta scaled sc shifted pos;
% GET LABEL TEXT:
string txt;
txt := "123";
%txt := ATTR__text; % does not work. How do i get the value from
' -attr text "345" '?
if known(ATTR__text):
txt := ATTR_text; % NEVER evaluates to TRUE!?!?
else:
txt := ATTR__survey;
fi;
% DRAW LABEL:
lab:=thelabel(txt, pos);
process_label(pos, 0.001);
% BORDER:
pickup PenA; % border thickness
interim bboxmargin:=6.5bp; % padding border->text
q:=((bbox lab) smoothed 4); % smoothness of corners
draw q;
enddef;
initsymbol("p_u_mappe");
endcode
endlayout
---------------------
Am 2020-02-19 18:34, schrieb Benedikt Hallinger:
> Hi there,
> i need some new point symbol (text label). Its a simple text on white
> color within a box with rounded corners, like the attached image.
>
>
> My metapostskills are not good enough to get this to work...
>
> For now i would be happy to have such a user point symbol.
> It would be important that it scales well and react to xtherions
> direction setting.
>
> Optional it would be cool if the default symbol could show the current
> survey identifier of the nearest station in the scrap and maybe also
> the nearest next survey.
> But this information could also be maintained manually for now.
>
> Is there someone here for my rescue? :)
> Thanks in advance,
> Beni
_______________________________________________
Therion mailing list
[email protected]
https://eur04.safelinks.protection.outlook.com/?url=https%3A%2F%2Fmailman.speleo.sk%2Flistinfo%2Ftherion&data=02%7C01%7C%7C2bdebe7ad80d4d85719908d7bb0df4e5%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637183540918837472&sdata=pcZw3mupgUp94GoqSpUCkEtezYMPaJhzPwEIabpXt%2Fo%3D&reserved=0
_______________________________________________
Therion mailing list
[email protected]
https://mailman.speleo.sk/listinfo/therion
