diff options
author | Karl Berry <karl@freefriends.org> | 2011-05-10 23:46:46 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-05-10 23:46:46 +0000 |
commit | 043e18a7242664faaaeb2c0e57e8ce4e35381e43 (patch) | |
tree | 03c93f83fea91c32ce53759529799b2cb0fd3c22 /Master/texmf-dist/tex/generic | |
parent | fc1748c481707d247fa88c3b641453518ee4a2f7 (diff) |
pst-eucl 1.37 (10may11)
git-svn-id: svn://tug.org/texlive/trunk@22405 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic')
-rw-r--r-- | Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex | 113 |
1 files changed, 34 insertions, 79 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex b/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex index f737a4fc660..df1b8481418 100644 --- a/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex +++ b/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex @@ -1,77 +1,35 @@ - %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -*- Mode: Latex -*- %%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% pst-eucl.tex --- Generation of geometric figures in euclidean geometry -%% Copyright 2000-2005 Dominique RODRIGUEZ +%% $Id: pst-eucl.tex 467 2011-03-01 21:04:36Z herbert $ %% -%% Author : Dominique RODRIGUEZ (EN) <dominique.rodriguez@waika9.com> -%% Created the : Mon Oct 16 21:15:11 CEST 2000 -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% HISTORY +%% This is file `pst-eucl.tex', %% -%% 2000-10-16 : creation of the file from a first LaTeX protype sty file +%% IMPORTANT NOTICE: %% -%% 2001-05-7 : distribution of the first beta version +%% Package `pst-eucl.tex' %% -%% 2002-03-21 : distribution of the second beta version +%% Dominique RODRIGUEZ <dominique.rodriguez _at_waika9.com> +%% with contributions of Herbert Voss <hvoss _at_ tug.org> +%% Copyright 2000-2011 Dominique RODRIGUEZ %% -%% 2002-12-01 : distribution of the pre-release 1.0 -%% -%% 2003-03-23 : direct computation of coordinates for the center of gravity and -%% the center of the circum circle, avoiding creation of intermediates -%% nodes. -%% -%% 2003-12-16 : Integration of modifications given by Alain DELPLANQUE -%% automatic computation of PosAngle for several commands, -%% and ability to give a list of point for pstGeonode, pstOIJGeonode -%% -%% 2004-09-05 : Improvement of the management of the Point name end of the param lists -%% -%% 2004-11-04 : Improvement of the management of the display of the Point name -%% -%% 2004-12-10 : New parameters for coding the circum circle : SegmentSymbolA B & C -%% -%% 2004-12-14 : New parametre RightAngleType for regional difference -%% -%% 2005-01-17 : transition towards pst-xkey (thanks to "Hendri Adriaens" <Hendri@uvt.nl>) -%% -%% 2005-02-21 : correction for spurious blank (thanks to Herbert Voss <Herbert.Voss@alumni.TU-Berlin.DE>) -%% in pstTriangleABC (search for "-- hv") -%% -%% 2005-03-25 : Modification of the transformations macros: management of a points list -%% coding for rotation & translation -%% draw a curve for a points list (geonode & oijgeonode & transform macros) -%% -%% 2005-04-10 : Modification of the transformations macros: management of a points list -%% management directly within the first point argument -%% Plotting of a curve linking a list of points -%% -%% 2005-10-09 : problem solved with CodeFigAB -%% -%% 2005-12-31 : use \psscalbox instead of \scalebox (hv) -%% -%% 2006-01-29 : minor changes for file version (hv) +%% This program can be redistributed and/or modified under the terms +%% of the LaTeX Project Public License Distributed from CTAN archives +%% in directory macros/latex/base/lppl.txt. %% -%% 2006-01-30 : correction of pstArcOAB for pscustom (dr) +%% DESCRIPTION: +%% `pst-eucl' is a PSTricks package to draw geometric figures in euclidean geometry, %% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% Require PSTricks and pst-node packages -\ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi -\ifx\PSTnodesLoaded\endinput\else\input pst-node.tex\fi -\ifx\MultidoLoaded\endinput\else\input multido.tex\fi -\def\fileversion{1.3.5} -\def\filedate{2006/01/30}% -%% This program can be redistributed and/or modified under the terms -%% of the LaTeX Project Public License Distributed from CTAN -%% archives in directory macros/latex/base/lppl.txt. -\message{`PST-Euclide v\fileversion, \filedate\space (Dominique RODRIGUEZ)}% -\message{ This version uses the pst-xkey package for managing parameters}% -\message{ Please read the doc, some macros have a new syntax}% -\message{ use option old for upward compatibility}% \csname PSTEuclideLoaded\endcsname \let\PSTEuclideLoaded\endinput +\ifx\PSTricksLoaded\endinput\else \input pstricks.tex\fi +\ifx\PSTnodeLoaded\endinput\else \input pst-node.tex\fi +\ifx\PSTMultidoLoaded\endinput\else \input multido.tex\fi +\ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi +% +\def\fileversion{1.37} +\def\filedate{2011/05/05}% +\message{`PST-Euclide v\fileversion, \filedate\space (DR)}% %% prologue for postcript \pstheader{pst-eucl.pro}% % interface to the `xkeyval' package -\input pst-xkey.tex \pst@addfams{pst-eucl} \edef\PstAtCode{\the\catcode`\@}% \catcode`\@=11\relax @@ -397,16 +355,9 @@ end}% %% #2 #3 #4 -> 3 nodes for defining the angle %% #5 -> label \def\pstMarkAngle{\@ifnextchar[\Pst@MarkAngle{\Pst@MarkAngle[]}}% -%\def\pstMarkAngle{\@ifnextchar[\Pst@MarkAngle@i{\Pst@MarkAngle@i[]}}% -%\def\Pst@MarkAngle@i[#1]{\@ifnextchar+{\Pst@MarkAngle@ii[#1]}{\Pst@MarkAngle@iii[#1]}}% -%\def\Pst@MarkAngle@ii[#1]+#2#3#4#5{% -% %% here we should check the angle size for right angles -% -%} -%\def\Pst@MarkAngle@iii[#1]#2#3#4#5{% \def\Pst@MarkAngle[#1]#2#3#4#5{% - \bgroup\psset{#1}% % Affectation of local parameters + \begingroup\ifx\relax#1\relax\else\psset{#1}\fi% % Affectation of local parameters %\rput(#3){\psarc(0,0){\psk@MarkAngleRadius}{(#2)}{(#4)}}% %\rput[\psk@LabelRefPt]% % {*0}([nodesep=\psk@LabelSep, angle= \psk@LabelAngle]#3){#5}% @@ -416,17 +367,21 @@ end}% (!tx@EcldDict begin /N@#4 GetNode exch Atan /N@#2 GetNode exch Atan end 2 copy lt { exch 360 sub exch } if add 2 div \psk@LabelAngleOffset\space add \psk@LabelSep\space exch PtoC){#5} - %%begin modif alaindelplanque 11/2003 - \ifx\psk@MarkAngle\@undef\psset{MarkAngle=90}\fi \ifx\psk@Mark\@undef\else - \rput{!tx@EcldDict begin - /N@#3 GetNode /N@#4 GetNode ABVect Atan - /N@#3 GetNode /N@#2 GetNode ABVect Atan - end 2 copy lt \pslbrace exch 360 sub exch \psrbrace if add 2 div 90 add} - (0,0){\rput{-90}(\psk@MarkAngleRadius,0){\csname\psk@Mark\endcsname}} + \rput{! tx@EcldDict begin + /N@#4 GetNode /N@#3 GetNode ABVect exch atan %dup == + /N@#2 GetNode /N@#3 GetNode ABVect exch atan %dup == + end + 2 copy lt \pslbrace exch 360 sub \psrbrace if + add 2 div cvi 90 mod 45 sub + }(!\psk@MarkAngleRadius\space tx@EcldDict begin + /N@#4 GetNode /N@#3 GetNode ABVect exch atan %dup == + /N@#2 GetNode /N@#3 GetNode ABVect exch atan %dup == + end + 2 copy lt { exch 360 sub } if + add 2 div PtoC ){\csname\psk@Mark\endcsname} \fi} - %%end modif alaindelplanque 11/2003 - \egroup% + \endgroup% }% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% #2 #4 #6 -> coordinates for nodes |