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
|
\documentclass[french]{article}
\usepackage{pstricks,pst-node}
\usepackage{pstricks-add}
\usepackage{multido}
\newcounter{diam}
\newcounter{anglea}
\newcounter{angleb}
\begin{document}
\begin{pspicture*}(-8.10,-8.1)(8.1,8.1)
\pspolygon[fillstyle=solid,fillcolor=black,linecolor=black](0,0)(8,8)(0,8)
\pspolygon[fillstyle=solid,fillcolor=black,linecolor=black](0,0)(-8,8)(-8,0)
\pspolygon[fillstyle=solid,fillcolor=black,linecolor=black](0,0)(-8,-8)(0,-8)
\pspolygon[fillstyle=solid,fillcolor=black,linecolor=black](0,0)(8,0)(8,-8)
\SpecialCoor
\multido{\i=8+-2}{4}{%
\setcounter{diam}{\i}
\multido{\i=0+90}{4}{
\setcounter{anglea}{\i}
\setcounter{angleb}{\theanglea}
\addtocounter{angleb}{45}
\pspolygon[fillstyle=solid,fillcolor=black,linecolor=black](0;0)(\thediam;\theanglea)(\thediam;\theangleb)
\psarc[fillstyle=solid,fillcolor=black,linecolor=black](0,0){\thediam}{\theanglea}{\theangleb}
%rayure
\addtocounter{diam}{-1}
\pspolygon[fillstyle=solid,fillcolor=white,linecolor=white](0;0)(\thediam;\theanglea)(\thediam;\theangleb)
\psarc[fillstyle=solid,fillcolor=white,linecolor=white](0,0){\thediam}{\theanglea}{\theangleb}
%quartier suivant
\addtocounter{anglea}{45}
\addtocounter{angleb}{45}
\addtocounter{diam}{1}%on retrouve le diametre maximal
\pspolygon[fillstyle=solid,fillcolor=white,linecolor=white](0;0)(\thediam;\theanglea)(\thediam;\theangleb)
\psarc[fillstyle=solid,fillcolor=white,linecolor=white](0,0){\thediam}{\theanglea}{\theangleb}
%rayure
\addtocounter{diam}{-1}
\pspolygon[fillstyle=solid,fillcolor=black,linecolor=black](0;0)(\thediam;\theanglea)(\thediam;\theangleb)
\psarc[fillstyle=solid,fillcolor=black,linecolor=black](0,0){\thediam}{\theanglea}{\theangleb}
\addtocounter{diam}{1}%on retrouve le diametre maximal
}
}
\pspolygon[linewidth=1.6pt](-8,-8)(-8,8)(8,8)(8,-8)
\psline[linewidth=1.6pt](-8,-8)(8,8)
\psline[linewidth=1.6pt](8,-8)(-8,8)
\psline[linewidth=1.6pt](8,0)(-8,0)
\psline[linewidth=1.6pt](0,8)(0,-8)
\end{pspicture*}\\
\end{document} |
Partager