graphpaper (24oct20)

git-svn-id: svn://tug.org/texlive/trunk@56750 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 440 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/graphpaper/graphpaper.cls b/Master/texmf-dist/tex/latex/graphpaper/graphpaper.cls
new file mode 100644
index 00000000000..828b0422617
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/graphpaper/graphpaper.cls
@@ -0,0 +1,440 @@
+%%
+%% This is file `graphpaper.cls',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% graphpaper.dtx  (with options: `class')
+%%  ________________________________________
+%%  The graphpaper class for generating several types of graph paper
+%%  Copyright (C) 2020 C. Beccari & F. Biccari
+%%  All rights reserved
+%% 
+%%  License information appended
+%% 
+\NeedsTeXFormat{LaTeX2e}[2018-01-01]
+\ProvidesClass{graphpaper}%
+   [2020-10-10 1.0 A LaTeX class to generate several types of graph papers]
+\RequirePackage{xkeyval}
+\def\GP@paper{1}
+\define@key[GRP]{}{a4paper}[]{\PassOptionsToPackage{a4paper}{geometry}}
+\define@key[GRP]{}{letterpaper}[]{\PassOptionsToPackage{letterpaper}{geometry}%
+  \def\GP@paper{2}}
+\define@key[GRP]{}{a3paper}[]{\PassOptionsToPackage{a3paper}{geometry}%
+  \def\GP@paper{3}}
+\DeclareOptionX*{\ClassError{graphpaper}{Option '\CurrentOption'%
+  \MessageBreak is not valid}{Remove '\CurrentOption' %
+  from class options}}
+\ProcessOptionsX[GRP]<>
+\LoadClass[a4paper,11pt]{article}
+\RequirePackage[landscape]{geometry}
+\RequirePackage{euclideangeometry,graphicx,xcolor}
+\definecolor{gridcolor}{RGB}{250,153,89}
+\newlength\lwa
+\setlength{\lwa}{1pt}
+\newlength\lwb
+\setlength{\lwb}{0.6pt}
+\newlength\lwc
+\setlength{\lwc}{0.25pt}
+\newlength\mindistanceunit
+\setlength{\mindistanceunit}{1mm}
+\newlength\xsideunit
+\newlength\ysideunit
+\if\GP@paper1
+  \setlength{\xsideunit}{260mm}
+  \setlength{\ysideunit}{180mm}
+\fi
+\if\GP@paper2
+  \setlength{\xsideunit}{250mm}
+  \setlength{\ysideunit}{190mm}
+\fi
+\if\GP@paper3
+  \setlength{\xsideunit}{380mm}
+  \setlength{\ysideunit}{280mm}
+\fi
+\newcount\J
+\newcount\K
+
+\newcommand\WhileDoOne[4][1]{%
+\J=#2 \fpdowhile{\J=<#3 }{#4\advance\J by #1\relax}}
+
+\newcommand\WhileDoTwo[4][1]{%
+\K=#2 \fpdowhile{\K=<#3 }{#4\advance\K by #1\relax}}
+\newcommand\hlines[6]{%
+\multiput(-#4,\fpeval{ln(#2) * #5 / ln(10)})(0,#5){#1}%
+{\linethickness{#3}\line(1,0){\fpeval{#6 + 2*#4}}}%
+}
+
+\newcommand\vlines[6]{%
+\multiput(\fpeval{ln(#2) * #5 / ln(10)},-#4)(#5,0){#1}%
+{\linethickness{#3}\line(0,1){\fpeval{#6 + 2*#4}}}%
+}
+\NewDocumentCommand{\carta}{O{0} m m}{%
+\newpage
+\parindent=0pt
+\pagestyle{empty}%
+\color{gridcolor}%
+\setlength{\unitlength}{1mm}%
+\def\ticklength{2}
+\def\minorticklength{1.2}
+\def\minimumdistance{\fpeval{(\mindistanceunit/1mm)}}
+\def\xlength{\fpeval{round(round(\xsideunit/1cm) * 10)}}
+\def\ylength{\fpeval{round(round(\ysideunit/1cm) * 10)}}
+\def\xlinsq{\inteval{\xlength/10}}
+\def\ylinsq{\inteval{\ylength/10}}
+\edef\decx{#2}% decades along x
+\edef\decy{#3}% decades along y
+\unless\ifnum#2=0 \unless\ifnum#3=0 \ifnum#1=1%
+\fptest{\decx/\decy < \xlength/\ylength}%
+{\def\xlength{\fpeval{\ylength*\decx/\decy}}}
+{\def\ylength{\fpeval{\xlength*\decy/\decx}}}
+\fi\fi\fi
+\ifcsname ml\endcsname\relax\else\newlength\ml\fi
+\ifcsname mr\endcsname\relax\else\newlength\mr\fi
+\ifcsname mt\endcsname\relax\else\newlength\mt\fi
+\ifcsname mb\endcsname\relax\else\newlength\mb\fi
+\unless\ifcsname mr\endcsname\newlength\mr\fi
+\unless\ifcsname mt\endcsname\newlength\mt\fi
+\unless\ifcsname mb\endcsname\newlength\mb\fi
+\setlength{\ml}{\fpeval{(\paperwidth/1mm - \xlength)/2}mm}
+\setlength{\mr}{\fpeval{(\paperwidth/1mm - \xlength)/2}mm}
+\setlength{\mt}{\fpeval{(\paperheight/1mm - \ylength)/2}mm}
+\setlength{\mb}{\fpeval{(\paperheight/1mm - \ylength)/2}mm}
+\newgeometry{left=\ml,right=\mr,top=\mt,bottom=\mb}
+\begin{picture}(\xlength,\ylength)
+\ifnum#2=0\relax
+  \multiput(0,0)(10,0){\inteval{\xlinsq + 1}}{%
+    \linethickness{\lwa}\squarecap\line(0,1){\ylength}}
+  \ifnum\fpeval{\minimumdistance <= 5}=1
+  \multiput(5,0)(10,0){\xlinsq}{%
+    \linethickness{\lwb}\line(0,1){\ylength}}\fi
+  \ifnum\fpeval{\minimumdistance <= 1}=1
+  \multiput(0,0)(1,0){\xlength}{%
+    \linethickness{\lwc}\line(0,1){\ylength}}\fi
+\else
+  % vertical lines on log abscissa
+  \edef\decxx{\fpeval{\decx + 1}}%
+  \edef\xstep{\fpeval{\xlength / \decx}}
+  % main lines: one for each decade (10) plus one at the end
+  \vlines{\decxx}{1}{\lwa}{\ticklength}{\xstep}{\ylength}
+  % second-level lines: one every unit (1), for each decade
+  \WhileDoOne{2}{9}{\vlines{\decx}{\J}{\lwb}{%
+    \minorticklength}{\xstep}{\ylength}}
+  % third-level lines: for each decade (10) and for each unit (1):
+  % 20, 10, 5, 2 are progressively tested and adopted if the distance
+  % between two subsequent nearest lines is less to \minimumdistance
+  \WhileDoTwo{1}{9}{%
+    \edef\xmindivfloat{%
+      \fpeval{(\K+1)*(1-10^-(\minimumdistance/\xstep))}}
+    % xmindiv corresponds to 1/20 of unit
+    \def\xmindiv{20}
+    % xmindivfloat corresponds to the distance of two
+    % subdivision with respect to the unit
+    \ifnum\fpeval{\xmindivfloat <= 0.5}=1 \def\xmindiv{10}\fi
+    \ifnum\fpeval{\xmindivfloat <= 0.2}=1 \def\xmindiv{4}\fi
+    \ifnum\fpeval{\xmindivfloat <= 0.1}=1 \def\xmindiv{2}\fi
+    \ifnum\fpeval{\xmindivfloat <= 0.05}=1 \def\xmindiv{1}\fi
+    \ifnum\fpeval{\xmindiv == 20}=1\relax
+    \else\WhileDoOne[\xmindiv]{\xmindiv}{19}{%
+      \vlines{\decx}{(\K+\J/20)}{\lwc}{0}{\xstep}{\ylength}}\fi}
+\fi
+\ifnum#3=0\relax
+  \multiput(0,0)(0,10){\inteval{\ylinsq + 1}}{%
+    \linethickness{\lwa}\squarecap\line(1,0){\xlength}}
+  \ifnum\fpeval{\minimumdistance <= 5}=1
+  \multiput(0,5)(0,10){\ylinsq}{%
+   \linethickness{\lwb}\line(1,0){\xlength}}\fi
+  \ifnum\fpeval{\minimumdistance <= 1}=1
+  \multiput(0,0)(0,1){\ylength}{%
+    \linethickness{\lwc}\line(1,0){\xlength}}\fi
+\else
+  % horizontal lines on log ordinates
+  \edef\decyy{\fpeval{\decy + 1}}%
+  \edef\ystep{\fpeval{\ylength / \decy}}
+  % main lines: one for each decade (10) plus one at the end
+  \hlines{\decyy}{1}{\lwa}{\ticklength}{\ystep}{\xlength}
+  % second-level lines: one every unit (1), for each decade
+  \WhileDoOne{2}{9}{\hlines{\decy}{\J}{\lwb}{%
+    \minorticklength}{\ystep}{\xlength}}
+  % third-level lines: for each decade (10) and for each unit (1):
+  % 20, 10, 5, 2 are progressively tested and adopted if the distance
+  % between two subsequent nearest lines is less to \minimumdistance
+  \WhileDoTwo{1}{9}{\edef\ymindivfloat{%
+   \fpeval{(\K+1)*(1-10^-(\minimumdistance/\ystep))}}
+\def\ymindiv{20}
+\ifnum\fpeval{\ymindivfloat <= 0.5}=1 \def\ymindiv{10}\fi
+\ifnum\fpeval{\ymindivfloat <= 0.2}=1 \def\ymindiv{4}\fi
+\ifnum\fpeval{\ymindivfloat <= 0.1}=1 \def\ymindiv{2}\fi
+\ifnum\fpeval{\ymindivfloat <= 0.05}=1 \def\ymindiv{1}\fi
+\ifnum\fpeval{\ymindiv == 20}=1\relax
+\else\WhileDoOne[\ymindiv]{\ymindiv}{19}{%
+  \hlines{\decy}{(\K+\J/20)}{\lwc}{0}{\ystep}{\xlength}}\fi}
+\fi
+\GP@custom
+\end{picture}
+\ifGP@customcodereset\def\GP@custom{}\fi}
+\newcount\I
+\NewDocumentCommand\Rbox{O{0} D(){0:0} m}{%
+    \fptest{#1>=0}{\edef\RotLab{\fpeval{#1-90}}}{\edef\RotLab{\fpeval{#1+90}}}%
+    \put(#2){\color{black}\segment(0,0)(#1:1)\put(#1:1){%
+            \rotatebox{\RotLab}{\makebox(0,0)[c]{%
+                    \fptest{#1>=0}{\Pbox[b]}{\Pbox[t]}{\scriptstyle#3}[0]}}%
+        }%
+    }\ignorespaces}
+\NewDocumentCommand\Xcircle{m}{%
+\edef\Czero{0,0}\edef\Rzero{\Scala}%
+\edef\Rdue{\fpeval{1/(#1+1)*\Scala}}%
+\edef\Cdue{\fpeval{\Rzero-\Rdue},0}%
+\Circlewithcenter\Cdue radius\Rdue\ignorespaces}
+\NewDocumentCommand\Ycircle{m s}{%
+\edef\Czero{0,0}\edef\Rzero{\Scala}% external circle center and radius
+\edef\Rdue{\fpeval{\Scala/abs(#1)}}% Small circle radius
+\edef\Cdue{\Rzero,\fpeval{\Scala/#1}}% Small circle center
+\edef\Cuno{\Rzero,0}% First intersection point
+\ModAndAngleOfVect\Cdue to\Mod and\Alfa % Small circle center polar coordinates
+\IntersectionOfLines(\Czero)(\Cdue)and(\Cuno)(\fpeval{\Alfa+90}:1)to\Inter
+\SymmetricalPointOf\Cuno respect\Inter to\Idue
+\ModAndAngleOfVect\Idue to\Mdue and\Adue
+\SubVect\Cdue from\Idue to\IIdue
+\ModAndAngleOfVect\IIdue to\Mod and\Alfa
+\fptest{#1>0}{\edef\Alfa{\fpeval{270-\Alfa}}\Arc(\Cdue)(\Idue){\Alfa}}%
+{\edef\Alfa{\fpeval{270+\Alfa}}\Arc(\Cdue)(\Cuno){\Alfa}}%
+\IfBooleanT{#2}{\Rbox[\Adue](\Idue){\color{black}#1}}\relax
+\ignorespaces}
+\newcommand\CalcRxx[1]{%
+\edef\Rxx{\fpeval{\Scala*(#1 - 1)/(#1 + 1)}}%
+\segment(\Rxx,\LowResZero)(\Rxx,\LowResUno)\relax
+\Pbox(\Rxx,\LowResUno)[t]{$\color{black}\scriptsize#1$}[0]\ignorespaces}
+\newcommand\GradResist[1]{%
+    \color{black}
+\edef\LowResZero{-#1}\edef\LowResUno{\fpeval{\LowResZero-1}}%
+\I=0\edef\Auxx{0}\relax
+\fpdowhile{\I<=10}{\CalcRxx{\Auxx}%
+\advance\I by1\edef\Auxx{\fpeval{\Auxx+0.1}}\ignorespaces}
+\CalcRxx{1.5}\I=2\edef\Auxx{2}\relax
+\fpdowhile{\I<=9}{\CalcRxx{\Auxx}%
+\advance\I by1\edef\Auxx{\fpeval{\Auxx+1}}\ignorespaces}
+\CalcRxx{15}\CalcRxx{30}%
+\edef\Rxx{\Scala}%
+{\segment(-\Rxx,\LowResZero)(\Rxx,\LowResZero)%
+\segment(\Rxx,\LowResZero)(\Rxx,\LowResUno)%
+\Pbox(\Rxx,\LowResUno)[t]{\infty}[0]}}
+\newcommand{\GradPolar}[1]{%
+    \color{black}
+    \edef\yline{\fpeval{-1.2 * \Scala}}
+    \linethickness{\lwa}
+    \segment(-\Scala,\yline)(\Scala,\yline)
+    \edef\ytickstart{\yline}
+    \edef\ytickstop{\fpeval{\yline-2}}
+    \edef\yytickstop{\fpeval{\yline-1}}
+    \segment(\Scala,\ytickstart)(\Scala,\ytickstop)
+    \segment(-\Scala,\ytickstart)(-\Scala,\ytickstop)
+    \fptest{#1=0}{%
+        \segment(0,\ytickstart)(0,\ytickstop)
+        \edef\plstep{\fpeval{\Scala/10}}
+        \linethickness{\lwb}
+        \multiput(\plstep,\yline)(\plstep,0){9}{\line(0,-1){1}}
+        \multiput(-\plstep,\yline)(-\plstep,0){9}{\line(0,-1){1}}%
+    }{%
+    \I=0
+    \fpwhiledo{\I<#1}{%
+        \linethickness{\lwa}
+        \edef\xtick{\fpeval{\I*\Scala/#1}}
+        \segment(\xtick,\ytickstart)(\xtick,\ytickstop)
+        \segment(-\xtick,\ytickstart)(-\xtick,\ytickstop)
+        \J=2
+        \fpwhiledo{\J<=9}{%
+            \linethickness{\lwb}
+            \edef\xtick{\fpeval{\Scala/#1 * (\I + ln(\J)/ln(10))}}
+            \segment(\xtick,\ytickstart)(\xtick,\yytickstop)
+            \segment(-\xtick,\ytickstart)(-\xtick,\yytickstop)
+            \advance\J by1\relax}
+        \advance\I by1\relax}}
+}
+\NewDocumentCommand\PolarChart{O{\paperheight} m}{%
+\newpage
+\parindent=0pt
+\pagestyle{empty}%
+\ifcsname pmargin\endcsname\relax\else\newlength\pmargin\fi
+\setlength{\pmargin}{20pt}
+\newgeometry{left=\pmargin,right=\pmargin,top=\pmargin,bottom=\pmargin}
+\def\factor{140}
+\unitlength=\fpeval{#1/\factor}pt
+\def\xlength{\fpeval{(\textwidth-0.01pt)/\unitlength}}
+\def\ylength{\fpeval{(\textheight-0.01pt)/\unitlength}}
+\begin{picture}(\xlength,\ylength)%
+    (\fpeval{-\xlength/2},\fpeval{-\ylength/2})%
+\color{gridcolor}%
+\edef\Scala{50}% The scale factor
+\fptest{#2=0}{% start circle linear radius sequence.
+\I=1
+\fpdowhile{\I=<100}{\edef\R{\fpeval{0.01*\Scala*\I}}%
+{\fptest{\fpeval{\I-10(round(\I/10,0))}=0}{\linethickness{\lwa}%
+}%
+{\fptest{\fpeval{\I-5(round(\I/5,0))}=0}{\linethickness{\lwb}}%
+{\linethickness{\lwc}}%
+}\Circlewithcenter0,0radius\R
+}\advance\I by1\relax}%
+}% end circle linear radius sequence
+{%
+\edef\LnDieci{\fpeval{ln(10)}}%
+    \edef\ScalaDecade{\fpeval{\Scala/#2}}%
+\fptest{#2<3}{%
+        \newcount\Dec \Dec=1\relax
+\fpdowhile{\Dec=<#2}{%
+            \linethickness{\lwa}%
+            \edef\R{\fpeval{\Dec*\ScalaDecade}}%
+            \Circlewithcenter0,0radius\R% Thick circles
+\edef\LPLA{1}%
+\fpdowhile{\LPLA<4}{
+\edef\Logaritmo{\fpeval{\Dec-1+(ln(\LPLA))/\LnDieci}}%
+\edef\R{\fpeval{\ScalaDecade*\Logaritmo}}%
+\fptest{\R>0}{\fptest{\LPLA=round(\LPLA,0)}%
+{\linethickness{\lwb}}{\linethickness{\lwc}}%
+\Circlewithcenter0,0radius\R}{}%
+\edef\LPLA{\fpeval{\LPLA+0.2}}}%
+\edef\LPLA{4}%
+\fpdowhile{\LPLA=<10}{%
+\edef\Logaritmo{\fpeval{\Dec-1+(ln(\LPLA))/\LnDieci}}%
+\edef\R{\fpeval{\ScalaDecade*\Logaritmo}}%
+\fptest{\R>0}{\fptest{\LPLA=round(\LPLA,0)}%
+{\linethickness{\lwb}}{\linethickness{\lwc}}%
+\Circlewithcenter0,0radius\R}{}%
+\edef\LPLA{\fpeval{\LPLA+0.5}}}%
+\advance\Dec by1\relax}%
+}{%
+\ClassWarning{GraphPaper}{Logarithmic polar graph paper:\MessageBreak
+too many decades: \number#2\space\MessageBreak
+Reduce their number}%
+}}% End logarithmic circle radius sequence
+\ignorespaces
+\I=0\edef\R{\Scala}%
+\fpdowhile{\I<360}{\edef\A{\fpeval{\I}}%
+\fptest{\fpeval{\I-10(round(\I/10,0))}=0}%
+{\linethickness{\lwa}\segment(0,0)(\A:\R)
+\Rbox[\A](\A:\R){\color{black}\A}}% multiple of 10
+{\fptest{\fpeval{\I-5(round(\I/5,0))}=0}%
+{\linethickness{\lwb}%
+\segment(\A:5)(\A:10)
+\segment(\A:30)(\A:\R)}% multiple of 5
+{\linethickness{\lwc}%
+\fptest{\fpeval{\I-2(round(\I/2,0))}=0}%
+{\segment(\A:10)(\A:\R)}% multiple of 2
+{\segment(\A:30)(\A:\R)}% multiple of 1
+}%
+}%
+\advance\I by 1\relax
+}\ignorespaces
+    \GradPolar{#2}
+\GP@custom
+\end{picture}
+\ifGP@customcodereset\def\GP@custom{}\fi}
+\NewDocumentCommand\SmithChart{O{\paperheight}}{%
+    \newpage
+    \parindent=0pt
+    \pagestyle{empty}%
+    \ifcsname pmargin\endcsname\relax\else\newlength\pmargin\fi
+    \setlength{\pmargin}{20pt}
+    \newgeometry{left=\pmargin,right=\pmargin,top=\pmargin,bottom=\pmargin}
+    \def\factor{140}
+    \unitlength=\fpeval{#1/\factor}pt\relax
+    \def\xlength{\fpeval{(\textwidth-0.01pt)/\unitlength}}
+    \def\ylength{\fpeval{(\textheight-0.01pt)/\unitlength}}
+    \begin{picture}(\xlength,\ylength)%
+                   (\fpeval{-\xlength/2},\fpeval{-\ylength/2})%
+\color{gridcolor}%
+\edef\Scala{50}% scale factor based on the main circle but valid
+               % for everything inside the graph paper.
+{\color{black}\Pbox(0,0){}[4]}% Black dot in the origin
+\I=0\relax
+\fpdowhile{\I=<6}{\edef\Aux{\fpeval{\I/20}}{%
+\fptest{\I=0}{\color{black}}{\color{gridcolor}}\thicklines\Xcircle{\Aux}}%
+\advance\I by1\edef\Aux{\fpeval{\I/20}}\Xcircle{\Aux}%
+\advance\I by1\ignorespaces}%fino a 0.4
+\fpdowhile{\I=<16}{\edef\Aux{\fpeval{\I/20}}\relax
+{\thicklines\Xcircle{\Aux}}\advance\I by2\edef\Aux{\fpeval{\I/20}}\relax
+\Xcircle{\Aux}\advance\I by2\ignorespaces}% fino a 1
+\fpdowhile{\I=<36}{\edef\Aux{\fpeval{\I/20}}\relax
+{\thicklines\Xcircle{\Aux}}\advance\I by4\edef\Aux{\fpeval{\I/20}}\relax
+\Xcircle{\Aux}\advance\I by4\ignorespaces}% fino a 2
+\fpdowhile{\I=<96}{\edef\Aux{\fpeval{\I/20}}\relax
+{\thicklines\Xcircle{\Aux}}\advance\I by8\edef\Aux{\fpeval{\I/20}}\relax
+\Xcircle{\Aux}\advance\I by8\ignorespaces}%fino a 5
+\fpdowhile{\I=<296}{\edef\Aux{\fpeval{\I/20}}\relax
+{\thicklines\Xcircle{\Aux}}\advance\I by16\edef\Aux{\fpeval{\I/20}}\relax
+\Xcircle{\Aux}\advance\I by16\ignorespaces}% up to 15
+\Ycircle{1}%
+{\thicklines\segment(-\Rzero,0)(\Rzero,0)}% diameter
+\Rbox[180](-\Rzero,0){0}\Rbox[0](\Rzero,0){\infty}
+\Ycircle{0.05}\Ycircle{-0.05}\I=2% \I=2 is to avoid a division by 0
+\fpdowhile{\I=<18}{\edef\Aux{\fpeval{\I/20}}\relax
+{\thicklines\Ycircle{\Aux}*\Ycircle{-\Aux}*}%
+\advance\I by1\edef\Aux{\fpeval{\I/20}}\relax
+\Ycircle{\Aux}\Ycircle{-\Aux}\advance\I by 1\ignorespaces}% restarts from 1
+\fpdowhile{\I<40}{\edef\Aux{\fpeval{\I/20}}\relax
+{\thicklines\Ycircle{\Aux}*\Ycircle{-\Aux}*}%
+\advance\I by 2\edef\Aux{\fpeval{\I/20}}\relax
+\Ycircle{\Aux}\Ycircle{-\Aux}\advance\I by 2\ignorespaces}% restarts from 2
+\fpdowhile{\I<80}{\edef\Aux{\fpeval{\I/20}}\relax
+{\thicklines\Ycircle{\Aux}*\Ycircle{-\Aux}*}%
+\advance\I by 4\edef\Aux{\fpeval{\I/20}}\relax
+\Ycircle{\Aux}\Ycircle{-\Aux}\advance\I by 4\ignorespaces}% restarts from 4
+\fpdowhile{\I=<140}{\edef\Aux{\fpeval{\I/20}}\relax
+{\thicklines\Ycircle{\Aux}*\Ycircle{-\Aux}*}%
+\advance\I by 10\edef\Aux{\fpeval{\I/20}}\relax
+\Ycircle{\Aux}\Ycircle{-\Aux}\advance\I by 10\ignorespaces}% stops at 7.5
+{\thicklines\Ycircle{8}*\Ycircle{-8}*}%
+\GradResist{62}%
+\edef\Rout{\fpeval{1.09*\Rzero}}%
+\edef\RoutCifre{\fpeval{\Rout+2}}%
+\edef\RoutTak{\fpeval{\Rout+1}}%
+{\color{black}%
+\Circlewithcenter 0,0radius\Rout
+\I=0\fpdowhile{\I<10}%
+{\edef\LAng{\fpeval{180-\I*36}}\edef\Cifre{\fpeval{\I*5}}%
+\put(\LAng:\RoutCifre){%
+\rotatebox{\fpeval{\LAng-90}}{\makebox(0,0)[b]{\scriptsize\Cifre}}}%
+\advance\I by 1\ignorespaces}
+\I=0\fpdowhile{\I<50}{%
+\edef\LAng{\fpeval{180-\I*7.2}}\segment(\LAng:\Rout)(\LAng:\RoutTak)%
+\advance\I by1\ignorespaces}
+\Circlewithcenter0,0radius{\fpeval{\Scala+9}}}%
+\GP@custom
+\end{picture}
+\ifGP@customcodereset\def\GP@custom{}\fi}%
+\NewDocumentCommand{\bilinear}{}{\carta{0}{0}}
+\NewDocumentCommand{\semilogx}{m}{\carta{#1}{0}}
+\NewDocumentCommand{\semilogy}{m}{\carta{0}{#1}}
+\NewDocumentCommand{\loglog}{O{0}mm}{\carta[#1]{#2}{#3}}
+\NewDocumentCommand{\polar}{}{\PolarChart{0}}
+\NewDocumentCommand{\logpolar}{m}{\PolarChart{#1}}
+\NewDocumentCommand{\smith}{}{\SmithChart}
+\NewDocumentCommand{\setgridcolor}{m}{\colorlet{gridcolor}{#1}}
+\NewDocumentCommand{\setmajorlinethickness}{m}{\setlength{\lwa}{#1}}
+\NewDocumentCommand{\setmediumlinethickness}{m}{\setlength{\lwa}{#1}}
+\NewDocumentCommand{\setminorlinethickness}{m}{\setlength{\lwa}{#1}}
+\NewDocumentCommand{\setminimumdistance}{m}{\setlength{\mindistanceunit}{#1}}
+\NewDocumentCommand{\setxside}{m}{%
+\ifnum\fpeval{#1 > \paperwidth}=1 \ClassError{graphpaper}{X side too wide!} \fi
+\setlength{\xsideunit}{#1}}
+\NewDocumentCommand{\setyside}{m}{%
+\ifnum\fpeval{#1 > \paperheight}=1 \ClassError{graphpaper}{Y side too wide!} \fi
+\setlength{\ysideunit}{#1}}
+\def\GP@custom{}
+\newif\ifGP@customcodereset \GP@customcoderesettrue
+\NewDocumentCommand{\customcode}{O{1} m}{%
+\ifnum#1=\z@ \GP@customcoderesetfalse \fi%
+\def\GP@custom{#2}}
+%% Copyright (C) 2020 Claudio Beccari & Francesco Biccari
+%% 
+%% Distributable under the LaTeX Project Public License,
+%% version 1.3c or higher (your choice). The latest version of
+%% this license is at: http://www.latex-project.org/lppl.txt
+%% 
+%% This work is "author-maintained".
+%% 
+%% This work consists of this file graphpaper.dtx,
+%% and the derived files graphpaper.cls and graphpaper.pdf.
+%% 
+%%
+%% End of file `graphpaper.cls'.