diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/go |
Initial commit
Diffstat (limited to 'fonts/go')
-rw-r--r-- | fonts/go/go.sty | 281 | ||||
-rw-r--r-- | fonts/go/gomaps.ltx | 429 | ||||
-rw-r--r-- | fonts/go/mf/go.bat | 10 | ||||
-rw-r--r-- | fonts/go/mf/go.mf | 333 | ||||
-rw-r--r-- | fonts/go/mf/go1.bat | 10 | ||||
-rw-r--r-- | fonts/go/mf/go10.mf | 13 | ||||
-rw-r--r-- | fonts/go/mf/go15.mf | 13 | ||||
-rw-r--r-- | fonts/go/mf/go1bla10.mf | 13 | ||||
-rw-r--r-- | fonts/go/mf/go1bla15.mf | 13 | ||||
-rw-r--r-- | fonts/go/mf/go1bla20.mf | 13 | ||||
-rw-r--r-- | fonts/go/mf/go1black.mf | 1341 | ||||
-rw-r--r-- | fonts/go/mf/go1whi10.mf | 14 | ||||
-rw-r--r-- | fonts/go/mf/go1whi15.mf | 14 | ||||
-rw-r--r-- | fonts/go/mf/go1whi20.mf | 13 | ||||
-rw-r--r-- | fonts/go/mf/go1white.mf | 1341 | ||||
-rw-r--r-- | fonts/go/mf/go20.mf | 13 | ||||
-rw-r--r-- | fonts/go/mf/go2bla10.mf | 13 | ||||
-rw-r--r-- | fonts/go/mf/go2bla15.mf | 13 | ||||
-rw-r--r-- | fonts/go/mf/go2bla20.mf | 13 | ||||
-rw-r--r-- | fonts/go/mf/go2black.mf | 1446 | ||||
-rw-r--r-- | fonts/go/mf/go2whi10.mf | 14 | ||||
-rw-r--r-- | fonts/go/mf/go2whi15.mf | 14 | ||||
-rw-r--r-- | fonts/go/mf/go2whi20.mf | 13 | ||||
-rw-r--r-- | fonts/go/mf/go2white.mf | 1446 | ||||
-rw-r--r-- | fonts/go/mf/gosign50.mf | 171 |
25 files changed, 7007 insertions, 0 deletions
diff --git a/fonts/go/go.sty b/fonts/go/go.sty new file mode 100644 index 0000000000..9973e165ac --- /dev/null +++ b/fonts/go/go.sty @@ -0,0 +1,281 @@ +%%%%%%%%%%%%%%%%%%%%%%%% go.sty %%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% written by Hanna Kolodziejska (version 0.05 : November 1991) +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\catcode`@=11 + +\newbox\@gobox \newdimen\@godimen + +\def\gofontsize#1{ + \font\gofont=go#1 at #1truept + \font\blackfontOne=go1bla#1 at #1truept + \font\blackfontTwo=go2bla#1 at #1truept + \font\whitefontOne=go1whi#1 at #1truept + \font\whitefontTwo=go2whi#1 at #1truept + \ifnum #1=10 \font\letterfont=cmr10 at 10truept\else %%% <--- ??? + \ifnum #1=15 \font\letterfont=cmr10 at 14.4truept\else %%% <--- ??? + \ifnum #1=20 \font\letterfont=cmr10 at 17.28truept\fi\fi\fi + \setbox\@gobox=\hbox{\gofont\char0} + \@godimen=\wd\@gobox + } + +\gofontsize{10} % initialization <--- + +\def\newgoline{\hfill\break} +\def\hoshi{\gofont\char0} +\def\empty{\gofont\char1} +\def\lftborder{\gofont\char2} +\def\rtborder{\gofont\char3} +\def\topborder{\gofont\char4} +\def\botborder{\gofont\char5} +\def\lfttopcorner{\gofont\char6} +\def\rttopcorner{\gofont\char7} +\def\lftbotcorner{\gofont\char8} +\def\rtbotcorner{\gofont\char9} +\def\triangle{\whitefontTwo\char127} %%% +\def\square{\whitefontTwo\char126} %%% + + +\newcount\n +\newcount\@beglet \newcount\@endlet +\newcount\@lettercount + +\def\@letternumber#1{\relax + \ifx #1a\@lettercount=1\else + \ifx #1b\@lettercount=2\else + \ifx #1c\@lettercount=3\else + \ifx #1d\@lettercount=4\else + \ifx #1e\@lettercount=5\else + \ifx #1f\@lettercount=6\else + \ifx #1g\@lettercount=7\else + \ifx #1h\@lettercount=8\else + \ifx #1i\@lettercount=9\else + \ifx #1k\@lettercount=10\else + \ifx #1l\@lettercount=11\else + \ifx #1m\@lettercount=12\else + \ifx #1n\@lettercount=13\else + \ifx #1o\@lettercount=14\else + \ifx #1p\@lettercount=15\else + \ifx #1q\@lettercount=16\else + \ifx #1r\@lettercount=17\else + \ifx #1s\@lettercount=18\else + \ifx #1t\@lettercount=19\else + \errmessage{Row label must be letter!} + \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi + \fi\fi\fi\fi\fi\fi\fi\fi\fi + } + + +\def\inidiagram#1-#2:#3-#4 {\relax + \ifnum #3>#4 \errmessage{Invalid column numbers!} \fi + \@letternumber{#1} \@beglet=\@lettercount + \@letternumber{#2} \@endlet=\@lettercount + \def\@inirow##1##2{{\n=#3 + \loop + \expandafter\let\csname @##1\romannumeral\n \endcsname=0\relax + \edef\@@inirow{\global + \def\csname @##1\romannumeral\n \endcsname{##2}}\@@inirow + \ifnum \n<#4 \advance \n by 1 + \repeat + }}\relax + \loop + \ifcase\@beglet\relax\or + \@inirow{a}{\topborder}\relax + \ifnum #3=1 \global\def\@ai{\lfttopcorner}\fi + \ifnum #4=19 \global\def\@axix{\rttopcorner}\fi \or + \@inirow{b}{\empty}\relax + \ifnum #3=1 \global\def\@bi{\lftborder}\fi + \ifnum #4=19 \global\def\@bxix{\rtborder}\fi \or + \@inirow{c}{\empty}\relax + \ifnum #3=1 \global\def\@ci{\lftborder}\fi + \ifnum #4=19 \global\def\@cxix{\rtborder}\fi \or + \@inirow{d}{\empty}\relax + \ifnum #3=1 \global\def\@di{\lftborder}\fi + \ifnum #3<5 \ifnum #4>3 \global\def\@div{\hoshi}\fi\fi + \ifnum #3<11 \ifnum #4>9 \global\def\@dx{\hoshi}\fi\fi + \ifnum #3<17 \ifnum #4>15 \global\def\@dxvi{\hoshi}\fi\fi + \ifnum #4=19 \global\def\@dxix{\rtborder}\fi \or + \@inirow{e}{\empty} + \ifnum #3=1 \global\def\@ei{\lftborder}\fi + \ifnum #4=19 \global\def\@exix{\rtborder}\fi \or + \@inirow{f}{\empty} + \ifnum #3=1 \global\def\@fi{\lftborder}\fi + \ifnum #4=19 \global\def\@fxix{\rtborder}\fi \or + \@inirow{g}{\empty} + \ifnum #3=1 \global\def\@gi{\lftborder}\fi + \ifnum #4=19 \global\def\@gxix{\rtborder}\fi \or + \@inirow{h}{\empty} + \ifnum #3=1 \global\def\@hi{\lftborder}\fi + \ifnum #4=19 \global\def\@hxix{\rtborder}\fi \or + \@inirow{i}{\empty} + \ifnum #3=1 \global\def\@ii{\lftborder}\fi + \ifnum #4=19 \global\def\@ixix{\rtborder}\fi \or + \@inirow{k}{\empty} + \ifnum #3=1 \global\def\@ki{\lftborder}\fi + \ifnum #3<5 \ifnum #4>3 \global\def\@kiv{\hoshi}\fi\fi + \ifnum #3<11 \ifnum #4>9 \global\def\@kx{\hoshi}\fi\fi + \ifnum #3<17 \ifnum #4>15 \global\def\@kxvi{\hoshi}\fi\fi + \ifnum #4=19 \global\def\@kxix{\rtborder}\fi \or + \@inirow{l}{\empty} + \ifnum #3=1 \global\def\@li{\lftborder}\fi + \ifnum #4=19 \global\def\@lxix{\rtborder}\fi \or + \@inirow{m}{\empty} + \ifnum #3=1 \global\def\@mi{\lftborder}\fi + \ifnum #4=19 \global\def\@mxix{\rtborder}\fi \or + \@inirow{n}{\empty} + \ifnum #3=1 \global\def\@ni{\lftborder}\fi + \ifnum #4=19 \global\def\@nxix{\rtborder}\fi \or + \@inirow{o}{\empty} + \ifnum #3=1 \global\def\@oi{\lftborder}\fi + \ifnum #4=19 \global\def\@oxix{\rtborder}\fi \or + \@inirow{p}{\empty} + \ifnum #3=1 \global\def\@pi{\lftborder}\fi + \ifnum #4=19 \global\def\@pxix{\rtborder}\fi \or + \@inirow{q}{\empty} + \ifnum #3=1 \global\def\@qi{\lftborder}\fi + \ifnum #3<5 \ifnum #4>3 \global\def\@qiv{\hoshi}\fi\fi + \ifnum #3<11 \ifnum #4>9 \global\def\@qx{\hoshi}\fi\fi + \ifnum #3<17 \ifnum #4>15 \global\def\@qxvi{\hoshi}\fi\fi + \ifnum #4=19 \global\def\@qxix{\rtborder}\fi \or + \@inirow{r}{\empty} + \ifnum #3=1 \global\def\@ri{\lftborder}\fi + \ifnum #4=19 \global\def\@rxix{\rtborder}\fi \or + \@inirow{s}{\empty} + \ifnum #3=1 \global\def\@si{\lftborder}\fi + \ifnum #4=19 \global\def\@sxix{\rtborder}\fi \or + \@inirow{t}{\botborder} + \ifnum #3=1 \global\def\@ti{\lftbotcorner}\fi + \ifnum #4=19 \global\def\@txix{\rtbotcorner}\fi + \fi + \ifnum \@beglet<\@endlet \advance \@beglet by 1 + \repeat + } + +\def\inifulldiagram{\inidiagram a-t:1-19 } + +\inifulldiagram % initialization + + +\def\showdiagram#1-#2:#3-#4 {\vbox{\offinterlineskip\noindent + \ifnum #3>#4 \errmessage{Invalid column numbers!} \fi + \hsize=\@godimen + \n=#4\advance\n by-#3\advance\n by1 + \multiply\hsize by\n + \@letternumber{#1} \@beglet=\@lettercount + \@letternumber{#2} \@endlet=\@lettercount + \def\@showrow##1{{\n=#3 + \loop + \edef\@@showrow{\csname @##1\romannumeral\n \endcsname}\@@showrow + \ifnum \n<#4 \advance \n by 1 + \repeat + }}\relax + \loop + \ifcase\@beglet\relax\or + \@showrow{a}\or + \@showrow{b}\or + \@showrow{c}\or + \@showrow{d}\or + \@showrow{e}\or + \@showrow{f}\or + \@showrow{g}\or + \@showrow{h}\or + \@showrow{i}\or + \@showrow{k}\or + \@showrow{l}\or + \@showrow{m}\or + \@showrow{n}\or + \@showrow{o}\or + \@showrow{p}\or + \@showrow{q}\or + \@showrow{r}\or + \@showrow{s}\or + \@showrow{t} + \fi + \ifnum \@beglet<\@endlet + \newgoline \advance \@beglet by 1 + \repeat + }} + +\def\showfulldiagram{\showdiagram a-t:1-19 } + +\def\pos#1#2=#3#4{\relax + \ifcat #1a\relax \else \errmessage{Row label must be a letter!}\fi + \ifnum #2<1 \errmessage{Column number less than 1?}\fi + \ifnum #2>19 \errmessage{Column number greater than 19?}\fi + \edef\@fourth{#4}\relax + \ifx .#4\ifx #3\empty\edef\@fourth{}\else \edef\@fourth{0}\fi\fi + \edef\@borders{\relax + \ifx #1a \ifnum #2=1 \gofont\char15 \else + \ifnum #2=19 \gofont\char16 \else + \gofont\char13 \fi\fi + \else + \ifx #1t \ifnum #2=1 \gofont\char17 \else + \ifnum #2=19 \gofont\char18 \else + \gofont\char14 \fi\fi + \else + \ifnum #2=1 \gofont\char11 + \else + \ifnum #2=19 \gofont\char12 + \else + \gofont\char10 + \fi\fi\fi\fi}\relax + \expandafter\let\csname @#1\romannumeral#2\endcsname=0\relax + \edef\@pos{\def\csname @#1\romannumeral#2\endcsname{#3{\@fourth}}}\@pos + \ignorespaces + } + + +\newcount\nr + +\def\black#1{\relax + \ifx \triangle#1{\let\whitefontTwo=\blackfontTwo + \rlap{\triangle}\@borders}\else + \ifx \square#1{\let\whitefontTwo=\blackfontTwo + \rlap{\square}\@borders}\else + \ifnum #1<0 \errmessage{Negative Black's move?}\else + \ifnum #1>253 \errmessage{Black's move too big!}\else + \ifnum #1<128 {\blackfontOne\rlap{\char#1}\@borders}\else + \nr=#1 + \advance \nr by -128 + {\blackfontTwo\rlap{\char\nr}\@borders}\ignorespaces + \fi\fi\fi\fi\fi} + +\def\white#1{\relax + \ifx \triangle#1{\rlap{\triangle}\@borders}\else + \ifx \square#1{\rlap{\square}\@borders}\else + \ifnum #1<0 \errmessage{Negative White's move?}\else + \ifnum #1>253 \errmessage{White's move too big!}\else + \ifnum #1<128 {\whitefontOne\rlap{\char#1}\@borders}\else + \nr=#1 + \advance \nr by -128 + {\whitefontTwo\rlap{\char\nr}\@borders}\ignorespaces + \fi\fi\fi\fi\fi} + +\def\textblack#1{\def\@borders{\hskip\wd\@gobox}\relax + \ifx .#1\lower.2\wd\@gobox\hbox{\black{0}}\else + \lower.2\wd\@gobox\hbox{\black{#1}}\fi} + +\def\textwhite#1{\def\@borders{\hskip\wd\@gobox}\relax + \ifx .#1\lower.2\wd\@gobox\hbox{\white{0}}\else + \lower.2\wd\@gobox\hbox{\white{#1}}\fi} + + +\newbox\@letterbox \newdimen\@letterdim + +\def\symbol#1{\relax + \ifcat a#1\relax\else + \ifcat 0#1\relax\else + \errmessage{Strange parameter of symbol macro! (#1)} + \fi\fi + \setbox\@letterbox=\hbox to\wd\@gobox{\hfil\letterfont #1\hfil}\relax + \@letterdim=\wd\@gobox + \divide \@letterdim by 24 + \multiply \@letterdim by 22 + \advance \@letterdim by -\ht\@letterbox + {\raise.5\@letterdim\box\@letterbox}\relax + } + +\let\letter=\symbol + +\catcode`@=12 diff --git a/fonts/go/gomaps.ltx b/fonts/go/gomaps.ltx new file mode 100644 index 0000000000..4ed3affd1a --- /dev/null +++ b/fonts/go/gomaps.ltx @@ -0,0 +1,429 @@ +\documentstyle[11pt,go]{article} + +\textwidth=6.5truein +\textheight=8.9truein +\oddsidemargin=0pt +\topmargin=-24pt +\font\gosign=gosign50 at 50truept + +\title{Go diagrams with \TeX \\[6pt] \gosign\char0} +\author{Hanna Ko{\l}odziejska\thanks{I wrote this paper in April 1990, + during my work in the Institute of Informatics at the + Warsaw University.} \\ + {\sf MacroSoft}, Ltd. \\ + ul.~Chro\'scickiego 49 \\ + 02-414 Warsaw, Poland} + +\begin{document} +\maketitle + +\noindent +Encoureged by Zalman Rubinstein, who described his chess +diagrams in TUGboat vol.~10 no.~2 [1], I have prepared some +special fonts and \TeX\ macros to be used in typesetting go +diagrams. For all the people who have never yet played go I found +the following introduction to the game~[2]: + +\begin{quotation} +\em +Go is one of the most ancient, interesting, and rewarding of all +board games. [\ldots] It is played on a wooden board marked with +nineteen vertical and nineteen horizontal lines. The pieces used +are disks of slate and white shell slightly more than two +centimeters in diameter. These, even made of plastic or glass, +as in mass-produced sets, are called stones. They are played on +the intersections formed by the lines on the board, not within +the squares. The board is empty at the beginning of the game, +and the two players take turns placing stones on it one at a +time, one player playing black the other playing white. Once +played, a stone remains in its place, not moving about from +point to point.\par +\end{quotation} + +\noindent +Go diagrams are easy to read. \textblack{1} is the first stone +played, \textwhite{2} the second, and so on. + +In order to facilitate inserting go diagrams in a text both in +Plain \TeX\ and \LaTeX, I decided to generate with Metafont all +the symbols needed, even lines and circles, and to put them in +three kinds of fonts: +\begin{enumerate} +\item fonts with black stones, eg.\ go1bla10, go2bla10 (go black stones at 10pt); +\item fonts with white stones, eg.\ go1whi10, go2whi10 (go white stones at 10pt); +\item fonts with additional symbols, like intersections of + lines, border lines, etc., eg.\ go10 (go symbols at 10pt). +\end{enumerate} +Probably two more fonts will be needed with black and white +stones numbered over~255, because games which last over +300~moves are not seldom! + +The macros for coding go diagrams are gathered in the `go.sty' +file. In the macros each line intersection is identified by the +row label (one of the letters: a, b, c, d, e, f, g, h, i, k, l, +m, n, o, p, q, r, s,~t) and the column number (from 1 to~19). +After issuing the command: +\begin{center} + \verb+\input go.sty+ +\end{center} +the current go diagram is initialized (with no stones on it). +Later in your text you can clear the whole diagram or only a +part of it by introducing one of the commands: +\begin{center} + \verb+\inifulldiagram+ +\end{center} +or +\begin{center} + \verb+\inidiagram+ \it with parameters. +\end{center} +For example, {\tt \verb+\inifulldiagram+} is equivalent to: +\begin{center} + \verb*+\inidiagram a-t:1-19 + +\end{center} +(with a space limiting the fourth parameter). + +The same rule stands also for showing diagrams: +\begin{center} + \verb+\showfulldiagram+ +\end{center} +is equivalent to: +\begin{center} + \verb*+\showdiagram a-t:1-19 + +\end{center} +Partial diagrams are often used to show go problems, their +solutions and different variations of moves. + +Putting a stone on the board is coded by the command: +\begin{center} + \verb+\pos+ \it with parameters. +\end{center} + +Lets consider an example: a problem to solve (Dia.~1) and its +solution (Dia.~2). + +\gofontsize{20} +\pos{a}{5}=\white. +\pos{a}{6}=\black. +\pos{b}{3}=\white. +\pos{b}{4}=\white. +\pos{b}{5}=\white. +\pos{b}{6}=\black. +\pos{c}{3}=\white. +\pos{c}{4}=\black. +\pos{c}{5}=\black. +\pos{d}{3}=\white. +\pos{e}{2}=\black. +\pos{e}{3}=\black. +\pos{e}{4}=\black. +\pos{e}{6}=\black{\triangle} +\begin{figure}[htb] +$$ +\showdiagram a-g:1-9 +$$ +\begin{center} Dia. 1 \end{center} +\end{figure} + +\vspace*{-12truept} +\begin{verbatim} +\input go.sty % inputs macros +\gofontsize{20} % chooses the size of stones and other + % symbols (default=10pt) +\pos{a}{5}=\white. % puts a white stone (without any number) +\pos{a}{6}=\black. % puts a black stone (without any number) + % on the a6 intersection +\pos{b}{3}=\white. +\pos{b}{4}=\white. +\pos{b}{5}=\white. +\pos{b}{6}=\black. +\pos{c}{3}=\white. +\pos{c}{4}=\black. +\pos{c}{5}=\black. +\pos{d}{3}=\white. +\pos{e}{2}=\black. +\pos{e}{3}=\black. +\pos{e}{4}=\black. +\pos{e}{6}=\black{\triangle} % puts a black stone with + % a triangle +$$ % centering +\showdiagram a-g:1-9 % the result is shown in Dia. 1 +$$ +\pos{b}{1}=\black{1} % puts a black stone with 1 +\pos{c}{2}=\letter{b} % puts a letter `b' on + % the c2 intersection +\pos{d}{2}=\letter{a} +\gofontsize{10} % changes the size of stones and + % other symbols +$$ +\showfulldiagram % as in Dia. 2. +$$ +\inifulldiagram % clears a board +\end{verbatim} +\smallskip + +\pos{b}{1}=\black{1} +\pos{c}{2}=\letter{b} +\pos{d}{2}=\letter{a} +\gofontsize{10} +\begin{figure}[htb] +$$ +\showfulldiagram +$$ +\begin{center} Dia. 2 \end{center} +\end{figure} +\inifulldiagram + +\noindent +An example of a real game is shown in Dia.~3 [3]. + +% DIAGRAM 3 +% +\pos{a}{1}=\white{194} +\pos{a}{3}=\black{191} +\pos{a}{5}=\black{187} +\pos{a}{6}=\white{186} +\pos{a}{8}=\black{181} +\pos{a}{9}=\white{190} +\pos{a}{12}=\black{175} +% +\pos{b}{1}=\black{135} +\pos{b}{2}=\white{184} +\pos{b}{3}=\white{182} +\pos{b}{4}=\black{183} +\pos{b}{5}=\black{193} +\pos{b}{6}=\white{178} +\pos{b}{8}=\black{179} +\pos{b}{9}=\white{172} +\pos{b}{10}=\white{174} +\pos{b}{12}=\black{93} +\pos{b}{13}=\white{92} +\pos{b}{14}=\white{142} +% +\pos{c}{1}=\white{132} +\pos{c}{2}=\black{133} +\pos{c}{3}=\white{196} +\pos{c}{4}=\black{3} +\pos{c}{5}=\black{189} +\pos{c}{6}=\white{176} +\pos{c}{7}=\black{17} +\pos{c}{8}=\black{173} +\pos{c}{9}=\black{171} +\pos{c}{10}=\white{168} +\pos{c}{11}=\black{195} +\pos{c}{12}=\black{57} +\pos{c}{13}=\black{141} +\pos{c}{14}=\white{10} +\pos{c}{15}=\white{52} +% +\pos{d}{1}=\white{134} +\pos{d}{2}=\black{137} +\pos{d}{3}=\black{13} +\pos{d}{4}=\white{188} +\pos{d}{5}=\black{15} +\pos{d}{6}=\black{177} +\pos{d}{7}=\white{180} +\pos{d}{8}=\black{21} +\pos{d}{9}=\white{170} +\pos{d}{10}=\black{169} +\pos{d}{11}=\black{9} +\pos{d}{13}=\white{154} +\pos{d}{14}=\black{143} +\pos{d}{15}=\black{51} +\pos{d}{16}=\white{2} +\pos{d}{17}=\white{54} +\pos{d}{18}=\white{24} +% +\pos{e}{1}=\white{140} +\pos{e}{2}=\white{136} +\pos{e}{4}=\white{12} +\pos{e}{7}=\white{14} +\pos{e}{8}=\white{192} +\pos{e}{9}=\white{20} +\pos{e}{13}=\white{160} +\pos{e}{16}=\black{53} +% +\pos{f}{2}=\white{62} +\pos{f}{3}=\white{64} +\pos{f}{4}=\white{58} +\pos{f}{6}=\white{16} +\pos{f}{7}=\white{70} +\pos{f}{8}=\white{166} +\pos{f}{10}=\white{158} +\pos{f}{11}=\white{50} +\pos{f}{13}=\white{144} +\pos{f}{17}=\black{23} +% +\pos{g}{1}=\white{84} +\pos{g}{2}=\black{63} +\pos{g}{3}=\white{60} +\pos{g}{4}=\black{19} +\pos{g}{5}=\black{59} +\pos{g}{6}=\black{65} +\pos{g}{7}=\white{66} +\pos{g}{8}=\black{69} +\pos{g}{9}=\white{148} +\pos{g}{10}=\black{157} +\pos{g}{11}=\white{76} +\pos{g}{14}=\black{81} +\pos{g}{15}=\black{87} +\pos{g}{18}=\black{139} +% +\pos{h}{2}=\white{82} +\pos{h}{3}=\black{61} +\pos{h}{7}=\black{67} +\pos{h}{8}=\white{68} +\pos{h}{9}=\white{22} +\pos{h}{10}=\black{147} +\pos{h}{11}=\black{75} +\pos{h}{12}=\black{77} +\pos{h}{14}=\black{79} +\pos{h}{15}=\white{80} +\pos{h}{17}=\black{123} +\pos{h}{18}=\white{138} +% +\pos{i}{1}=\white{94} +\pos{i}{2}=\black{83} +\pos{i}{4}=\black{5} +\pos{i}{6}=\white{18} +\pos{i}{7}=\black{71} +\pos{i}{15}=\white{74} +\pos{i}{17}=\black{55} +\pos{i}{18}=\white{120} +% +\pos{k}{2}=\black{95} +\pos{k}{7}=\black{73} +\pos{k}{8}=\white{86} +\pos{k}{9}=\white{72} +\pos{k}{10}=\black{165} +\pos{k}{11}=\black{11} +\pos{k}{17}=\black{119} +\pos{k}{18}=\white{118} +% +\pos{l}{4}=\black{49} +\pos{l}{6}=\black{89} +\pos{l}{7}=\white{88} +\pos{l}{8}=\black{127} +\pos{l}{9}=\white{128} +\pos{l}{10}=\black{115} +\pos{l}{13}=\white{116} +\pos{l}{15}=\white{78} +\pos{l}{16}=\black{121} +\pos{l}{17}=\white{56} +\pos{l}{18}=\black{117} +% +\pos{m}{6}=\black{91} +\pos{m}{7}=\white{90} +\pos{m}{8}=\black{129} +\pos{m}{9}=\white{114} +\pos{m}{10}=\black{125} +\pos{m}{12}=\black{145} +\pos{m}{16}=\white{124} +\pos{m}{17}=\white{122} +% +\pos{n}{7}=\black{113} +\pos{n}{9}=\black{159} +\pos{n}{10}=\black{167} +\pos{n}{11}=\white{164} +% +\pos{o}{2}=\black{131} +\pos{o}{4}=\black{7} +\pos{o}{9}=\black{153} +\pos{o}{12}=\white{156} +\pos{o}{16}=\white{28} +% +\pos{p}{1}=\white{130} +\pos{p}{2}=\black{111} +\pos{p}{6}=\black{85} +\pos{p}{8}=\white{152} +\pos{p}{9}=\black{151} +\pos{p}{11}=\white{162} +\pos{p}{12}=\black{155} +\pos{p}{13}=\white{104} +\pos{p}{14}=\white{108} +\pos{p}{15}=\white{26} +\pos{p}{16}=\black{25} +\pos{p}{17}=\white{106} +\pos{p}{18}=\white{34} +% +\pos{q}{2}=\white{110} +\pos{q}{3}=\black{45} +\pos{q}{4}=\black{1} +\pos{q}{7}=\black{103} +\pos{q}{8}=\white{150} +\pos{q}{9}=\black{149} +\pos{q}{10}=\white{8} +\pos{q}{11}=\black{161} +\pos{q}{12}=\white{100} +\pos{q}{13}=\black{101} +\pos{q}{14}=\black{107} +\pos{q}{15}=\white{30} +\pos{q}{16}=\black{29} +\pos{q}{17}=\white{36} +% +\pos{r}{1}=\white{112} +\pos{r}{2}=\black{47} +\pos{r}{3}=\white{42} +\pos{r}{4}=\black{43} +\pos{r}{6}=\white{6} +\pos{r}{7}=\black{99} +\pos{r}{8}=\white{146} +\pos{r}{9}=\black{97} +\pos{r}{11}=\white{40} +\pos{r}{12}=\black{39} +\pos{r}{15}=\black{31} +\pos{r}{16}=\white{4} +\pos{r}{17}=\black{27} +\pos{r}{18}=\white{96} +% +\pos{s}{2}=\white{46} +\pos{s}{3}=\white{48} +\pos{s}{4}=\white{44} +\pos{s}{7}=\white{102} +\pos{s}{8}=\white{126} +\pos{s}{9}=\black{185} +\pos{s}{11}=\white{98} +\pos{s}{12}=\black{41} +\pos{s}{13}=\black{109} +\pos{s}{15}=\black{35} +\pos{s}{16}=\white{32} +\pos{s}{17}=\black{33} +% +\pos{t}{16}=\black{37} + +\begin{figure}[htb] +\gofontsize{15} +$$ +\showfulldiagram +$$ +\begin{center} Dia. 3 \end{center} +\end{figure} + +\noindent +Diagrams are put in a text like ordinary vboxes. + +The stones can be also put directly in a paragraph. To do this +you should use the \verb+\textwhite+ and \verb+\textblack+ +commands instead of \verb+\white+ and \verb+\black+. For +example, the sentence from the beginning of this article: +``\textblack{1} is the first stone played, \textwhite{2} the +second, and so on'' was written as: ``\verb+\textblack{1}+ is the +first stone played, \verb+\textwhite{2}+ the second, and so on.'' + +There are no other secrets in coding go diagrams. Macros for +making $9\times 9$ or $13 \times 13$ diagrams can easily be +added to `go.sty' by a simple modification of the existing +macros for $19 \times 19$ diagrams. + + + +\subsection*{References} + +\begin{itemize} +\item[{[1]}] Zalman Rubinstein: ``Chess printing via Metafont + and \TeX'', TUGboat Vol.~10, No.~2. +\item[{[2]}] Iwamoto Kaoru, 9 dan: ``Go for beginners'', Ishi + Press, Inc., Tokyo, Japan. +\item[{[3]}] Janusz Kraszek: ``\'Swiat Go'', COK, Warsaw 1989 + (in Polish). +\end{itemize} + +\end{document} diff --git a/fonts/go/mf/go.bat b/fonts/go/mf/go.bat new file mode 100644 index 0000000000..50acc8b426 --- /dev/null +++ b/fonts/go/mf/go.bat @@ -0,0 +1,10 @@ +mf286 &plain \mode=hplaser; input go1bla15 +gftopk go1bla15.300 +mf286 &plain \mode=hplaser; input go2bla15 +gftopk go2bla15.300 +mf286 &plain \mode=hplaser; input go1whi15 +gftopk go1whi15.300 +mf286 &plain \mode=hplaser; input go2whi15 +gftopk go2whi15.300 +mf286 &plain \mode=hplaser; input go15 +gftopk go15.300 diff --git a/fonts/go/mf/go.mf b/fonts/go/mf/go.mf new file mode 100644 index 0000000000..6972493e35 --- /dev/null +++ b/fonts/go/mf/go.mf @@ -0,0 +1,333 @@ +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; + diff --git a/fonts/go/mf/go1.bat b/fonts/go/mf/go1.bat new file mode 100644 index 0000000000..50acc8b426 --- /dev/null +++ b/fonts/go/mf/go1.bat @@ -0,0 +1,10 @@ +mf286 &plain \mode=hplaser; input go1bla15 +gftopk go1bla15.300 +mf286 &plain \mode=hplaser; input go2bla15 +gftopk go2bla15.300 +mf286 &plain \mode=hplaser; input go1whi15 +gftopk go1whi15.300 +mf286 &plain \mode=hplaser; input go2whi15 +gftopk go2whi15.300 +mf286 &plain \mode=hplaser; input go15 +gftopk go15.300 diff --git a/fonts/go/mf/go10.mf b/fonts/go/mf/go10.mf new file mode 100644 index 0000000000..e5bae4ddf6 --- /dev/null +++ b/fonts/go/mf/go10.mf @@ -0,0 +1,13 @@ +font_identifier:="GO"; font_size 10pt#; + +size#:=10pt#; +line_thickness#:=.04size#; +border_line_thickness#:=.1size#; + +%%% + +dig_h#:=7/10size#; +dig_w#:=4/10size#; +dig_pen#:=1/10size#; + +input go diff --git a/fonts/go/mf/go15.mf b/fonts/go/mf/go15.mf new file mode 100644 index 0000000000..7a86a9e7d7 --- /dev/null +++ b/fonts/go/mf/go15.mf @@ -0,0 +1,13 @@ +font_identifier:="GO"; font_size 15pt#; + +size#:=15pt#; +line_thickness#:=.04size#; +border_line_thickness#:=.1size#; + +%%% + +dig_h#:=7/10size#; +dig_w#:=4/10size#; +dig_pen#:=1/10size#; + +input go diff --git a/fonts/go/mf/go1bla10.mf b/fonts/go/mf/go1bla10.mf new file mode 100644 index 0000000000..ebb13bf04d --- /dev/null +++ b/fonts/go/mf/go1bla10.mf @@ -0,0 +1,13 @@ +font_identifier:="GO1BLACK"; font_size 10pt#; + +size#:=10pt#; +line_thickness#:=.04size#; +border_line_thickness#:=.1size#; + +%%% + +dig_h#:=63/100size#; +dig_w#:=4/10size#; +dig_pen#:=1/10size#; + +input go1black diff --git a/fonts/go/mf/go1bla15.mf b/fonts/go/mf/go1bla15.mf new file mode 100644 index 0000000000..9f2299268b --- /dev/null +++ b/fonts/go/mf/go1bla15.mf @@ -0,0 +1,13 @@ +font_identifier:="GO1BLACK"; font_size 15pt#; + +size#:=15pt#; +line_thickness#:=.04size#; +border_line_thickness#:=.1size#; + +%%% + +dig_h#:=63/100size#; +dig_w#:=4/10size#; +dig_pen#:=1/10size#; + +input go1black diff --git a/fonts/go/mf/go1bla20.mf b/fonts/go/mf/go1bla20.mf new file mode 100644 index 0000000000..a4a21afe77 --- /dev/null +++ b/fonts/go/mf/go1bla20.mf @@ -0,0 +1,13 @@ +font_identifier:="GO1BLACK"; font_size 20pt#; + +size#:=20pt#; +line_thickness#:=.04size#; +border_line_thickness#:=.1size#; + +%%% + +dig_h#:=63/100size#; +dig_w#:=4/10size#; +dig_pen#:=1/10size#; + +input go1black diff --git a/fonts/go/mf/go1black.mf b/fonts/go/mf/go1black.mf new file mode 100644 index 0000000000..c6924a546e --- /dev/null +++ b/fonts/go/mf/go1black.mf @@ -0,0 +1,1341 @@ +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=1/24w; y1=11/24w; + rt x2=23/24w; y2=11/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 (.5w-.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(2,24/22size#,23/22size#,1/22size#); "pion czarny z 2"; + currentpicture := black_circle + - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(3,24/22size#,23/22size#,1/22size#); "pion czarny z 3"; + currentpicture := black_circle + - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(4,24/22size#,23/22size#,1/22size#); "pion czarny z 4"; + currentpicture := black_circle + - digit[4] shifted (.5w-.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(5,24/22size#,23/22size#,1/22size#); "pion czarny z 5"; + currentpicture := black_circle + - digit[5] shifted (.5w-.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(6,24/22size#,23/22size#,1/22size#); "pion czarny z 6"; + currentpicture := black_circle + - digit[6] shifted (.5w-.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(7,24/22size#,23/22size#,1/22size#); "pion czarny z 7"; + currentpicture := black_circle + - digit[7] shifted (.5w-.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(8,24/22size#,23/22size#,1/22size#); "pion czarny z 8"; + currentpicture := black_circle + - digit[8] shifted (.5w-.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(9,24/22size#,23/22size#,1/22size#); "pion czarny z 9"; + currentpicture := black_circle + - digit[9] shifted (.5w-.5dig_w,11/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 (.5w-1.2dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(11,24/22size#,23/22size#,1/22size#); "pion czarny z 11"; + currentpicture := black_circle + - digit[1] shifted (.5w-dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(12,24/22size#,23/22size#,1/22size#); "pion czarny z 12"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(13,24/22size#,23/22size#,1/22size#); "pion czarny z 13"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(14,24/22size#,23/22size#,1/22size#); "pion czarny z 14"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(15,24/22size#,23/22size#,1/22size#); "pion czarny z 15"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(16,24/22size#,23/22size#,1/22size#); "pion czarny z 16"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(17,24/22size#,23/22size#,1/22size#); "pion czarny z 17"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.1dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(18,24/22size#,23/22size#,1/22size#); "pion czarny z 18"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(19,24/22size#,23/22size#,1/22size#); "pion czarny z 19"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(20,24/22size#,23/22size#,1/22size#); "pion czarny z 20"; + currentpicture := black_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 := black_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 czarny z 22"; + currentpicture := black_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 := black_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 czarny z 24"; + currentpicture := black_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 := black_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 czarny z 26"; + currentpicture := black_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 := black_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 czarny z 28"; + currentpicture := black_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 := black_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 czarny z 30"; + currentpicture := black_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 := black_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 czarny z 32"; + currentpicture := black_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 := black_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 czarny z 34"; + currentpicture := black_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 := black_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 czarny z 36"; + currentpicture := black_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 := black_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 czarny z 38"; + currentpicture := black_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 := black_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(40,24/22size#,23/22size#,1/22size#); "pion czarny z 40"; + currentpicture := black_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 := black_circle + - digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(42,24/22size#,23/22size#,1/22size#); "pion czarny z 42"; + currentpicture := black_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 := black_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 czarny z 44"; + currentpicture := black_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 := black_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 czarny z 46"; + currentpicture := black_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 := black_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 czarny z 48"; + currentpicture := black_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 := black_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 czarny z 50"; + currentpicture := black_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 := black_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 czarny z 52"; + currentpicture := black_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 := black_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 czarny z 54"; + currentpicture := black_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 := black_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 czarny z 56"; + currentpicture := black_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 := black_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 czarny z 58"; + currentpicture := black_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 := black_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 czarny z 60"; + currentpicture := black_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 := black_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 czarny z 62"; + currentpicture := black_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 := black_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 czarny z 64"; + currentpicture := black_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 := black_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 czarny z 66"; + currentpicture := black_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 := black_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 czarny z 68"; + currentpicture := black_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 := black_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 czarny z 70"; + currentpicture := black_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 := black_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 czarny z 72"; + currentpicture := black_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 := black_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 czarny z 74"; + currentpicture := black_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 := black_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 czarny z 76"; + currentpicture := black_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 := black_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 czarny z 78"; + currentpicture := black_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 := black_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 czarny z 80"; + currentpicture := black_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 := black_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 czarny z 82"; + currentpicture := black_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 := black_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 czarny z 84"; + currentpicture := black_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 := black_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 czarny z 86"; + currentpicture := black_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 := black_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 czarny z 88"; + currentpicture := black_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 := black_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 czarny z 90"; + currentpicture := black_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 := black_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 czarny z 92"; + currentpicture := black_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 := black_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 czarny z 94"; + currentpicture := black_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 := black_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 czarny z 96"; + currentpicture := black_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 := black_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 czarny z 98"; + currentpicture := black_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 := black_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 := .6dig_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(100,24/22size#,23/22size#,1/22size#); "pion czarny z 100"; + currentpicture := black_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 := black_circle + - digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(102,24/22size#,23/22size#,1/22size#); "pion czarny z 102"; + currentpicture := black_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 := black_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 czarny z 104"; + currentpicture := black_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 := black_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 czarny z 106"; + currentpicture := black_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 := black_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 czarny z 108"; + currentpicture := black_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 := black_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 czarny z 110"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w+.2dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(111,24/22size#,23/22size#,1/22size#); "pion czarny z 111"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(112,24/22size#,23/22size#,1/22size#); "pion czarny z 112"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w+.2dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(113,24/22size#,23/22size#,1/22size#); "pion czarny z 113"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.7dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w+.2dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(114,24/22size#,23/22size#,1/22size#); "pion czarny z 114"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w+.15dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(115,24/22size#,23/22size#,1/22size#); "pion czarny z 115"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w+.2dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(116,24/22size#,23/22size#,1/22size#); "pion czarny z 116"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w+.2dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(117,24/22size#,23/22size#,1/22size#); "pion czarny z 117"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.7dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w+.2dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(118,24/22size#,23/22size#,1/22size#); "pion czarny z 118"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w+.2dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(119,24/22size#,23/22size#,1/22size#); "pion czarny z 119"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w+.2dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(120,24/22size#,23/22size#,1/22size#); "pion czarny z 120"; + currentpicture := black_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 := black_circle + - digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w-.55dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(122,24/22size#,23/22size#,1/22size#); "pion czarny z 122"; + currentpicture := black_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 := black_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 czarny z 124"; + currentpicture := black_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 := black_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 czarny z 126"; + currentpicture := black_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 := black_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; + diff --git a/fonts/go/mf/go1whi10.mf b/fonts/go/mf/go1whi10.mf new file mode 100644 index 0000000000..e39b02d0c1 --- /dev/null +++ b/fonts/go/mf/go1whi10.mf @@ -0,0 +1,14 @@ +font_identifier:="GO1WHITE"; font_size 10pt#; + +size#:=10pt#; +line_thickness#:=.04size#; +border_line_thickness#:=.1size#; + +%%% + +dig_h#:=63/100size#; +dig_w#:=4/10size#; +dig_pen#:=1/10size#; + +input go1white + diff --git a/fonts/go/mf/go1whi15.mf b/fonts/go/mf/go1whi15.mf new file mode 100644 index 0000000000..6e5343e2ed --- /dev/null +++ b/fonts/go/mf/go1whi15.mf @@ -0,0 +1,14 @@ +font_identifier:="GO1WHITE"; font_size 15pt#; + +size#:=15pt#; +line_thickness#:=.04size#; +border_line_thickness#:=.1size#; + +%%% + +dig_h#:=63/100size#; +dig_w#:=4/10size#; +dig_pen#:=1/10size#; + +input go1white + diff --git a/fonts/go/mf/go1whi20.mf b/fonts/go/mf/go1whi20.mf new file mode 100644 index 0000000000..20ffd1e544 --- /dev/null +++ b/fonts/go/mf/go1whi20.mf @@ -0,0 +1,13 @@ +font_identifier:="GO1WHITE"; font_size 20pt#; + +size#:=20pt#; +line_thickness#:=.04size#; +border_line_thickness#:=.1size#; + +%%% + +dig_h#:=63/100size#; +dig_w#:=4/10size#; +dig_pen#:=1/10size#; + +input go1white diff --git a/fonts/go/mf/go1white.mf b/fonts/go/mf/go1white.mf new file mode 100644 index 0000000000..7528fd1d6d --- /dev/null +++ b/fonts/go/mf/go1white.mf @@ -0,0 +1,1341 @@ +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 := .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 bialy z 10"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w,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-dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w+.2dig_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,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,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,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,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,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+.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,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,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[2] 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.1dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w,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 := .6dig_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(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.5dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w+.5dig_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.5dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w+.2dig_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.2dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w+.2dig_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.5dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w+.2dig_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.4dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.7dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w+.2dig_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.5dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w+.15dig_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.5dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w+.2dig_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.5dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w+.2dig_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.4dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.7dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w+.2dig_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.5dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w+.2dig_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.5dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w+.2dig_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.6dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w-.55dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w+.5dig_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; + diff --git a/fonts/go/mf/go20.mf b/fonts/go/mf/go20.mf new file mode 100644 index 0000000000..48fa2d4319 --- /dev/null +++ b/fonts/go/mf/go20.mf @@ -0,0 +1,13 @@ +font_identifier:="GO"; font_size 20pt#; + +size#:=20pt#; +line_thickness#:=.04size#; +border_line_thickness#:=.1size#; + +%%% + +dig_h#:=7/10size#; +dig_w#:=4/10size#; +dig_pen#:=1/10size#; + +input go diff --git a/fonts/go/mf/go2bla10.mf b/fonts/go/mf/go2bla10.mf new file mode 100644 index 0000000000..f851989fdd --- /dev/null +++ b/fonts/go/mf/go2bla10.mf @@ -0,0 +1,13 @@ +font_identifier:="GO2BLACK"; font_size 10pt#; + +size#:=10pt#; +line_thickness#:=.04size#; +border_line_thickness#:=.1size#; + +%%% + +dig_h#:=63/100size#; +dig_w#:=4/10size#; +dig_pen#:=1/10size#; + +input go2black diff --git a/fonts/go/mf/go2bla15.mf b/fonts/go/mf/go2bla15.mf new file mode 100644 index 0000000000..2d0ec3c8c7 --- /dev/null +++ b/fonts/go/mf/go2bla15.mf @@ -0,0 +1,13 @@ +font_identifier:="GO2BLACK"; font_size 15pt#; + +size#:=15pt#; +line_thickness#:=.04size#; +border_line_thickness#:=.1size#; + +%%% + +dig_h#:=63/100size#; +dig_w#:=4/10size#; +dig_pen#:=1/10size#; + +input go2black diff --git a/fonts/go/mf/go2bla20.mf b/fonts/go/mf/go2bla20.mf new file mode 100644 index 0000000000..e08a3e3496 --- /dev/null +++ b/fonts/go/mf/go2bla20.mf @@ -0,0 +1,13 @@ +font_identifier:="GO2BLACK"; font_size 20pt#; + +size#:=20pt#; +line_thickness#:=.04size#; +border_line_thickness#:=.1size#; + +%%% + +dig_h#:=63/100size#; +dig_w#:=4/10size#; +dig_pen#:=1/10size#; + +input go2black diff --git a/fonts/go/mf/go2black.mf b/fonts/go/mf/go2black.mf new file mode 100644 index 0000000000..8d88b7c31a --- /dev/null +++ b/fonts/go/mf/go2black.mf @@ -0,0 +1,1446 @@ +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; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +dig_w := .7dig_w; +%%%dig_pen := .7dig_pen; + +dig_w := .6dig_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(0,24/22size#,23/22size#,1/22size#); "pion czarny z 128"; + pickup pencircle scaled line_thickness; + lft x1=1/24w; y1=11/24w; + rt x2=23/24w; y2=11/24w; + filldraw z1..z2..cycle; + black_circle := currentpicture; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(1,24/22size#,23/22size#,1/22size#); "pion czarny z 129"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(2,24/22size#,23/22size#,1/22size#); "pion czarny z 130"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(3,24/22size#,23/22size#,1/22size#); "pion czarny z 131"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.55dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(4,24/22size#,23/22size#,1/22size#); "pion czarny z 132"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(5,24/22size#,23/22size#,1/22size#); "pion czarny z 133"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.7dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(6,24/22size#,23/22size#,1/22size#); "pion czarny z 134"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.75dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(7,24/22size#,23/22size#,1/22size#); "pion czarny z 135"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(8,24/22size#,23/22size#,1/22size#); "pion czarny z 136"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(9,24/22size#,23/22size#,1/22size#); "pion czarny z 137"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.7dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(10,24/22size#,23/22size#,1/22size#); "pion czarny z 138"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(11,24/22size#,23/22size#,1/22size#); "pion czarny z 139"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(12,24/22size#,23/22size#,1/22size#); "pion czarny z 140"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(13,24/22size#,23/22size#,1/22size#); "pion czarny z 141"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.6dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(14,24/22size#,23/22size#,1/22size#); "pion czarny z 142"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(15,24/22size#,23/22size#,1/22size#); "pion czarny z 143"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.75dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(16,24/22size#,23/22size#,1/22size#); "pion czarny z 144"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.65dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.75dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(17,24/22size#,23/22size#,1/22size#); "pion czarny z 145"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(18,24/22size#,23/22size#,1/22size#); "pion czarny z 146"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(19,24/22size#,23/22size#,1/22size#); "pion czarny z 147"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(20,24/22size#,23/22size#,1/22size#); "pion czarny z 148"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(21,24/22size#,23/22size#,1/22size#); "pion czarny z 149"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(22,24/22size#,23/22size#,1/22size#); "pion czarny z 150"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(23,24/22size#,23/22size#,1/22size#); "pion czarny z 151"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w-.55dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(24,24/22size#,23/22size#,1/22size#); "pion czarny z 152"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(25,24/22size#,23/22size#,1/22size#); "pion czarny z 153"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w-.7dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(26,24/22size#,23/22size#,1/22size#); "pion czarny z 154"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w-.75dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(27,24/22size#,23/22size#,1/22size#); "pion czarny z 155"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(28,24/22size#,23/22size#,1/22size#); "pion czarny z 156"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(29,24/22size#,23/22size#,1/22size#); "pion czarny z 157"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w-.7dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(30,24/22size#,23/22size#,1/22size#); "pion czarny z 158"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(31,24/22size#,23/22size#,1/22size#); "pion czarny z 159"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(32,24/22size#,23/22size#,1/22size#); "pion czarny z 160"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(33,24/22size#,23/22size#,1/22size#); "pion czarny z 161"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w-.55dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(34,24/22size#,23/22size#,1/22size#); "pion czarny z 162"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(35,24/22size#,23/22size#,1/22size#); "pion czarny z 163"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w-.7dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(36,24/22size#,23/22size#,1/22size#); "pion czarny z 164"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w-.75dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(37,24/22size#,23/22size#,1/22size#); "pion czarny z 165"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(38,24/22size#,23/22size#,1/22size#); "pion czarny z 166"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(39,24/22size#,23/22size#,1/22size#); "pion czarny z 167"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w-.7dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(40,24/22size#,23/22size#,1/22size#); "pion czarny z 168"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(41,24/22size#,23/22size#,1/22size#); "pion czarny z 169"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(42,24/22size#,23/22size#,1/22size#); "pion czarny z 170"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(43,24/22size#,23/22size#,1/22size#); "pion czarny z 171"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(44,24/22size#,23/22size#,1/22size#); "pion czarny z 172"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(45,24/22size#,23/22size#,1/22size#); "pion czarny z 173"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w-.7dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(46,24/22size#,23/22size#,1/22size#); "pion czarny z 174"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w-.75dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(47,24/22size#,23/22size#,1/22size#); "pion czarny z 175"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(48,24/22size#,23/22size#,1/22size#); "pion czarny z 176"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(49,24/22size#,23/22size#,1/22size#); "pion czarny z 177"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w-.75dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(50,24/22size#,23/22size#,1/22size#); "pion czarny z 178"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(51,24/22size#,23/22size#,1/22size#); "pion czarny z 179"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(52,24/22size#,23/22size#,1/22size#); "pion czarny z 180"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(53,24/22size#,23/22size#,1/22size#); "pion czarny z 181"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w-.55dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(54,24/22size#,23/22size#,1/22size#); "pion czarny z 182"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(55,24/22size#,23/22size#,1/22size#); "pion czarny z 183"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w-.7dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(56,24/22size#,23/22size#,1/22size#); "pion czarny z 184"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w-.75dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(57,24/22size#,23/22size#,1/22size#); "pion czarny z 185"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(58,24/22size#,23/22size#,1/22size#); "pion czarny z 186"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(59,24/22size#,23/22size#,1/22size#); "pion czarny z 187"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w-.7dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(60,24/22size#,23/22size#,1/22size#); "pion czarny z 188"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(61,24/22size#,23/22size#,1/22size#); "pion czarny z 189"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(62,24/22size#,23/22size#,1/22size#); "pion czarny z 190"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(63,24/22size#,23/22size#,1/22size#); "pion czarny z 191"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w-.55dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(64,24/22size#,23/22size#,1/22size#); "pion czarny z 192"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(65,24/22size#,23/22size#,1/22size#); "pion czarny z 193"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w-.7dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(66,24/22size#,23/22size#,1/22size#); "pion czarny z 194"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w-.75dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(67,24/22size#,23/22size#,1/22size#); "pion czarny z 195"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(68,24/22size#,23/22size#,1/22size#); "pion czarny z 196"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(69,24/22size#,23/22size#,1/22size#); "pion czarny z 197"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w-.7dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(70,24/22size#,23/22size#,1/22size#); "pion czarny z 198"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(71,24/22size#,23/22size#,1/22size#); "pion czarny z 199"; + currentpicture := black_circle + - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(72,24/22size#,23/22size#,1/22size#); "pion czarny z 200"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(73,24/22size#,23/22size#,1/22size#); "pion czarny z 201"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w-.4dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(74,24/22size#,23/22size#,1/22size#); "pion czarny z 202"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(75,24/22size#,23/22size#,1/22size#); "pion czarny z 203"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w-.45dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(76,24/22size#,23/22size#,1/22size#); "pion czarny z 204"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(77,24/22size#,23/22size#,1/22size#); "pion czarny z 205"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(78,24/22size#,23/22size#,1/22size#); "pion czarny z 206"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(79,24/22size#,23/22size#,1/22size#); "pion czarny z 207"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w-.45dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(80,24/22size#,23/22size#,1/22size#); "pion czarny z 208"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(81,24/22size#,23/22size#,1/22size#); "pion czarny z 209"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w-.45dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(82,24/22size#,23/22size#,1/22size#); "pion czarny z 210"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(83,24/22size#,23/22size#,1/22size#); "pion czarny z 211"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.4dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(84,24/22size#,23/22size#,1/22size#); "pion czarny z 212"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(85,24/22size#,23/22size#,1/22size#); "pion czarny z 213"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(86,24/22size#,23/22size#,1/22size#); "pion czarny z 214"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w+.4dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(87,24/22size#,23/22size#,1/22size#); "pion czarny z 215"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(88,24/22size#,23/22size#,1/22size#); "pion czarny z 216"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(89,24/22size#,23/22size#,1/22size#); "pion czarny z 217"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(90,24/22size#,23/22size#,1/22size#); "pion czarny z 218"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(91,24/22size#,23/22size#,1/22size#); "pion czarny z 219"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(92,24/22size#,23/22size#,1/22size#); "pion czarny z 220"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(93,24/22size#,23/22size#,1/22size#); "pion czarny z 221"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w-.4dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(94,24/22size#,23/22size#,1/22size#); "pion czarny z 222"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(95,24/22size#,23/22size#,1/22size#); "pion czarny z 223"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(96,24/22size#,23/22size#,1/22size#); "pion czarny z 224"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w+.55dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(97,24/22size#,23/22size#,1/22size#); "pion czarny z 225"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(98,24/22size#,23/22size#,1/22size#); "pion czarny z 226"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(99,24/22size#,23/22size#,1/22size#); "pion czarny z 227"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(100,24/22size#,23/22size#,1/22size#); "pion czarny z 228"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(101,24/22size#,23/22size#,1/22size#); "pion czarny z 229"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(102,24/22size#,23/22size#,1/22size#); "pion czarny z 230"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(103,24/22size#,23/22size#,1/22size#); "pion czarny z 231"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.4dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(104,24/22size#,23/22size#,1/22size#); "pion czarny z 232"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(105,24/22size#,23/22size#,1/22size#); "pion czarny z 233"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(106,24/22size#,23/22size#,1/22size#); "pion czarny z 234"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(107,24/22size#,23/22size#,1/22size#); "pion czarny z 235"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(108,24/22size#,23/22size#,1/22size#); "pion czarny z 236"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(109,24/22size#,23/22size#,1/22size#); "pion czarny z 237"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(110,24/22size#,23/22size#,1/22size#); "pion czarny z 238"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(111,24/22size#,23/22size#,1/22size#); "pion czarny z 239"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(112,24/22size#,23/22size#,1/22size#); "pion czarny z 240"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w+.75dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(113,24/22size#,23/22size#,1/22size#); "pion czarny z 241"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(114,24/22size#,23/22size#,1/22size#); "pion czarny z 242"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(115,24/22size#,23/22size#,1/22size#); "pion czarny z 243"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(116,24/22size#,23/22size#,1/22size#); "pion czarny z 244"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(117,24/22size#,23/22size#,1/22size#); "pion czarny z 245"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w+.75dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(118,24/22size#,23/22size#,1/22size#); "pion czarny z 246"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[6] shifted (.5w+.75dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(119,24/22size#,23/22size#,1/22size#); "pion czarny z 247"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[7] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(120,24/22size#,23/22size#,1/22size#); "pion czarny z 248"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[8] shifted (.5w+.75dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(121,24/22size#,23/22size#,1/22size#); "pion czarny z 249"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[9] shifted (.5w+.75dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(122,24/22size#,23/22size#,1/22size#); "pion czarny z 250"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[0] shifted (.5w+.8dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(123,24/22size#,23/22size#,1/22size#); "pion czarny z 251"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.5dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w-.4dig_w,11/24w-.5dig_h) + - digit[1] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(124,24/22size#,23/22size#,1/22size#); "pion czarny z 252"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[2] shifted (.5w+.8dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(125,24/22size#,23/22size#,1/22size#); "pion czarny z 253"; + currentpicture := black_circle + - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + - digit[5] shifted (.5w-.5dig_w,11/24w-.5dig_h) + - digit[3] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +%%%%%%%%%%%%%%%%%%%%%% other symbols %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +beginchar(126,24/22size#,23/22size#,1/22size#); "pion czarny z kwadratem"; + pickup pencircle scaled 1.25line_thickness; + z1=(.5w+.32size,11/24w+.32size); + z2=(.5w+.32size,11/24w-.32size); + z3=(.5w-.32size,11/24w-.32size); + z4=(.5w-.32size,11/24w+.32size); + currentpicture := black_circle; + erase draw z1--z2--z3--z4--cycle; +showit; +endchar; + +% stop""; + +beginchar(127,24/22size#,23/22size#,1/22size#); "pion czarny z trojkatem"; + pickup pencircle scaled 1.25line_thickness; + lft x1=.08size+1/24w; bot y1=.24size; + x2=.5w; top y2=.98size; + rt x3=.92size+1/24w; bot y3=.24size; + currentpicture := black_circle; + erase draw z1--z2--z3--cycle; +showit; +endchar; + +% stop""; + +end; + diff --git a/fonts/go/mf/go2whi10.mf b/fonts/go/mf/go2whi10.mf new file mode 100644 index 0000000000..e6ecf3554a --- /dev/null +++ b/fonts/go/mf/go2whi10.mf @@ -0,0 +1,14 @@ +font_identifier:="GO2WHITE"; font_size 10pt#; + +size#:=10pt#; +line_thickness#:=.04size#; +border_line_thickness#:=.1size#; + +%%% + +dig_h#:=63/100size#; +dig_w#:=4/10size#; +dig_pen#:=1/10size#; + +input go2white + diff --git a/fonts/go/mf/go2whi15.mf b/fonts/go/mf/go2whi15.mf new file mode 100644 index 0000000000..cd995b42e5 --- /dev/null +++ b/fonts/go/mf/go2whi15.mf @@ -0,0 +1,14 @@ +font_identifier:="GO2WHITE"; font_size 15pt#; + +size#:=15pt#; +line_thickness#:=.04size#; +border_line_thickness#:=.1size#; + +%%% + +dig_h#:=63/100size#; +dig_w#:=4/10size#; +dig_pen#:=1/10size#; + +input go2white + diff --git a/fonts/go/mf/go2whi20.mf b/fonts/go/mf/go2whi20.mf new file mode 100644 index 0000000000..605b0d7a18 --- /dev/null +++ b/fonts/go/mf/go2whi20.mf @@ -0,0 +1,13 @@ +font_identifier:="GO2WHITE"; font_size 20pt#; + +size#:=20pt#; +line_thickness#:=.04size#; +border_line_thickness#:=.1size#; + +%%% + +dig_h#:=63/100size#; +dig_w#:=4/10size#; +dig_pen#:=1/10size#; + +input go2white diff --git a/fonts/go/mf/go2white.mf b/fonts/go/mf/go2white.mf new file mode 100644 index 0000000000..39640e5e69 --- /dev/null +++ b/fonts/go/mf/go2white.mf @@ -0,0 +1,1446 @@ +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; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +dig_w := .7dig_w; +dig_pen := .7dig_pen; + +dig_w := .6dig_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(0,24/22size#,23/22size#,1/22size#); "pion bialy z 128"; + 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; + 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[8] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(1,24/22size#,23/22size#,1/22size#); "pion bialy z 129"; + 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[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(2,24/22size#,23/22size#,1/22size#); "pion bialy z 130"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(3,24/22size#,23/22size#,1/22size#); "pion bialy z 131"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.55dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(4,24/22size#,23/22size#,1/22size#); "pion bialy z 132"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(5,24/22size#,23/22size#,1/22size#); "pion bialy z 133"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.7dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(6,24/22size#,23/22size#,1/22size#); "pion bialy z 134"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.75dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(7,24/22size#,23/22size#,1/22size#); "pion bialy z 135"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(8,24/22size#,23/22size#,1/22size#); "pion bialy z 136"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(9,24/22size#,23/22size#,1/22size#); "pion bialy z 137"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.7dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(10,24/22size#,23/22size#,1/22size#); "pion bialy z 138"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(11,24/22size#,23/22size#,1/22size#); "pion bialy z 139"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(12,24/22size#,23/22size#,1/22size#); "pion bialy z 140"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(13,24/22size#,23/22size#,1/22size#); "pion bialy z 141"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.6dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(14,24/22size#,23/22size#,1/22size#); "pion bialy z 142"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(15,24/22size#,23/22size#,1/22size#); "pion bialy z 143"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.75dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(16,24/22size#,23/22size#,1/22size#); "pion bialy z 144"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.65dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.75dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(17,24/22size#,23/22size#,1/22size#); "pion bialy z 145"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(18,24/22size#,23/22size#,1/22size#); "pion bialy z 146"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(19,24/22size#,23/22size#,1/22size#); "pion bialy z 147"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(20,24/22size#,23/22size#,1/22size#); "pion bialy z 148"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(21,24/22size#,23/22size#,1/22size#); "pion bialy z 149"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(22,24/22size#,23/22size#,1/22size#); "pion bialy z 150"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(23,24/22size#,23/22size#,1/22size#); "pion bialy z 151"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w-.55dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(24,24/22size#,23/22size#,1/22size#); "pion bialy z 152"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(25,24/22size#,23/22size#,1/22size#); "pion bialy z 153"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w-.7dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(26,24/22size#,23/22size#,1/22size#); "pion bialy z 154"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w-.75dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(27,24/22size#,23/22size#,1/22size#); "pion bialy z 155"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(28,24/22size#,23/22size#,1/22size#); "pion bialy z 156"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(29,24/22size#,23/22size#,1/22size#); "pion bialy z 157"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w-.7dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(30,24/22size#,23/22size#,1/22size#); "pion bialy z 158"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(31,24/22size#,23/22size#,1/22size#); "pion bialy z 159"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(32,24/22size#,23/22size#,1/22size#); "pion bialy z 160"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(33,24/22size#,23/22size#,1/22size#); "pion bialy z 161"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w-.55dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(34,24/22size#,23/22size#,1/22size#); "pion bialy z 162"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(35,24/22size#,23/22size#,1/22size#); "pion bialy z 163"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w-.7dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(36,24/22size#,23/22size#,1/22size#); "pion bialy z 164"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w-.75dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(37,24/22size#,23/22size#,1/22size#); "pion bialy z 165"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(38,24/22size#,23/22size#,1/22size#); "pion bialy z 166"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(39,24/22size#,23/22size#,1/22size#); "pion bialy z 167"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w-.7dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(40,24/22size#,23/22size#,1/22size#); "pion bialy z 168"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(41,24/22size#,23/22size#,1/22size#); "pion bialy z 169"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(42,24/22size#,23/22size#,1/22size#); "pion bialy z 170"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(43,24/22size#,23/22size#,1/22size#); "pion bialy z 171"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(44,24/22size#,23/22size#,1/22size#); "pion bialy z 172"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(45,24/22size#,23/22size#,1/22size#); "pion bialy z 173"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w-.7dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(46,24/22size#,23/22size#,1/22size#); "pion bialy z 174"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w-.75dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(47,24/22size#,23/22size#,1/22size#); "pion bialy z 175"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(48,24/22size#,23/22size#,1/22size#); "pion bialy z 176"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(49,24/22size#,23/22size#,1/22size#); "pion bialy z 177"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w-.75dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(50,24/22size#,23/22size#,1/22size#); "pion bialy z 178"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(51,24/22size#,23/22size#,1/22size#); "pion bialy z 179"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(52,24/22size#,23/22size#,1/22size#); "pion bialy z 180"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(53,24/22size#,23/22size#,1/22size#); "pion bialy z 181"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w-.55dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(54,24/22size#,23/22size#,1/22size#); "pion bialy z 182"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(55,24/22size#,23/22size#,1/22size#); "pion bialy z 183"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w-.7dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(56,24/22size#,23/22size#,1/22size#); "pion bialy z 184"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w-.75dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(57,24/22size#,23/22size#,1/22size#); "pion bialy z 185"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(58,24/22size#,23/22size#,1/22size#); "pion bialy z 186"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(59,24/22size#,23/22size#,1/22size#); "pion bialy z 187"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w-.7dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(60,24/22size#,23/22size#,1/22size#); "pion bialy z 188"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(61,24/22size#,23/22size#,1/22size#); "pion bialy z 189"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(62,24/22size#,23/22size#,1/22size#); "pion bialy z 190"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(63,24/22size#,23/22size#,1/22size#); "pion bialy z 191"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w-.55dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(64,24/22size#,23/22size#,1/22size#); "pion bialy z 192"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(65,24/22size#,23/22size#,1/22size#); "pion bialy z 193"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w-.7dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(66,24/22size#,23/22size#,1/22size#); "pion bialy z 194"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w-.75dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(67,24/22size#,23/22size#,1/22size#); "pion bialy z 195"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(68,24/22size#,23/22size#,1/22size#); "pion bialy z 196"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(69,24/22size#,23/22size#,1/22size#); "pion bialy z 197"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w-.7dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(70,24/22size#,23/22size#,1/22size#); "pion bialy z 198"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(71,24/22size#,23/22size#,1/22size#); "pion bialy z 199"; + currentpicture := white_circle + + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(72,24/22size#,23/22size#,1/22size#); "pion bialy z 200"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(73,24/22size#,23/22size#,1/22size#); "pion bialy z 201"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w-.4dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(74,24/22size#,23/22size#,1/22size#); "pion bialy z 202"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(75,24/22size#,23/22size#,1/22size#); "pion bialy z 203"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w-.45dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(76,24/22size#,23/22size#,1/22size#); "pion bialy z 204"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(77,24/22size#,23/22size#,1/22size#); "pion bialy z 205"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(78,24/22size#,23/22size#,1/22size#); "pion bialy z 206"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(79,24/22size#,23/22size#,1/22size#); "pion bialy z 207"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w-.45dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(80,24/22size#,23/22size#,1/22size#); "pion bialy z 208"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(81,24/22size#,23/22size#,1/22size#); "pion bialy z 209"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w-.45dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(82,24/22size#,23/22size#,1/22size#); "pion bialy z 210"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(83,24/22size#,23/22size#,1/22size#); "pion bialy z 211"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.4dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(84,24/22size#,23/22size#,1/22size#); "pion bialy z 212"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(85,24/22size#,23/22size#,1/22size#); "pion bialy z 213"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(86,24/22size#,23/22size#,1/22size#); "pion bialy z 214"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w+.4dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(87,24/22size#,23/22size#,1/22size#); "pion bialy z 215"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(88,24/22size#,23/22size#,1/22size#); "pion bialy z 216"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(89,24/22size#,23/22size#,1/22size#); "pion bialy z 217"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(90,24/22size#,23/22size#,1/22size#); "pion bialy z 218"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(91,24/22size#,23/22size#,1/22size#); "pion bialy z 219"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w+.45dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(92,24/22size#,23/22size#,1/22size#); "pion bialy z 220"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(93,24/22size#,23/22size#,1/22size#); "pion bialy z 221"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w-.4dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(94,24/22size#,23/22size#,1/22size#); "pion bialy z 222"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(95,24/22size#,23/22size#,1/22size#); "pion bialy z 223"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(96,24/22size#,23/22size#,1/22size#); "pion bialy z 224"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w+.55dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(97,24/22size#,23/22size#,1/22size#); "pion bialy z 225"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(98,24/22size#,23/22size#,1/22size#); "pion bialy z 226"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(99,24/22size#,23/22size#,1/22size#); "pion bialy z 227"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(100,24/22size#,23/22size#,1/22size#); "pion bialy z 228"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(101,24/22size#,23/22size#,1/22size#); "pion bialy z 229"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(102,24/22size#,23/22size#,1/22size#); "pion bialy z 230"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(103,24/22size#,23/22size#,1/22size#); "pion bialy z 231"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.4dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(104,24/22size#,23/22size#,1/22size#); "pion bialy z 232"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(105,24/22size#,23/22size#,1/22size#); "pion bialy z 233"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(106,24/22size#,23/22size#,1/22size#); "pion bialy z 234"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w+.65dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(107,24/22size#,23/22size#,1/22size#); "pion bialy z 235"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(108,24/22size#,23/22size#,1/22size#); "pion bialy z 236"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(109,24/22size#,23/22size#,1/22size#); "pion bialy z 237"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(110,24/22size#,23/22size#,1/22size#); "pion bialy z 238"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(111,24/22size#,23/22size#,1/22size#); "pion bialy z 239"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(112,24/22size#,23/22size#,1/22size#); "pion bialy z 240"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w+.75dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(113,24/22size#,23/22size#,1/22size#); "pion bialy z 241"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w+.6dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(114,24/22size#,23/22size#,1/22size#); "pion bialy z 242"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(115,24/22size#,23/22size#,1/22size#); "pion bialy z 243"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(116,24/22size#,23/22size#,1/22size#); "pion bialy z 244"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(117,24/22size#,23/22size#,1/22size#); "pion bialy z 245"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w+.75dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(118,24/22size#,23/22size#,1/22size#); "pion bialy z 246"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[6] shifted (.5w+.75dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(119,24/22size#,23/22size#,1/22size#); "pion bialy z 247"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[7] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(120,24/22size#,23/22size#,1/22size#); "pion bialy z 248"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[8] shifted (.5w+.75dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(121,24/22size#,23/22size#,1/22size#); "pion bialy z 249"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h) + + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[9] shifted (.5w+.75dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(122,24/22size#,23/22size#,1/22size#); "pion bialy z 250"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[0] shifted (.5w+.8dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(123,24/22size#,23/22size#,1/22size#); "pion bialy z 251"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.5dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w-.4dig_w,11/24w-.5dig_h) + + digit[1] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(124,24/22size#,23/22size#,1/22size#); "pion bialy z 252"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[2] shifted (.5w+.8dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +beginchar(125,24/22size#,23/22size#,1/22size#); "pion bialy z 253"; + currentpicture := white_circle + + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h) + + digit[5] shifted (.5w-.5dig_w,11/24w-.5dig_h) + + digit[3] shifted (.5w+.7dig_w,11/24w-.5dig_h); +showit; +endchar; + +% stop""; + +%%%%%%%%%%%%%%%%%%%%%% other symbols %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +beginchar(126,24/22size#,23/22size#,1/22size#); "pion bialy z kwadratem"; + pickup pencircle scaled line_thickness; + z1=(.5w+.32size,11/24w+.32size); + z2=(.5w+.32size,11/24w-.32size); + z3=(.5w-.32size,11/24w-.32size); + z4=(.5w-.32size,11/24w+.32size); + draw z1--z2--z3--z4--cycle; + addto currentpicture also white_circle; +showit; +endchar; + +% stop""; + +beginchar(127,24/22size#,23/22size#,1/22size#); "pion bialy z trojkatem"; + pickup pencircle scaled line_thickness; + lft x1=.08size+1/24w; bot y1=.24size; + x2=.5w; top y2=.98size; + rt x3=.92size+1/24w; bot y3=.24size; + draw z1--z2--z3--cycle; + addto currentpicture also white_circle; +showit; +endchar; + +% stop""; + +end; + diff --git a/fonts/go/mf/gosign50.mf b/fonts/go/mf/gosign50.mf new file mode 100644 index 0000000000..62098c211d --- /dev/null +++ b/fonts/go/mf/gosign50.mf @@ -0,0 +1,171 @@ +font_identifier:="GOSIGN"; font_size 50pt#; + +size#:=50pt#; +u#:=size#/18; % 50/18pt# for gosign50.pxl/tfm +% u#:=10/18pt#; % 10/18pt# for gosign10.pxl/tfm + +mode_setup; +beginchar(0,18u#,18u#,0); +pickup pencircle scaled .1pt; +x1=.5/18w; y1=14/18h; +x2=2/18w; y2=16/18h; +x3=17/18w; y3=15/18h; +x4=x3; y4=y1; +fill z1--z2--z3--z4--cycle; + +x5=2/18w; y5=7/18h; +x6=3/18w; y6=8.2/18h; +x7=16/18w; y7=8/18h; +x8=x7; y8=7/18h; +fill z5--z6--z7--z8--cycle; + +x9=4/18w; y9=16/18h; +x10=6/18w; y10=17/18h; +x11=7/18w; y11=8/18h; +x12=6/18w; y12=y11; +fill z9--z10{(1,-2)}..z11--z12..{(-2,3)}cycle; + +x13=13.5/18w; y13=17/18h; +x14=15/18w; y14=16/18h; +x15=11.7/18w; y15=8/18h; +x16=11/18w; y16=y15; +fill z13--z14{(-1,-2)}..z15--z16..{(2,3)}cycle; + +x17=6/18w; y17=11.5/18h; +x18=x17; y18=13/18h; +x19=12/18w; y19=y18; +x20=x19; y20=y17; +fill z17--z18--z19--z20--cycle; + +x21=x17; y21=9/18h; +x22=x17; y22=10.5/18h; +x23=x19; y23=y22; +x24=x19; y24=y21; +fill z21--z22--z23--z24--cycle; + +x25=6/18w; y25=7/18h; +x26=7.5/18w; y26=y25; +x27=1.5/18w; y27=1.5/18h; +x28=0/18w; y28=2.5/18h; +fill z25--z26{(-1,-2)}..{(-3,-1)}z27--z28{right}..{(1,2)}cycle; + +x29=10.5/18w; y29=7/18h; +x30=11.7/18w; y30=y29; +x31=18/18w; y31=2/18h; +x32=16.5/18w; y32=1/18h; +fill z29--z30{(2,-2)}..{right}z31--z32{(-3,2)}..{(-2,3)}cycle; + +x33=6.5/18w; y33=5/18h; +x34=x33; y34=6/18h; +x35=11.5/18w; y35=y34; +x36=x35; y36=y33; +fill z33--z34--z35--z36--cycle; + +x37=7/18w; y37=5/18h; +x38=8/18w; y38=y37; +x39=5/18w; y39=0.5/18h; +x40=4/18w; y40=1/18h; +fill z37--z38{(-1,-2)}..{left}z39--z40{right}..{(1,2)}cycle; + +x41=13/18w; y41=4/18h; +x42=12/18w; y42=3/18h; +% fill z37--z38{(1,-1)}...{right}z41--z42{left}...z47...z48...{(-1,2)}cycle; + +x43=11.5/18w; y43=2/18h; +x44=x42; y44=1/18h; +fill z41--z42--z43--z44--cycle; + +x45=8.5/18w; y45=0.7/18h; +x46=9.2/18w; y46=y43; +fill z43--z44--z45--z46--cycle; + +x47=9/18w; y47=3.3/18h; +x48=8/18w; y48=y47; +fill z45--z46--z47--z48--cycle; +fill z37--z38{(1,-1)}...{right}z41--z42{left}...z47...z48...{(-1,2)}cycle; + + +pickup pencircle scaled .01pt; + +x100=0/18w; +x101=1/18w; +x102=2/18w; +x103=3/18w; +x104=4/18w; +x105=5/18w; +x106=6/18w; +x107=7/18w; +x108=8/18w; +x109=9/18w; +x110=10/18w; +x111=11/18w; +x112=12/18w; +x113=13/18w; +x114=14/18w; +x115=15/18w; +x116=16/18w; +x117=17/18w; +x118=18/18w; + +y100=0/18h; +y101=1/18h; +y102=2/18h; +y103=3/18h; +y104=4/18h; +y105=5/18h; +y106=6/18h; +y107=7/18h; +y108=8/18h; +y109=9/18h; +y110=10/18h; +y111=11/18h; +y112=12/18h; +y113=13/18h; +y114=14/18h; +y115=15/18h; +y116=16/18h; +y117=17/18h; +y118=18/18h; + +% draw (x100,y100)--(x118,y100); +% draw (x100,y101)--(x118,y101); +% draw (x100,y102)--(x118,y102); +% draw (x100,y103)--(x118,y103); +% draw (x100,y104)--(x118,y104); +% draw (x100,y105)--(x118,y105); +% draw (x100,y106)--(x118,y106); +% draw (x100,y107)--(x118,y107); +% draw (x100,y108)--(x118,y108); +% draw (x100,y109)--(x118,y109); +% draw (x100,y110)--(x118,y110); +% draw (x100,y111)--(x118,y111); +% draw (x100,y112)--(x118,y112); +% draw (x100,y113)--(x118,y113); +% draw (x100,y114)--(x118,y114); +% draw (x100,y115)--(x118,y115); +% draw (x100,y116)--(x118,y116); +% draw (x100,y117)--(x118,y117); +% draw (x100,y118)--(x118,y118); +% +% draw (x100,y100)--(x100,y118); +% draw (x101,y100)--(x101,y118); +% draw (x102,y100)--(x102,y118); +% draw (x103,y100)--(x103,y118); +% draw (x104,y100)--(x104,y118); +% draw (x105,y100)--(x105,y118); +% draw (x106,y100)--(x106,y118); +% draw (x107,y100)--(x107,y118); +% draw (x108,y100)--(x108,y118); +% draw (x109,y100)--(x109,y118); +% draw (x110,y100)--(x110,y118); +% draw (x111,y100)--(x111,y118); +% draw (x112,y100)--(x112,y118); +% draw (x113,y100)--(x113,y118); +% draw (x114,y100)--(x114,y118); +% draw (x115,y100)--(x115,y118); +% draw (x116,y100)--(x116,y118); +% draw (x117,y100)--(x117,y118); +% draw (x118,y100)--(x118,y118); +endchar; + +end; # added Dec. 16, 2012 by karl@tug.org |