encoding  utf-8
source rabbit.th

layout water-blue
  code metapost
  def a_water (expr p) =
    T:=identity;
    thfill p withcolor (0.0, 0.5, 1.0);
  enddef;
  
  vardef p_label@#(expr txt,pos,rot,mode) =

  if known ATTR_visibility: if ATTR_visibility="on":  % ADDED CONDITIONS

   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;

  fi; fi;  % END OF CONDITIONS

 enddef;
 
 vardef p_label@#(expr txt,pos,rot,mode) =
  if known ATTR_vis: if ATTR_vis="on":  % ADDED CONDITIONS

   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;

  fi; fi;  % END OF CONDITIONS

 enddef;
endlayout

export map -projection plan -output rabbit-plan.pdf -layout water-blue
