encoding  utf-8
source WinnatsMaster.th

export map -proj plan -o winnatsplan.kml

export model -fmt survex -o Masteroldandnew.3d
#export model -o masteroldandnew.lox

#export map -proj plan -layout local -o winnatsplan.pdf
#export map -proj extended -o winnatsextended.pdf

layout local
color map-fg altitude

code metapost

initsymbol ("p_u_symbol_plan");
def p_u_symbol_plan (expr pos,theta,sc,al) =
    U := (-3.25u, 3.25u);
    T := identity aligned al rotated theta scaled sc shifted pos;
    pickup PenB;
    q := ((-3.26u, -.95u) -- (1.74u, -.95u) -- (2.8u, .82u) -- (-1.49u, .82u) -- cycle);
    thfill q withcolor .85;
    thdraw q;
    q := ((-.175u, .5u) -- (0u, 0u) -- (.175u, .5u) .. (0u, .45u) .. cycle);
    thfill q withcolor .5green;
    thdraw q withcolor .5green;
    thdraw (0u, 0u) -- (0u, 2.31u) withcolor .5green; 
enddef;

endcode

#text sk "point u:symbol_plan" ""
endlayout