Greek Cross

Author

Eric W. Weisstein
March 28, 2005

This notebook downloaded from http://mathworld.wolfram.com/notebooks/PlaneGeometry/GreekCross.nb.

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

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

Code

GreekCross[x_:0,y_:0]:=With[{p={x,y}+#&/@{{3,2},{2,2},{2,3},{1,3},{1,2},{0,2},{0,1},{1,1},{1,0},{2,0},{2,1},{3,1},{3,2}}
},
{{White,Polygon[Rest[p]]},Line[p]}
]

Graphic

Show[Graphics[GreekCross[0,0]],AspectRatio->Automatic]

Tiling

Show[Graphics[{
Table[GreekCross[3x-y,-x-3y],{x,-10,10},{y,-10,10}]
}],AspectRatio->Automatic,PlotRange->5.4{{-2,2},{-1,1}},ImageSize->500,
Background->GrayLevel[.5]]