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
|
