Moiré Pattern

Author

Eric W. Weisstein
February 2, 2011

This notebook downloaded from http://mathworld.wolfram.com/notebooks/RecreationalMath/MoirePattern.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/MoirePattern.html.

©2010 Wolfram Research, Inc. except for portions noted otherwise

Circles

V5

Show[GraphicsArray[Graphics[Table[Circle[{0,0},r],{r,0,1,#}],AspectRatio->Automatic]&/@{.04,.03,.02}
]]

V6

GraphicsRow[Graphics[Table[Circle[{0,0},r],{r,0,1,#}]]&/@{.04,.03,.02}]

Lines

ParallelLines[n_,dx_,ang_]:=Module[{rot={{Cos[#],Sin[#]},{-Sin[#],Cos[#]}}&[ang]},
Line/@Table[Dot[rot,#]&/@{{x,-1},{x,1}},{x,-dx n/2,dx n/2,dx}]
]

V5

Show[Graphics[{
ParallelLines[50,.02,0],
ParallelLines[50,.02,30 Degree]
},
AspectRatio->Automatic],
PlotRange->All
]

movie=Show[Graphics[{
ParallelLines[50,.02,0],
ParallelLines[50,.02,# Degree]
},
AspectRatio->Automatic],
PlotRange->{{-1,1},{-1,1}}1.2]&/@Range[0,179,4]

Export[gifs<>"moire.gif",movie]//Timing

V6

Graphics[{
ParallelLines[50,.02,0],
ParallelLines[50,.02,30 Degree]
}]

GraphicsColumn[{,},Spacings->-100]

"MoirePattern"->,