improve layout of sample

diff --git a/sample.ps b/sample.ps
index af7cd174a9bda1b6dfa55c0245f684cd2791a448..c9d24a117b992b83ab470fea4d93e8de5ba74da3 100644 (file)
--- a/sample.ps
+++ b/sample.ps
@@ -2,6 +2,7 @@
 /Bedstead findfont 40 scalefont setfont
 /row { %def
     0 0 moveto
+    dup length 32 exch sub 12 mul 0 rmoveto
     { %forall
        glyphshow
     } forall
@@ -18,10 +19,10 @@
   /uni0438/uni0439/uni043A/uni043B/uni043C/uni043D/uni043E/uni043F
   /uni0440/uni0441/uni0442/uni0443/uni0444/uni0445/uni0446/uni0447
   /uni0448/uni0449/uni044A/uni044B/uni044C/uni044D/uni044E/uni044F ] row
-[ /uni05D0/uni05D1/uni05D2/uni05D3/uni05D4/uni05D5/uni05D6/uni05D7
-  /uni05D8/uni05D9/uni05DA/uni05DB/uni05DC/uni05DD/uni05DE/uni05DF
-  /uni05E0/uni05E1/uni05E2/uni05E3/uni05E4/uni05E5/uni05E6/uni05E7
-  /uni05E8/uni05E9/uni05EA ] row
+[ /uni05EA/uni05E9/uni05E8
+  /uni05E7/uni05E6/uni05E5/uni05E4/uni05E3/uni05E2/uni05E1/uni05E0
+  /uni05DF/uni05DE/uni05DD/uni05DC/uni05DB/uni05DA/uni05D9/uni05D8
+  /uni05D7/uni05D6/uni05D5/uni05D4/uni05D3/uni05D2/uni05D1/uni05D0] row
 [ /zero/one/two/three/four/five/six/seven/eight/nine
   /onequarter/onehalf/threequarters
   /exclam/question/period/comma/colon/semicolon