From 4c11983ed7fc5d08cbae55b24870b6f0c5e7479d Mon Sep 17 00:00:00 2001 From: Manuel Pégourié-Gonnard Date: Fri, 10 Jul 2009 00:05:25 +0000 Subject: New generic package shade in collection-genericextra, replacing shade.sty from genmisc. (OOPS: forgot to commit some files. See r14264 for these files.) git-svn-id: svn://tug.org/texlive/trunk@14213 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/generic/genmisc/shade.sty | 177 --------------------- Master/texmf-dist/tex/generic/shade/shade.tex | 51 ++++++ Master/tlpkg/bin/tlpkg-ctan-check | 2 +- Master/tlpkg/libexec/ctan2tds | 1 + Master/tlpkg/tlpsrc/collection-genericextra.tlpsrc | 1 + Master/tlpkg/tlpsrc/shade.tlpsrc | 0 6 files changed, 54 insertions(+), 178 deletions(-) delete mode 100644 Master/texmf-dist/tex/generic/genmisc/shade.sty create mode 100644 Master/texmf-dist/tex/generic/shade/shade.tex create mode 100644 Master/tlpkg/tlpsrc/shade.tlpsrc (limited to 'Master') diff --git a/Master/texmf-dist/tex/generic/genmisc/shade.sty b/Master/texmf-dist/tex/generic/genmisc/shade.sty deleted file mode 100644 index a5500190e1a..00000000000 --- a/Master/texmf-dist/tex/generic/genmisc/shade.sty +++ /dev/null @@ -1,177 +0,0 @@ -A `frequently asked question' is that for possibilites to produce -shaded boxes. - -Since the answers usually (just as recently) point either to PostScript -\special's and PiCTeX it seems that a `simpler' and easier to use version -is not readily available --- though I did not check this. - -A small and simple approach to shaded boxes is the use of a special font -providing shaded rectangles, and some macros which automatically compose the -desired box from these characters. - -Since, of course, the finest shading can be achieved by using single pixels -for the pattern, the best shading pattern is *device dependent*. -Furthermore, one generally defined shading pattern would imply the danger, -that - because of rounding errors - at the boundaries (between two of the -characters) `lines' would occur, and that the pattern would not look completely -uniform. Consequently, since different fonts are to be used for different -printers, the dvi file is *device dependent* in this sense, too, though the -code - both for the macros and for the metafont description - is device -independent. - -%%% SHADE.rdm -%%% ReadMe file for SHADE.mf and SHADE.tex/sty -%%% ------------------------------------------------------------------------- -%%% Version 1 - March 21, 1993 -%%% Peter Schmitt, Institute of Mathematics, University of Vienna -%%% Strudlhofgasse 4, A-1090 Wien, Austria -%%% e-mail A8131DAL@helios.edvz.univie.ac.at -%%% schmitt@awirap.bitnet -%%% ------------------------------------------------------------------------- - -\magnification=\magstep1 -\parindent0pt \parskip 3pt -\input shade.tex - -{\tt SHADE} is a \TeX\ tool that can be used to produce shaded boxes -neither using PostScript nor Pic\TeX. - -% The syntax is: - -\shade{This text will appear on a shaded background!} - -The shading macro first packs its argument into an hbox. - -\shade{\vbox{\hsize 5cm - \leftskip=0pt plus 1fil\rightskip=0pt plus 1fil - \parfillskip=0pt - Then it measures the dimensions of this box and produces a - shaded box slightly larger then this box, using the font - shade produced by {\tt shade.mf}. Finally it - puts the box back and overlays it with the shaded box. - \par - }} - -Since the best shading is achieved at the lowest possible resolution, -the font \shade{SHADE} is {\bf not device independent} --- it uses -the printer resolution. Therefore the .dvi file is -{\bf not device independent}, either. -The macro code, however, {\bf is device independent}. -This method was used because otherwise shading, and in particular -the boundaries between two shading characters, could turn out to be not -completely uniform. -For the same reason, the font should only be used at its true size. - -The {\tt shade} package consists of three files: - {\tt shade.mf, % MetaFont file for shading font - shade.tex, % macro file be used with LaTeX, too - shade.rdm. % this file - % it can be processed by TeX as a demo file - } -It was tested with a HP Laserjet II plus. - -\bye - -%%% end of SHADE.rdm %%% -%%% SHADE.tex or SHADE.sty -%%% Macros for use with font SHADE -%%% ------------------------------------------------------------------------- -%%% Version 1 - March 21, 1993 -%%% Peter Schmitt, Institute of Mathematics, University of Vienna -%%% Strudlhofgasse 4, A-1090 Wien, Austria -%%% e-mail A8131DAL@helios.edvz.univie.ac.at -%%% schmitt@awirap.bitnet -%%% ------------------------------------------------------------------------- - -\catcode`\:11 - -\font\grey:=shade at 10truept - -\newbox\shade:box -\newdimen\fill:boundary - \setbox0=\hbox{\grey:\char0\relax}\fill:boundary=\ht0 -\newcount\fill:level \newdimen\fill:size \newdimen\fill:goal - -\long\def\shade#1{\leavevmode - \setbox\shade:box=\hbox{#1}% - \def\shade:column{}\def\shade:row{}% - \fill:level=5 \fill:goal=\wd\shade:box - \advance\fill:goal by 2\fill:boundary - \let\shade:v\relax \Fill: \shade:row\shade:v - \fill:level=5 - \fill:goal=\ht\shade:box \advance\fill:goal by \dp\shade:box - \advance\fill:goal by 2\fill:boundary - \let\shade:h\relax \Fill: \shade:column\shade:h - \fill:goal=\ht\shade:box \advance\fill:goal by \dp\shade:box - \setbox0=\vbox to\fill:goal{\offinterlineskip\grey: - \def\shade:h##1{% - \def\shade:v####1{\char####1##1\relax}% - \hbox to \wd\shade:box{\hss\shade:row\hss}} - \vss \shade:column \vss - }\ht0=\ht\shade:box \dp0=\dp\shade:box - \rlap{\box0}\box\shade:box - } -\def\Fill: {\setbox0=\hbox{\grey:\char\fill:level\relax}\fill:size=\ht0 - \fill:} -\def\fill: #1#2{% - \ifdim \fill:size>\fill:goal - \advance\fill:level by-1 - \ifnum \fill:level>-1 \let \fill:next = \Fill: - \else \let \fill:next = \fill:stop \fi - \else \edef#1{#1#2\the\fill:level}\advance\fill:goal by -\fill:size - \let \fill:next = \fill: - \fi \fill:next #1#2} -\def\fill:stop#1#2{} - -\endinput - -%%% end of SHADE.tex/sty %%% -%%% SHADE.mf -%%% Font SHADE for use with SHADE.TEX/STY -%%% ------------------------------------------------------------------------- -%%% Version 1 - March 21, 1993 -%%% Peter Schmitt, Institute of Mathematics, University of Vienna -%%% Strudlhofgasse 4, A-1090 Wien, Austria -%%% e-mail A8131DAL@helios.edvz.univie.ac.at -%%% schmitt@awirap.bitnet -%%% ------------------------------------------------------------------------- - -mode_setup; -magnification=1000; -font_identifier "Shade"; -font_coding_scheme "Shade Style Matrix"; -font_size 10pt#; - -%%% a = side of smallest shaded square (3x3 pixels) - a#:=(3/pixels_per_inch)*1in#; - define_pixels(a); -%%% greybox produces a shaded rectangle: -%%% height 2^H*a -%%% width 2^W*a -%%% ... -%%% it consists of WxH `unit squares': .*. -%%% ... -%%% its character code is 10*W + H -%%% i.e., the first digit corresponds to the width and -%%% the second digit corresponds to the height of the character - -def greybox (expr H, W) = - HH:=2**H; WW:=2**W; - beginchar(10*W+H, WW*a#, HH*a#, 0); - pickup pencircle scaled 1; - fill (1,1)--(1,3*HH)--(3*WW,3*HH)--(3*WW,1)--cycle; - pickup pencircle scaled 2; - for x = 0 step 3 until 3*HH : undraw (0,x)--(3*WW,x); endfor; - for x = 0 step 3 until 3*WW : undraw (x,0)--(x,3*HH); endfor; - endchar; - enddef; - -%%% produce characters for H and W from 0 to 5 - -for ww = 0 upto 5 : - for hh = 0 upto 5 : greybox (hh,ww); endfor; - endfor; - -bye; - -%%% end of SHADE.mf %%% diff --git a/Master/texmf-dist/tex/generic/shade/shade.tex b/Master/texmf-dist/tex/generic/shade/shade.tex new file mode 100644 index 00000000000..ea7265fefc0 --- /dev/null +++ b/Master/texmf-dist/tex/generic/shade/shade.tex @@ -0,0 +1,51 @@ +%%% SHADE.tex or SHADE.sty +%%% Macros for use with font SHADE +%%% ------------------------------------------------------------------------- +%%% Version 1 - March 21, 1993 +%%% Peter Schmitt, Institute of Mathematics, University of Vienna +%%% Strudlhofgasse 4, A-1090 Wien, Austria +%%% e-mail A8131DAL@helios.edvz.univie.ac.at +%%% schmitt@awirap.bitnet +%%% ------------------------------------------------------------------------- + +\catcode`\:11 + +\font\grey:=shade at 10truept + +\newbox\shade:box +\newdimen\fill:boundary + \setbox0=\hbox{\grey:\char0\relax}\fill:boundary=\ht0 +\newcount\fill:level \newdimen\fill:size \newdimen\fill:goal + +\long\def\shade#1{\leavevmode + \setbox\shade:box=\hbox{#1}% + \def\shade:column{}\def\shade:row{}% + \fill:level=5 \fill:goal=\wd\shade:box + \advance\fill:goal by 2\fill:boundary + \let\shade:v\relax \Fill: \shade:row\shade:v + \fill:level=5 + \fill:goal=\ht\shade:box \advance\fill:goal by \dp\shade:box + \advance\fill:goal by 2\fill:boundary + \let\shade:h\relax \Fill: \shade:column\shade:h + \fill:goal=\ht\shade:box \advance\fill:goal by \dp\shade:box + \setbox0=\vbox to\fill:goal{\offinterlineskip\grey: + \def\shade:h##1{% + \def\shade:v####1{\char####1##1\relax}% + \hbox to \wd\shade:box{\hss\shade:row\hss}} + \vss \shade:column \vss + }\ht0=\ht\shade:box \dp0=\dp\shade:box + \rlap{\box0}\box\shade:box + } +\def\Fill: {\setbox0=\hbox{\grey:\char\fill:level\relax}\fill:size=\ht0 + \fill:} +\def\fill: #1#2{% + \ifdim \fill:size>\fill:goal + \advance\fill:level by-1 + \ifnum \fill:level>-1 \let \fill:next = \Fill: + \else \let \fill:next = \fill:stop \fi + \else \edef#1{#1#2\the\fill:level}\advance\fill:goal by -\fill:size + \let \fill:next = \fill: + \fi \fill:next #1#2} +\def\fill:stop#1#2{} + +\endinput diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check index d41e3c503f4..79839f8532a 100755 --- a/Master/tlpkg/bin/tlpkg-ctan-check +++ b/Master/tlpkg/bin/tlpkg-ctan-check @@ -210,7 +210,7 @@ my @WorkingTLP = qw( scalebar schemabloc scientificpaper sciposter screenplay script sdrt sectionbox sectsty semantic semaphor seminar semioneside seqsplit setspace sf298 sffms sfg sfheaders - sfmath sgame shadbox shapepar + sfmath sgame shadbox shade shapepar shipunov shorttoc show2e showdim showexpl showlabels shuffle SIstyle SIunits sidecap sides siggraph silence simplecv simplewick siunitx diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds index c2f6198ffdf..bc7a23ae849 100755 --- a/Master/tlpkg/libexec/ctan2tds +++ b/Master/tlpkg/libexec/ctan2tds @@ -915,6 +915,7 @@ $standardtex='\.(cfg|sty|clo|ldf|cls|def|fd|cmap|4ht)$'; 'rlepsf', 'rlepsf.tex', 'rsfs', 'scrload\.tex|' . $standardtex, 'seminar', '\.bug|\.bg2|\.cls|\.sty|2up.tex', + 'shade', 'shade\.tex', # not description.tex 'shapepar', '\.sty', # not def 'showexpl', '\.sty|\.clo|\.ldf|\.cls|\.def|\.fd$', # not cfg 'splitindex', 'splitindex\.tex|' . $standardtex, diff --git a/Master/tlpkg/tlpsrc/collection-genericextra.tlpsrc b/Master/tlpkg/tlpsrc/collection-genericextra.tlpsrc index 348519c359a..74559a590fc 100644 --- a/Master/tlpkg/tlpsrc/collection-genericextra.tlpsrc +++ b/Master/tlpkg/tlpsrc/collection-genericextra.tlpsrc @@ -22,6 +22,7 @@ depend midnight depend multi depend ofs depend pdf-trans +depend shade depend vrb depend vtex depend xlop diff --git a/Master/tlpkg/tlpsrc/shade.tlpsrc b/Master/tlpkg/tlpsrc/shade.tlpsrc new file mode 100644 index 00000000000..e69de29bb2d -- cgit v1.2.3