[Therion] Colors and thickness for new symbols

[thomasschilter at bluewin.ch]

Dear Therion-Community
 
I try to change some symbols on my layout. This works with most symbols. With two symbols I can not go any further.
 
1. With the symbol "Absatz Lehm" I can not transfer the color to the whole symbol. The symbol is similar to the line floorstep (Fig .: Legend_Linecolor). The base line takes the color brown, with the right-angled lines I have no idea that works:
code metapost
 def l_u_absatz_lehm (expr P) = 
  T:=identity;
  cas := 0;
  dlzka := arclength P;
  mojkrok:=adjust_step(dlzka, .5u); % Schraffurabstand eingeben
  pickup PenD;
  draw p withcolor (0.75,0.2,0.12);  % not works!!!
  forever:
   t := arctime cas of P;
   mark_ (P,t,0.9u);
   cas := cas + mojkrok;
  exitif cas > dlzka + (mojkrok /3); % for rounding errors
  endfor;
  pickup PenC;  
  thdraw P withcolor (0.75,0.2,0.12); % works
 enddef;
 
initsymbol("l_u_absatz_lehm")
 
def l_u_absatz_lehm_legend =
 l_u_absatz_lehm(((-.3,0.5) .. (.3,.3) .. (.7,.7) .. (1.3,.5)) inscale)
 enddef;
endcode
 
text de "line u:absatz_lehm" "Absatz Lehm"
 
 
2. The second symbol “phreatische Fliessrichtung” is only one line. However, I would like to place the symbol with the outline in the legend box. Compare with the figure Legend_Color_Pen. The outside lines should be gray and slightly thicker than the line in the middle.
 
code metapost
 def l_u_phreatisch (expr P) = 
  T:=identity;
  pickup PenC;
  thdraw P;
enddef;
 
 initsymbol("l_u_phreatisch")
 
 def l_u_phreatisch_legend =
  l_u_phreatisch(((.25,.5){dir 300} .. (.65,.5)) inscale);
  l_u_phreatisch(((.4,1.0) .. (.2,.5){dir 270} .. (.1,0.0)) inscale) % must be grey (0.86, 0.86, 0.86) and PenA
  l_u_phreatisch(((.8,1.0) .. (.7,.5){dir 270} .. (.6,0.0)) inscale) % must be grey (0.86, 0.86, 0.86) and PenA
 enddef;
endcode
 
text de "line u:phreatisch" "phreatische Fliessrichtung"
Does anyone know a solution?
Thank you and best regards
Thomas
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman.speleo.sk/pipermail/therion/attachments/20170222/20923589/attachment.htm>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Legend_Color_Pen.png
Type: image/png
Size: 30749 bytes
Desc: not available
URL: <http://mailman.speleo.sk/pipermail/therion/attachments/20170222/20923589/attachment.png>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Legend_Linecolor.png
Type: image/png
Size: 11130 bytes
Desc: not available
URL: <http://mailman.speleo.sk/pipermail/therion/attachments/20170222/20923589/attachment-0001.png>