blob: 83afa4faa5fcb2e098c4982a891b4cebce6cf4d6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
%% turn examples to gray (see runmp for use)
%
\special{ps:
/setcmykcolor { exch 0.11 mul add
exch 0.59 mul add
exch 0.3 mul add
dup 1 gt { pop 1 } if neg 1 add setgray } def
/setrgbcolor { 0.11 mul
exch 0.59 mul add
exch 0.3 mul add setgray } def
/sethsbcolor { /b exch def /s exch def 6 mul dup cvi dup /i exch def
sub /f exch def
/F [[0 1 f sub 1][f 0 1][1 0 1 f sub][1 f 0][1 f sub
1 0][0 1 f][0 1 1]] def
F i get { s mul neg 1 add b mul} forall
0.11 mul
exch 0.59 mul add
exch 0.3 mul add setgray } def
}
\endinput
|