wip copyright

diff --git a/cmyk.ps b/cmyk.ps
index 5bfbcb315ec0113f64d7558f082de12a214357f5..eb709103b0b57ce098c8aa35a6ad9c07803d3dc5 100644 (file)
--- a/cmyk.ps
+++ b/cmyk.ps
@@ -1,5 +1,31 @@
 %!
 
+/copyright [
+    (cmyk.{ps,pdf})
+    (v0.1)
+    (Copyright 2019)
+    (Ian Jackson)
+    (GNU AGPL v3+)
+    (NO WARRANTY)
+] def
+
+%    cmyk printer sample test
+%
+%    Copyright (C) 2019 Ian Jackson
+%
+%    This program is free software: you can redistribute it and/or modify
+%    it under the terms of the GNU Affero 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 Affero General Public License for more details.
+%
+%    You can obtain a copy of the GNU Affero General Public License
+%    from <http://www.gnu.org/licenses/>.
+
 %    CYM     K
 %
 %    9^3     0 1 2     9 pagex   @   9 x 9 x 3       = 243
@@ -50,6 +76,9 @@
 /digits [ (0) (1) (2) (3) (4) (5) (6) (7) (8) (9)
           (a) (b) (c) (d) (e) (f) ] def
 
+/cctexty 8 def
+/ccfont /Helvetica findfont cctexty scalefont def
+
 /Helvetica findfont texty scalefont setfont
 
 /ifdebug { debug exch if } def
@@ -75,6 +104,11 @@
     maxval gm div  mul  round cvi
 } def
 
+/maxvalshow {
+               (/) show
+               maxval (_) cvs show
+} def
+
 /someyellow {
     
     /gn     gm    1 add   def
@@ -199,10 +233,7 @@ start_page
 /text_magenta {
     (M) show
     magentax cmy_xy2val (_) cvs show
-    magentax gm ge {
-       (/) show
-       maxval (_) cvs show
-    } if
+    magentax gm ge { maxvalshow } if
 } def
 
 /text_l {
@@ -214,6 +245,17 @@ start_page
     } if
     blacky 0 le {
        text_cyan
+       cyany gm 2 sub ge {
+           gsave
+           ccfont setfont
+           cctexty 0.75 mul texty 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
+           grestore
+       } if
     } if
 } def
 /text_u {
@@ -243,10 +285,26 @@ ranges
        magentax 0 le {
            (K) show
            klist blackx get (_) cvs show
+           blackx knx 1 sub eq {
+               maxvalshow
+           } if
            ( ) show
        } if
        blackx 0 le {
            text_magenta
+           magentax gm ge {
+    gsave
+    ( ) show
+    ccfont setfont
+%    stridox gn mul stridoy sub  0 translate
+    %  stridix 0.5 mul -0.25 cctexty mul  0  exch  moveto
+    0 1 1 {
+    ( ) show
+       copyright exch get
+       show
+    } for
+    grestore
+           } if
        } if
     } if
 } def