Import a2ps_4.14.orig.tar.gz

[dgit import orig a2ps_4.14.orig.tar.gz]

1 files changed, 26 insertions, 0 deletions

diff --git a/ogonkify/helper.ps b/ogonkify/helper.ps
new file mode 100644
index 0000000..4a92844
--- /dev/null
+++ b/ogonkify/helper.ps
@@ -0,0 +1,26 @@
+/onechar {
+  /s exch def
+  100 0 moveto
+  100 1000 lineto
+  0 100 moveto
+  1000 100 lineto
+  -100 10 900
+    {
+      dup /len exch 50 mod 0 eq {8} {4} ifelse def
+      dup 100 add 100 len sub moveto dup 100 add 100 len add lineto stroke
+      dup 100 add 100 len sub exch moveto 100 add 100 len add exch lineto stroke
+    } for
+  /Times-BoldItalic-Ogonki findfont 500 scalefont setfont
+  100 100 moveto s show
+  showpage
+} def
+
+/polchar {
+  [(\241) (\261) (\312) (\352)    % ogonki
+   (\246\323) (\266\351) (\306\323) (\346\351)    % s & c acute
+   (\321\311) (\361\351)                  % n acute
+   (\254\311) (\274\351)                  % Z acute
+   (\257\311) (\277\351)]                 % z dotaccent
+  {onechar} forall
+} def
+