summaryrefslogtreecommitdiff
path: root/obsolete/graphics/pstricks/contrib/palette/palette.tex
diff options
context:
space:
mode:
Diffstat (limited to 'obsolete/graphics/pstricks/contrib/palette/palette.tex')
-rw-r--r--obsolete/graphics/pstricks/contrib/palette/palette.tex253
1 files changed, 253 insertions, 0 deletions
diff --git a/obsolete/graphics/pstricks/contrib/palette/palette.tex b/obsolete/graphics/pstricks/contrib/palette/palette.tex
new file mode 100644
index 0000000000..6c96c02f03
--- /dev/null
+++ b/obsolete/graphics/pstricks/contrib/palette/palette.tex
@@ -0,0 +1,253 @@
+\def\filename{palette.tex}
+\def\fileversion{0.91}
+\def\filedate{92/09/02}
+%
+% Send comments to the author: Fred Knight (knight@ll.mit.edu)
+%
+% Purpose:
+% Macros to get colors from a palette.
+% For use with PSTricks version v0.91 and later.
+% These macros allow the user to select colors from a palette derived
+% from the Openwindows file rgbcolors.txt, which contains about 140
+% distinct colors, not including different shades and gray levels.
+% The user can also display the palette and add to it.
+% Usage:
+% \palette
+% the list of colors and values, only an internal list of colors
+% \addtopalette[type]{name}{values}
+% add a color to \palette
+% type---an integer denoting the type of values
+% 1 = rgb, default, 3 numbers between 0 (low) and 1 (high)
+% 2 = hsb, 3 numbers between 0 (low) and 1 (high)
+% 3 = cmyk, 4 numbers between 0 (low) and 1 (high)
+% 4 = gray, 1 number between 0 (low) and 1 (high)
+% name---the color's name as stored in \palette,
+% usually all lowercase
+% values---numbers according to the type of color
+% Examples:
+% \addtopalette{mud}{0.6 0.4 0.2}
+% \addtopalette[4]{mudgray}{0.4}
+% \addrgb{name}{values}
+% add an rgb color called name to the palette
+% \addhsb{name}{values}
+% add an hsb color called name to the palette
+% \addcmyk{name}{values}
+% add an cmyk color called name to the palette
+% \addgray{name}{values}
+% add an gray color called name to the palette
+% \getcolor[altname]{name}
+% analogous to \newrgbcolor but get values from
+% \palette and define a macro \name or \altname, if present.
+% Examples:
+% \getcolor{thistle} {\thistle The color is slightly off purple.}
+% \getcolor[goo]{brown} {\goo Its fragrance graced the table.}
+% \showpalette
+% macro to show all the colors in \palette
+% Restrictions:
+% Works only with PostScript and requires PSTricks.
+% Acknowledgement:
+% Thanks to Tim Van Zandt for many helpful comments.
+%
+%
+% =====>> Preliminaries: Is PSTricks loaded? Change catcode of @.
+%
+\ifx\pstricksloaded\relax\else\input pstricks\fi
+\typeout{`\filename' v\fileversion\space\space <\filedate> (Fred Knight)}
+\edef\theatcode{\the\catcode`\@}
+\ifnum\theatcode=13\let\theat @\fi
+\catcode`\@=11\relax
+%
+% =====>> User macros for adding colors to \palette: 4 types
+%
+\def\addtopalette{\@ifnextchar [{\@addtopalette}{\@addtopalette[1]}}
+\def\@addtopalette[#1]#2#3{\edef\palette{\palette(#2,#1,#3)}}
+\def\addrgb{\addtopalette[1]}
+\def\addhsb{\addtopalette[2]}
+\def\addcmyk{\addtopalette[3]}
+\def\addgray{\addtopalette[4]}
+%
+% =====>> User macro to define a new color name.
+%
+\def\getcolor{\@ifnextchar [{\@getcolor}{\@getcolor[\@nil]}}
+\def\@getcolor[#1]#2{%
+ \ifx#1\@nil\def\altname{#2}\else\def\altname{#1}\fi
+ \def\pst@tempg##1(#2,##2,##3)##4\@nil{%
+ \ifcase##2\@pstrickserr{Color `#2' not found}\@eha
+ \or\newrgbcolor{\altname}{##3}%
+ \or\newhsbcolor{\altname}{##3}%
+ \or\newcmykcolor{\altname}{##3}%
+ \or\newgray{\altname}{##3}%
+ \fi}%
+ \expandafter\pst@tempg\palette(#2,0,)\@nil}
+%
+% =====>> \showpalette and its parts.
+%
+% Define 4 dimensions for \showpalette
+\newdimen\PalBoxwd\PalBoxwd=\hsize
+\newdimen\PalBoxht\PalBoxht=\baselineskip
+\newdimen\savedparindent
+\newdimen\savedparskip
+% Each color gets a rule with text of two colors (black & white) in it.
+\def\paletteBox{\vrule height\PalBoxht width\PalBoxwd depth1ex}
+% Each color has 2 entries: one with black text, the other with white.
+\def\paletteEntry#1#2#3{%
+ \hbox to 0.5\hsize{ #1\hss
+ \ifcase#2\or rgb\or hsb\or cmyk\or gray\fi:#3 }}
+\def\showpalette{\edef\pst@tempa{\palette(NoMoreColors,0, 0)}%
+ \savedparskip=\parskip\parskip0pt
+ \savedparindent=\parindent\parindent0pt\par
+ \expandafter\thepalette\pst@tempa
+ \parindent=\savedparindent
+ \parskip=\savedparskip}
+% \thepalette loops through the entries of \palette.
+\def\thepalette(#1,#2,#3){%
+ \ifnum#2=0
+ \let\next\relax
+ \else
+ \leavevmode
+ \hbox{%
+ \pstVerb{#3 \ifcase#2\or setrgbcolor\or sethsbcolor\or
+ setcmykcolor\or setgray\fi}%
+ \paletteBox\hskip-\hsize
+ \pstVerb{0 setgray}\paletteEntry{#1}{#2}{#3}% black text
+ \pstVerb{1 setgray}\paletteEntry{#1}{#2}{#3}}% white text
+ \let\next\thepalette
+ \par\vskip1pt
+ \fi\next}
+%
+% =====>> The palette of colors; derived from OPENWINDOWS/rgbcolors.txt.
+%
+\def\palette{%
+% format: (name,type, values)
+% where
+% name = name of the color
+% type = 1 for rgb, 2 for hsb, 3 for cmyk, 4 for gray
+% values = color values in the type specified
+ (snow,1,1.00 0.98 0.98)% The color snow has r=1.00, b=0.98, and g=0.98.
+ (ghostwhite,1,0.97 0.97 1.00)%
+ (whitesmoke,1,0.96 0.96 0.96)%
+ (gainsboro,1,0.86 0.86 0.86)%
+ (floralwhite,1,1.00 0.98 0.94)%
+ (oldlace,1,0.99 0.96 0.90)%
+ (linen,1,0.98 0.94 0.90)%
+ (antiquewhite,1,0.98 0.92 0.84)%
+ (papayawhip,1,1.00 0.94 0.84)%
+ (blanchedalmond,1,1.00 0.92 0.80)%
+ (bisque,1,1.00 0.89 0.77)%
+ (peachpuff,1,1.00 0.85 0.73)%
+ (navajowhite,1,1.00 0.87 0.68)%
+ (moccasin,1,1.00 0.89 0.71)%
+ (cornsilk,1,1.00 0.97 0.86)%
+ (ivory,1,1.00 1.00 0.94)%
+ (lemonchiffon,1,1.00 0.98 0.80)%
+ (seashell,1,1.00 0.96 0.93)%
+ (honeydew,1,0.94 1.00 0.94)%
+ (mintcream,1,0.96 1.00 0.98)%
+ (azure,1,0.94 1.00 1.00)%
+ (aliceblue,1,0.94 0.97 1.00)%
+ (lavender,1,0.90 0.90 0.98)%
+ (lavenderblush,1,1.00 0.94 0.96)%
+ (mistyrose,1,1.00 0.89 0.88)%
+ (white,1,1.00 1.00 1.00)%
+ (black,1,0.00 0.00 0.00)%
+ (midnightblue,1,0.10 0.10 0.44)%
+ (navy,1,0.00 0.00 0.50)%
+ (navyblue,1,0.00 0.00 0.50)%
+ (cornflowerblue,1,0.39 0.58 0.93)%
+ (darkslateblue,1,0.28 0.24 0.55)%
+ (slateblue,1,0.42 0.35 0.80)%
+ (mediumslateblue,1,0.48 0.41 0.93)%
+ (lightslateblue,1,0.52 0.44 1.00)%
+ (mediumblue,1,0.00 0.00 0.80)%
+ (royalblue,1,0.25 0.41 0.88)%
+ (blue,1,0.00 0.00 1.00)%
+ (dodgerblue,1,0.12 0.56 1.00)%
+ (deepskyblue,1,0.00 0.75 1.00)%
+ (skyblue,1,0.53 0.81 0.92)%
+ (lightskyblue,1,0.53 0.81 0.98)%
+ (steelblue,1,0.27 0.51 0.71)%
+ (lightsteelblue,1,0.69 0.77 0.87)%
+ (lightblue,1,0.68 0.85 0.90)%
+ (powderblue,1,0.69 0.88 0.90)%
+ (paleturquoise,1,0.69 0.93 0.93)%
+ (darkturquoise,1,0.00 0.81 0.82)%
+ (mediumturquoise,1,0.28 0.82 0.80)%
+ (turquoise,1,0.25 0.88 0.82)%
+ (cyan,1,0.00 1.00 1.00)%
+ (lightcyan,1,0.88 1.00 1.00)%
+ (cadetblue,1,0.37 0.62 0.63)%
+ (mediumaquamarine,1,0.40 0.80 0.67)%
+ (aquamarine,1,0.50 1.00 0.83)%
+ (darkgreen,1,0.00 0.39 0.00)%
+ (darkolivegreen,1,0.33 0.42 0.18)%
+ (darkseagreen,1,0.56 0.74 0.56)%
+ (seagreen,1,0.18 0.55 0.34)%
+ (mediumseagreen,1,0.24 0.70 0.44)%
+ (lightseagreen,1,0.13 0.70 0.67)%
+ (palegreen,1,0.60 0.98 0.60)%
+ (springgreen,1,0.00 1.00 0.50)%
+ (lawngreen,1,0.49 0.99 0.00)%
+ (green,1,0.00 1.00 0.00)%
+ (chartreuse,1,0.50 1.00 0.00)%
+ (mediumspringgreen,1,0.00 0.98 0.60)%
+ (greenyellow,1,0.68 1.00 0.18)%
+ (limegreen,1,0.20 0.80 0.20)%
+ (yellowgreen,1,0.60 0.80 0.20)%
+ (forestgreen,1,0.13 0.55 0.13)%
+ (olivedrab,1,0.42 0.56 0.14)%
+ (darkkhaki,1,0.74 0.72 0.42)%
+ (khaki,1,0.94 0.90 0.55)%
+ (palegoldenrod,1,0.93 0.91 0.67)%
+ (lightgoldenrodyellow,1,0.98 0.98 0.82)%
+ (lightyellow,1,1.00 1.00 0.88)%
+ (yellow,1,1.00 1.00 0.00)%
+ (gold,1,1.00 0.84 0.00)%
+ (lightgoldenrod,1,0.93 0.87 0.51)%
+ (goldenrod,1,0.85 0.65 0.13)%
+ (darkgoldenrod,1,0.72 0.53 0.04)%
+ (rosybrown,1,0.74 0.56 0.56)%
+ (indianred,1,0.80 0.36 0.36)%
+ (saddlebrown,1,0.55 0.27 0.07)%
+ (sienna,1,0.63 0.32 0.18)%
+ (peru,1,0.80 0.52 0.25)%
+ (burlywood,1,0.87 0.72 0.53)%
+ (beige,1,0.96 0.96 0.86)%
+ (wheat,1,0.96 0.87 0.70)%
+ (sandybrown,1,0.96 0.64 0.38)%
+ (tan,1,0.82 0.71 0.55)%
+ (chocolate,1,0.82 0.41 0.12)%
+ (firebrick,1,0.70 0.13 0.13)%
+ (brown,1,0.65 0.16 0.16)%
+ (darksalmon,1,0.91 0.59 0.48)%
+ (salmon,1,0.98 0.50 0.45)%
+ (lightsalmon,1,1.00 0.63 0.48)%
+ (orange,1,1.00 0.65 0.00)%
+ (darkorange,1,1.00 0.55 0.00)%
+ (coral,1,1.00 0.50 0.31)%
+ (lightcoral,1,0.94 0.50 0.50)%
+ (tomato,1,1.00 0.39 0.28)%
+ (orangered,1,1.00 0.27 0.00)%
+ (red,1,1.00 0.00 0.00)%
+ (hotpink,1,1.00 0.41 0.71)%
+ (deeppink,1,1.00 0.08 0.58)%
+ (pink,1,1.00 0.75 0.80)%
+ (lightpink,1,1.00 0.71 0.76)%
+ (palevioletred,1,0.86 0.44 0.58)%
+ (maroon,1,0.69 0.19 0.38)%
+ (mediumvioletred,1,0.78 0.08 0.52)%
+ (violetred,1,0.82 0.13 0.56)%
+ (magenta,1,1.00 0.00 1.00)%
+ (violet,1,0.93 0.51 0.93)%
+ (plum,1,0.87 0.63 0.87)%
+ (orchid,1,0.85 0.44 0.84)%
+ (mediumorchid,1,0.73 0.33 0.83)%
+ (darkorchid,1,0.60 0.20 0.80)%
+ (darkviolet,1,0.58 0.00 0.83)%
+ (blueviolet,1,0.54 0.17 0.89)%
+ (purple,1,0.63 0.13 0.94)%
+ (mediumpurple,1,0.58 0.44 0.86)%
+ (thistle,1,0.85 0.75 0.85)%
+}
+\expandafter\catcode`\@=\theatcode\relax
+\ifnum\theatcode=13\let @\theat\fi
+\endinput