texlive[49014] Master: pst-moire (28oct18)
commits+karl at tug.org
commits+karl at tug.org
Sun Oct 28 22:07:41 CET 2018
Revision: 49014
http://tug.org/svn/texlive?view=revision&revision=49014
Author: karl
Date: 2018-10-28 22:07:41 +0100 (Sun, 28 Oct 2018)
Log Message:
-----------
pst-moire (28oct18)
Modified Paths:
--------------
trunk/Master/tlpkg/bin/tlpkg-ctan-check
trunk/Master/tlpkg/libexec/ctan2tds
trunk/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc
Added Paths:
-----------
trunk/Master/texmf-dist/doc/generic/pst-moire/
trunk/Master/texmf-dist/doc/generic/pst-moire/README.md
trunk/Master/texmf-dist/doc/generic/pst-moire/examples/
trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern1.pdf
trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern1.tex
trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern2.pdf
trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern2.tex
trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern3.pdf
trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern3.tex
trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern4.pdf
trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern4.tex
trunk/Master/texmf-dist/doc/generic/pst-moire/pst-moire-doc.pdf
trunk/Master/texmf-dist/doc/generic/pst-moire/pst-moire-doc.tex
trunk/Master/texmf-dist/dvips/pst-moire/
trunk/Master/texmf-dist/dvips/pst-moire/pst-moire.pro
trunk/Master/texmf-dist/tex/generic/pst-moire/
trunk/Master/texmf-dist/tex/generic/pst-moire/pst-moire.tex
trunk/Master/texmf-dist/tex/latex/pst-moire/
trunk/Master/texmf-dist/tex/latex/pst-moire/pst-moire.sty
trunk/Master/tlpkg/tlpsrc/pst-moire.tlpsrc
Added: trunk/Master/texmf-dist/doc/generic/pst-moire/README.md
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-moire/README.md (rev 0)
+++ trunk/Master/texmf-dist/doc/generic/pst-moire/README.md 2018-10-28 21:07:41 UTC (rev 49014)
@@ -0,0 +1,21 @@
+# **README** #
+# pst-moire v. 1.0 #
+# 2018/10/28 #
+
+ Source: pst-moire.tex, pst-moire.sty, pst-moire.pro
+ Authors: Jürgen Gilg, Manuel Luque, Jean-Michel Sarlat
+ Info: Draw moire pattern with PSTricks
+ License: LPPL 1.3c
+
+---
+
+# Short description #
+
+The *pst-moire* package makes it possible to very simply create
+a variety of patterns obtained either by dragging one pattern on another,
+or by rotating one on the other. Moire effects sometimes look very interesting.
+This document provides the necessary commands and divers examples.
+
+
+
+
Property changes on: trunk/Master/texmf-dist/doc/generic/pst-moire/README.md
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern1.pdf
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern1.pdf
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern1.pdf 2018-10-28 21:06:30 UTC (rev 49013)
+++ trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern1.pdf 2018-10-28 21:07:41 UTC (rev 49014)
Property changes on: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern1.pdf
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/pdf
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern1.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern1.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern1.tex 2018-10-28 21:07:41 UTC (rev 49014)
@@ -0,0 +1,54 @@
+\documentclass{article}
+\usepackage{pstricks-add}
+\usepackage[a4paper]{geometry}
+\pagestyle{empty}
+\begin{document}
+
+
+\psset{
+%linestyle=none,
+dimen=inner,
+linewidth=0pt}
+
+\def\carre{%
+\begin{psclip}{\pspolygon[linewidth=0pt,linestyle=none](-1.5,-1.5)(-1.5,1.5)(1.5,1.5)(1.5,-1.5)}
+\multido{\rA=0.1+0.15,\rC=0.2+0.15,\rB=0.025+0.05}{40}{%
+\pscircle[linewidth=1.25pt](\rB,0){\rA}
+\pscircle[linewidth=0.7pt](-\rB,0){\rC}
+}
+\def\lines{%
+\psline[linewidth=2pt](-1.5,1.5)(0,0)
+\psline[linewidth=1.75pt](-1.5,1.25)(-0.25,0)
+\psline[linewidth=1.5pt](-1.5,1)(-0.5,0)
+\psline[linewidth=1.25pt](-1.5,0.75)(-0.75,0)
+\psline[linewidth=1pt](-1.5,0.5)(-1,0)
+\psline[linewidth=0.75pt](-1.5,0.25)(-1.25,0)
+}
+%\rput(0,0){\lines}
+%\rput{90}(0,0){\lines}
+%\rput{180}(0,0){\lines}
+%\rput{270}(0,0){\lines}
+\end{psclip}
+}
+
+\def\half{%
+\rput(0,0){\carre}
+\rput(-3,0){\psscalebox{1 -1}{\carre}}
+}
+
+\def\pattern{%
+\rput(0,0){\half}
+\rput(0,-3){\psscalebox{1 -1}{\half}}
+}
+
+\def\manuel{%
+\multido{\iA=0+6}{2}{
+\multido{\iB=0+-6}{3}{
+\rput(\iA,\iB){\pattern}
+}}
+}
+\begin{pspicture}(-7,-9)(7,9)
+\rput(-1.5,7.5){\manuel}
+%\rput{5}(-1.5,7.5){\manuel}
+\end{pspicture}
+\end{document}
\ No newline at end of file
Property changes on: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern1.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern2.pdf
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern2.pdf
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern2.pdf 2018-10-28 21:06:30 UTC (rev 49013)
+++ trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern2.pdf 2018-10-28 21:07:41 UTC (rev 49014)
Property changes on: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern2.pdf
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/pdf
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern2.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern2.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern2.tex 2018-10-28 21:07:41 UTC (rev 49014)
@@ -0,0 +1,39 @@
+\documentclass{article}
+\usepackage{pstricks-add,pst-plot}
+\usepackage[a4paper]{geometry}
+\pagestyle{empty}
+\begin{document}
+
+\psset{
+%linestyle=none,
+dimen=inner,
+linewidth=0pt}
+
+\begin{pspicture}(-9,-9)(9,9)
+\psframe(-5,-5)(5,5)%
+\begin{psclip}{\pspolygon[linewidth=4pt](4;90)(2;126)(4;162)(2;198)(4;234)(2;270)(4;306)(2;342)(4;18)(2;54)}
+\multido{\iA=0+9}{40}{%
+\rput{\iA}(0,0){
+\pscustom[fillstyle=solid,fillcolor=black]{%
+\psparametricplot[algebraic]{-9}{0}{0.5*t*sin(0.2*t)|0.5*t*cos(0.2*t)}
+\psparametricplot[algebraic]{0}{-9}{0.525*t*sin(0.2*t)|0.525*t*cos(0.2*t)}
+}}}
+\end{psclip}
+\end{pspicture}
+
+\newpage
+
+\begin{pspicture}(-9,-9)(9,9)
+\psframe(-5,-5)(5,5)%
+\begin{psclip}{\pspolygon[linewidth=4pt](4;90)(2;126)(4;162)(2;198)(4;234)(2;270)(4;306)(2;342)(4;18)(2;54)}
+\multido{\iA=0+9}{40}{%
+\rput{\iA}(0,0){
+\pscustom[fillstyle=solid,fillcolor=black]{%
+\psparametricplot[algebraic]{0}{-9}{0.525*t*sin(0.2*t)|-0.525*t*cos(0.2*t)}
+\psparametricplot[algebraic]{-9}{0}{0.5*t*sin(0.2*t)|-0.5*t*cos(0.2*t)}
+}}}
+\end{psclip}
+\end{pspicture}
+
+\end{document}
+
Property changes on: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern2.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern3.pdf
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern3.pdf
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern3.pdf 2018-10-28 21:06:30 UTC (rev 49013)
+++ trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern3.pdf 2018-10-28 21:07:41 UTC (rev 49014)
Property changes on: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern3.pdf
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/pdf
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern3.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern3.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern3.tex 2018-10-28 21:07:41 UTC (rev 49014)
@@ -0,0 +1,91 @@
+\documentclass{article}
+\usepackage{pstricks-add}
+\usepackage[a4paper]{geometry}
+\pagestyle{empty}
+\begin{document}
+
+\psset{
+%linestyle=none,
+dimen=inner,
+linewidth=0pt}
+
+\def\carre{%
+\psrotate(0,0){90}{
+\pnode(-1.5,1.5){AL1}\pnode(1.5,-1.5){AR1}
+\pnode(-1.5,1.2){AL1}\pnode(1.5,-1.2){AR1}
+\pnode(-1.5,0.9){AL2}\pnode(1.5,-0.9){AR2}
+\pnode(-1.5,0.7){AL3}\pnode(1.5,-0.7){AR3}
+\pnode(-1.5,0.4){AL4}\pnode(1.5,-0.4){AR4}
+\pnode(-1.5,0.2){AL5}\pnode(1.5,-0.2){AR5}
+\pnode(-1.5,0.0){AL6}\pnode(1.5,0.0){AR6}
+\pnode(-1.5,-0.2){AL7}\pnode(1.5,0.2){AR7}
+\pnode(-1.5,-0.4){AL8}\pnode(1.5,0.4){AR8}
+\pnode(-1.5,-0.6){AL9}\pnode(1.5,0.6){AR9}
+\pnode(-1.5,-0.75){AL10}\pnode(1.5,0.75){AR10}
+\pnode(-1.5,-0.9){AL11}\pnode(1.5,0.9){AR11}
+\pnode(-1.5,-1.05){AL12}\pnode(1.5,1.05){AR12}
+\pnode(-1.5,-1.15){AL13}\pnode(1.5,1.15){AR13}
+\pnode(-1.5,-1.25){AL14}\pnode(1.5,1.25){AR14}
+\pnode(-1.5,-1.3){AL15}\pnode(1.5,1.3){AR15}
+\pnode(-1.5,-1.4){AL16}\pnode(1.5,1.4){AR16}
+\pnode(-1.5,-1.45){AL17}\pnode(1.5,1.45){AR17}
+\pnode(-1.5,-1.5){AL18}\pnode(1.5,1.5){AR18}
+\pspolygon[fillstyle=solid,fillcolor=black](AL1)(AR1)(AR2)(AL2)
+\pspolygon[fillstyle=solid,fillcolor=black](AL3)(AR3)(AR4)(AL4)
+\pspolygon[fillstyle=solid,fillcolor=black](AL5)(AR5)(AR6)(AL6)
+\pspolygon[fillstyle=solid,fillcolor=black](AL7)(AR7)(AR8)(AL8)
+\pspolygon[fillstyle=solid,fillcolor=black](AL9)(AR9)(AR10)(AL10)
+\pspolygon[fillstyle=solid,fillcolor=black](AL11)(AR11)(AR12)(AL12)
+\pspolygon[fillstyle=solid,fillcolor=black](AL13)(AR13)(AR14)(AL14)
+\pspolygon[fillstyle=solid,fillcolor=black](AL15)(AR15)(AR16)(AL16)
+\pspolygon[fillstyle=solid,fillcolor=black](AL17)(AR17)(AR18)(AL18)
+\pnode(-1.5,1.5){BL1}\pnode(1.5,-1.5){BR1}
+\pnode(-1.2,1.5){BL2}\pnode(1.2,-1.5){BR2}
+\pnode(-0.9,1.5){BL3}\pnode(0.9,-1.5){BR3}
+\pnode(-0.7,1.5){BL4}\pnode(0.7,-1.5){BR4}
+\pnode(-0.4,1.5){BL5}\pnode(0.4,-1.5){BR5}
+\pnode(-0.2,1.5){BL6}\pnode(0.2,-1.5){BR6}
+\pnode(0.0,1.5){BL7}\pnode(0,-1.5){BR7}
+\pnode(0.2,1.5){BL8}\pnode(-0.2,-1.5){BR8}
+\pnode(0.4,1.5){BL9}\pnode(-0.4,-1.5){BR9}
+\pnode(0.6,1.5){BL10}\pnode(-0.6,-1.5){BR10}
+\pnode(0.75,1.5){BL11}\pnode(-0.75,-1.5){BR11}
+\pnode(0.9,1.5){BL12}\pnode(-0.9,-1.5){BR12}
+\pnode(1.05,1.5){BL13}\pnode(-1.05,-1.5){BR13}
+\pnode(1.15,1.5){BL14}\pnode(-1.15,-1.5){BR14}
+\pnode(1.25,1.5){BL15}\pnode(-1.25,-1.5){BR15}
+\pnode(1.3,1.5){BL16}\pnode(-1.3,-1.5){BR16}
+\pnode(1.4,1.5){BL17}\pnode(-1.4,-1.5){BR17}
+\pnode(1.45,1.5){BL18}\pnode(-1.45,-1.5){BR18}
+\pspolygon[fillstyle=solid,fillcolor=black](BL1)(BR1)(BR2)(BL2)
+\pspolygon[fillstyle=solid,fillcolor=black](BL3)(BR3)(BR4)(BL4)
+\pspolygon[fillstyle=solid,fillcolor=black](BL5)(BR5)(BR6)(BL6)
+\pspolygon[fillstyle=solid,fillcolor=black](BL7)(BR7)(BR8)(BL8)
+\pspolygon[fillstyle=solid,fillcolor=black](BL9)(BR9)(BR10)(BL10)
+\pspolygon[fillstyle=solid,fillcolor=black](BL11)(BR11)(BR12)(BL12)
+\pspolygon[fillstyle=solid,fillcolor=black](BL13)(BR13)(BR14)(BL14)
+\pspolygon[fillstyle=solid,fillcolor=black](BL15)(BR15)(BR16)(BL16)
+\pspolygon[fillstyle=solid,fillcolor=black](BL17)(BR17)(BR18)(BL18)
+}}
+
+\def\half{%
+\rput(0,0){\carre}
+\rput(-3,0){\psscalebox{-1 1}{\carre}}
+}
+
+\def\pattern{%
+\rput(0,0){\half}
+\rput(0,-3){\psscalebox{1 -1}{\half}}
+}
+
+\def\manuel{%
+\multido{\iA=0+6}{2}{
+\multido{\iB=0+-6}{3}{
+\rput(\iA,\iB){\pattern}
+}}
+}
+\begin{pspicture}(-7,-9)(7,9)
+\rput(-1.5,7.5){\manuel}
+%\rput{5}(-1.5,7.5){\manuel}
+\end{pspicture}
+\end{document}
\ No newline at end of file
Property changes on: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern3.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern4.pdf
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern4.pdf
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern4.pdf 2018-10-28 21:06:30 UTC (rev 49013)
+++ trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern4.pdf 2018-10-28 21:07:41 UTC (rev 49014)
Property changes on: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern4.pdf
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/pdf
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern4.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern4.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern4.tex 2018-10-28 21:07:41 UTC (rev 49014)
@@ -0,0 +1,82 @@
+\documentclass{article}
+\usepackage{pstricks-add}
+\usepackage[a4paper]{geometry}
+\pagestyle{empty}
+\begin{document}
+\psset{dimen=inner,linewidth=0pt}
+\begin{pspicture}(-8,-8)(8,8)
+
+
+\def\carre{%
+\pnode(-1.5,1.5){AL1}\pnode(1.5,-1.5){AR1}
+\pnode(-1.5,1.2){AL2}\pnode(1.5,-1.2){AR2}
+\pnode(-1.5,0.9){AL3}\pnode(1.5,-0.9){AR3}
+\pnode(-1.5,0.7){AL4}\pnode(1.5,-0.7){AR4}
+\pnode(-1.5,0.4){AL5}\pnode(1.5,-0.4){AR5}
+\pnode(-1.5,0.2){AL6}\pnode(1.5,-0.2){AR6}
+\pnode(-1.5,0.0){AL7}\pnode(1.5,0.0){AR7}
+\pnode(-1.5,-0.2){AL8}\pnode(1.5,0.2){AR8}
+\pnode(-1.5,-0.4){AL9}\pnode(1.5,0.4){AR9}
+\pnode(-1.5,-0.6){AL10}\pnode(1.5,0.6){AR10}
+\pnode(-1.5,-0.75){AL11}\pnode(1.5,0.75){AR11}
+\pnode(-1.5,-0.9){AL12}\pnode(1.5,0.9){AR12}
+\pnode(-1.5,-1.05){AL13}\pnode(1.5,1.05){AR13}
+\pnode(-1.5,-1.15){AL14}\pnode(1.5,1.15){AR14}
+\pnode(-1.5,-1.25){AL15}\pnode(1.5,1.25){AR15}
+\pnode(-1.5,-1.3){AL16}\pnode(1.5,1.3){AR16}
+\pnode(-1.5,-1.4){AL17}\pnode(1.5,1.4){AR17}
+\pnode(-1.5,-1.45){AL18}\pnode(1.5,1.45){AR18}
+\pspolygon[fillstyle=solid,fillcolor=black](AL1)(AR1)(AR2)(AL2)
+\pspolygon[fillstyle=solid,fillcolor=black](AL3)(AR3)(AR4)(AL4)
+\pspolygon[fillstyle=solid,fillcolor=black](AL5)(AR5)(AR6)(AL6)
+\pspolygon[fillstyle=solid,fillcolor=black](AL7)(AR7)(AR8)(AL8)
+\pspolygon[fillstyle=solid,fillcolor=black](AL9)(AR9)(AR10)(AL10)
+\pspolygon[fillstyle=solid,fillcolor=black](AL11)(AR11)(AR12)(AL12)
+\pspolygon[fillstyle=solid,fillcolor=black](AL13)(AR13)(AR14)(AL14)
+\pspolygon[fillstyle=solid,fillcolor=black](AL15)(AR15)(AR16)(AL16)
+\pspolygon[fillstyle=solid,fillcolor=black](AL17)(AR17)(AR18)(AL18)
+\pnode(-1.2,1.5){BL1}\pnode(1.2,-1.5){BR1}
+\pnode(-0.9,1.5){BL2}\pnode(0.9,-1.5){BR2}
+\pnode(-0.7,1.5){BL3}\pnode(0.7,-1.5){BR3}
+\pnode(-0.4,1.5){BL4}\pnode(0.4,-1.5){BR4}
+\pnode(-0.2,1.5){BL5}\pnode(0.2,-1.5){BR5}
+\pnode(0.0,1.5){BL6}\pnode(0,-1.5){BR6}
+\pnode(0.2,1.5){BL7}\pnode(-0.2,-1.5){BR7}
+\pnode(0.4,1.5){BL8}\pnode(-0.4,-1.5){BR8}
+\pnode(0.6,1.5){BL9}\pnode(-0.6,-1.5){BR9}
+\pnode(0.75,1.5){BL10}\pnode(-0.75,-1.5){BR10}
+\pnode(0.9,1.5){BL11}\pnode(-0.9,-1.5){BR11}
+\pnode(1.05,1.5){BL12}\pnode(-1.05,-1.5){BR12}
+\pnode(1.15,1.5){BL13}\pnode(-1.15,-1.5){BR13}
+\pnode(1.25,1.5){BL14}\pnode(-1.25,-1.5){BR14}
+\pnode(1.3,1.5){BL15}\pnode(-1.3,-1.5){BR15}
+\pnode(1.4,1.5){BL16}\pnode(-1.4,-1.5){BR16}
+\pnode(1.45,1.5){BL17}\pnode(-1.45,-1.5){BR17}
+\pnode(1.5,1.5){BL18}\pnode(-1.5,-1.5){BR18}
+\pspolygon[fillstyle=solid,fillcolor=black](BL1)(BR1)(BR2)(BL2)
+\pspolygon[fillstyle=solid,fillcolor=black](BL3)(BR3)(BR4)(BL4)
+\pspolygon[fillstyle=solid,fillcolor=black](BL5)(BR5)(BR6)(BL6)
+\pspolygon[fillstyle=solid,fillcolor=black](BL7)(BR7)(BR8)(BL8)
+\pspolygon[fillstyle=solid,fillcolor=black](BL9)(BR9)(BR10)(BL10)
+\pspolygon[fillstyle=solid,fillcolor=black](BL11)(BR11)(BR12)(BL12)
+\pspolygon[fillstyle=solid,fillcolor=black](BL13)(BR13)(BR14)(BL14)
+\pspolygon[fillstyle=solid,fillcolor=black](BL15)(BR15)(BR16)(BL16)
+\pspolygon[fillstyle=solid,fillcolor=black](BL17)(BR17)(BR18)(BL18)
+}
+
+\def\half{%
+\rput(0,0){\carre}
+\rput(-3,0){\psscalebox{-1 1}{\carre}}
+}
+
+\def\pattern{%
+\rput(0,0){\half}
+\rput(0,-3){\psscalebox{1 -1}{\half}}
+}
+
+\multido{\iA=0+6}{2}{%
+ \multido{\iB=0+-6}{3}{%
+ \rput(\iA,\iB){\pattern}
+}}
+\end{pspicture}
+\end{document}
\ No newline at end of file
Property changes on: trunk/Master/texmf-dist/doc/generic/pst-moire/examples/pattern4.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/generic/pst-moire/pst-moire-doc.pdf
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/generic/pst-moire/pst-moire-doc.pdf
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-moire/pst-moire-doc.pdf 2018-10-28 21:06:30 UTC (rev 49013)
+++ trunk/Master/texmf-dist/doc/generic/pst-moire/pst-moire-doc.pdf 2018-10-28 21:07:41 UTC (rev 49014)
Property changes on: trunk/Master/texmf-dist/doc/generic/pst-moire/pst-moire-doc.pdf
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/pdf
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/generic/pst-moire/pst-moire-doc.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-moire/pst-moire-doc.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/generic/pst-moire/pst-moire-doc.tex 2018-10-28 21:07:41 UTC (rev 49014)
@@ -0,0 +1,1489 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% %%
+%% This is file `pst-moire-doc.tex' %%
+%% %%
+%% IMPORTANT NOTICE: %%
+%% %%
+%% Package `pst-moire' %%
+%% %%
+%% Manuel Luque, Jürgen Gilg, Jean-Michel Sarlat %%
+%% %%
+%% Copyright (C) 2018 %%
+%% %%
+%% This program can redistributed and/or modified under %%
+%% the terms of the LaTeX Project Public License %%
+%% Distributed from CTAN archives in directory %%
+%% macros/latex/base/lppl.txt; either version 1.3c of %%
+%% the License, or (at your option) any later version. %%
+%% %%
+%% DESCRIPTION: %%
+%% `pst-moire' is a PSTricks package to draw moire patterns %%
+%% %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\listfiles
+
+\documentclass[%
+ 11pt,
+ english,
+ BCOR10mm,
+ DIV12,
+ bibliography=totoc,
+ parskip=false,
+ fleqn,
+ smallheadings,
+ headexclude,
+ footexclude,
+ oneside,
+ dvipsnames,
+ svgnames,
+ x11names
+]{pst-doc}
+
+\usepackage[autostyle]{csquotes}
+\usepackage{biblatex}
+%\usepackage[style=dtk]{biblatex}
+\addbibresource{pst-marble-doc.bib}
+\usepackage[utf8]{inputenc}
+\let\pstpersFV\fileversion
+\usepackage[nomessages]{fp}
+\usepackage{pstricks,pst-moire,pst-plot,pst-func,pst-lens,pstricks-add}
+\usepackage{amsmath,amssymb,animate}
+
+\definecolor{moire1}{rgb}{0.98,0.89,0.56}
+\definecolor{moire2}{rgb}{0.357,0.525,0.13}
+\definecolor{moire3}{rgb}{0.2,0.05,0.015}
+\definecolor{moire4}{rgb}{0.070.41 0.255}
+\definecolor{Beige} {rgb}{0.96,0.96,0.86}
+\definecolor{GrisClair} {rgb}{0.8,0.8,0.8}
+\definecolor{GrisTresClair} {rgb}{0.9,0.9,0.9}
+\definecolor{OrangeTresPale}{cmyk}{0,0.1,0.3,0}
+\definecolor{OrangePale}{cmyk}{0,0.2,0.4,0}
+\definecolor{BleuClair}{cmyk}{0.2,0,0,0}
+\definecolor{LightBlue}{rgb}{.68,.85,.9}
+\definecolor{DarkGreen}{rgb}{0,.85,0}
+\definecolor{Copper}{cmyk}{0,0.9,0.9,0.2}
+\DeclareSymbolFont{grecquesdroites}{U}{eur}{m}{n}
+\DeclareMathSymbol{\BETA}{\mathord}{grecquesdroites}{12}
+\DeclareMathSymbol{\DELTA}{\mathord}{grecquesdroites}{14}
+\DeclareMathSymbol{\EPSILON}{\mathord}{grecquesdroites}{15}
+\DeclareMathSymbol{\THETA}{\mathord}{grecquesdroites}{18}
+\DeclareMathSymbol{\ALPHA}{\mathord}{grecquesdroites}{11}
+\DeclareMathSymbol{\GAMMA}{\mathord}{grecquesdroites}{13}
+\DeclareMathSymbol{\RHO}{\mathord}{grecquesdroites}{26}
+\DeclareMathSymbol{\PI}{\mathord}{grecquesdroites}{25}
+\DeclareMathSymbol{\OMEGA}{\mathord}{grecquesdroites}{33}
+\DeclareMathSymbol{\TAU}{\mathord}{grecquesdroites}{28}
+\DeclareMathSymbol{\MU}{\mathord}{grecquesdroites}{22}
+\DeclareMathSymbol{\PHI}{\mathord}{grecquesdroites}{39}
+
+\renewcommand\bgImage{%
+\begin{pspicture}(-3,-3)(3,4.5)
+\psmoire[type=Gauss,rotate=-10,scale=0.6]
+\psmoire[type=Gauss,linecolor=red,scale=0.6,rotate=-20]
+\end{pspicture}}
+
+
+\let\belowcaptionskip\abovecaptionskip
+\parindent0pt
+
+\begin{document}
+
+\title{pst-moire v 1.0}
+\subtitle{A PSTricks package to draw moiré patterns}
+\author{%
+ Jürgen \textsc{Gilg}\\
+ Manuel \textsc{Luque}\\
+ Jean-Michel \textsc{Sarlat}
+}
+
+\date{\today}
+\maketitle
+\tableofcontents
+\psset{unit=1cm}
+
+
+\clearpage
+
+\begin{abstract}\parskip4pt\parindent0pt
+
+The \texttt{pst-moire} package makes it possible to very simply create a variety of patterns obtained either by dragging one pattern on another, or by rotating one on the other. Moiré effects sometimes look very interesting. This document provides the necessary commands and divers examples.
+
+For the interested user, we present a section \textbf{Theory} (see pages~\pageref{sec:theory}-\pageref{sec:theoryEnd}) for the mathematical background of moiré patterns.
+
+
+\vfill
+{\small This program can redistributed and/or modified under the terms of the LaTeX Project Public License Distributed from CTAN archives in directory \texttt{macros/latex/base/lppl.txt}; either version 1.3c of the License, or (at your option) any later version.}
+
+\end{abstract}
+
+
+\newpage
+
+
+\section{The provided patterns}
+
+\begin{center}
+\psset{scale=0.4}
+\begin{pspicture}(-3,-3)(3,4)
+\rput(0,-3){\colorbox{black}{\textcolor{white}{\texttt{type=Fresnel}}}}
+\rput(0,3){\texttt{Bands of Fresnel}}
+\psmoire[linecolor=red,type=Fresnel]
+\end{pspicture}
+\hfill
+\begin{pspicture}(-3,-3)(3,4)
+\rput(0,-3){\colorbox{black}{\textcolor{white}{\texttt{type=linear}}}}
+\rput(0,3){\texttt{Equidistant lines}}
+\psmoire[linecolor=blue,type=linear]
+\end{pspicture}
+
+\begin{pspicture}(-3,-3)(3,4)
+\rput(0,-3){\colorbox{black}{\textcolor{white}{\texttt{type=radial}}}}
+\rput(0,3){\texttt{Radii with 3\textsuperscript{o}}}
+\psmoire[linecolor=magenta,type=radial]
+\end{pspicture}
+\hfill
+\begin{pspicture}(-3,-3)(3,4)
+\rput(0,-3){\colorbox{black}{\textcolor{white}{\texttt{type=circle}}}}
+\rput(0,3){\texttt{Concentric circles}}
+\psmoire[linecolor=cyan,type=circle]
+\end{pspicture}
+
+\begin{pspicture}(-3,-3)(3,4)
+\rput(0,-3){\colorbox{black}{\textcolor{white}{\texttt{type=square}}}}
+\rput(0,3){\texttt{Squares}}
+\psmoire[linecolor=yellow,type=square]
+\end{pspicture}
+\hfill
+\begin{pspicture}(-3,-3)(3,4)
+\rput(0,-3){\colorbox{black}{\textcolor{white}{\texttt{type=Newton}}}}
+\rput(0,3){\texttt{Squares of Newton}}
+\psmoire[type=Newton]
+\end{pspicture}
+\hfill
+\begin{pspicture}(-3,-3)(3,4)
+\rput(0,-3){\colorbox{black}{\textcolor{white}{\texttt{type=Bouasse}}}}
+\rput(0,3){\texttt{The pattern of H. Bouasse}}
+\psmoire[type=Bouasse]
+\end{pspicture}
+\hfill
+\begin{pspicture}(-3,-3)(3,4)
+\psmoire[linecolor=red,type=Gauss,scale=0.5,E=0.4]%
+\rput(0,-3){\colorbox{black}{\textcolor{white}{\texttt{type=Gauss}}}}
+\rput(0,3){\texttt{The pattern of Gauss}}
+\end{pspicture}
+\hfill
+\begin{pspicture}(-3,-3)(3,4)
+\psmoire[linecolor=red,type=dot,scale=0.5]%
+\rput(0,-3){\colorbox{black}{\textcolor{white}{\texttt{type=dot}}}}
+\rput(0,3){\texttt{Point pattern}}
+\end{pspicture}
+\hfill
+\begin{pspicture}(-3,-3)(3,4)
+\psmoire[linecolor={[cmyk]{0 0.81 1 0.6}},type=chess,dotstyle=square*,scale=0.5]%
+\rput(0,-3){\colorbox{black}{\textcolor{white}{\texttt{type=chess}}}}
+\rput(0,3){\texttt{Chess pattern}}
+\end{pspicture}
+\end{center}
+
+
+\newpage
+
+
+\section{The command \Lcs{psmoire}}
+
+\begin{BDef}
+\Lcs{psmoire}\OptArgs\Largr{x , y}
+\end{BDef}
+
+The command \Lcs{psmoire} contains the options \nxLkeyword{type=}, \nxLkeyword{Rmax=}, \nxLkeyword{scale=}, \nxLkeyword{Alpha=}, \nxLkeyword{rotate=}, and \nxLkeyword{E=}.
+
+The optional argument \Largr{x , y} gives the \texttt{x} and \texttt{y} center of the image. If not chosen $(0,0)$ is taken by default.
+
+\medskip
+
+\begin{quote}
+\begin{tabularx}{\linewidth}{ @{} l >{\ttfamily}l X @{} }\toprule
+\textbf{Name} & \textbf{Default} & \textbf{Meaning} \\\midrule
+\Lkeyword{type} & Fresnel & The type of pattern\\
+\Lkeyword{Rmax} & 6 & The largest radius of the circles (in cm)\\
+\Lkeyword{scale} & 1 & Scaling factor for the image\\
+\Lkeyword{Alpha} & 70 & Slope of the lines for \verb+[type=Gauss]+\\
+\Lkeyword{rotate} & 0 & Rotation of the figure in degrees.\\
+\Lkeyword{E} & 0.25& Distance between two lines for \verb+[type=Gauss]+\\
+\bottomrule
+\end{tabularx}
+\end{quote}
+
+\textbf{Note:}
+\begin{itemize}
+ \item Thickness of the lines/circles: done with the usual PSTricks key \verb+linewidth=1mm+ (for example).
+ \item Color of the lines/circles: done with the usual PSTricks key \verb+linecolor=red+ (for example).
+\end{itemize}
+We set the type of pattern like: \texttt{type=Gauss} (for example).
+{\small\begin{verbatim}
+\psmoire[options,type=Gauss](x,y)
+\end{verbatim}}
+
+If no position coordinate is specified, the center of the image is placed at $(0,0)$. The thickness parameter does not effect the following types:
+\verb+Fresnel+, \verb+Newton+ and \verb+radial+
+
+
+\newpage
+
+
+\section{Opacity and Blendmodes}
+
+If we want to highlight the color of the intersecting area of the lines of two or more overlapping moiré patterns differently, we can either use \emph{opacity} or \emph{blendmodes}.
+
+\subsection{Opacity}
+
+In case we want to add some opacity to the lines of the moiré patterns, we just set, i. e.
+\begin{verbatim}
+\pstVerb{%
+0.45 .setopacityalpha
+}
+\end{verbatim}
+within the \verb+\pspicture+ environment.
+
+Distiller users set:
+\begin{verbatim}
+\pstVerb{%
+[ /ca 0.45 /CA 0.45 /SetTransparency pdfmark
+}
+\end{verbatim}
+
+\textbf{Note:} The value of the opacity needs to be between 0 and 1.
+
+\begin{center}
+\begin{pspicture}(-6,-6)(6,6)
+\pstVerb{%
+0.45 .setopacityalpha
+}
+\psmoire[type=linear,linecolor=blue,linewidth=3pt]
+\psmoire[type=linear,linecolor=green,linewidth=3pt,rotate=90]
+\end{pspicture}
+\end{center}
+{\tiny\begin{verbatim}
+\begin{pspicture}(-6,-6)(6,6)
+\pstVerb{%
+0.45 .setopacityalpha
+}
+\psmoire[type=linear,linecolor=blue,linewidth=3pt]
+\psmoire[type=linear,linecolor=green,linewidth=3pt,rotate=90]
+\end{pspicture}
+\end{verbatim}}
+
+
+\newpage
+
+
+\subsection{Blendmodes}
+
+In case we want to overlap various moiré patterns we can use the following blendmodes:
+\begin{quote}
+\texttt{/Lighten}, \texttt{/Darken}, \texttt{/Normal}, \texttt{/Multiply}, \texttt{/Screen}, \texttt{/Overlay}, \texttt{/ColorDodge},\\ \texttt{/ColorBurn}, \texttt{/HardLight}, \texttt{/SoftLight}, \texttt{/Difference}, \texttt{/Exclusion}, \texttt{/Saturation}, \\
+\texttt{/Color}, \texttt{/Luminosity}.
+\end{quote}
+We just set, i. e.
+\begin{verbatim}
+\pstVerb{%
+/Darken .setblendmode
+}
+\end{verbatim}
+within the \verb+\pspicture+ environment.
+
+Distiller users set:
+\begin{verbatim}
+\pstVerb{%
+[ /BM /Darken /ca 1 /CA 1 /SetTransparency pdfmark
+}
+\end{verbatim}
+
+\begin{center}
+\begin{pspicture}(-6,-6)(6,6)
+\pstVerb{%
+/Darken .setblendmode
+}
+\psmoire[type=linear,linecolor=blue,linewidth=3pt]
+\psmoire[type=linear,linecolor=green,linewidth=3pt,rotate=90]
+\end{pspicture}
+\end{center}
+{\small\begin{verbatim}
+\begin{pspicture}(-6,-6)(6,6)
+\pstVerb{%
+/Darken .setblendmode
+}
+\psmoire[type=linear,linecolor=blue,linewidth=3pt]
+\psmoire[type=linear,linecolor=green,linewidth=3pt,rotate=90]
+\end{pspicture}
+\end{verbatim}}
+
+
+\newpage
+
+
+\section{Examples}
+
+\begin{center}
+\begin{pspicture}(-4,-4)(4,4)
+\rput(0,4){\textsf{Bands of Fresnel 1}}
+\psmoire[linecolor=red,scale=0.5](-0.2,0)
+\psmoire[linecolor=red,scale=0.5](0.2,0)
+\end{pspicture}
+\end{center}
+{\small\begin{verbatim}
+\begin{pspicture}(-4,-4)(4,4)
+\psmoire[linecolor=red,scale=0.5](-0.2,0)
+\psmoire[linecolor=red,scale=0.5](0.2,0)
+\end{pspicture}
+\end{verbatim}}
+%
+\begin{center}
+\begin{pspicture}(-5,-4)(5,4)
+\rput(0,4){\textsf{Bands of Fresnel 2}}
+\psmoire[linecolor={[rgb]{0.15 0.75 0.15}},scale=0.5](-1.5,0)
+\psmoire[linecolor={[rgb]{0.15 0.75 0.15}},scale=0.5](1.5,0)
+\end{pspicture}
+\end{center}
+{\small\begin{verbatim}
+\begin{pspicture}(-4,-4)(4,4)
+\psmoire[linecolor=green,scale=0.5](-1.5,0)
+\psmoire[linecolor=green,scale=0.5](1.5,0)
+\end{pspicture}
+\end{verbatim}}
+
+
+\newpage
+
+
+\begin{center}
+\begin{pspicture}(-4,-4)(4,4)
+\rput(0,4){\textsf{Lines}}
+\psmoire[scale=0.5,type=linear,rotate=5,linewidth=0.1]
+\psmoire[scale=0.5,type=linear,rotate=-5,linewidth=0.1]
+\end{pspicture}
+\end{center}
+{\small\begin{verbatim}
+\begin{pspicture}(-4,-4)(4,4)
+\psmoire[scale=0.5,type=linear,rotate=5,linewidth=0.1]
+\psmoire[scale=0.5,type=linear,rotate=-5,linewidth=0.1]
+\end{pspicture}
+\end{verbatim}}
+%
+\begin{center}
+\begin{pspicture}(-4,-4)(4,4.5)
+\rput(0,4.25){\textsf{Radii}}
+\psmoire[Rmax=4,type=radial](-0.25,0)
+\psmoire[Rmax=4,type=radial](0.25,0)
+\end{pspicture}
+\end{center}
+{\small\begin{verbatim}
+\begin{pspicture}(-4,-4)(4,4)
+\psmoire[Rmax=4,type=radial](-0.25,0)
+\psmoire[Rmax=4,type=radial](0.25,0)
+\end{pspicture}
+\end{verbatim}}
+
+
+\newpage
+
+
+\begin{center}
+\psset{scale=0.7,linewidth=0.75mm}
+\begin{pspicture}(-6,-5)(6,5)
+\rput(0,5.25){\textsf{Bouasse}}
+\psmoire[type=Bouasse,rotate=10,Rmax=5]
+\psmoire[type=Bouasse,rotate=170,Rmax=5]
+%\psline[linecolor=red,linewidth=0.25mm](0,-6)(0,6)
+\end{pspicture}
+
+\end{center}
+{\small\begin{verbatim}
+\begin{pspicture}(-6,-6)(6,6)
+\psmoire[type=Bouasse,rotate=10]
+\psmoire[type=Bouasse,rotate=170]
+\end{pspicture}
+\end{verbatim}}
+%
+\begin{center}
+\psset{linewidth=1mm}
+\begin{pspicture}(-6,-4)(6,4)
+\rput(0,4.25){\textsf{Concentric circles}}
+\psmoire[Rmax=4,type=circle](-0.5,0)
+\psmoire[Rmax=4,type=circle](0.5,0)
+\end{pspicture}
+
+\end{center}
+{\small\begin{verbatim}
+\begin{pspicture}(-5,-5)(5,5)
+\psmoire[Rmax=5,type=circle](-0.2,0)
+\psmoire[Rmax=5,type=circle](0.2,0)
+\end{pspicture}
+\end{verbatim}}
+
+
+\newpage
+
+
+%
+\begin{center}
+\psset{linewidth=0.5mm,Rmax=4}
+\begin{pspicture}(-5,-5)(5,5)
+\rput(0,4.5){\textsf{Gauss}}
+\psmoire[type=Gauss,rotate=-5,linecolor=red]
+\psmoire[type=Gauss,rotate=5]
+\end{pspicture}
+\end{center}
+{\small\begin{verbatim}
+\begin{pspicture}(-5,-5)(5,5)
+\psmoire[type=Gauss,rotate=-10]
+\psmoire[type=Gauss]
+\end{pspicture}
+\end{verbatim}}
+%
+\begin{center}
+\psset{linewidth=1mm,scale=0.6}
+\begin{pspicture}(-4,-4)(4,4)
+\rput(0,4){\textsf{Squares}}
+\psmoire[type=square,rotate=-5]
+\psmoire[type=square,rotate=5]
+\end{pspicture}
+\end{center}
+{\small\begin{verbatim}
+\psmoire[type=square,rotate=-5]
+\psmoire[type=square,rotate=5]
+\end{verbatim}}
+%
+
+
+\newpage
+
+
+\begin{center}
+\psset{linewidth=0.5mm,scale=0.5}
+\begin{pspicture}(-4,-4)(4,4)
+\rput(0,3.75){\textsf{Squares of Newton}}
+\psmoire[type=Newton,rotate=-2.5]
+\psmoire[type=Newton,rotate=2.5]
+\end{pspicture}
+\end{center}
+{\small\begin{verbatim}
+\begin{pspicture}(-4,-4)(4,4)
+\psmoire[type=Newton,rotate=-2.5]
+\psmoire[type=Newton,rotate=2.5]
+\end{pspicture}
+\end{verbatim}}
+%
+\begin{center}
+\psset{Rmax=4}
+\begin{pspicture}(-4,-4)(4,5)
+\rput(0,4.75){\textsf{Point pattern}}
+\psmoire[type=dot,linecolor=blue,rotate=-2.5]
+\psmoire[type=dot,rotate=2.5,linecolor=red]
+\end{pspicture}
+\end{center}
+{\small\begin{verbatim}
+\begin{pspicture}(-5,-5)(5,5)
+\psmoire[type=dot,linecolor=blue,rotate=-2.5]
+\psmoire[type=dot,rotate=2.5,linecolor=red]
+\end{pspicture}
+\end{verbatim}}
+
+
+\newpage
+
+
+\begin{center}
+\psset{Rmax=4,dotstyle=square*,dotsize=0.25cm,linecolor={[cmyk]{0 0.81 1 0.6}}}
+\begin{pspicture}(-4,-4)(4,5)
+\rput(0,4.5){\textsf{Chess pattern}}
+\psmoire[type=chess,rotate=-5]
+\psmoire[type=chess,rotate=5]
+\end{pspicture}
+\end{center}
+{\small\begin{verbatim}
+\psset{Rmax=4,dotstyle=square*,dotsize=0.25cm}
+\begin{pspicture}(-4,-4)(4,5)
+\psmoire[type=chess,rotate=-5]
+\psmoire[type=chess,rotate=5]
+\end{pspicture}
+\end{verbatim}}
+%
+\begin{center}
+\psset{Rmax=8,linewidth=0.5mm,scale=0.5,linecolor={[rgb]{0.15 0.55 0.15}}}
+\begin{pspicture}(-5,-4)(5,5)
+\rput(0,4.75){\textsf{Bands of Fresnel + lines}}
+\psmoire[type=Fresnel]
+\psmoire[type=linear]
+\psmoire[type=linear](-0.1,0)
+% et, \'{e}ventuellement, pour avoir le trait vertical qui manque \`{a} droite
+%\psmoire[type=linear,linewidth=0.2mm](0.1,0)
+\end{pspicture}
+\end{center}
+{\small\begin{verbatim}
+\begin{pspicture}(-4,-4)(4,4)
+\psmoire[type=Fresnel]
+\psmoire[type=linear]
+\psmoire[type=linear](-0.1,0)
+\end{pspicture}
+\end{verbatim}}
+
+
+\newpage
+
+These rotating moirés were obtained with the use of the \texttt{pst-lens} package. It is the reproduction, with the tools of PSTricks, of the photograph 6, page 137 of the book ``\textit{Les phénomènes naturels}'' of the Library \textbf{Pour la Science}, Berlin (1978). This photograph is accompanied by the following comment:
+\begin{quote}\itshape
+<<~Ces moirés tournants apparaissent quand les lentilles placées sur une trame et observées avec une autre trame identique à la première. La grosse lentille(convergente) réduit la trame inférieure, tandis que la petite lentille (divergente) la grossit. En conséquence, les moirés obtenus ont des sens de rotation opposés. Une figure de moiré ondulée traduit la présence d'aberrations optiques dans la lentille.~>>
+\end{quote}
+\textbf{Animation:} Big lens: magnification of 1.2, small lens: magnification of 0.8
+\begin{center}
+\psset{unit=0.5}
+\begin{animateinline}[controls,palindrome,
+ begin={\begin{pspicture}(-8.5,-8.5)(8.5,8.5)},
+ end={\end{pspicture}}]{10}% 10 image/s
+\multiframe{20}{i=-10+1}{%
+\psset{LensHandle=false,LensShadow=false}
+\psset{linecolor=red,linewidth=0.1,type=linear}
+\psmoire%
+\PstLens[LensMagnification=1.2,LensSize=2](1,1.5){\psmoire}
+\PstLens[LensMagnification=0.8,LensSize=1.5](-2,-2){\psmoire}
+\psmoire[linecolor=black,rotate=\i]}
+\end{animateinline}
+\end{center}
+{\tiny\begin{verbatim}
+\psset{unit=0.5}
+\begin{animateinline}[controls,palindrome,
+ begin={\begin{pspicture}(-8.5,-8.5)(8.5,8.5)},
+ end={\end{pspicture}}]{10}% 10 image/s
+\multiframe{20}{i=-10+1}{%
+\psset{LensHandle=false,LensShadow=false}
+\psset{linecolor=red,linewidth=0.1,type=linear}
+\psmoire%
+\PstLens[LensMagnification=1.2,LensSize=2](1,1.5){\psmoire}
+\PstLens[LensMagnification=0.8,LensSize=1.5](-2,-2){\psmoire}
+\psmoire[linecolor=black,rotate=\i]}
+\end{animateinline}
+\end{verbatim}}
+
+
+\newpage
+
+
+\section{Animations}
+
+Some interactive moiré JavaScript based applications can be found on:
+\begin{center}
+\url{https://melusine.eu.org/syracuse/G/pstricks/pst-moire/moirej/}
+\end{center}
+
+\textbf{Animation 1:}
+
+\begin{center}
+\begin{animateinline}[%
+ controls,palindrome,
+ begin={\begin{pspicture}(-6,-6)(6,6)},
+ end={\end{pspicture}}
+ ]{5}% 5 image/s
+\multiframe{36}{i=0+1}{%
+\psmoire[type=Newton,rotate=-\i]%
+\psmoire[type=Newton,rotate=\i]%
+}
+\end{animateinline}
+\end{center}
+{\small\begin{verbatim}
+\begin{animateinline}[%
+ controls,palindrome,
+ begin={\begin{pspicture}(-6,-6)(6,6)},
+ end={\end{pspicture}}
+ ]{5}% 5 image/s
+\multiframe{36}{i=0+1}{%
+\psmoire[type=Newton,rotate=-\i]%
+\psmoire[type=Newton,rotate=\i]%
+}
+\end{animateinline}
+\end{verbatim}
+
+
+\newpage
+
+
+\textbf{Animation 2:}
+
+\begin{center}
+\begin{animateinline}[%
+ controls,palindrome,
+ begin={\begin{pspicture}(-6,-6)(6,6)},
+ end={\end{pspicture}}
+ ]{10}% 10 image/s
+\multiframe{36}{r=0+0.1}{%
+\psmoire[scale=0.85,type=linear,rotate=-\r,linewidth=0.1,linecolor=red](0,0)%
+\psmoire[scale=0.85,type=linear,rotate=\r,linewidth=0.1,linecolor=red](0,0)%
+}
+\end{animateinline}
+\end{center}
+{\small\begin{verbatim}
+\begin{animateinline}[%
+ controls,palindrome,
+ begin={\begin{pspicture}(-6,-6)(6,6)},
+ end={\end{pspicture}}
+ ]{10}% 10 image/s
+\multiframe{36}{r=0+0.1}{%
+\psmoire[scale=0.85,type=linear,rotate=-\r,linewidth=0.1,linecolor=red](0,0)%
+\psmoire[scale=0.85,type=linear,rotate=\r,linewidth=0.1,linecolor=red](0,0)%
+}
+\end{animateinline}
+\end{verbatim}
+
+
+\newpage
+
+
+\textbf{Animation 3:}
+
+\begin{center}
+\begin{animateinline}[%
+ controls,palindrome,
+ begin={\begin{pspicture}(-6,-6)(6,6)},
+ end={\end{pspicture}}
+ ]{5}% 5 image/s
+\multiframe{20}{r=0+0.025}{%
+\psset{linewidth=2.5pt}
+\psmoire[type=circle,linecolor=moire1](0,\r)
+\psmoire[type=circle,linecolor=moire2](0,-\r)
+\psmoire[type=circle,linecolor=moire3](\r,0)
+\psmoire[type=circle,linecolor=moire4](-\r,0)
+}
+\end{animateinline}
+\end{center}
+{\small\begin{verbatim}
+\begin{animateinline}[%
+ controls,palindrome,
+ begin={\begin{pspicture}(-6,-6)(6,6)},
+ end={\end{pspicture}}
+ ]{5}% 5 image/s
+\multiframe{20}{r=0+0.025}{%
+\psset{linewidth=2.5pt}
+\psmoire[type=circle,linecolor=moire1](0,\r)
+\psmoire[type=circle,linecolor=moire2](0,-\r)
+\psmoire[type=circle,linecolor=moire3](\r,0)
+\psmoire[type=circle,linecolor=moire4](-\r,0)
+}
+\end{animateinline}
+\end{verbatim}}
+
+
+\newpage
+
+
+\textbf{Animation 4:}
+
+\begin{center}
+\begin{animateinline}[%
+ controls,palindrome,
+ begin={\begin{pspicture}(-6,-6)(6,6)},
+ end={\end{pspicture}}
+ ]{5}% 5 image/s
+\multiframe{30}{r=0+0.025}{%
+\psset{linewidth=1pt}
+\psmoire[type=radial,linecolor=red](\r,0)
+\psmoire[type=radial,linecolor=green](-\r,0)
+\psmoire[type=radial,linecolor=blue](0,-\r)
+}
+\end{animateinline}
+\end{center}
+{\small\begin{verbatim}
+\begin{animateinline}[%
+ controls,palindrome,
+ begin={\begin{pspicture}(-6,-6)(6,6)},
+ end={\end{pspicture}}
+ ]{5}% 5 image/s
+\multiframe{30}{r=0+0.025}{%
+\psset{linewidth=1pt}
+\psmoire[type=radial,linecolor=red](\r,0)
+\psmoire[type=radial,linecolor=green](-\r,0)
+\psmoire[type=radial,linecolor=blue](0,-\r)
+}
+\end{animateinline}
+\end{verbatim}}
+
+
+\newpage
+
+
+\textbf{Animation 5:}
+
+This idea came from a post card ``\textbf{turn the top part}'', bought in a boutique of the centre Beaubourg in Paris, showing the phenomenon of the moiré effect and redesigned with PSTricks.
+
+\begin{center}
+\def\myMoire{%
+\psset{dimen=inner,linewidth=0pt}
+\def\carre{%
+\pnodes{AL}(0,0)(-1.5,1.5)(-1.5,1.2)(-1.5,0.9)(-1.5,0.7)(-1.5,0.4)(-1.5,0.2)(-1.5,0)%
+(-1.5,-0.2)(-1.5,-0.4)(-1.5,-0.6)(-1.5,-0.75)(-1.5,-0.9)(-1.5,-1.05)(-1.5,-1.15)%
+(-1.5,-1.25)(-1.5,-1.3)(-1.5,-1.4)(-1.5,-1.45)
+\pnodes{AR}(0,0)(1.5,-1.5)(1.5,-1.2)(1.5,-0.9)(1.5,-0.7)(1.5,-0.4)(1.5,-0.2)(1.5,0)%
+(1.5,0.2)(1.5,0.4)(1.5,0.6)(1.5,0.75)(1.5,0.9)(1.5,1.05)(1.5,1.15)(1.5,1.25)%
+(1.5,1.3)(1.5,1.4)(1.5,1.45)
+\multido{\iA=1+2,\iB=2+2}{9}{\pspolygon*(AL\iA)(AR\iA)(AR\iB)(AL\iB)}%
+\pnodes{BL}(0,0)(-1.2,1.5)(-0.9,1.5)(-0.7,1.5)(-0.4,1.5)(-0.2,1.5)(0.0,1.5)(0.2,1.5)%
+(0.4,1.5)(0.6,1.5)(0.75,1.5)(0.9,1.5)(1.05,1.5)(1.15,1.5)(1.25,1.5)(1.3,1.5)%
+(1.4,1.5)(1.45,1.5)(1.5,1.5)
+\pnodes{BR}(0,0)(1.2,-1.5)(0.9,-1.5)(0.7,-1.5)(0.4,-1.5)(0.2,-1.5)(0,-1.5)(-0.2,-1.5)%
+(-0.4,-1.5)(-0.6,-1.5)(-0.75,-1.5)(-0.9,-1.5)(-1.05,-1.5)(-1.15,-1.5)(-1.25,-1.5)%
+(-1.3,-1.5)(-1.4,-1.5)(-1.45,-1.5)(-1.5,-1.5)
+\multido{\iA=1+2,\iB=2+2}{9}{\pspolygon*(BL\iA)(BR\iA)(BR\iB)(BL\iB)}}%
+\def\half{%
+\rput(0,0){\carre}
+\rput(-3,0){\psscalebox{-1 1}{\carre}}
+}
+\def\pattern{%
+\rput(0,0){\half}
+\rput(0,-3){\psscalebox{1 -1}{\half}}
+}
+\multido{\iA=0+6}{2}{\multido{\iB=0+-6}{3}{\rput(\iA,\iB){\pattern}}}}
+\psset{unit=0.5}
+\begin{animateinline}[controls,loop,
+ begin={\begin{pspicture}(-7,-17)(10,3)},
+ end={\end{pspicture}}]{10}% 10 frames/s (velocity of the animation)
+\multiframe{11}{i=0+2}{% number of frames
+\rput(0,0){\myMoire}
+\psrotate(1.5,-7){\i}{\myMoire}
+}
+\multiframe{21}{i=20+-2}{%
+\rput(0,0){\myMoire}
+\psrotate(1.5,-7){\i}{\myMoire}
+}
+\multiframe{10}{i=-20+2}{%
+\rput(0,0){\myMoire}
+\psrotate(1.5,-7){\i}{\myMoire}
+}
+\end{animateinline}
+\end{center}
+{\tiny\begin{verbatim}
+\def\myMoire{%
+\psset{dimen=inner,linewidth=0pt}
+\def\carre{%
+\pnodes{AL}(0,0)(-1.5,1.5)(-1.5,1.2)(-1.5,0.9)(-1.5,0.7)(-1.5,0.4)(-1.5,0.2)(-1.5,0)%
+(-1.5,-0.2)(-1.5,-0.4)(-1.5,-0.6)(-1.5,-0.75)(-1.5,-0.9)(-1.5,-1.05)(-1.5,-1.15)%
+(-1.5,-1.25)(-1.5,-1.3)(-1.5,-1.4)(-1.5,-1.45)
+\pnodes{AR}(0,0)(1.5,-1.5)(1.5,-1.2)(1.5,-0.9)(1.5,-0.7)(1.5,-0.4)(1.5,-0.2)(1.5,0)%
+(1.5,0.2)(1.5,0.4)(1.5,0.6)(1.5,0.75)(1.5,0.9)(1.5,1.05)(1.5,1.15)(1.5,1.25)%
+(1.5,1.3)(1.5,1.4)(1.5,1.45)
+\multido{\iA=1+2,\iB=2+2}{9}{\pspolygon*(AL\iA)(AR\iA)(AR\iB)(AL\iB)}%
+\pnodes{BL}(0,0)(-1.2,1.5)(-0.9,1.5)(-0.7,1.5)(-0.4,1.5)(-0.2,1.5)(0.0,1.5)(0.2,1.5)%
+(0.4,1.5)(0.6,1.5)(0.75,1.5)(0.9,1.5)(1.05,1.5)(1.15,1.5)(1.25,1.5)(1.3,1.5)%
+(1.4,1.5)(1.45,1.5)(1.5,1.5)
+\pnodes{BR}(0,0)(1.2,-1.5)(0.9,-1.5)(0.7,-1.5)(0.4,-1.5)(0.2,-1.5)(0,-1.5)(-0.2,-1.5)%
+(-0.4,-1.5)(-0.6,-1.5)(-0.75,-1.5)(-0.9,-1.5)(-1.05,-1.5)(-1.15,-1.5)(-1.25,-1.5)%
+(-1.3,-1.5)(-1.4,-1.5)(-1.45,-1.5)(-1.5,-1.5)
+\multido{\iA=1+2,\iB=2+2}{9}{\pspolygon*(BL\iA)(BR\iA)(BR\iB)(BL\iB)}}%
+\def\half{%
+\rput(0,0){\carre}
+\rput(-3,0){\psscalebox{-1 1}{\carre}}
+}
+\def\pattern{%
+\rput(0,0){\half}
+\rput(0,-3){\psscalebox{1 -1}{\half}}
+}
+\multido{\iA=0+6}{2}{\multido{\iB=0+-6}{3}{\rput(\iA,\iB){\pattern}}}}
+
+\psset{unit=0.75}
+\begin{animateinline}[controls,loop,
+ begin={\begin{pspicture}(-7,-19)(10,5)},
+ end={\end{pspicture}}]{10}% 10 frames/s (velocity of the animation)
+\multiframe{11}{i=0+2}{% number of frames
+\rput(0,0){\myMoire}
+\psrotate(1.5,-7){\i}{\myMoire}
+}
+\multiframe{21}{i=20+-2}{%
+\rput(0,0){\myMoire}
+\psrotate(1.5,-7){\i}{\myMoire}
+}
+\multiframe{10}{i=-20+2}{%
+\rput(0,0){\myMoire}
+\psrotate(1.5,-7){\i}{\myMoire}
+}
+\end{animateinline}
+\end{verbatim}}
+
+
+\newpage
+
+
+\section{Theory---for the interested user}\label{sec:theory}
+
+\subsection{The contribution of ``éditions Kangourou''}
+
+``Le Kangourou des mathématiques'': \textcolor{orange}{\url{http://www.mathkang.org/}} published a revue in 2002, ``\textsl{Les malices du Kangourou}'' that contains a magnificent article from pages 18 to 26 titled ``\textsl{Mirifiques et mirobolants moirés}'' and on the back cover ``La règle à moirer'' (``The ruler''). The article and the ruler are available at the following addresses:
+\begin{center}
+\url{http://www.mathkang.org/cite/moires9p.pdf}
+\\
+\url{http://www.mathkang.org/cite/moirer.html}
+\end{center}
+The ruler can be purchased at the following address:
+\begin{center}
+\url{http://www.mathkang.org/catalogue/prodmoir.html}
+\end{center}
+In the article the sketches are very beautiful and the part ``\textit{Mathématisation du phénomène}'' is remarkable! It contains the following moirés:
+\begin{itemize}
+ \item a network of parallel straight lines superposed each with a rotation in different direction;
+ \item shifted superposition of two networks consisting of radial rays (or rather sectors);
+ \item shifted superposition of two frames of Fresnel rings, well known as Newton's rings observed in optics.
+\end{itemize}
+
+
+\newpage
+
+
+\subsection{The contribution of Henri Bouasse}
+
+\newcounter{boua}
+\newcommand{\itemBoua}{\addtocounter{boua}{1}\strut\indent\textit{\theboua}\textsuperscript{o} ---
+}
+
+This is the chapter of his book \textit{Vision et reproduction des formes et des couleurs} published at Librairie Delagrave in Paris in 1917. His demonstration and the diagram within his book have been reproduced here:
+
+\medskip
+
+\psframebox[fillstyle=solid,fillcolor=gray,linestyle=none,framesep=1pt]{\centerline{\white
+\Large \textbf{Parallel straight lines}}}
+
+\hrule
+\vskip2ex
+\itemBoua
+Consider two straight lines respectively parallel:
+\begin{equation}
+x\cos\THETA +y\sin\THETA=bt+ct^2\quad\quad x\cos\THETA -y\sin\THETA=b\TAU-c\TAU^2
+\label{droites}
+\end{equation}
+\begin{figure}[h]
+\begin{center}
+\begin{pspicture}(-8,-6)(8,6)
+\begin{psclip}{\psframe[linestyle=none](-6,-6)(6,6)}
+\multido{\i=-10+1}{21}{%
+ \parametricplot{-6}{6}{%
+ /c 0.1 def
+ /b 4.1 def
+ /X t def
+ /Y X 80 dup sin exch cos div mul
+ b \i\space mul c \i\space dup mul mul sub
+ sub
+ def
+ X Y}}
+\multido{\i=-10+1}{21}{%
+ \parametricplot{-6}{6}{%
+ /c 0.1 def
+ /b 4.1 def
+ /X t def
+ /Y X 80 dup sin exch cos div mul neg
+ b \i\space mul c \i\space dup mul mul add
+ add
+ def
+ X Y}}
+% paraboles
+\multido{\i=-4+1}{8}{%
+ \parametricplot[linecolor=red]{-6}{6}{%
+ /c 0.1 10 sin mul def
+ /b 4.1 10 sin mul def
+ /X t def
+ /Y c X dup mul mul 10 cos dup mul mul
+ b c \i\space mul add dup mul 10 sin mul div
+ b \i\space mul 2 div 10 sin div
+ add
+ \i\space dup mul c mul 4 div 10 sin div
+ add
+ def
+ X Y}}
+\psline[linestyle=dashed,linecolor=blue](0,6)(0,-6)
+\end{psclip}
+\rput(-7.5,0){%
+ \psline(0,-2)(0,4)
+ \psline(-1,0)(1,0)
+ \uput[90](0,4){$y$}
+ \uput[90](1,0){$x$}
+ \psline(4;80)
+ \psline(4;100)
+ \uput[0](4;80){$\mathrm{S_1}$}
+ \uput[180](4;100){$\mathrm{S_2}$}
+ \uput[225](0,0){O}
+ \psarc(0,0){2}{80}{90}
+ \psarc(0,0){1.8}{90}{100}
+ \uput[85](2;85){$\THETA$}
+ \uput[95](1.8;95){$\THETA$}
+ }
+\end{pspicture}
+\end{center}
+\caption{\label{fig169} Moiré: parallel lines}
+\end{figure}
+\indent For $t=\TAU=0$, we get the two lines $\mathrm{OS_2}$ and $\mathrm{OS_1}$; they obviously have the same angle $\THETA$ with the axis $\mathrm{O}y$.
+
+The curves of the intersection points, which correspond to the small diagonals of the parallelograms, satisfy the following condition:
+\begin{equation*}
+t-\TAU=\MU=\mathrm{constant}
+\end{equation*}
+\indent Adding and reordering the equations~(\ref{fig169}):
+\begin{align*}
+2x\cos\THETA&=(b+c\MU)(t+\TAU)\\
+2y\sin\THETA&=b\MU+c(t^2+\TAU^2)=b\MU+c(\MU^2+2t\TAU)
+\end{align*}
+\indent To complete the elimination, we will use the following relation:
+\begin{equation*}
+(t+\TAU)^2-4t\TAU=\MU^2
+\end{equation*}
+Thus:
+\begin{equation}
+\frac{4x^2\cos^2\THETA}{(b+c\MU)^2}-\frac{4y\sin\THETA}{c}+\frac{2b\MU}{c}+\MU^2=0\label{parabole}
+\end{equation}
+\indent The wanted curves are parabolas which have the O$y$ axis in common.
+
+Its vertices are given by:
+\begin{equation}
+y=\frac{\MU(2b+c\MU)}{4\sin\THETA}
+\label{sommets}
+\end{equation}
+
+\itemBoua The parameter $c$ is small compared to the parameter $b$, so the equations simplify.
+
+The equation~(\ref{parabole}) becomes:
+\begin{equation*}
+\frac{4x^2\cos^2\THETA}{b^2}-4y\sin\THETA+2b\MU=0
+\end{equation*}
+
+\indent This is the same parabola for all the values of $\MU$ sliding parallely to O$y$. The vertices are given by:
+\begin{equation}
+y=\MU \frac{b}{2\sin\THETA}
+\label{sommets2}
+\end{equation}
+The radius of curvature at the vertex of the parabola is:
+\begin{equation*}
+\mathrm{R}=\frac{b^2}{2c}\frac{\sin\THETA}{\cos^2\THETA}
+\end{equation*}
+
+\indent If the parallel straight lines are equidistant $(c=0)$, the parabolas degenerate to straight lines~(\ref{sommets2}); in other words, the radius of curvature becomes infinite.
+\\
+\itemBoua To make an experiment, we trace with ``China ink'' on a paper 51 parallel lines with a length of i. e. 20~cm, where the distance between two adjacent lines increases from 2~mm (between the first two lines) to 3~mm (between the last two lines), following the formula:
+\begin{equation*}
+s=2t+0.01t^2
+\end{equation*}
+
+\indent We take a photo by reducing to the half or a quarter. We generate two diapositives\footnote{spelling of the time.}. We realize the phenomenon when placing one over the other by rotating one of them.
+
+We think that if you had followed the given instructions, you might be as well convinced---as we are---it would have been a pity to have left this beautiful demonstration ``of that time'' in oblivion!
+
+
+\subsection{The humble contributions of our group}
+
+These demonstrations contain:
+\begin{enumerate}
+\item the moirés of Newton. In fact it is a construction similar to that of the Fresnel rings. Here the progression of the squares is such that the areas between two consecutive squares are equal to the area of the central square. One out of every two intervals is made opaque. The resulting moiré figures are equilateral hyperbolas.
+\item the moirés obtained by the superposition of Fresnel rings and a network of parallel lines result as well in Fresnel rings.
+\end{enumerate}
+The source files (\LaTeX) and pdf are found within the repository:
+\begin{center}
+\url{http://melusine.eu.org/syracuse/G/pstricks/pst-moire/moiredoc/}
+\end{center}
+
+
+\subsection{The construction of a Gauss network}
+
+This method is discussed on page 136 of the book ``\textit{Les phénomènes naturels}'' edited in 1978 by the revue ``\textit{Pour la Science}'' and distributed by the Berlin editions.
+\begin{quote}\itshape
+<<~The Gauss network is obtained by drawing a series of equidistant vertical lines on a Gaussian curve, then by drawing parallel oblique lines passing through the points of intersection between the vertical lines and the Gaussian curve.~>>
+\end{quote}
+
+
+\subsubsection{Gaussian curve}
+
+\begin{equation*}
+y=a\mathrm{e}^{-(kx)^2}
+\end{equation*}
+\begin{center}
+\begin{pspicture}(-6,-1)(6,3.5)
+\psparametricplot[plotpoints=1000]{-6}{6}{%
+ t
+ 3 2.71828 -0.5 t dup mul mul exp mul
+ }
+\end{pspicture}
+\end{center}
+
+
+\subsubsection{Determination of the points of intersection}
+
+The equidistant vertical line network has for equation: $x=ne$, $e$ is the spacing et $n$ an integer.
+
+The ordinates of the intersection points are: $y_n=a\mathrm{e}^{-(kne)^2}$. Within the following figure, we set the spacing to 0.5.
+\begin{center}
+\begin{pspicture}(-6,-1)(6,3.5)
+\parametricplot[plotpoints=1000]{-6}{6}{%
+ t
+ 3 2.71828 0.5 t mul dup mul neg exp mul
+ }
+\pstVerb{/A1 3 def
+ /K1 0.5 def
+ /E1 0.5 def
+ /Alpha 70 def
+ /m1 {Alpha dup sin exch cos div} bind def
+}%
+\multido{\n=-12+1}{25}{%
+%\pstVerb{/B1 {A1 2.71828 K \n\space mul E1 mul dup mul neg exp \n\space E mul m1 mul sub} def}%
+ \psdot(! \n\space E1 mul % x
+ A1 2.71828 K1 \n\space E1 mul mul dup mul neg exp mul)
+ }
+\end{pspicture}
+\end{center}
+
+
+\subsubsection{Drawing the network of the stright lines}
+
+We determine the equations of the straight lines passing through these points and which are inclined by an angle $\alpha$ with respect to the horizontal.
+
+The general equation of such a line is given by: $y=x\tan(\alpha)+b$, we determine $b$ to go through one of the previous points.
+\begin{equation*}
+ne\tan(\alpha)+b=a\mathrm{e}^{-(kne)^2}
+\end{equation*}
+so we get $b$.
+\begin{equation*}
+b=a\mathrm{e}^{-(kne)^2}-ne\tan(\alpha)
+\end{equation*}
+For every value of $n$ we get a straight line.
+\begin{equation*}
+y=x\tan(\alpha)+a\mathrm{e}^{-(kne)^2}-ne\tan(\alpha)
+\end{equation*}
+Let's draw some of these straight lines. Setting $a=3$, $k=0.5$, $-20<n<+20$, $e=0.5$ and $\alpha=70^{\mathrm{o}}$
+
+\begin{center}
+\begin{pspicture*}(-6,-1)(6,10)
+\parametricplot[plotpoints=1000,linecolor=red]{-6}{6}{%
+ t
+ 3 2.71828 0.5 t mul dup mul neg exp mul}
+\pstVerb{/A1 3 def
+ /K1 0.5 def
+ /E1 0.5 def
+ /Alpha 70 def
+ /m1 {Alpha dup sin exch cos div} bind def % pente de la droite
+}%
+\multido{\n=-20+1}{41}{%
+\pnode(! \n\space E1 mul % x
+ A1 2.71828 K1 \n\space E1 mul mul dup mul neg exp mul){A}
+ \psdot(A)
+\rput(A){\psline(! -4 -4 m1 mul)(! 4 4 m1 mul)}
+ }
+\end{pspicture*}
+\end{center}
+\begin{verbatim}
+\begin{pspicture*}(-6,-1)(6,10)
+\parametricplot[plotpoints=1000,linecolor=red]{-6}{6}{%
+ t
+ 3 2.71828 0.5 t mul dup mul neg exp mul}
+\pstVerb{/A 3 def
+ /K 0.5 def
+ /E 0.5 def
+ /Alpha 70 def
+ /m {Alpha dup sin exch cos div} bind def % pente de la droite
+}%
+\multido{\n=-20+1}{41}{%
+\pnode(! \n\space E mul % x
+ A 2.71828 K \n\space E mul mul dup mul neg exp mul){A}
+ \psdot(A)
+\rput(A){\psline(! -4 -4 m mul)(! 4 4 m mul)}
+ }
+\end{pspicture*}
+\end{verbatim}
+The last step is to translate these lines into PostScript code.
+
+
+\subsection{Some moiré figures}
+
+\subsubsection{Circles + Circles}
+
+\begin{center}
+\psscalebox{0.6}{%
+\begin{pspicture*}(-6,-6)(6,6)
+\psset{dimen=middle}
+\multido{\rA=0.5+0.5}{11}{%
+\pscircle(-2,0){!\rA\space}
+\pscircle(2,0){!\rA\space}
+}%
+\end{pspicture*}
+}
+\hfill
+\psscalebox{0.6}{%
+\begin{pspicture*}(-6,-6)(6,6)
+\psset{linecolor={[cmyk]{0.5 0 0 0.5}},dimen=middle}
+\multido{\rA=0.5+0.5}{11}{%
+\pscircle(-2,0){!\rA\space}
+\pscircle(2,0){!\rA\space}
+}%
+\pstVerb{/C1 2 def
+ /K1 0.5 def}%
+\multido{\iH=-7+1,\iE=9+1}{15}{%
+\pstVerb{/A1 K1 \iH\space mul 2 div def
+ /B1 C1 dup mul A1 dup mul sub sqrt def}%
+\parametricplot[linecolor=red]{-2}{2}{%
+ A1 t COSH mul
+ B1 t SINH mul}
+\pstVerb{/A1 K1 \iE\space mul 2 div def
+ /B1 A1 dup mul C1 dup mul sub sqrt def}
+\parametricplot[linecolor=gray,linestyle=dashed]{0}{360}{%
+ A1 t sin mul
+ B1 t cos mul}}
+\end{pspicture*}
+}
+\end{center}
+\textbf{Mathematization}
+
+Equidistant radii that increase like: $r_n=n\cdot a$, with $a>0$.
+
+We have
+\begin{align*}
+(x-c)^2+y^2&=k^2p^2\\
+(x+c)^2+y^2&=k^2q^2
+\end{align*}
+It is necessarily: $p-q=m\in\mathbb{Z}$, thus
+\begin{align*}
+p&=\frac{1}{k}\sqrt{(x-c)^2+y^2}\\
+q&=\frac{1}{k}\sqrt{(x+c)^2+y^2}
+\end{align*}
+and $p-q=m$
+\begin{gather*}
+\sqrt{(x-c)^2+y^2}-\sqrt{(x+c)^2+y^2}= k m\\
+r_p=p\cdot k\qquad r_q=q\cdot k\\
+r_p-r_q=(p-q)\cdot k=m\cdot k
+\end{gather*}
+The points of the moiré curves are such that the difference in distances to the two centers is constant. The moiré curves are hyperbolas focussing the centers of circles.
+
+We pose: $a=\frac{km}{2}$ and $b^2=c^2-a^2$. The equations of this family of hyperbolas are written like:
+\begin{align*}
+x&=a\cosh(t)\\
+y&=b\sinh(t)
+\end{align*}
+or:
+\begin{align*}
+x&=\frac{a}{\cos(t)}\\
+y&=b\tan(t)
+\end{align*}
+If we go from a point of intersection $(p,q)$ to a point $(p+1,q-1)$, the sum of the distances remains constant. As a result, we say:
+\begin{equation*}
+r_p+r_q=(p+q)\cdot k=n\cdot k
+\end{equation*}
+This family of moiré curves are ellipses with equations like:
+\begin{equation*}
+x=a\cos(t)\quad y=b\sin(t)
+\end{equation*}
+with:
+\[
+b^2=a^2-c^2
+\]
+
+
+\subsubsection{Squares + Fresnel rings}
+
+\begin{center}
+%\psset{scale=0.5,Rmax=7.5}
+\psscalebox{0.6}{%
+\begin{pspicture}(-6,-6)(6,6)
+\psmoire[type=square]
+\psmoire[type=Fresnel]
+\end{pspicture}
+}
+\hfill
+\psscalebox{0.6}{%
+\begin{pspicture}(-6,-6)(6,6)
+\psset{linecolor={[cmyk]{0.5 0 0 0.5}},dimen=middle}
+\multido{\rA=1+1}{22}{%
+\pscircle{!\rA\space sqrt}
+}%
+\multido{\ri=0.25+0.25}{18}{%
+\psline(!\ri\space 5.8 neg)(!\ri\space 5.8)
+}%
+\multido{\iA=0+-1}{4}{%
+\pscircle[linecolor=red](2,0){!4 \iA\space add sqrt}
+}
+\end{pspicture}
+}
+\end{center}
+
+\textbf{Mathematization}
+
+The abscissa of the edges of the square with $x>0$ increase with: $x_n=a\cdot n$, with $a>0$
+
+The radii increase with: $r_n=\sqrt{n}$.
+
+We have
+\begin{align*}
+x&=ap\\
+x^2+y^2&=q
+\end{align*}
+\begin{align*}
+p&=\frac{x}{a}\\
+q&=x^2+y^2
+\end{align*}
+On a curve of moiré, we verify: $p-q=m\in\mathbb{Z}$:
+\begin{equation*}
+\left(x-\frac{1}{2a}\right)^2+y^2=m+\frac{1}{4a^2}
+\end{equation*}
+This family of moiré curves are circles with the center at $(\frac{1}{2a},0)$ and with a radius of $r_m=\sqrt{m+\frac{1}{4a^2}}$
+
+
+\subsubsection{Circle + Squares of Newton}
+
+\begin{center}
+%\psset{scale=0.5,Rmax=7.5}
+\psscalebox{0.6}{%
+\begin{pspicture}(-6,-6)(6,6)
+\psmoire[type=circle]
+\psmoire[type=Newton]
+\end{pspicture}
+}
+\hfill
+\psscalebox{0.6}{%
+\begin{pspicture}(-6,-6)(6,6)
+\psset{linecolor={[cmyk]{0.5 0 0 0.5}},dimen=middle}
+\multido{\rA=0.25+0.25}{22}{%
+\pscircle{!\rA\space}
+}%
+\multido{\i=1+1}{33}{%
+\psline(!\i\space sqrt 5.8 neg)(!\i\space sqrt 5.8)
+}%
+\psplotImp[algebraic,linecolor=red](1,-5)(5.8,5){x^2-4*sqrt(x^2+y^2)+7}
+\psplotImp[algebraic,linecolor=red](1,-5)(5.8,5){x^2-4*sqrt(x^2+y^2)+6}
+\psplotImp[algebraic,linecolor=red](1,-5)(5.8,5){x^2-4*sqrt(x^2+y^2)+5}
+\psplotImp[algebraic,linecolor=red](1,-5)(5.8,5){x^2-4*sqrt(x^2+y^2)+4}
+\psplotImp[algebraic,linecolor=red](1,-5)(5.8,5){x^2-4*sqrt(x^2+y^2)+3}
+\psplotImp[algebraic,linecolor=red](1,-5)(5.8,5){x^2-4*sqrt(x^2+y^2)+2}
+\psplotImp[algebraic,linecolor=red](1,-5)(5.8,5){x^2-4*sqrt(x^2+y^2)+1}
+\psplotImp[algebraic,linecolor=red](1,-5)(5.8,5){x^2-4*sqrt(x^2+y^2)+0}
+\end{pspicture}
+}
+\end{center}
+
+\textbf{Mathematization}
+
+The abscissa of the edges of the square with $x>0$ increase with: $x_n=\sqrt{n}$.
+
+The radii increase with: $r_n=n\cdot a$, with $a>0$.
+
+\begin{minipage}[t]{0.3\linewidth}\kern0pt
+We have:
+\begin{align*}
+x&=\sqrt{p}\\
+x^2+y^2&=a^2q^2
+\end{align*}
+It is necessarily: $p-q=m\in\mathbb{Z}$, thus
+\begin{align*}
+p&=x^2\\
+q&=\frac{1}{a}\sqrt{x^2+y^2}
+\end{align*}
+and $p-q=m$
+\begin{equation*}
+x^2-\frac{1}{a}\sqrt{x^2+y^2}=m
+\end{equation*}
+In polar coordinates:
+\begin{gather*}
+\rho^2(\cos\theta)^2-\frac{\rho}{a}-m=0\\
+\Delta=\left(\frac{-1}{a}\right)^2+4m(\cos\theta)^2\\
+\rho=\frac{\frac{1}{a}\pm\sqrt{\Delta}}{2(\cos\theta)^2}
+\end{gather*}
+\end{minipage}
+\hfill
+\begin{minipage}[t]{0.65\linewidth}\kern0pt
+\psscalebox{0.7}{%
+\begin{pspicture*}(-6,-6)(6,6)
+\psset{linecolor={[cmyk]{0.5 0 0 0.5}},dimen=middle}
+\multido{\rA=0.25+0.25}{30}{%
+\pscircle{!\rA\space}
+}%
+\multido{\i=1+1}{40}{%
+\psline(!\i\space sqrt 6 neg)(!\i\space sqrt 6)
+}%
+\pstVerb{/A1 0.25 def % 1/0.25
+ /A_1 1 A1 div def
+ /Delta {A_1 dup mul 4 m neg mul x cos dup mul mul sub sqrt} def}%
+\multido{\im=5+-1}{10}{%
+\pstVerb{/m \im\space def}%
+\psplot[polarplot=true,plotpoints=361,linecolor=red]{-89}{89}{%
+ A_1 neg Delta add x cos dup mul 2 mul div neg }
+\psplot[polarplot=true,plotpoints=361,linecolor=red]{-89}{89}{%
+ A_1 neg Delta sub x cos dup mul 2 mul div abs }%
+}
+\end{pspicture*}
+}
+\end{minipage}
+
+
+
+\subsubsection{Circles + Fresnel rings}
+
+\begin{center}
+%\psset{scale=0.5}
+\psscalebox{0.6}{%
+\begin{pspicture}(-6,-6)(6,6)
+\psmoire[type=Fresnel](0.2,0)
+\psmoire[type=circle](-0.2,0)
+\end{pspicture}
+}
+\hfill
+\psscalebox{0.6}{%
+\begin{pspicture}(-6,-6)(6,6)
+\psset{linecolor={[cmyk]{0.5 0 0 0.5}}}
+\multido{\rA=0.25+0.25}{22}{%
+\pscircle(-0.2,0){!\rA\space}
+}%
+\multido{\iA=1+1}{31}{%
+\pscircle(0.2,0){!\iA\space sqrt}
+}%
+\psset{linewidth=1.5\pslinewidth}
+\psplotImp[algebraic,linecolor=red](-5.8,-5)(5.8,5){(x-0.2)^2+y^2-4*sqrt((x+0.2)^2+y^2)+1}
+\psplotImp[algebraic,linecolor=red](-5.8,-5)(5.8,5){(x-0.2)^2+y^2-4*sqrt((x+0.2)^2+y^2)+2}
+\psplotImp[algebraic,linecolor=red](-5.8,-5)(5.8,5){(x-0.2)^2+y^2-4*sqrt((x+0.2)^2+y^2)+3}
+\psplotImp[algebraic,linecolor=red](-5.8,-5)(5.8,5){(x-0.2)^2+y^2-4*sqrt((x+0.2)^2+y^2)+4}
+\psplotImp[algebraic,linecolor=red](-5.8,-5)(5.8,5){(x-0.2)^2+y^2-4*sqrt((x+0.2)^2+y^2)+5}
+\end{pspicture}
+}
+\end{center}
+
+\textbf{Mathematization}
+
+The radii of the Fresnel circles increase: $r_n=\sqrt{n}$.
+
+The radii of the equidistant circles increase: $r_n=n\cdot a$, with $a>0$.
+
+The centers of the circles are placed at $(x_M,0)$ and $(-x_M,0)$, we have $p$ and $q$ as integers:
+\begin{align*}
+(x-x_M)^2+y^2&=p\\
+(x+x_M)^2+y^2&=a^2q^2\\
+p&=(x-x_M)^2+y^2\\
+q&=\frac{1}{a}\sqrt{(x+x_M)^2+y^2}
+\end{align*}
+One moiré curve line is determined by: $p-q=m\in\mathbb{Z}$, thus:
+\begin{equation*}
+(x-x_M)^2+y^2-\frac{1}{a}\sqrt{(x+x_M)^2+y^2}=m
+\end{equation*}
+which is the implicit equation of a moiré curve line with $m$.
+
+
+\subsubsection{Circles + Squares (both of increasing thickness)}
+
+\begin{center}
+\psscalebox{0.6}{%
+\def\epaisseur{0.0075}
+\begin{pspicture}(-6,-6)(6,6)
+\psset{dimen=middle}
+\pstVerb{/Radius 0.25 def}%
+\multido{\i=1+1}{41}{%
+\FPeval\epaisseur{1.08*(\epaisseur)}
+\psset{linewidth=\epaisseur}
+\pscircle{!Radius}
+\pstVerb{/Radius Radius 1.08 mul def}%
+}%
+\pstVerb{/Radius 0.25 def}%
+\multido{\i=1+1}{33}{%
+\FPeval\epaisseur{1.1*(\epaisseur)}
+\psset{linewidth=\epaisseur}
+\psframe(!Radius neg Radius neg)(!Radius Radius)
+\pstVerb{/Radius Radius 1.1 mul def}%
+}%
+\end{pspicture}
+}
+\hfill
+\psscalebox{0.6}{%
+\begin{pspicture}(-6,-6)(6,6)
+\psset{linecolor={[cmyk]{0.5 0 0 0.5}},dimen=middle}
+\pstVerb{/Radius 0.25 def}%
+\multido{\i=1+1}{41}{%
+\pscircle{!Radius}
+\pstVerb{/Radius Radius 1.08 mul def}%
+}%
+\pstVerb{/Radius 0.25 def}%
+\multido{\i=1+1}{33}{%
+\psline(!Radius 5.8 neg)(!Radius 5.8)
+\pstVerb{/Radius Radius 1.1 mul def}%
+}%
+\psplotImp[algebraic,linecolor=red](0,-6)(5,6){((4*x)^(1/ln(1.1)))/((16*(x^2+y^2))^(1/ln((1.08)^2)))-Euler^(-6)}
+\psplotImp[algebraic,linecolor=red](0,-6)(5,6){((4*x)^(1/ln(1.1)))/((16*(x^2+y^2))^(1/ln((1.08)^2)))-Euler^(-5)}
+\psplotImp[algebraic,linecolor=red](0,-6)(5,6){((4*x)^(1/ln(1.1)))/((16*(x^2+y^2))^(1/ln((1.08)^2)))-Euler^(-4)}
+\end{pspicture}
+}
+\end{center}
+
+\textbf{Mathematization}
+
+The abscissa of the edges of the square with $x>0$ increase with: $x_n=\frac{1}{4}a^n$, with $a>1$.
+
+The radii increase with: $r_n=\frac{1}{4}b^n$, with $b>1$.
+
+We have
+\begin{align*}
+x_p&=\frac{1}{4}a^p\\
+r_q^2&=x^2+y^2\\
+x^2+y^2&=\frac{1}{16}b^{2q}
+\end{align*}
+If we consider the point determined by the intersection $p\cap q$, the next point will be $(p+1)\cap (q+1)$, the next one at $(p+2)\cap (q+2)$, etc., so that the difference between the indices remains constant. As a result, the moiré lines are characterized by the relation $p-q=m \in \mathbb{Z}$, $m$ determines a moiré curve.
+\begin{align*}
+p&=\frac{\ln(4x)}{\ln a}\\
+q&=\frac{\ln[16(x^2+y^2)]}{2\ln b}
+\end{align*}
+and $p-q=m$
+\begin{equation*}
+\ln(4x)^{\frac{1}{\ln a}}-\ln[16(x^2+y^2)]^{\frac{1}{2\ln b}}=m
+\end{equation*}
+finally gives
+\begin{equation*}
+\frac{(4x)^{\frac{1}{\ln a}}}{[16(x^2+y^2)]^{\frac{1}{2\ln b}}}=\text{e}^m
+\end{equation*}
+We transform this implicit equation into a polar equation by setting $\rho^2=x^2+y^2$ and $x=\rho\cos\theta$.
+%Remarquons que pour le point $(x=0,y=0)$ correspond à $\theta=\pi/2$.
+
+Setting $\alpha=\frac{1}{\ln a}$ and $\beta=\frac{1}{2\ln b}$. The equation becomes:
+\begin{gather*}
+\frac{\rho^\alpha(\cos\theta)^\alpha\cdot 4^{\alpha}}{\rho^{2\beta}\cdot 4^{2\beta}}=\text{e}^m\\
+\rho^{\alpha-2\beta}(\cos\theta)^\alpha=\text{e}^m\cdot 4^{2\beta-\alpha}\\
+\rho=\frac{1}{4}\left(\frac{\mathrm{e}^m}{(\cos\theta)^{\alpha}}\right)^{\frac{1}{\alpha-2\beta}}
+\end{gather*}
+We can trace some elements of this family of curves:\label{sec:theoryEnd}
+\begin{center}
+\psscalebox{0.6}{%
+\begin{pspicture*}(-6,-6)(6,6)
+\psset{linecolor={[cmyk]{0.5 0 0 0.5}},dimen=middle}
+\pstVerb{/Radius 0.25 def}%
+\multido{\i=1+1}{41}{%
+\pscircle{!Radius}
+\pstVerb{/Radius Radius 1.08 mul def}%
+}%
+\pstVerb{/Radius 0.25 def}%
+\multido{\i=1+1}{33}{%
+\psline(!Radius 5.8 neg)(!Radius 5.8)
+\pstVerb{/Radius Radius 1.1 mul def}%
+}%
+\pstVerb{/alpha 1 1.1 ln div def
+ /beta 1 1.08 ln 2 mul div def
+ /a_b 1 alpha 2 beta mul sub div def
+ /A {2.718 m exp a_b exp 0.25 mul} def }%
+\multido{\im=-14+1}{14}{%
+\pstVerb{/m \im\space def}%
+\psplot[polarplot=true,plotpoints=361,linecolor=red]{-89}{89}{%
+ A x cos alpha neg a_b mul exp mul}%
+}
+\end{pspicture*}
+}
+\end{center}
+
+
+\newpage
+
+
+\section{List of all optional arguments for \texttt{pst-moire}}
+
+\xkvview{family=pst-moire,columns={key,type,default}}
+
+\clearpage
+
+\nocite{*}
+\bgroup
+\RaggedRight
+\printbibliography
+\egroup
+
+\printindex
+\end{document}
\ No newline at end of file
Property changes on: trunk/Master/texmf-dist/doc/generic/pst-moire/pst-moire-doc.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/dvips/pst-moire/pst-moire.pro
===================================================================
--- trunk/Master/texmf-dist/dvips/pst-moire/pst-moire.pro (rev 0)
+++ trunk/Master/texmf-dist/dvips/pst-moire/pst-moire.pro 2018-10-28 21:07:41 UTC (rev 49014)
@@ -0,0 +1,259 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% %%
+%% This is file `pst-moire.pro' %%
+%% %%
+%% IMPORTANT NOTICE: %%
+%% %%
+%% Package `pst-moire' %%
+%% %%
+%% J\xFCrgen Gilg, Manuel Luque, Jean-Michel Sarlat %%
+%% %%
+%% Copyright (C) 2018 %%
+%% %%
+%% This program can redistributed and/or modified under %%
+%% the terms of the LaTeX Project Public License %%
+%% Distributed from CTAN archives in directory %%
+%% macros/latex/base/lppl.txt; either version 1.3c of %%
+%% the License, or (at your option) any later version. %%
+%% %%
+%% DESCRIPTION: %%
+%% `pst-moire' is a PSTricks package to draw moire patterns %%
+%% %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/moireDict 100 dict def
+moireDict begin
+/pst-Fresnel {
+gsave
+0 0 translate
+1 2 R R mul {%
+ /n_1 exch def
+ /n n_1 1 add def
+ /R_1 n_1 sqrt def
+ /R n sqrt def
+ /width R R_1 sub unit def
+ /radius R R_1 add 2 div unit def
+ width setlinewidth
+ linecolor % \pst at usecolor\pslinecolor
+ circle
+ stroke
+ } for
+grestore
+} def
+%
+/pst-radial {
+/secteur {
+gsave
+ newpath
+ 0 0 moveto
+ 0 0 Runit 0 1 arc
+ closepath
+ linecolor
+ fill
+grestore
+ }
+def
+gsave
+newpath
+Runit 0 moveto
+0 0 Runit 0 360 arc
+Runit 10 div 0 moveto
+0 0 Runit 10 div 360 0 arcn
+closepath
+clip
+1 1 120 { % les angles
+ secteur
+ 3 rotate
+ } for
+grestore
+} def
+%
+/pst-linear {
+Runit neg 0 translate
+/trait {
+ newpath
+ 0 Runit neg moveto
+ 0 Runit lineto
+ linecolor
+ linewidth
+ stroke
+ }
+def
+gsave
+0 1 NombreTraits 1 add{% 50 traits espac\xE9s de 2 mm
+ trait
+ mm 2 mul 0 translate
+ } for
+grestore
+} def
+%
+/pst-square {
+/Square {
+ newpath
+ Side neg Side neg moveto
+ Side Side neg lineto
+ Side Side lineto
+ Side neg Side lineto
+ closepath
+ linecolor
+ linewidth
+ stroke
+ }def
+gsave
+0 1 NombreTraits 2 div {% 50 carr\xE9s espac\xE9s de 2 mm
+ /Side exch mm 2 mul mul def
+ Square
+ } for
+grestore
+} def
+%
+/pst-Newton {
+/SquareNewton {
+ newpath
+ Side neg Side neg moveto
+ Side Side neg lineto
+ Side Side lineto
+ Side neg Side lineto
+ closepath
+ linecolor
+ width setlinewidth % Width mm
+ stroke
+ }
+def
+gsave
+1 2 R R mul {%
+ /n_1 exch def
+ /n n_1 1 add def
+ /R_1 n_1 sqrt def
+ /R n sqrt def
+ /width R R_1 sub unit def
+ /Side R R_1 add 2 div unit def
+ SquareNewton
+ } for
+grestore
+}def
+%
+/pst-circle {
+/Circle {
+ newpath
+ 0 0 Radius 0 360 arc
+ closepath
+ linecolor
+ linewidth
+ stroke
+ }def
+ gsave
+0 1 NombreTraits 2 div {% 50 carr\xE9s espac\xE9s de 2 mm
+ /Radius exch mm 2 mul mul def
+ Circle
+ } for
+grestore
+} def
+%
+/pst-Bouasse{
+/grille {
+0 1 51 { % 51 traits
+ /trait exch def
+ /xS 2 trait mul 0.01 trait dup mul mul add % en mm
+ mm mul
+ 64 mm mul sub % en pts
+ def
+gsave
+newpath
+ xS 183 neg moveto
+ xS 183 lineto
+ linewidth
+ linecolor
+ stroke
+ } for
+} def % dessin de la grille
+reduc reduc scale
+ grille
+grestore
+} def
+%
+/pst-Gauss1{% definition obsolete
+10 dict begin
+/a 0.5 def
+/yStart -10 def
+/yStop 10 def
+/TRAME {
+-15 0.5 15 { % le nombre de traits
+ /k exch def
+ /p 2.71828 0.5 k a mul dup mul mul neg exp m k a mul mul sub def
+ /xStart 10 neg p sub m div def
+ /xStop 10 p sub m div def
+ linecolor
+ linewidth
+ newpath
+ xStart unit yStart unit moveto
+ xStop unit yStop unit lineto
+ stroke
+} for
+} def
+/CIRCLE {0 0 Runit 0 360 arc } def
+gsave
+CIRCLE clip
+ 90 Alpha sub rotate
+ TRAME
+grestore
+end
+} def
+%
+/pst-Gauss {
+0 0 translate
+10 dict begin
+/A1 3 def
+/K1 0.5 def
+%/E1 0.25 def
+/TRAME {
+-40 E1 2 mul 40 {/n exch def
+gsave
+ n E1 mul unit % x
+ A1 unit 2.71828 K1 n E1 mul mul dup mul neg exp mul % y
+ translate
+ linecolor
+ linewidth
+ -6 unit -6 m mul unit moveto
+ 6 unit 6 m mul unit lineto
+ stroke
+grestore
+ } for
+} def
+Runit neg Runit neg moveto
+Runit neg Runit lineto
+Runit Runit lineto
+Runit Runit neg lineto
+Runit neg Runit neg lineto
+clip
+ TRAME
+end
+} def
+%
+/pst-dot {
+/DOT {DotSize DotStyle Dot} def
+/pas {DotSize DS 4 mul} bind def
+R unit neg pas R unit { /xPos exch def
+R unit neg pas R unit { /yPos exch def
+xPos yPos DOT
+ } for
+} for
+} def
+%
+/pst-chess {
+/DOT {DotSize DotStyle Dot} def
+/pas {DotSize DS 4 mul} bind def
+R unit neg pas R unit { /xPos exch def
+R unit neg pas R unit { /yPos exch def
+xPos yPos DOT
+ } for
+} for
+%
+R unit neg pas 2 div add pas R unit pas 2 div sub { /xPos exch def
+R unit neg pas 2 div add pas R unit pas 2 div sub{ /yPos exch def
+xPos yPos DOT
+ } for
+} for
+} def
+%
+end
+% END pst-moire.pro
Property changes on: trunk/Master/texmf-dist/dvips/pst-moire/pst-moire.pro
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/tex/generic/pst-moire/pst-moire.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-moire/pst-moire.tex (rev 0)
+++ trunk/Master/texmf-dist/tex/generic/pst-moire/pst-moire.tex 2018-10-28 21:07:41 UTC (rev 49014)
@@ -0,0 +1,111 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% %%
+%% This is file `pst-moire.tex' %%
+%% %%
+%% IMPORTANT NOTICE: %%
+%% %%
+%% Package `pst-moire' %%
+%% %%
+%% J\xFCrgen Gilg, Manuel Luque, Jean-Michel Sarlat %%
+%% %%
+%% Copyright (C) 2018 %%
+%% %%
+%% This program can redistributed and/or modified under %%
+%% the terms of the LaTeX Project Public License %%
+%% Distributed from CTAN archives in directory %%
+%% macros/latex/base/lppl.txt; either version 1.3c of %%
+%% the License, or (at your option) any later version. %%
+%% %%
+%% DESCRIPTION: %%
+%% `pst-moire' is a PSTricks package to draw moire patterns %%
+%% %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\fileversion{1.0}%
+\def\filedate{2018/10/28}%
+\message{`PST-MOIRE v\fileversion, \filedate\space (ML)}%
+\csname PSTMoireLoaded\endcsname
+% Requires PSTricks, pst-xkey and pst-node packages
+\ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi
+\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey \fi
+\ifx\MultidoLoaded\endinput\else\input multido.tex \fi
+%
+\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
+%
+\pstheader{pst-moire.pro}
+%
+\pst at addfams{pst-moire}
+\define at key[psset]{pst-moire}{Rmax}{\edef\psk at moirage@R{#1}} % en cm
+\define at key[psset]{pst-moire}{scale}{\edef\psk at moirage@scale{#1}} % echelle
+\define at key[psset]{pst-moire}{Alpha}{\edef\psk at moirage@Alpha{#1}} % pente des traits pour Gauss en degr\xE9s
+\define at key[psset]{pst-moire}{rotate}{\edef\psk at moirage@rot{#1 }} % rotation de la grille
+\define at key[psset]{pst-moire}{E}{\edef\psk at moirage@E{#1 }} % espacement entre 2 traits de Gauss
+%
+\psset{Rmax=6,scale=1,Alpha=70,rotate=0,E=0.25}
+%
+\def\variablesMoirages{%
+ /R \psk at moirage@R\space def
+ /reduction {\psk at moirage@scale\space mul} def
+ /unit {\pst at number\psunit mul reduction} def
+ /moire {\psk at moire@type} def
+ /rot \psk at moirage@rot def
+ /Runit R unit def
+ /E1 \psk at moirage@E def
+ /circle { newpath 0 0 radius 0 360 arc closepath} def
+ /NombreTraits Runit \pst at number\psrunit div 10 mul cvi def
+ /NombreTraitsLinear Runit 2.845 div cvi def
+ /reduc \psk at moirage@scale\space def
+ /Alpha \psk at moirage@Alpha\space def
+ /m Alpha dup sin exch cos div def % tan(Alpha)
+ /linecolor {\pst at usecolor\pslinecolor} def
+ /linewidth {\pst at number\pslinewidth SLW} def
+ /mm {\pst at number\psunit 10 div} bind def % le millimetre
+ /DotSize {\psk at dotsize} def
+ /DotStyle {\@nameuse{psds@\psk at dotstyle}} def
+ }
+%% Reservation des noms de macros
+% adaptation de la macro de pst-solides3d
+% #1=type de reservation associee a une liste qui
+% doit forcement etre du type pst at moire@list@#1
+\def\pst at moire@reservednames#1{%
+\edef\@tempa{\csname pst at moire@list@#1\endcsname}
+\@for \name:=\@tempa\do{%
+ \expandafter\def\csname pst at moire@#1@\name\endcsname{}%
+}}
+% nature de l'anamorphose
+\def\pst at moire@list at type{%
+ circle,Fresnel,radial,square,Gauss,Newton,Bouasse,linear,dot,chess}
+%
+%% Reservation de macros correspondants aux types
+\pst at moire@reservednames{type}
+\define at key[psset]{pst-moire}{type}{%
+ \ifcsname pst at moire@type@#1\endcsname
+ \def\psk at moire@type{pst-#1}%
+ \else
+ \@pstrickserr{The moire #1 is not defined, the moire by default is
+ drawn}{}%
+ \fi}
+% anamorphose par defaut
+\psset[pst-moire]{type=Fresnel}%
+%
+\def\psmoire{\def\pst at par{}\pst at object{psmoire}}
+\def\psmoire at i{\@ifnextchar({\psmoire at do}{\psmoire at do(0,0)}}
+\def\psmoire at do(#1){%
+\begingroup%
+\use at par%
+ \begin at SpecialObj%
+ \pst@@getcoor{#1}%
+ \addto at pscode{
+ moireDict begin
+ \variablesMoirages
+ \pst at coor translate
+ rot rotate
+ \psk at moire@type\space
+ end
+ }%
+ \end at SpecialObj%
+\endgroup%
+}
+\catcode`\@=\PstAtCode\relax
+%% END: pst-moire.tex
+\endinput
+
Property changes on: trunk/Master/texmf-dist/tex/generic/pst-moire/pst-moire.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/tex/latex/pst-moire/pst-moire.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/pst-moire/pst-moire.sty (rev 0)
+++ trunk/Master/texmf-dist/tex/latex/pst-moire/pst-moire.sty 2018-10-28 21:07:41 UTC (rev 49014)
@@ -0,0 +1,33 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% %%
+%% This is file `pst-moire.sty' %%
+%% %%
+%% IMPORTANT NOTICE: %%
+%% %%
+%% Package `pst-moire' %%
+%% %%
+%% Jürgen Gilg, Manuel Luque, Jean-Michel Sarlat %%
+%% %%
+%% Copyright (C) 2018 %%
+%% %%
+%% This program can redistributed and/or modified under %%
+%% the terms of the LaTeX Project Public License %%
+%% Distributed from CTAN archives in directory %%
+%% macros/latex/base/lppl.txt; either version 1.3c of %%
+%% the License, or (at your option) any later version. %%
+%% %%
+%% DESCRIPTION: %%
+%% `pst-moire' is a PSTricks package to draw moire patterns %%
+%% %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\RequirePackage{pstricks}
+\ProvidesPackage{pst-moire}[2018/10/28 package wrapper for
+ pst-moire]
+\input{pst-moire.tex}
+\ProvidesFile{pst-moire.tex}
+ [\filedate\space v\fileversion\space `PST-moire']
+\IfFileExists{pst-moire.pro}{%
+ \ProvidesFile{pst-moire.pro}
+ [2018/10/28 v. 1.0, PostScript prologue file]
+ \@addtofilelist{pst-moire.pro}}{}%
+\endinput
Property changes on: trunk/Master/texmf-dist/tex/latex/pst-moire/pst-moire.sty
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Modified: trunk/Master/tlpkg/bin/tlpkg-ctan-check
===================================================================
--- trunk/Master/tlpkg/bin/tlpkg-ctan-check 2018-10-28 21:06:30 UTC (rev 49013)
+++ trunk/Master/tlpkg/bin/tlpkg-ctan-check 2018-10-28 21:07:41 UTC (rev 49014)
@@ -539,7 +539,7 @@
pst-gantt pst-geo pst-geometrictools pst-gr3d pst-grad pst-graphicx
pst-infixplot pst-intersect pst-jtree pst-knot pst-labo pst-layout
pst-lens pst-light3d pst-lsystem
- pst-magneticfield pst-marble pst-math pst-mirror pst-node
+ pst-magneticfield pst-marble pst-math pst-mirror pst-moire pst-node
pst-ob3d pst-ode pst-optexp pst-optic
pst-osci pst-ovl
pst-pad pst-pdgr pst-perspective
Modified: trunk/Master/tlpkg/libexec/ctan2tds
===================================================================
--- trunk/Master/tlpkg/libexec/ctan2tds 2018-10-28 21:06:30 UTC (rev 49013)
+++ trunk/Master/tlpkg/libexec/ctan2tds 2018-10-28 21:07:41 UTC (rev 49014)
@@ -971,6 +971,7 @@
'pst-marble', "&MAKEpst",
'pst-math', "&MAKEpst",
'pst-mirror', "&MAKEpst",
+ 'pst-moire', "&MAKEpst",
'pst-node', "&MAKEpst",
'pst-ob3d', "&MAKEpst",
'pst-optic', "&MAKEpst",
Modified: trunk/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc
===================================================================
--- trunk/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc 2018-10-28 21:06:30 UTC (rev 49013)
+++ trunk/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc 2018-10-28 21:07:41 UTC (rev 49014)
@@ -67,6 +67,7 @@
depend pst-marble
depend pst-math
depend pst-mirror
+depend pst-moire
depend pst-node
depend pst-ob3d
depend pst-ode
Added: trunk/Master/tlpkg/tlpsrc/pst-moire.tlpsrc
===================================================================
More information about the tex-live-commits
mailing list