Newsgroups: fj.sources,fj.lang.postscript,fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!sparky!uunet!stanford.edu!sun-barr!sh.wide!wnoc-kyo!kyu-cs!lab!kazama
From: kazama@square.ntt.jp (Kazuhiro Kazama)
Subject: Color Chart Program for Color PostScript Printers
Message-ID: <kg.nccgp@lab.ntt.jp>
Sender: news@lab.ntt.jp
Organization: NTT Basic Research Laboratories, Tokyo, Japan.
Distribution: fj
Date: 16 Dec 1992 16:27:57 GMT
Lines: 116
Xref: galaxy.trc.rwcp.or.jp fj.sources:2669 fj.lang.postscript:38 fj.comp.texhax:1332
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=1332&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$BIw4V!w#N#T#T4pAC8&$G$9!#(B

$B!!%+%i!<(BPostScript$B%W%j%s%?$G%+%i!<$N?':L%,%$%I$r0u:~$9$kHs>o$K4JC1$J%W(B
$B%m%0%i%`$rEj9F$7$^$9!#<B$O%*%j%8%J%k$O$+$J$j@N$K:n@.$7$?$b$N$G$9!#(B

$B!!8=:_%G%P%$%9$K0MB8$7$J$$%+%i!<;XDj$,3+H/$5$l$D$D$"$j$^$9$,!"$^$@$^$@(B
$B<B:]$K=PNO$7$??':L%5%s%W%k$r$_$J$,$i?'9g$o$;$r9T$J$C$F$$$k$3$H$,B?$$$H(B
$B;W$$$^$9!#$3$N%W%m%0%i%`$r;H$&$H!"<+J,$N2s$j$N0B2A$J%+%i!<%W%j%s%?$G$b(B
$B<B:]$NEE;;<L?"MQ$KMxMQ$G$-$k%5%s%W%k$K;w$?(BCMY$B$N?':LI=$rF@$k$3$H$,$G$-$^$9!#(B

$B!t(B $B8=:_$O(BK$B$O(B0$B$K$J$C$F$$$^$9!#(B

$B!!IaDL$N;f$H(BOHP$BMQ;f$K$"$i$+$8$a0u:~$7$F$*$/$H!"$?$H$($P(Bdvi2ps-j$BMQ$N%+(B
$B%i!<%9%?%$%k%U%!%$%k$G?'$N;XDj$r$9$k;~$KJXMx$G$9!#(B

$B!!%+%i!<0u:~$K$b$7$m$&$H$G$9$N$G!"@lLg2H$+$i$N%"%I%P%$%9$,$"$l$P4?7^$7$^$9!#(B
--- cut here --- cut here --- cut here --- cut here --- cut here ---
%!
%%Title: colorchart.ps
%%CreationDate: Thu Dec 17 01:13:08 JST 1992
%%Creator: Kazuhiro Kazama (kazama@square.ntt.jp)
%%EndComments
% Copyright (c) 1992 Kazuhiro KazamaNTT Basic Research Laboratories
%All rights reserved.
%%BeginProcSet: colorchart 1 0
/str16 16 string def
/percentarray [0 0.03 0.05 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1] def
/rows percentarray length def
/columns percentarray length def
/page 1 def
/inch {72 mul} def
/paperwidth 8.27 inch def
/paperheight 11.69 inch def
/upperx 1 inch def
/uppery paperheight 2 inch sub def
/margin 10 def
/incr paperwidth 1.5 inch sub columns div def
/sideslength incr 0.1 inch sub def
/drawbox {
    moveto
    0 sideslength neg rlineto
    sideslength 0 rlineto
    0 sideslength rlineto
    closepath
    fill
} def
/drawframebox {
    moveto
    0 sideslength neg rlineto
    sideslength 0 rlineto
    0 sideslength rlineto
    closepath
    gsave fill grestore
    0 0 0 1 setcmykcolor stroke
} def
/fontsize 10 def
%%EndProcSet
%%EndProlog
/Helvetica findfont fontsize scalefont setfont
percentarray {
    /yellow exch def
    /x upperx def
    /y uppery fontsize add def
    x y fontsize add moveto
    (Magenta)show
    percentarray {
x y moveto
100 mul str16 cvs show
(%)show
/x x incr add def
    } forall
    /x upperx 0.5 inch sub def
    /y uppery sideslength fontsize add 2 div sub def
    x y fontsize add moveto
    (Cyan)show
    percentarray {
x y moveto
100 mul str16 cvs show
(%)show
/y y incr sub def
    } forall
    /y uppery def
    gsave
    percentarray {
/cyan exch def
/x upperx def
percentarray {
    /magenta exch def
    cyan magenta yellow 0 setcmykcolor
    x y drawbox
    /x x incr add def
} forall
/y y incr sub def
    } forall
    /x x incr sub def
    0 0 yellow 0 setcmykcolor
    x y drawframebox
    grestore
    /y y incr sub fontsize sub def
    x y moveto
    (Yellow)show
    x y fontsize sub moveto
    yellow 100 mul str16 cvs show
    (%)show
    page str16 cvs dup stringwidth exch pop 2 div
    paperwidth 2 div exch sub 0.5 inch moveto
    show
    /page page 1 add def
    showpage
} forall
%%EOF
--- cut here --- cut here --- cut here --- cut here --- cut here ---
--
$BIw4V0lMN(B (kazama@square.ntt.jp)
NTT$B4pAC8&5f=j(B $B>pJs2J3X8&5fIt(B
$BJ,;6%3%s%T%e!<%F%#%s%086M}8&5f%0%k!<%W(B
