From c0efb25d6d38be738ea93234e8ccb7ad86648777 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 5 Mar 2019 18:13:26 +0000
Subject: [PATCH] wip copyright

---
 cmyk.ps | 66 +++++++++++++++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 62 insertions(+), 4 deletions(-)

diff --git a/cmyk.ps b/cmyk.ps
index 5bfbcb3..eb70910 100644
--- 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
-- 
2.30.2