encoding  utf-8
source Winnatsent2mainchamb.th

#export model -fmt survex -o win4mainchth.3d
export map -proj plan -layout local -o winnatsplan.pdf
export map -proj extended -o winnatsextended.pdf
#export map -proj plan -o winnats.kml

layout local
fonts-setup 2 4 8 10 14
symbol-set BCRA
scale 1 100
scale-bar 20 m
symbol-hide group centreline
symbol-hide line border

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