\mode_setup; define_pixels(size); define_pixels(line_thickness,border_line_thickness); define_pixels(dig_h,dig_w,dig_pen); picture digit[]; picture black_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 czarny"; pickup pencircle scaled line_thickness; lft x1=13/24w; y1=-1/24w; rt x2=35/24w; y2=-1/24w; filldraw z1..z2..cycle; black_circle := currentpicture; showit; endchar; % stop""; beginchar(1,24/22size#,23/22size#,1/22size#); "pion czarny z 1"; currentpicture :=black_circle - digit[1] shifted (1w-.5dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(2,24/22size#,23/22size#,1/22size#); "pion czarny z 2"; currentpicture := black_circle - digit[2] shifted (1w-.5dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(3,24/22size#,23/22size#,1/22size#); "pion czarny z 3"; currentpicture := black_circle - digit[3] shifted (1w-.5dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(4,24/22size#,23/22size#,1/22size#); "pion czarny z 4"; currentpicture := black_circle - digit[4] shifted (1w-.6dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(5,24/22size#,23/22size#,1/22size#); "pion czarny z 5"; currentpicture := black_circle - digit[5] shifted (1w-.5dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(6,24/22size#,23/22size#,1/22size#); "pion czarny z 6"; currentpicture := black_circle - digit[6] shifted (1w-.5dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(7,24/22size#,23/22size#,1/22size#); "pion czarny z 7"; currentpicture := black_circle - digit[7] shifted (1w-.5dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(8,24/22size#,23/22size#,1/22size#); "pion czarny z 8"; currentpicture := black_circle - digit[8] shifted (1w-.5dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(9,24/22size#,23/22size#,1/22size#); "pion czarny z 9"; currentpicture := black_circle - digit[9] shifted (1w-.5dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% dig_w := .7dig_w; %%%dig_pen := .7dig_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 czarny z 10"; currentpicture := black_circle - digit[1] shifted (1w-1.2dig_w,-1/24w-.5dig_h) - digit[0] shifted (1w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(11,24/22size#,23/22size#,1/22size#); "pion czarny z 11"; currentpicture := black_circle - digit[1] shifted (1w-dig_w,-1/24w-.5dig_h) - digit[1] shifted (1w+.2dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(12,24/22size#,23/22size#,1/22size#); "pion czarny z 12"; currentpicture := black_circle - digit[1] shifted (1w-1.2dig_w,-1/24w-.5dig_h) - digit[2] shifted (1w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(13,24/22size#,23/22size#,1/22size#); "pion czarny z 13"; currentpicture := black_circle - digit[1] shifted (1w-1.2dig_w,-1/24w-.5dig_h) - digit[3] shifted (1w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(14,24/22size#,23/22size#,1/22size#); "pion czarny z 14"; currentpicture := black_circle - digit[1] shifted (1w-1.2dig_w,-1/24w-.5dig_h) - digit[4] shifted (1w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(15,24/22size#,23/22size#,1/22size#); "pion czarny z 15"; currentpicture := black_circle - digit[1] shifted (1w-1.2dig_w,-1/24w-.5dig_h) - digit[5] shifted (1w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(16,24/22size#,23/22size#,1/22size#); "pion czarny z 16"; currentpicture := black_circle - digit[1] shifted (1w-1.2dig_w,-1/24w-.5dig_h) - digit[6] shifted (1w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(17,24/22size#,23/22size#,1/22size#); "pion czarny z 17"; currentpicture := black_circle - digit[1] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[7] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(18,24/22size#,23/22size#,1/22size#); "pion czarny z 18"; currentpicture := black_circle - digit[1] shifted (1w-1.2dig_w,-1/24w-.5dig_h) - digit[8] shifted (1w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(19,24/22size#,23/22size#,1/22size#); "pion czarny z 19"; currentpicture := black_circle - digit[1] shifted (1w-1.2dig_w,-1/24w-.5dig_h) - digit[9] shifted (1w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(20,24/22size#,23/22size#,1/22size#); "pion czarny z 20"; currentpicture := black_circle - digit[2] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[0] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(21,24/22size#,23/22size#,1/22size#); "pion czarny z 21"; currentpicture := black_circle - digit[2] shifted (1w-.9dig_w,-1/24w-.5dig_h) - digit[1] shifted (1w+.2dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(22,24/22size#,23/22size#,1/22size#); "pion czarny z 22"; currentpicture := black_circle - digit[2] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[2] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(23,24/22size#,23/22size#,1/22size#); "pion czarny z 23"; currentpicture := black_circle - digit[2] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[3] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(24,24/22size#,23/22size#,1/22size#); "pion czarny z 24"; currentpicture := black_circle - digit[2] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[4] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(25,24/22size#,23/22size#,1/22size#); "pion czarny z 25"; currentpicture := black_circle - digit[2] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[5] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(26,24/22size#,23/22size#,1/22size#); "pion czarny z 26"; currentpicture := black_circle - digit[2] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[6] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(27,24/22size#,23/22size#,1/22size#); "pion czarny z 27"; currentpicture := black_circle - digit[2] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[7] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(28,24/22size#,23/22size#,1/22size#); "pion czarny z 28"; currentpicture := black_circle - digit[2] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[8] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(29,24/22size#,23/22size#,1/22size#); "pion czarny z 29"; currentpicture := black_circle - digit[2] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[9] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(30,24/22size#,23/22size#,1/22size#); "pion czarny z 30"; currentpicture := black_circle - digit[3] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[0] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(31,24/22size#,23/22size#,1/22size#); "pion czarny z 31"; currentpicture := black_circle - digit[3] shifted (1w-.9dig_w,-1/24w-.5dig_h) - digit[1] shifted (1w+.2dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(32,24/22size#,23/22size#,1/22size#); "pion czarny z 32"; currentpicture := black_circle - digit[3] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[2] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(33,24/22size#,23/22size#,1/22size#); "pion czarny z 33"; currentpicture := black_circle - digit[3] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[3] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(34,24/22size#,23/22size#,1/22size#); "pion czarny z 34"; currentpicture := black_circle - digit[3] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[4] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(35,24/22size#,23/22size#,1/22size#); "pion czarny z 35"; currentpicture := black_circle - digit[3] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[5] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(36,24/22size#,23/22size#,1/22size#); "pion czarny z 36"; currentpicture := black_circle - digit[3] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[6] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(37,24/22size#,23/22size#,1/22size#); "pion czarny z 37"; currentpicture := black_circle - digit[3] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[7] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(38,24/22size#,23/22size#,1/22size#); "pion czarny z 38"; currentpicture := black_circle - digit[3] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[8] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(39,24/22size#,23/22size#,1/22size#); "pion czarny z 39"; currentpicture := black_circle - digit[2] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[9] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(40,24/22size#,23/22size#,1/22size#); "pion czarny z 40"; currentpicture := black_circle - digit[4] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[0] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(41,24/22size#,23/22size#,1/22size#); "pion czarny z 41"; currentpicture := black_circle - digit[4] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[1] shifted (1w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(42,24/22size#,23/22size#,1/22size#); "pion czarny z 42"; currentpicture := black_circle - digit[4] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[2] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(43,24/22size#,23/22size#,1/22size#); "pion czarny z 43"; currentpicture := black_circle - digit[4] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[3] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(44,24/22size#,23/22size#,1/22size#); "pion czarny z 44"; currentpicture := black_circle - digit[4] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[4] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(45,24/22size#,23/22size#,1/22size#); "pion czarny z 45"; currentpicture := black_circle - digit[4] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[5] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(46,24/22size#,23/22size#,1/22size#); "pion czarny z 46"; currentpicture := black_circle - digit[4] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[6] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(47,24/22size#,23/22size#,1/22size#); "pion czarny z 47"; currentpicture := black_circle - digit[4] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[7] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(48,24/22size#,23/22size#,1/22size#); "pion czarny z 48"; currentpicture := black_circle - digit[4] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[8] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(49,24/22size#,23/22size#,1/22size#); "pion czarny z 49"; currentpicture := black_circle - digit[4] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[9] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(50,24/22size#,23/22size#,1/22size#); "pion czarny z 50"; currentpicture := black_circle - digit[5] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[0] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(51,24/22size#,23/22size#,1/22size#); "pion czarny z 51"; currentpicture := black_circle - digit[5] shifted (1w-.9dig_w,-1/24w-.5dig_h) - digit[1] shifted (1w+.2dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(52,24/22size#,23/22size#,1/22size#); "pion czarny z 52"; currentpicture := black_circle - digit[5] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[2] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(53,24/22size#,23/22size#,1/22size#); "pion czarny z 53"; currentpicture := black_circle - digit[5] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[3] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(54,24/22size#,23/22size#,1/22size#); "pion czarny z 54"; currentpicture := black_circle - digit[5] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[4] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(55,24/22size#,23/22size#,1/22size#); "pion czarny z 55"; currentpicture := black_circle - digit[5] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[5] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(56,24/22size#,23/22size#,1/22size#); "pion czarny z 56"; currentpicture := black_circle - digit[5] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[6] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(57,24/22size#,23/22size#,1/22size#); "pion czarny z 57"; currentpicture := black_circle - digit[5] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[7] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(58,24/22size#,23/22size#,1/22size#); "pion czarny z 58"; currentpicture := black_circle - digit[5] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[8] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(59,24/22size#,23/22size#,1/22size#); "pion czarny z 59"; currentpicture := black_circle - digit[5] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[9] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(60,24/22size#,23/22size#,1/22size#); "pion czarny z 60"; currentpicture := black_circle - digit[6] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[0] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(61,24/22size#,23/22size#,1/22size#); "pion czarny z 61"; currentpicture := black_circle - digit[6] shifted (1w-.9dig_w,-1/24w-.5dig_h) - digit[1] shifted (1w+.2dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(62,24/22size#,23/22size#,1/22size#); "pion czarny z 62"; currentpicture := black_circle - digit[6] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[2] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(63,24/22size#,23/22size#,1/22size#); "pion czarny z 63"; currentpicture := black_circle - digit[6] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[3] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; beginchar(64,24/22size#,23/22size#,1/22size#); "pion czarny z 64"; currentpicture := black_circle - digit[6] shifted (1w-1.1dig_w,-1/24w-.5dig_h) - digit[4] shifted (1w+.1dig_w,-1/24w-.5dig_h); showit; endchar; % stop""; end;