[Therion] redefine altitude symbol

[Martin Budaj]

On Fri, Aug 21, 2009 at 8:53 PM, Thomas Holder<thomas at thomas-holder.de> 
wrote:
> how to redefine the altitude point symbol? Defining a metapost p_altitude
> macro within layout/endlayout has no effect.

All point labels are displayed using p_label; altitude uses mode=1.

Martin

---

vardef p_label@#(expr txt,pos,rot,mode) =
  if (mode=1) or (mode=7): interim labeloffset:=(u/8) fi;
  lab:=thelabel@#(txt, pos);
  if mode>1: pickup PenD fi;
  if mode=1:
    pickup pencircle scaled (u/6);
    drawdot(pos);
    process_label(pos,0);
  elseif mode=2: process_uplabel;
  elseif mode=3: process_downlabel;
  elseif mode=4: process_updownlabel;
  elseif mode=5: process_circledlabel;
  elseif mode=6: process_boxedlabel;
  elseif mode=7: process_label(pos,rot);  % station name
  elseif mode=8: process_filledlabel(pos, rot);
  else: process_label(pos,rot); fi;
enddef;