mode_setup;

define_pixels(size);
define_pixels(line_thickness,border_line_thickness);

picture black_circle;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

def set_black_circle =
  currentpicture := nullpicture;
  pickup pencircle scaled line_thickness;
  lft x1=1/22size; y1=1/2size;
  rt x2=23/22size; y2=1/2size;
  filldraw z1..z2..cycle;
  black_circle := currentpicture;
  clearxy; clearit; clearpen;
enddef;

set_black_circle;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

beginchar(0,24/22size#,23/22size#,1/22size#); "punkt hoshi";
  pickup pencircle scaled line_thickness;
  z1=(0,11/24w);
  z2=(.5w,h);
  z3=(w,11/24w);
  z4=(.5w,-d);
  draw z1..z3;
  draw z2..z4;
  z5=(.5w-.1size,11/24w);
  z6=(.5w+.1size,11/24w);
  filldraw z5..z6..cycle;
showit;
endchar;

% stop"";

beginchar(1,24/22size#,23/22size#,1/22size#); "pelny krzyz";
  pickup pencircle scaled line_thickness;
  z1=(0,11/24w);
  z2=(.5w,h);
  z3=(w,11/24w);
  z4=(.5w,-d);
  draw z1..z3;
  draw z2..z4;
showit;
endchar;

% stop"";

beginchar(2,24/22size#,23/22size#,1/22size#); "lewy brzeg";
  pickup pencircle scaled line_thickness;
  lft x1=.5w; y1=11/24w;
  z2=(.5w,h);
  z3=(w,11/24w);
  z4=(.5w,-d);
  draw z1..z3;
  pickup pencircle scaled border_line_thickness;
  draw z2..z4;
showit;
endchar;

% stop"";

beginchar(3,24/22size#,23/22size#,1/22size#); "prawy brzeg";
  pickup pencircle scaled line_thickness;
  z1=(0,11/24w);
  z2=(.5w,h);
  rt x3=.5w; y3=11/24w;
  z4=(.5w,-d);
  draw z1..z3;
  pickup pencircle scaled border_line_thickness;
  draw z2..z4;
showit;
endchar;

% stop"";

beginchar(4,24/22size#,23/22size#,1/22size#); "gorny brzeg";
  pickup pencircle scaled border_line_thickness;
  z1=(0,11/24w);
  x2=.5w; top y2=11/24w;
  z3=(w,11/24w);
  z4=(.5w,-d);
  draw z1..z3;
  pickup pencircle scaled line_thickness;
  draw z2..z4;
showit;
endchar;

% stop"";

beginchar(5,24/22size#,23/22size#,1/22size#); "dolny brzeg";
  pickup pencircle scaled border_line_thickness;
  z1=(0,11/24w);
  z2=(.5w,h);
  z3=(w,11/24w);
  x4=.5w; bot y4=11/24w;
  draw z1..z3;
  pickup pencircle scaled line_thickness;
  draw z2..z4;
showit;
endchar;

% stop"";

beginchar(6,24/22size#,23/22size#,1/22size#); "lewy gorny rog";
  pickup pencircle scaled border_line_thickness;
  lft x1=.5w; y1=11/24w;
  x2=.5w; top y2=11/24w;
  z3=(w,11/24w);
  z4=(.5w,-d);
  draw z1..z3;
  draw z2..z4;
  pickup penrazor scaled border_line_thickness;
  z5=(.5w,11/24w+.5border_line_thickness); 
  z6=(.5w,11/24w-.5border_line_thickness); 
  draw z5..z6;
showit;
endchar;

% stop"";

beginchar(7,24/22size#,23/22size#,1/22size#); "prawy gorny rog";
  pickup pencircle scaled border_line_thickness;
  z1=(0,11/24w);
  x2=.5w; top y2=11/24w;
  rt x3=.5w; y3=11/24w;
  z4=(.5w,-d);
  draw z1..z3;
  draw z2..z4;
  pickup penrazor scaled border_line_thickness;
  z5=(.5w,11/24w+.5border_line_thickness); 
  z6=(.5w,11/24w-.5border_line_thickness); 
  draw z5..z6;
showit;
endchar;

% stop"";

beginchar(8,24/22size#,23/22size#,1/22size#); "lewy dolny rog";
  pickup pencircle scaled border_line_thickness;
  lft x1=.5w; y1=11/24w;
  z2=(.5w,h);
  z3=(w,11/24w);
  x4=.5w; bot y4=11/24w;
  draw z1..z3;
  draw z2..z4;
  pickup penrazor scaled border_line_thickness;
  z5=(.5w,11/24w+.5border_line_thickness); 
  z6=(.5w,11/24w-.5border_line_thickness); 
  draw z5..z6;
showit;
endchar;

% stop"";

beginchar(9,24/22size#,23/22size#,1/22size#); "prawy dolny rog";
  pickup pencircle scaled border_line_thickness;
  z1=(0,11/24w);
  z2=(.5w,h);
  rt x3=.5w; y3=11/24w;
  x4=.5w; bot y4=11/24w;
  draw z1..z3;
  draw z2..z4;
  pickup penrazor scaled border_line_thickness;
  z5=(.5w,11/24w+.5border_line_thickness);
  z6=(.5w,11/24w-.5border_line_thickness);
  draw z5..z6;
showit;
endchar;

% stop"";

beginchar(10,24/22size#,23/22size#,1/22size#); "pelny krzyz - pion";
  pickup pencircle scaled line_thickness;
  z1=(0,11/24w);
  z2=(.5w,h);
  z3=(w,11/24w);
  z4=(.5w,-d);
  draw z1..z3;
  draw z2..z4;
  cullit;
  addto currentpicture also -black_circle;
showit;
endchar;

% stop"";

beginchar(11,24/22size#,23/22size#,1/22size#); "lewy brzeg - pion";
  pickup pencircle scaled line_thickness;
  lft x1=.5w; y1=11/24w;
  z2=(.5w,h);
  z3=(w,11/24w);
  z4=(.5w,-d);
  draw z1..z3;
  pickup pencircle scaled border_line_thickness;
  draw z2..z4;
  cullit;
  addto currentpicture also -black_circle;
showit;
endchar;

% stop"";

beginchar(12,24/22size#,23/22size#,1/22size#); "prawy brzeg - pion";
  pickup pencircle scaled line_thickness;
  z1=(0,11/24w);
  z2=(.5w,h);
  rt x3=.5w; y3=11/24w;
  z4=(.5w,-d);
  draw z1..z3;
  pickup pencircle scaled border_line_thickness;
  draw z2..z4;
  cullit;
  addto currentpicture also -black_circle;
showit;
endchar;

% stop"";

beginchar(13,24/22size#,23/22size#,1/22size#); "gorny brzeg - pion";
  pickup pencircle scaled border_line_thickness;
  z1=(0,11/24w);
  x2=.5w; top y2=11/24w;
  z3=(w,11/24w);
  z4=(.5w,-d);
  draw z1..z3;
  pickup pencircle scaled line_thickness;
  draw z2..z4;
  cullit;
  addto currentpicture also -black_circle;
showit;
endchar;

% stop"";

beginchar(14,24/22size#,23/22size#,1/22size#); "dolny brzeg - pion";
  pickup pencircle scaled border_line_thickness;
  z1=(0,11/24w);
  z2=(.5w,h);
  z3=(w,11/24w);
  x4=.5w; bot y4=11/24w;
  draw z1..z3;
  pickup pencircle scaled line_thickness;
  draw z2..z4;
  cullit;
  addto currentpicture also -black_circle;
showit;
endchar;

% stop"";

beginchar(15,24/22size#,23/22size#,1/22size#); "lewy gorny rog - pion";
  pickup pencircle scaled border_line_thickness;
  lft x1=.5w; y1=11/24w;
  x2=.5w; top y2=11/24w;
  z3=(w,11/24w);
  z4=(.5w,-d);
  draw z1..z3;
  draw z2..z4;
  pickup penrazor scaled border_line_thickness;
  z5=(.5w,11/24w+.5border_line_thickness); 
  z6=(.5w,11/24w-.5border_line_thickness); 
  draw z5..z6;
  cullit;
  addto currentpicture also -black_circle;
showit;
endchar;

% stop"";

beginchar(16,24/22size#,23/22size#,1/22size#); "prawy gorny rog - pion";
  pickup pencircle scaled border_line_thickness;
  z1=(0,11/24w);
  x2=.5w; top y2=11/24w;
  rt x3=.5w; y3=11/24w;
  z4=(.5w,-d);
  draw z1..z3;
  draw z2..z4;
  pickup penrazor scaled border_line_thickness;
  z5=(.5w,11/24w+.5border_line_thickness); 
  z6=(.5w,11/24w-.5border_line_thickness); 
  draw z5..z6;
  cullit;
  addto currentpicture also -black_circle;
showit;
endchar;

% stop"";

beginchar(17,24/22size#,23/22size#,1/22size#); "lewy dolny rog - pion";
  pickup pencircle scaled border_line_thickness;
  lft x1=.5w; y1=11/24w;
  z2=(.5w,h);
  z3=(w,11/24w);
  x4=.5w; bot y4=11/24w;
  draw z1..z3;
  draw z2..z4;
  pickup penrazor scaled border_line_thickness;
  z5=(.5w,11/24w+.5border_line_thickness); 
  z6=(.5w,11/24w-.5border_line_thickness); 
  draw z5..z6;
  cullit;
  addto currentpicture also -black_circle;
showit;
endchar;

% stop"";

beginchar(18,24/22size#,23/22size#,1/22size#); "prawy dolny rog - pion";
  pickup pencircle scaled border_line_thickness;
  z1=(0,11/24w);
  z2=(.5w,h);
  rt x3=.5w; y3=11/24w;
  x4=.5w; bot y4=11/24w;
  draw z1..z3;
  draw z2..z4;
  pickup penrazor scaled border_line_thickness;
  z5=(.5w,11/24w+.5border_line_thickness);
  z6=(.5w,11/24w-.5border_line_thickness);
  draw z5..z6;
  cullit;
  addto currentpicture also -black_circle;
showit;
endchar;

% stop"";

end;

