From 873660d1a83ece926fe7206288dda9c36b349c1b Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 12 Jan 2006 23:46:03 +0000 Subject: generic 1 git-svn-id: svn://tug.org/texlive/trunk@613 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/generic/pst-lens/pst-lens.tex | 113 +++++++++++++++++++++ 1 file changed, 113 insertions(+) create mode 100644 Master/texmf-dist/tex/generic/pst-lens/pst-lens.tex (limited to 'Master/texmf-dist/tex/generic/pst-lens') diff --git a/Master/texmf-dist/tex/generic/pst-lens/pst-lens.tex b/Master/texmf-dist/tex/generic/pst-lens/pst-lens.tex new file mode 100644 index 00000000000..528665a07c0 --- /dev/null +++ b/Master/texmf-dist/tex/generic/pst-lens/pst-lens.tex @@ -0,0 +1,113 @@ +%% +%% This is file `pst-lens.tex', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% pst-lens.dtx (with options: `pst-lens') +%% +%% IMPORTANT NOTICE: +%% +%% For the copyright see the source file. +%% +%% Any modified versions of this file must be renamed +%% with new filenames distinct from pst-lens.tex. +%% +%% For distribution of the original source see the terms +%% for copying and modification in the file pst-lens.dtx. +%% +%% This generated file may be distributed as long as the +%% original source files, as listed above, are part of the +%% same distribution. (The sources need not necessarily be +%% in the same archive or directory.) +%% +%% Package `pst-lens.dtx' +%% +%% Denis Girou (CNRS/IDRIS - France) +%% Manuel Luque (ml) +%% Herbert Voss (hv) +%% +%% September 03, 2005 +%% +%% This file is under the LaTeX Project Public License +%% See CTAN archives in directory macros/latex/base/lppl.txt. +%% +%% DESCRIPTION: +%% `pst-lens' is a PSTricks package to define a generic lens, which can be +%% used on texts and graphics. +%% +\csname PSTLensLoaded\endcsname +\let\PSTLensLoaded\endinput +\ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi +\ifx\GradientLoaded\endinput\else\input pst-grad.tex\fi +\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey \fi % (hv 2005-09-03) +\edef\PstAtCode{\the\catcode`\@} +\catcode`\@=11\relax +\pst@addfams{pst-lens} +\def\fileversion{1.01} +\def\filedate{2005/09/03} +\message{`PST-Lens' v\fileversion, \filedate\space + (Denis Girou and Manuel Luque)} +\newif\ifPstLens@Handle +\define@key[psset]{pst-lens}{LensHandle}[true]{% + \@nameuse{PstLens@Handle#1}} +\define@key[psset]{pst-lens}{LensStyleHandle}{% + \def\PstLens@StyleHandle{#1}} +\newdimen\PstLens@HandleWidth +\define@key[psset]{pst-lens}{LensHandleWidth}{% + \pssetlength{\PstLens@HandleWidth}{#1}} +\define@key[psset]{pst-lens}{LensHandleHeight}{% + \def\PstLens@HandleHeight{#1}} +\newif\ifPstLens@Shadow +\define@key[psset]{pst-lens}{LensShadow}[true]{% + \@nameuse{PstLens@Shadow#1}} +\define@key[psset]{pst-lens}{LensStyleGlass}{% + \def\PstLens@StyleGlass{#1}} +\define@key[psset]{pst-lens}{LensSize}{% + \def\PstLens@Size{#1}} +\define@key[psset]{pst-lens}{LensMagnification}{% + \def\PstLens@Magnification{#1}} +\define@key[psset]{pst-lens}{LensRotation}{% + \def\PstLens@Rotation{#1}} +\psset[pst-lens]{% + LensHandle=true,LensHandleWidth=0.2,LensHandleHeight=2.5, + LensStyleHandle=LensStyleHandle, + LensShadow=true,LensStyleGlass=LensStyleGlass, + LensRotation=0,LensSize=1,LensMagnification=1} +\newcmykcolor{Brown}{0 0.81 1 0.6} +\newcmykcolor{Salmon}{0 0.53 0.38 0} +\newpsstyle{LensStyleHandle}{% + fillstyle=gradient,framearc=0.6,linewidth=0.5\pslinewidth, + gradmidpoint=0.5,gradangle=\PstLens@Rotation,gradbegin=Brown,gradend=Salmon} +\newpsstyle{LensStyleGlass}{% + fillstyle=solid,fillcolor=white, + shadow=true,shadowcolor=lightgray,shadowsize=0.15, + shadowangle=\PstLens@Rotation} +\def\PstLensShape{\pscircle{1}} +\def\PstLens{\@ifnextchar[{\PstLens@i}{\PstLens@i[]}} +\def\PstLens@i[#1]{\@ifnextchar({\PstLens@ii[#1]}{\PstLens@ii[#1](0,0)}} +\def\PstLens@ii[#1](#2,#3)#4{{% +\psset{#1}% +\SpecialCoor +\rput{\PstLens@Rotation}(#2,#3){% + \ifPstLens@Handle + \scalebox{\PstLens@Size}{% + \divide\PstLens@HandleWidth\tw@ + \psframe[style=\PstLens@StyleHandle] + (-\PstLens@HandleWidth,0) + (\PstLens@HandleWidth,-\PstLens@HandleHeight)}% + \fi} +\psclip{{\psset{style=\PstLens@StyleGlass} + \ifPstLens@Shadow + \else + \psset{shadow=false} + \fi + \rput(#2,#3){\psset{unit=\PstLens@Size}\PstLensShape}}} + \rput(! 1 \PstLens@Magnification\space sub #2\space mul + 1 \PstLens@Magnification\space sub #3\space mul){% + \scalebox{\PstLens@Magnification}{#4}} +\endpsclip}} +\catcode`\@=\PstAtCode\relax +\endinput +%% +%% End of file `pst-lens.tex'. -- cgit v1.2.3