%!PS-AdobeFont-1.0: DigiPlot 1.00
%%CreationDate: Wed March 22 2017
%
% Copyright 2017 Peter Cherepanov
%
% This program is free software: you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation, either version 3 of the License, or
% (at your option) any later version.
%
% This program is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with this program. If not, see .
%
%
% This font has been adapted from character paths designed by Igor Melichev's
% team for a Digigraph pen plotter circa 1987. The main goal of this program
% is preservation of computer history but you are free to use it for any
% purpose according to GNU GPL. Feel free to contact me if you intend to
% use this file and need any changes.
%
/DigiPlot 10 dict begin
/FontType 3 def
/FontMatrix [.001 0 0 .001 0 0] def
/FontBBox [-100 -400 1200 1600] def
/Encoding [ % koi8-r encoding, 16 codes per line
32 {/.notdef} repeat
/space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quoteright /parenleft /parenright /asterisk /plus /comma /hyphen /period /slash
/zero /one /two /three /four /five /six /seven /eight /nine /colon /semicolon /less /equal /greater /question
/at /A /B /C /D /E /F /G /H /I /J /K /L /M /N /O
/P /Q /R /S /T /U /V /W /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore
/quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o
/p /q /r /s /t /u /v /w /x /y /z /braceleft /bar /braceright /asciitilde /.notdef
32 {/.notdef} repeat
/.notdef /.notdef /.notdef /afii10071 12 {/.nodef} repeat
/.notdef /.notdef /.notdef /afii10023 12 {/.nodef} repeat
/afii10096/afii10065/afii10066/afii10088/afii10069/afii10070/afii10086/afii10068/afii10087/afii10074/afii10075/afii10076/afii10077/afii10078/afii10079/afii10080
/afii10081/afii10097/afii10082/afii10083/afii10084/afii10085/afii10072/afii10067/afii10094/afii10093/afii10073/afii10090/afii10095/afii10091/afii10089/afii10092
/afii10048/afii10017/afii10018/afii10040/afii10021/afii10022/afii10038/afii10020/afii10039/afii10026/afii10027/afii10028/afii10029/afii10030/afii10031/afii10032
/afii10033/afii10049/afii10034/afii10035/afii10036/afii10037/afii10024/afii10019/afii10046/afii10045/afii10025/afii10042/afii10047/afii10043/afii10041/afii10044
] cvx def
/CharProcs 200 dict def
CharProcs begin
/.notdef {600 w} def
/A {800 W 0 0 m 400 1400 l 800 0 l 114 400 m 686 400 l} bind def
/B {700 W 0 800 m 300 400 400 90 -90 N 0 0 l 0 1400 l 300 1100 300 90 -90 N} bind def
/C {600 W 600 0 m 0 0 0 350 350 a 0 1400 350 1400 350 a 600 1400 l } bind def
/D {700 W 0 0 m 700 0 700 350 350 a 700 1400 350 1400 350 a 0 1400 l h} bind def
/E {600 W 0 800 m 400 800 l 600 1400 m 0 1400 l 0 0 l 600 0 l} bind def
/F {600 W 0 0 m 0 1400 l 600 1400 l 600 800 m 0 800 l} bind def
/G {700 W 400 800 m 700 800 l 700 0 l 0 0 0 350 350 a 0 1400 350 1400 350 a 700 1400 l } bind def
/H {700 W 0 0 m 0 1400 l 0 800 m 700 800 l 700 1400 m 700 0 l} bind def
/I {300 W 0 0 m 300 0 l 150 0 m 150 1400 l 0 1400 m 300 1400 l} bind def
/J {500 W 0 0 m 500 0 500 350 350 a 500 1400 l} bind def
/K {700 W 0 0 m 0 1400 l 0 400 m 700 1400 l 255 764 m 700 0 l} bind def
/L {500 W 0 1400 m 0 0 l 800 0 l} bind def
/M {900 W 0 0 m 0 1400 l 450 600 l 900 1400 l 900 0 l} bind def
/N {700 W 0 0 m 0 1400 l 700 0 l 700 1400 l} bind def
/O {700 W 0 350 m 350 1050 350 180 0 N 350 350 350 0 180 N h} bind def
/P {700 W 0 0 m 0 1400 l 300 1000 400 90 -90 N 0 600 l} bind def
/Q {700 W 0 350 m 350 1050 350 180 0 N 350 350 350 0 180 N h 400 400 m 800 0 l} bind def
/R {700 W 0 0 m 0 1400 l 300 1000 400 90 -90 N 0 600 l 300 600 m 700 0 l} bind def
/S {700 W 0 126 m 400 700 700 -125 -90 A 400 300 300 -90 55 A 300 1100 300 -125 90 N 300 700 700 90 55 N} bind def
/T {700 W 0 1400 m 700 1400 l 350 1400 m 350 0 l} bind def
/U {700 W 0 1400 m 350 350 350 180 0 A 700 1400 l} bind def
/V {800 W 0 1400 m 400 0 l 800 1400 l} bind def
/W {1200 W 0 1400 m 300 0 l 600 1000 l 900 0 l 1200 1400 l} bind def
/X {800 W 0 0 m 800 1400 l 0 1400 m 800 0 l} bind def
/Y {800 W 0 1400 m 400 600 l 400 0 l 400 600 m 800 1400 l} bind def
/Z {700 W 0 1400 m 700 1400 l 0 0 l 700 0 l} bind def
/a {700 w 0 200 m 0 1000 200 1000 200 a 600 1000 l 600 0 400 0 200 a 0 0 0 200 200 a h 600 200 m 600 0 700 0 100 a} bind def
/b {600 W 0 1400 m 0 0 l 600 0 600 200 200 a 600 1000 400 1000 200 a 0 1000 l} bind def
/c {500 w 500 1000 m 0 1000 0 800 200 a 0 0 200 0 200 a 500 0 l} bind def
/d {600 W 600 1400 m 600 0 l 0 0 0 200 200 a 0 1000 200 1000 200 a 600 1000 l} bind def
/e {600 w 0 500 m 600 500 l 600 1000 400 1000 200 a 0 1000 0 800 200 a 0 0 200 0 200 a 600 0 l} bind def
/f {400 W 150 0 m 150 1400 350 1400 200 a 400 1400 l 0 1000 m 400 1000 l} bind def
/g {600 0 -400 600 1000 b 0 -400 m 600 -400 600 -200 200 a 600 1000 l 0 1000 0 800 200 a 0 0 200 0 200 a 600 0 l} bind def
/h {600 W 0 0 m 0 1400 l 0 1000 m 600 1000 600 800 200 a 600 0 l} bind def
/i {300 W 25 1400 m 0 1400 25 0 360 A h 0 1000 m 0 0 200 0 200 a 300 0 l} bind def
/j {300 0 -400 335 1425 b 325 1400 m 300 1400 25 0 360 A h 300 1000 m 300 -400 100 -400 200 a 0 -400 l} bind def
/k {600 W 0 1400 m 0 0 l 600 0 m 200 533 l 0 300 m 600 1000 l} bind def
/l {300 W 0 1400 m 0 0 200 0 200 a 300 0 l} bind def
/m {900 w 0 0 m 0 1000 l 900 1000 900 800 200 a 900 0 l 450 0 m 450 1000 l} bind def
/n {600 w 0 0 m 0 1000 l 600 1000 600 800 200 a 600 0 l} bind def
/o {600 w 200 0 m 600 0 600 200 200 a 600 1000 400 1000 200 a 0 1000 0 800 200 a 0 0 200 0 200 a h} bind def
/p {600 0 -400 600 1000 b 0 -400 m 0 1000 l 600 1000 600 800 200 a 600 0 400 0 200 a 0 0 l} bind def
/q {600 0 -400 600 1000 b 600 0 m 0 0 0 200 200 a 0 1000 200 1000 200 a 600 1000 l 600 -400 l} bind def
/r {600 w 0 0 m 0 1000 l 500 1000 500 800 200 a} bind def
/s {600 w 0 76 m 200 300 300 -132 -90 A 400 200 200 -90 58 A 200 800 200 -122 90 N 400 700 300 90 49 N} bind def
/t {400 W 0 1000 m 400 1000 l 150 1400 m 150 0 350 0 200 a 400 0 l} bind def
/u {600 w 0 1000 m 0 0 200 0 200 a 600 0 l 600 1000 l} bind def
/v {600 w 0 1000 m 300 0 l 600 1000 l} bind def
/w {1000 w 0 1000 m 250 0 l 500 800 l 750 0 l 1000 1000 l} bind def
/x {600 w 0 0 m 600 1000 l 0 1000 m 600 0 l} bind def
/y {600 0 -400 600 1000 b 0 -400 m 31 -200 200 -90 -16 A 600 1000 l 0 1000 m 300 0 l} bind def
/z {600 w 0 1000 m 600 1000 l 0 0 l 600 0 l} bind def
/afii10017 /A load def
/afii10018 { % Б
700 W 0 800 m 300 400 400 90 -90 N 0 0 l 0 1400 l 600 1400 l } def
/afii10019 /B load def
/afii10020 { % Г
600 W 0 0 m 0 1400 l 600 1400 l} bind def
/afii10021 { % Д
800 0 -100 800 1400 b 0 -100 m 0 0 l 800 0 l 800 -100 l 100 0 m 350 1400 l 700 1400 l 700 0 l} bind def
/afii10022 //E def
/afii10023 { 600 0 0 600 1625 b 0 800 m 400 800 l 600 1400 m 0 1400 l 0 0 l 600 0 l 150 1600 d 450 1600 d} bind def
/afii10024 { % Ж
900 W 0 0 m 286 764 l 614 764 m 900 0 l 450 0 m 450 1400 l 0 1400 m 450 400 l 900 1400 l} bind def
/afii10025 { % З
700 W 0 80 m 300 600 600 -120 -89 A 300 400 400 -90 90 A 200 800 l 300 800 m 300 1100 300 -90 90 A 300 1000 400 90 138 A} bind def
/afii10026 { % И
700 W 0 1400 m 0 0 l 700 1400 l 700 0 l} bind def
/afii10027 { % Й
700 0 0 700 1600 b 0 1400 m 0 0 l 700 1400 l 700 0 l 200 1600 m 500 1600 l} bind def
/afii10028 //K def
/afii10029 { % Л
700 W 0 0 m 350 1400 l 700 1400 l 700 0 l} bind def
/afii10030 //M def
/afii10031 //H def
/afii10032 //O def
/afii10033 { % П
700 W 0 0 m 0 1400 l 700 1400 l 700 0 l} bind def
/afii10034 //P def
/afii10035 //C def
/afii10036 //T def
/afii10037 { % У
700 W 100 0 m 700 0 700 300 300 a 700 1400 l 0 1400 m 0 600 400 600 400 a 700 600 l} bind def
/afii10038 { % Ф
1100 W 450 300 m 650 750 450 -90 90 A 450 750 450 90 -90 A h 550 0 m 550 1400 l} bind def
/afii10039 //X def
/afii10040 { % Ц
700 0 -200 800 1400 b 0 1400 m 0 0 l 800 0 l 800 -200 l 700 0 m 700 1400 l} bind def
/afii10041 { % Ч
700 W 0 1400 m 0 600 400 600 400 a 700 600 l 700 1400 m 700 0 l} bind def
/afii10042 { % Ш
900 W 0 1400 m 0 0 l 900 0 l 900 1400 l 450 1400 m 450 0 l} bind def
/afii10043 { % Щ
900 0 -200 1000 1400 b 0 1400 m 0 0 l 1000 0 l 1000 -200 l 900 0 m 900 1400 l 450 1400 m 450 0 l} bind def
/afii10044 { % Ъ
850 -150 0 850 1400 b -150 1400 m 150 1400 l 150 0 l 450 400 400 -90 90 A 150 800 l} bind def
/afii10045 { % Ы
800 W 0 800 m 200 400 400 90 -90 N 0 0 l 0 1400 l 800 1400 m 800 0 l} bind def
/afii10046 { % Ь
700 W 0 800 m 300 400 400 90 -90 N 0 0 l 0 1400 l} bind def
/afii10047 { % Э
700 W 0 0 m 700 0 700 350 350 a 700 1400 350 1400 350 a 0 1400 l 200 800 m 700 800 l} bind def
/afii10048 { % Ю
800 W 0 0 m 0 1400 l 0 800 m 200 800 l 200 300 m 500 1100 300 180 0 N 500 300 300 0 180 N h} bind def
/afii10049 { % Я
700 W 0 0 m 400 600 l 700 600 m 400 1000 400 -90 90 N 700 1400 l 700 0 l} bind def
/afii10065 //a def
/afii10066 { % б
600 W 0 200 m 0 1000 200 1000 200 a 600 1000 600 800 200 a 600 0 400 0 200 a 0 0 0 200 200 a h 529 953 m 0 1400 l 600 1400 l} bind def
/afii10067 { % в
600 W 0 200 m 0 1000 200 1000 200 a 600 1000 600 800 200 a 600 0 400 0 200 a 0 0 0 200 200 a h 0 800 m 0 1400 200 1400 200 a 300 1250 150 90 -62 N 106 976 l} bind def
/afii10068 { % г
600 w 0 865 m 300 600 400 139 90 N 400 800 200 90 -58 N 200 200 200 122 -90 A 300 400 400 -90 -41 A} bind def
/afii10069 { % д
600 W 100 1400 m 600 1400 600 1200 200 a 600 0 400 0 200 a 0 0 0 200 200 a 0 1000 200 1000 200 a 600 1000 600 800 200 a} bind def
/afii10070 //e def
/afii10071 { % ё
600 W 0 500 m 600 500 l 600 1000 400 1000 200 a 0 1000 0 800 200 a 0 0 200 0 200 a 600 0 l 150 1200 d 450 1200 d} bind def
/afii10072 { % ж
700 w 0 1000 m 350 300 l 700 1000 l 350 1000 m 350 0 l 0 0 m 233 533 l 467 533 m 700 0 l} bind def
/afii10073 { % з
500 w 0 69 m 225 400 400 -124 -90 A 225 275 275 -90 90 A 125 550 l 225 550 m 225 775 225 -90 90 A 225 700 300 90 139 A} bind def
/afii10074 //u def
/afii10075 { % й
600 W 0 1000 m 0 0 200 0 200 a 600 0 l 600 1000 l 150 1200 m 450 1200 l} bind def
/afii10076 { % к
600 w 0 1000 m 0 0 l 600 0 m 200 533 l 0 300 m 600 1000 l} bind def
/afii10077 { % л
600 w 0 0 m 400 800 200 166 90 N 600 1000 l 600 0 l} bind def
/afii10078 { % м
700 w 0 0 m 0 1000 l 350 500 l 700 1000 l 700 0 l} bind def
/afii10079 { % н
600 w 0 0 m 0 1000 l 600 1000 m 600 0 l 0 500 m 600 500 l} bind def
/afii10080 //o def
/afii10081 //n def
/afii10082 //p def
/afii10083 //c def
/afii10084 //m def
/afii10085 { % у
600 0 -400 600 1000 b 100 -400 m 600 -400 600 -200 200 a 600 1000 l 0 1000 m 0 0 200 0 200 a 600 0 l} bind def
/afii10086 { % ф
900 0 -400 900 1200 b 300 0 m 900 0 900 300 300 a 900 1000 600 1000 300 a 0 1000 0 700 300 a 0 0 300 0 300 a h 450 -400 m 450 1200 l} bind def
/afii10087 //x def
/afii10088 { % ц
600 0 -200 700 1000 b 0 1000 m 0 0 200 0 200 a 700 0 l 700 -200 l 600 0 m 600 1000 l} bind def
/afii10089 { % ч
600 w 0 1000 m 0 400 300 400 300 a 600 400 l 600 0 m 600 1000 l} bind def
/afii10090 { % ш
900 w 0 1000 m 0 0 200 0 200 a 900 0 l 900 1000 l 450 1000 m 450 0 l} bind def
/afii10091 { % щ
900 0 -200 1000 1000 b 0 1000 m 0 0 200 0 200 a 1000 0 l 1000 -200 l 900 0 m 900 1000 l 450 1000 m 450 0 l} bind def
/afii10092 { % ъ
700 -100 0 700 1000 b -100 1000 m 100 1000 l 100 0 l 400 300 300 -90 90 A 100 600 l} bind def
/afii10093 { % ы
700 w 0 1000 m 0 0 l 200 300 300 -90 90 A 0 600 l 700 1000 m 700 0 l} bind def
/afii10094 { % ь
600 w 0 1000 m 0 0 l 300 300 300 -90 90 A 0 600 l} bind def
/afii10095 { % э
600 w 0 0 m 600 0 600 200 200 a 600 1000 400 1000 200 a 0 1000 l 200 500 m 600 500 l} bind def
/afii10096 { % ю
700 w 0 0 m 0 1000 l 400 1000 m 700 1000 700 800 200 a 700 0 500 0 200 a 200 0 200 200 200 a 200 1000 400 1000 200 a h 0 500 m 200 500 l} bind def
/afii10097 { % я
600 w 0 0 m 250 500 l 600 0 m 600 1000 l 250 750 250 90 -90 A 600 500 l} bind def
/one {400 W 0 1000 m 400 1400 l 400 0 l } bind def
/two {700 W 0 1050 m 350 1050 350 180 -37 N 0 0 l 700 0 l} bind def
/three {600 W 0 1400 m 600 1400 l 100 800 l 600 800 600 500 300 a 600 0 300 0 300 a 0 0 l} bind def
/four {700 W 300 1400 m 0 300 l 700 300 l 500 700 m 500 0 l} bind def
/five {600 W 0 0 m 600 0 600 300 300 a 600 800 300 800 300 a 0 800 l 0 1400 l 600 1400 l} bind def
/six {700 W 500 1400 m 1060 500 1060 122 180 A 0 0 300 0 300 a 700 0 700 300 300 a 700 800 400 800 300 a 0 800 0 500 300 a} bind def
/seven {700 W 0 1200 m 0 1400 l 700 1400 l 300 0 l} bind def
/eight {700 W 0 300 m 0 800 300 800 300 a 700 800 700 500 300 a 700 0 400 0 300 a 0 0 0 300 300 a h 350 800 m 350 1100 300 -90 270 arc h} bind def
/nine {700 W 200 0 m -360 900 1060 -58 0 A 700 1400 400 1400 300 a 0 1400 0 1100 300 a 0 600 300 600 300 a 700 600 700 900 300 a} bind def
/zero {700 W 0 300 m 0 1400 300 1400 300 a 700 1400 700 1100 300 a 700 0 400 0 300 a 0 0 0 300 300 a 700 1100 l} bind def
/space {600 w} bind def
/period {0 -25 0 25 50 b 0 25 d} bind def
/exclam {0 -25 0 25 1400 b 0 25 d 0 200 m 0 1400 l} bind def
/quotedbl {200 W 0 1100 m 0 1400 l 200 1400 m 200 1100 l} bind def
/numbersign {600 W 50 800 m 600 800 l 550 600 m 0 600 l 112 350 m 288 1050 l 488 1050 m 312 350 l} bind def
/dollar {700 0 -100 700 1500 b 0 126 m 400 700 700 -125 -90 A 400 300 300 -90 55 A 300 1100 300 -125 90 N 300 700 700 90 55 N 350 -100 m 350 1500 l} bind def
/percent {600 W 0 0 m 600 1400 l 300 1100 m 150 1100 150 0 360 arc h 600 300 m 450 300 150 0 360 arc h} bind def
/ampersand {800 W 800 0 m 300 1200 200 -149 -40 N 300 300 300 146 -34 A 800 509 l} bind def
/quoteright {200 W 0 1100 m 200 1400 l} bind def
/parenleft {205 W 205 0 m 1300 700 1300 -147.5 147.5 N} bind def
/parenright {205 W 0 0 m -1095 700 1300 -32.5 32.5 A} bind def
/asterisk {600 w 0 700 m 600 700 l 450 960 m 150 440 l 450 440 m 150 960 l} bind def
/plus {600 w 0 700 m 600 700 l 300 1000 m 300 400 l} bind def
/comma {0 -28 -200 25 50 b 0 25 d 25 25 m -475 25 500 0 -27 N} bind def
/hyphen {600 w 0 700 m 500 700 l} bind def
/slash {600 W 0 0 m 600 1400 l} bind def
/colon {0 -25 0 25 725 b 0 25 d 0 700 d} bind def
/semicolon {0 -28 -200 25 725 b 0 25 d 25 25 m -475 25 500 0 -27 N 0 700 d} bind def
/less {600 w 600 400 m 0 700 l 600 1000 l} bind def
/equal {600 w 0 600 m 600 600 l 600 800 m 0 800 l} bind def
/greater {600 w 0 400 m 600 700 l 0 1000 l} bind def
/question {600 W 300 25 d 300 200 m 800 476 500 180 129 N 300 1100 300 -51 180 A} bind def
/at {800 w 600 400 m 400 400 200 0 180 N 400 600 200 180 0 N 700 300 100 180 0 A 400 600 400 0 180 A 400 400 400 180 -50 A} bind def
/bracketleft {200 0 -100 200 1500 b 200 -100 m 0 -100 l 0 1500 l 200 1500 l} bind def
/backslash {600 W 0 1400 m 600 0 l} bind def
/bracketright {200 0 -100 200 1500 b 0 -100 m 200 -100 l 200 1500 l 0 1500 l} bind def
/asciicircum {600 W 0 1200 m 300 1400 l 600 1200 l} bind def
/underscore {500 0 -100 500 -100 b 0 -100 m 500 -100 l} bind def
/quoteleft {200 W 0 1400 m 200 1100 l} bind def
/braceleft {300 0 -100 300 1500 b 300 -100 m 300 100 200 -90 180 N 0 600 100 0 90 A 0 800 100 -90 0 A 300 1300 200 180 90 N} bind def
/bar {0 0 -100 0 1500 b 0 -100 m 0 600 l 0 800 m 0 1500 l} bind def
/braceright {300 0 -100 300 1500 b 0 -100 m 0 100 200 -90 0 A 300 600 100 180 90 N 300 800 100 -90 180 N 0 1300 200 0 90 A} bind def
/asciitilde {600 w 0 700 m 150 550 212 135 45 N 450 850 212 -135 -45 A} bind def
end
/lw 30 def % Line width for stroking
/ops 10 dict begin
/m /moveto load def
/l /lineto load def
/h /closepath load def
/a /arct load def
/A /arc load def
/N /arcn load def
/w {0 0 2 index 1000 b} bind def
/W {0 0 2 index 1400 b} bind def
/b { //lw add exch //lw add exch 4 2 roll //lw sub exch //lw sub exch 4 2 roll
5 -1 roll 200 add 0 6 2 roll
setcachedevice
//lw setlinewidth 1 setlinecap 1 setlinejoin
} bind def
/d { 2 copy 25 sub moveto 25 -90 270 arc closepath} bind def
currentdict end readonly def
/BuildGlyph {
exch /CharProcs get exch
2 copy known not {pop /.notdef} if
get
//ops begin
exec stroke
end
} bind def
currentdict dup /ops undef /lw undef
/BuildChar {
1 index /Encoding get exch get
1 index /BuildGlyph get exec
} bind def
currentdict
end /Font defineresource pop
%%EOF