summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-polygons.tex
blob: 79fd6e561a310fda56729ad27b818a8340727cbf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
% tkz-obj-eu-polygons.tex
% Copyright 2022  Alain Matthes
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3
% of this license or (at your option) any later version.
% The latest version of this license is in
%   http://www.latex-project.org/lppl.txt
% and version 1.3 or later is part of all distributions of LaTeX
% version 2005/12/01 or later.
% This work has the LPPL maintenance status “maintained”.
% The Current Maintainer of this work is Alain Matthes.

\def\fileversion{4.25c}
\def\filedate{2022/09/23} 
\typeout{2022/09/23 4.25c tkz-obj-eu-polygons.tex} 
% bug in regular polygon side 2020/03/09
\makeatletter  
%<--------------------------------------------------------------------------–>
%                                 Polygon 
%<--------------------------------------------------------------------------–>
%<---------------------------   square  ------------------------------------–>
%
%<--------------------------------------------------------------------------–>
\def\tkzDefSquare(#1,#2){
\begingroup
  \tkzURotateAngle(#2,-90)(#1)
  \pgfnodealias{tkzFirstPointResult}{tkzPointResult}
  \tkzURotateAngle(#1, 90)(#2)
  \pgfnodealias{tkzSecondPointResult}{tkzPointResult}
\endgroup
}
%<---------------------   parallélogramme  ---------------------------------–>
%
%<--------------------------------------------------------------------------–>
\def\tkzDefParallelogram(#1,#2,#3){
\begingroup
\tkzDefPointWith[colinear= at #3](#2,#1)
\endgroup
}
%<---------------------   rectangle        ---------------------------------–>
%
%<--------------------------------------------------------------------------–>
\def\tkzDefRectangle{\pgfutil@ifnextchar[{\tkz@DefRectangle}%
                      {\tkz@DefRectangle[]}} 
\def\tkz@DefRectangle[#1](#2,#3){%
\begingroup
   \path[#1](#2) -| coordinate (tkzFirstPointResult) (#3) -| coordinate (tkzSecondPointResult) (#2);
\endgroup
}
%<-------------------------- gold rectangle -------------------------------–>
%
%<--------------------------------------------------------------------------–>
\def\tkzDefGoldRectangle(#1,#2){
\begingroup
  \tkzDefPointWith[K=-\tkzInvPhi](#2,#1)
  \pgfnodealias{tkzFirstPointResult}{tkzPointResult}
  \tkzDefPointWith[K=\tkzInvPhi](#1,#2)
  \pgfnodealias{tkzSecondPointResult}{tkzPointResult}
\endgroup
}
\let\tkzDefGoldenRectangle\tkzDefGoldRectangle
%<----------------------------   Regular Polygon   -------------------------–>
\def\tkz@numregpol{0}
\pgfkeys{/defregpoly/.cd,
      name/.store in      =  \tkz@regpolname,
      sides/.store in     =  \tkz@regpolsides,
      center/.code        =  \def\tkz@numregpol{0},
      side/.code          =  \def\tkz@numregpol{1},
      name/.default       =  P,
      sides/.default      =  5,
      center
} 
\def\tkzDefRegPolygon{\pgfutil@ifnextchar[{\tkz@DefRegPolygon}{\tkz@DefRegPolygon[]}}
\def\tkz@DefRegPolygon[#1](#2,#3){% 
\begingroup 
\pgfqkeys{/defregpoly}{#1}  
\ifcase\tkz@numregpol%
  \tkzRegPolygonCenter(#2,#3)
  \or%  
  \tkzRegPolygonSide(#2,#3)  
 \fi    
\endgroup
} 
\def\tkzRegPolygonCenter(#1,#2){
\begingroup 
   \foreach \v in {1,2,...,\tkz@regpolsides}
   {%
   \pgfmathsetmacro{\tkz@regangle}{360/\tkz@regpolsides*(\v-1)}  
   \tkzDefPointBy[rotation= center #1 angle \tkz@regangle](#2)   
   \pgfnodealias{\tkz@regpolname\v}{tkzPointResult}
   } 
\endgroup
}     
\def\tkzRegPolygonSide(#1,#2){
\begingroup  
% get the center 
\pgfmathsetmacro{\tkz@regangle}{360/\tkz@regpolsides*(\tkz@regpolsides-1)}
\pgfmathsetmacro{\tkz@regangleside}{(180-\tkz@regangle)/2}
\tkzDefMidPoint(#1,#2)
\pgfnodealias{tkz@tempPt}{tkzPointResult}
\tkz@@CalcLengthcm(tkz@tempPt,#1){tkz@len}
\pgfmathsetmacro{\tkz@inscriberadius}{%
  \tkz@len*tan(90*(\tkz@regpolsides-2)/\tkz@regpolsides)}
\tkzDefPointWith[orthogonal normed,K=\tkz@inscriberadius](tkz@tempPt,#2)
\pgfnodealias{tkz@RegPolCenter}{tkzPointResult}
\tkzRegPolygonCenter(tkz@RegPolCenter,#1)
\pgfnodealias{tkzPointResult}{tkz@RegPolCenter}
\endgroup
}
    

\makeatother
\endinput