Pentart lattice and diffraction patterns superimposed
Pentart lattice and diffraction patterns superimposed
Sándor Kabai
This shows a way of superimposing two images. In this particular example the purpose is to indicate how the dots of the diffraction pattern match the intersecting points of the lines in the Pentart lattice.
See: https://demonstrations.wolfram.com/PentagonalArtTemplate/
This shows a way of superimposing two images. In this particular example the purpose is to indicate how the dots of the diffraction pattern match the intersecting points of the lines in the Pentart lattice.
See: https://demonstrations.wolfram.com/PentagonalArtTemplate/
In[]:=
gr1=Graphics3DTexture
,Polygon[{{-1,-1,0},{1,-1,0},{1,1,0},{-1,1,0}},VertexTextureCoordinates{{0,0},{1,0},{1,1},{0,1}}][[1]];gr2=Graphics3DTexture
,Polygon[{{-1,-1,0.1},{1,-1,0},{1,1,0},{-1,1,0}},VertexTextureCoordinates{{0,0},{1,0},{1,1},{0,1}}][[1]];gr2n=Rotate[Scale[gr2,0.8{1,1,1},{0,0,0}],2Pi/20,{0,0,1}];Graphics3D[{gr2n,Opacity[0.3],gr1},BoxedFalse,SphericalRegionTrue,ViewPoint{0,0,-100},ImageSize600,Lighting{{"Ambient",LightBlue}}]
Out[]=
