chiark / gitweb /
preview png, actually make it a png
[pandemic-rising-tide.git] / cmyk.ps
diff --git a/cmyk.ps b/cmyk.ps
index eb709103b0b57ce098c8aa35a6ad9c07803d3dc5..73ecfda27ed6ae408ed30407cf03fb61d7905b6d 100644 (file)
--- a/cmyk.ps
+++ b/cmyk.ps
@@ -248,12 +248,15 @@ start_page
        cyany gm 2 sub ge {
            gsave
            ccfont setfont
-           cctexty 0.75 mul texty translate
+           cctexty 0.75 mul  texty -0.75 mul  translate
            90 rotate
-           0 0 moveto
-           copyright  cyany neg gm add 2 mul         get  show
-           0 cctexty neg moveto
-           copyright  cyany neg gm add 2 mul  1 add  get  show
+           0 1 1 { /copyrighty exch def
+              0  cctexty copyrighty neg mul  moveto
+              copyright  cyany neg gm add 2 mul  copyrighty add  get
+              dup stringwidth
+              neg exch neg exch  rmoveto
+              show
+           } for
            grestore
        } if
     } if