mode_setup;

define_pixels(size);
define_pixels(line_thickness,border_line_thickness);
define_pixels(dig_h,dig_w,dig_pen);

picture digit[];
picture white_circle;

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

def digit_zero =
  currentpicture := nullpicture;
  pickup pencircle scaled dig_pen;
  lft x1=0; y1=.5dig_h;
  x2=.5dig_w; top y2=dig_h;
  rt x3=dig_w; y3=.5dig_h;
  x4=.5dig_w; bot y4=0;
  draw z1...z2...z3...z4...cycle;
  digit[0] := currentpicture;
  clearxy; clearit; clearpen;
enddef;

def digit_one =
  currentpicture := nullpicture;
  pickup pencircle scaled dig_pen;
  x1=.5dig_w; bot y1=0;
  x2=.5dig_w; top y2=dig_h;
  draw z1--z2;
  digit[1] := currentpicture;
  clearxy; clearit; clearpen;
enddef;

def digit_two =
  currentpicture := nullpicture;
  pickup pencircle scaled dig_pen;
  lft x1=0; y1=.75dig_h;
  x2=.5dig_w; top y2=dig_h;
  rt x3=.8dig_w; y3=.9dig_h;
  lft x4=0; bot y4=0;
  draw z1{up}...z2...z3..{(-.8dig_w,-dig_h)}z4;
  z5=z4;
  rt x6=dig_w; bot y6=0;
  draw z5--z6;
  digit[2] := currentpicture;
  clearxy; clearit; clearpen;
enddef;

def digit_three =
  currentpicture := nullpicture;
  pickup pencircle scaled dig_pen;
  lft x1=.08dig_w; y1=.8dig_h;
  x2=.5dig_w; top y2=dig_h; 
  rt x3=.92dig_w; y3=y1;
  z4=(.5dig_w,.52dig_h);
  rt x5=dig_w; y5=.2dig_h;
  x6=.65dig_w; bot y6=0;
  lft x7=0; y7=y5;
  draw z1{up}..z2..z3..{left}z4{right}..z5..z6...{up}z7;
  digit[3] := currentpicture;
  clearxy; clearit; clearpen;
enddef;

def digit_four =
  currentpicture := nullpicture;
  pickup pencircle scaled dig_pen;
  x1=.75dig_w; bot y1=0;
  x2=x1; top y2=dig_h;
  lft x3=0; y3=.3dig_h;
  rt x4=dig_w; y4=y3;
  draw z1--z2--z3--z4;
  digit[4] := currentpicture;
  clearxy; clearit; clearpen;
enddef;

def digit_five =
  currentpicture := nullpicture;
  pickup pencircle scaled dig_pen;
  rt x1=.95dig_w; top y1=dig_h;
  lft x2=.05dig_w; y2=y1;
  lft x3=0; y3=.45dig_h;
  z4=(.5dig_w,.6dig_h);
  rt x5=dig_w; y5=.3dig_h;
  x6=.65dig_w; bot y6=0;
  lft x7=0; y7=.15dig_h;
  draw z1--z2--z3{up}..z4..z5..z6...{up}z7;
  digit[5] := currentpicture;
  clearxy; clearit; clearpen;
enddef;

def digit_six =
  currentpicture := nullpicture;
  pickup pencircle scaled dig_pen;
  rt x1=dig_w; y1=.8dig_h;
  x2=.45dig_w; top y2=dig_h;
  lft x3=0; y3=.5dig_h;
  x4=.5dig_w; bot y4=0;
  rt x5=dig_w; y5=.3dig_h;
  z6=(.53dig_w,.55dig_h);
  z7=(.03dig_w+.6dig_pen,.25dig_h);
  draw z1{up}...z2...z3...z4...z5...{left}z6{left}...{(1,-10)}z7;
  digit[6] := currentpicture;
  clearxy; clearit; clearpen;
enddef;

def digit_seven =
  currentpicture := nullpicture;
  pickup pencircle scaled dig_pen;
  lft x1=0; top y1=dig_h;
  rt x2=dig_w; y2=y1;
  lft x3=.2dig_w; bot y3=0;
  draw z1--z2--z3;
  digit[7] := currentpicture;
  clearxy; clearit; clearpen;
enddef;

def digit_eight =
  currentpicture := nullpicture;
  pickup pencircle scaled dig_pen;
  lft x1=.08dig_w; y1=.75dig_h;
  x2=.5dig_w; top y2=dig_h;
  rt x3=.92dig_w; y3=y1;
  z4=(.5dig_w,.55dig_h);
  rt x5=dig_w; y5=.25dig_h;
  x6=.5dig_w; bot y6=0;
  lft x7=0; y7=y5;
  draw z1...z2...z3...z4...cycle; 
  draw z4...z5...z6...z7...cycle;
  digit[8] := currentpicture;
  clearxy; clearit; clearpen;
enddef;

def digit_nine =
  currentpicture := nullpicture;
  currentpicture := digit[6] rotated 180;
  digit[9] := currentpicture shifted (dig_w,dig_h);
  clearxy; clearit; clearpen;
enddef;

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

digit_zero; digit_one; digit_two; digit_three; digit_four;
digit_five; digit_six; digit_seven; digit_eight; digit_nine;

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

beginchar(0,24/22size#,23/22size#,1/22size#); "pion bialy";
  pickup pencircle scaled line_thickness;
  lft x1=1/24w; y1=11/24w;
  rt x2=23/24w; y2=11/24w;
  draw z1..z2..cycle;
  white_circle := currentpicture;
showit;
endchar;

% stop"";

beginchar(1,24/22size#,23/22size#,1/22size#); "pion bialy z 1";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(2,24/22size#,23/22size#,1/22size#); "pion bialy z 2";
  currentpicture := white_circle 
       + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(3,24/22size#,23/22size#,1/22size#); "pion bialy z 3";
  currentpicture := white_circle 
       + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(4,24/22size#,23/22size#,1/22size#); "pion bialy z 4";
  currentpicture := white_circle 
       + digit[4] shifted (.5w-.6dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(5,24/22size#,23/22size#,1/22size#); "pion bialy z 5";
  currentpicture := white_circle 
       + digit[5] shifted (.5w-.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(6,24/22size#,23/22size#,1/22size#); "pion bialy z 6";
  currentpicture := white_circle 
       + digit[6] shifted (.5w-.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(7,24/22size#,23/22size#,1/22size#); "pion bialy z 7";
  currentpicture := white_circle 
       + digit[7] shifted (.5w-.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(8,24/22size#,23/22size#,1/22size#); "pion bialy z 8";
  currentpicture := white_circle 
       + digit[8] shifted (.5w-.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(9,24/22size#,23/22size#,1/22size#); "pion bialy z 9";
  currentpicture := white_circle 
       + digit[9] shifted (.5w-.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

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

dig_w := 0.8dig_w;
dig_pen := 0.9dig_pen;

digit_zero; digit_one; digit_two; digit_three; digit_four;
digit_five; digit_six; digit_seven; digit_eight; digit_nine;

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

beginchar(10,24/22size#,23/22size#,1/22size#); "pion bialy z 10";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w-0.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(11,24/22size#,23/22size#,1/22size#); "pion bialy z 11";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.05dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w+.05dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(12,24/22size#,23/22size#,1/22size#); "pion bialy z 12";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w-0.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(13,24/22size#,23/22size#,1/22size#); "pion czarny z 13";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
       + digit[3] shifted (.5w-0.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(14,24/22size#,23/22size#,1/22size#); "pion bialy z 14";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
       + digit[4] shifted (.5w-0.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(15,24/22size#,23/22size#,1/22size#); "pion czarny z 15";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
       + digit[5] shifted (.5w-0.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(16,24/22size#,23/22size#,1/22size#); "pion bialy z 16";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
       + digit[6] shifted (.5w-0.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(17,24/22size#,23/22size#,1/22size#); "pion czarny z 17";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[7] shifted (.5w-0.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(18,24/22size#,23/22size#,1/22size#); "pion bialy z 18";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
       + digit[8] shifted (.5w-0.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(19,24/22size#,23/22size#,1/22size#); "pion czarny z 19";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
       + digit[9] shifted (.5w-0.1dig_w,11/24w-.5dig_h);   
showit;
endchar;

% stop"";

beginchar(20,24/22size#,23/22size#,1/22size#); "pion bialy z 20";
  currentpicture := white_circle 
       + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(21,24/22size#,23/22size#,1/22size#); "pion czarny z 21";
  currentpicture := white_circle 
       + digit[2] shifted (.5w-.9dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(22,24/22size#,23/22size#,1/22size#); "pion bialy z 22";
  currentpicture := white_circle 
       + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(23,24/22size#,23/22size#,1/22size#); "pion czarny z 23";
  currentpicture := white_circle 
       + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(24,24/22size#,23/22size#,1/22size#); "pion bialy z 24";
  currentpicture := white_circle 
       + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(25,24/22size#,23/22size#,1/22size#); "pion czarny z 25";
  currentpicture := white_circle 
       + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(26,24/22size#,23/22size#,1/22size#); "pion bialy z 26";
  currentpicture := white_circle 
       + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(27,24/22size#,23/22size#,1/22size#); "pion czarny z 27";
  currentpicture := white_circle 
       + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(28,24/22size#,23/22size#,1/22size#); "pion bialy z 28";
  currentpicture := white_circle 
       + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(29,24/22size#,23/22size#,1/22size#); "pion czarny z 29";
  currentpicture := white_circle 
       + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
showit;
endchar;

% stop"";

beginchar(30,24/22size#,23/22size#,1/22size#); "pion bialy z 30";
  currentpicture := white_circle 
       + digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(31,24/22size#,23/22size#,1/22size#); "pion czarny z 31";
  currentpicture := white_circle 
       + digit[3] shifted (.5w-.9dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(32,24/22size#,23/22size#,1/22size#); "pion bialy z 32";
  currentpicture := white_circle 
       + digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(33,24/22size#,23/22size#,1/22size#); "pion czarny z 33";
  currentpicture := white_circle 
       + digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(34,24/22size#,23/22size#,1/22size#); "pion bialy z 34";
  currentpicture := white_circle 
       + digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(35,24/22size#,23/22size#,1/22size#); "pion czarny z 35";
  currentpicture := white_circle 
       + digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(36,24/22size#,23/22size#,1/22size#); "pion bialy z 36";
  currentpicture := white_circle 
       + digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(37,24/22size#,23/22size#,1/22size#); "pion czarny z 37";
  currentpicture := white_circle 
       + digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(38,24/22size#,23/22size#,1/22size#); "pion bialy z 38";
  currentpicture := white_circle 
       + digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(39,24/22size#,23/22size#,1/22size#); "pion czarny z 39";
  currentpicture := white_circle 
       + digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
showit;
endchar;

% stop"";

beginchar(40,24/22size#,23/22size#,1/22size#); "pion bialy z 40";
  currentpicture := white_circle 
       + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(41,24/22size#,23/22size#,1/22size#); "pion czarny z 41";
  currentpicture := white_circle 
       + digit[4] shifted (.5w-1.0dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(42,24/22size#,23/22size#,1/22size#); "pion bialy z 42";
  currentpicture := white_circle 
       + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(43,24/22size#,23/22size#,1/22size#); "pion czarny z 43";
  currentpicture := white_circle 
       + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(44,24/22size#,23/22size#,1/22size#); "pion bialy z 44";
  currentpicture := white_circle 
       + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(45,24/22size#,23/22size#,1/22size#); "pion czarny z 45";
  currentpicture := white_circle 
       + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(46,24/22size#,23/22size#,1/22size#); "pion bialy z 46";
  currentpicture := white_circle 
       + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(47,24/22size#,23/22size#,1/22size#); "pion czarny z 47";
  currentpicture := white_circle 
       + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(48,24/22size#,23/22size#,1/22size#); "pion bialy z 48";
  currentpicture := white_circle 
       + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(49,24/22size#,23/22size#,1/22size#); "pion czarny z 49";
  currentpicture := white_circle 
       + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
showit;
endchar;

% stop"";

beginchar(50,24/22size#,23/22size#,1/22size#); "pion bialy z 50";
  currentpicture := white_circle 
       + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(51,24/22size#,23/22size#,1/22size#); "pion czarny z 51";
  currentpicture := white_circle 
       + digit[5] shifted (.5w-.9dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(52,24/22size#,23/22size#,1/22size#); "pion bialy z 52";
  currentpicture := white_circle 
       + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(53,24/22size#,23/22size#,1/22size#); "pion czarny z 53";
  currentpicture := white_circle 
       + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(54,24/22size#,23/22size#,1/22size#); "pion bialy z 54";
  currentpicture := white_circle 
       + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(55,24/22size#,23/22size#,1/22size#); "pion czarny z 55";
  currentpicture := white_circle 
       + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(56,24/22size#,23/22size#,1/22size#); "pion bialy z 56";
  currentpicture := white_circle 
       + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(57,24/22size#,23/22size#,1/22size#); "pion czarny z 57";
  currentpicture := white_circle 
       + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(58,24/22size#,23/22size#,1/22size#); "pion bialy z 58";
  currentpicture := white_circle 
       + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(59,24/22size#,23/22size#,1/22size#); "pion czarny z 59";
  currentpicture := white_circle 
       + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
showit;
endchar;

% stop"";

beginchar(60,24/22size#,23/22size#,1/22size#); "pion bialy z 60";
  currentpicture := white_circle 
       + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(61,24/22size#,23/22size#,1/22size#); "pion czarny z 61";
  currentpicture := white_circle 
       + digit[6] shifted (.5w-.9dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(62,24/22size#,23/22size#,1/22size#); "pion bialy z 62";
  currentpicture := white_circle 
       + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(63,24/22size#,23/22size#,1/22size#); "pion czarny z 63";
  currentpicture := white_circle 
       + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(64,24/22size#,23/22size#,1/22size#); "pion bialy z 64";
  currentpicture := white_circle 
       + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(65,24/22size#,23/22size#,1/22size#); "pion czarny z 65";
  currentpicture := white_circle 
       + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(66,24/22size#,23/22size#,1/22size#); "pion bialy z 66";
  currentpicture := white_circle 
       + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(67,24/22size#,23/22size#,1/22size#); "pion czarny z 67";
  currentpicture := white_circle 
       + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(68,24/22size#,23/22size#,1/22size#); "pion bialy z 68";
  currentpicture := white_circle 
       + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(69,24/22size#,23/22size#,1/22size#); "pion czarny z 69";
  currentpicture := white_circle 
       + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
showit;
endchar;

% stop"";

beginchar(70,24/22size#,23/22size#,1/22size#); "pion bialy z 70";
  currentpicture := white_circle 
       + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(71,24/22size#,23/22size#,1/22size#); "pion czarny z 71";
  currentpicture := white_circle 
       + digit[7] shifted (.5w-.9dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(72,24/22size#,23/22size#,1/22size#); "pion bialy z 72";
  currentpicture := white_circle 
       + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(73,24/22size#,23/22size#,1/22size#); "pion czarny z 73";
  currentpicture := white_circle 
       + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(74,24/22size#,23/22size#,1/22size#); "pion bialy z 74";
  currentpicture := white_circle 
       + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(75,24/22size#,23/22size#,1/22size#); "pion czarny z 75";
  currentpicture := white_circle 
       + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(76,24/22size#,23/22size#,1/22size#); "pion bialy z 76";
  currentpicture := white_circle 
       + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(77,24/22size#,23/22size#,1/22size#); "pion czarny z 77";
  currentpicture := white_circle 
       + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(78,24/22size#,23/22size#,1/22size#); "pion bialy z 78";
  currentpicture := white_circle 
       + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(79,24/22size#,23/22size#,1/22size#); "pion czarny z 79";
  currentpicture := white_circle 
       + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
showit;
endchar;

% stop"";

beginchar(80,24/22size#,23/22size#,1/22size#); "pion bialy z 80";
  currentpicture := white_circle 
       + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(81,24/22size#,23/22size#,1/22size#); "pion czarny z 81";
  currentpicture := white_circle 
       + digit[8] shifted (.5w-.9dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(82,24/22size#,23/22size#,1/22size#); "pion bialy z 82";
  currentpicture := white_circle 
       + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(83,24/22size#,23/22size#,1/22size#); "pion czarny z 83";
  currentpicture := white_circle 
       + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(84,24/22size#,23/22size#,1/22size#); "pion bialy z 84";
  currentpicture := white_circle 
       + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(85,24/22size#,23/22size#,1/22size#); "pion czarny z 85";
  currentpicture := white_circle 
       + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(86,24/22size#,23/22size#,1/22size#); "pion bialy z 86";
  currentpicture := white_circle 
       + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(87,24/22size#,23/22size#,1/22size#); "pion czarny z 87";
  currentpicture := white_circle 
       + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(88,24/22size#,23/22size#,1/22size#); "pion bialy z 88";
  currentpicture := white_circle 
       + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(89,24/22size#,23/22size#,1/22size#); "pion czarny z 89";
  currentpicture := white_circle 
       + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
       + digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
showit;
endchar;

% stop"";

beginchar(90,24/22size#,23/22size#,1/22size#); "pion bialy z 90";
  currentpicture := white_circle 
       + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h) 
       + digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(91,24/22size#,23/22size#,1/22size#); "pion czarny z 91";
  currentpicture := white_circle 
       + digit[9] shifted (.5w-.9dig_w,11/24w-.5dig_h)  
       + digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(92,24/22size#,23/22size#,1/22size#); "pion bialy z 92";
  currentpicture := white_circle 
       + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h) 
       + digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(93,24/22size#,23/22size#,1/22size#); "pion czarny z 93";
  currentpicture := white_circle 
       + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h)  
       + digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(94,24/22size#,23/22size#,1/22size#); "pion bialy z 94";
  currentpicture := white_circle 
       + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h) 
       + digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(95,24/22size#,23/22size#,1/22size#); "pion czarny z 95";
  currentpicture := white_circle 
       + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h)  
       + digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(96,24/22size#,23/22size#,1/22size#); "pion bialy z 96";
  currentpicture := white_circle 
       + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h) 
       + digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(97,24/22size#,23/22size#,1/22size#); "pion czarny z 97";
  currentpicture := white_circle 
       + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h)  
       + digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(98,24/22size#,23/22size#,1/22size#); "pion bialy z 98";
  currentpicture := white_circle 
       + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h) 
       + digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(99,24/22size#,23/22size#,1/22size#); "pion czarny z 99";
  currentpicture := white_circle 
       + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h)  
       + digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
showit;
endchar;

% stop"";

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

dig_w := .7dig_w;
dig_h := .9dig_h;
dig_pen := .8dig_pen;

digit_zero; digit_one; digit_two; digit_three; digit_four;
digit_five; digit_six; digit_seven; digit_eight; digit_nine;

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

beginchar(100,24/22size#,23/22size#,1/22size#); "pion bialy z 100";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(101,24/22size#,23/22size#,1/22size#); "pion czarny z 101";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w+.6dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(102,24/22size#,23/22size#,1/22size#); "pion bialy z 102";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(103,24/22size#,23/22size#,1/22size#); "pion czarny z 103";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w-.7dig_w,11/24w-.5dig_h)
       + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(104,24/22size#,23/22size#,1/22size#); "pion bialy z 104";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
       + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
showit;
endchar;

% stop"";

beginchar(105,24/22size#,23/22size#,1/22size#); "pion czarny z 105";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
       + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(106,24/22size#,23/22size#,1/22size#); "pion bialy z 106";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
       + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(107,24/22size#,23/22size#,1/22size#); "pion czarny z 107";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w-.7dig_w,11/24w-.5dig_h)
       + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(108,24/22size#,23/22size#,1/22size#); "pion bialy z 108";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
       + digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(109,24/22size#,23/22size#,1/22size#); "pion czarny z 109";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
       + digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
showit;
endchar;

% stop"";

beginchar(110,24/22size#,23/22size#,1/22size#); "pion bialy z 110";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w-.7dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w+.4dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(111,24/22size#,23/22size#,1/22size#); "pion czarny z 111";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(112,24/22size#,23/22size#,1/22size#); "pion bialy z 112";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w-.7dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w+.4dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(113,24/22size#,23/22size#,1/22size#); "pion czarny z 113";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w-.7dig_w,11/24w-.5dig_h)
       + digit[3] shifted (.5w+.4dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(114,24/22size#,23/22size#,1/22size#); "pion bialy z 114";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w-.7dig_w,11/24w-.5dig_h)
       + digit[4] shifted (.5w+.35dig_w,11/24w-.5dig_h); 
showit;
endchar;

% stop"";

beginchar(115,24/22size#,23/22size#,1/22size#); "pion czarny z 115";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w-.7dig_w,11/24w-.5dig_h)
       + digit[5] shifted (.5w+.4dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(116,24/22size#,23/22size#,1/22size#); "pion bialy z 116";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w-.7dig_w,11/24w-.5dig_h)
       + digit[6] shifted (.5w+.4dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(117,24/22size#,23/22size#,1/22size#); "pion czarny z 117";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w-.65dig_w,11/24w-.5dig_h)
       + digit[7] shifted (.5w+.4dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(118,24/22size#,23/22size#,1/22size#); "pion bialy z 118";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w-.7dig_w,11/24w-.5dig_h)
       + digit[8] shifted (.5w+.4dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(119,24/22size#,23/22size#,1/22size#); "pion czarny z 119";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w-.7dig_w,11/24w-.5dig_h)
       + digit[9] shifted (.5w+.4dig_w,11/24w-.5dig_h); 
showit;
endchar;

% stop"";

beginchar(120,24/22size#,23/22size#,1/22size#); "pion bialy z 120";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h)
       + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(121,24/22size#,23/22size#,1/22size#); "pion czarny z 121";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.65dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h)
       + digit[1] shifted (.5w+.7dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(122,24/22size#,23/22size#,1/22size#); "pion bialy z 122";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(123,24/22size#,23/22size#,1/22size#); "pion czarny z 123";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w-.7dig_w,11/24w-.5dig_h)
       + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(124,24/22size#,23/22size#,1/22size#); "pion bialy z 124";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w-.75dig_w,11/24w-.5dig_h) 
       + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(125,24/22size#,23/22size#,1/22size#); "pion czarny z 125";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h)
       + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(126,24/22size#,23/22size#,1/22size#); "pion bialy z 126";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h)
       + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

beginchar(127,24/22size#,23/22size#,1/22size#); "pion czarny z 127";
  currentpicture := white_circle 
       + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
       + digit[2] shifted (.5w-.7dig_w,11/24w-.5dig_h)
       + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
showit;
endchar;

% stop"";

end;

