Grain Figure

Author

Eric W. Weisstein
August 30, 2026

This notebook downloaded from https://mathworld.wolfram.com/notebooks/Laminae/BabylonianGrainFigure.nb.

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

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

Figure

The shaded grain figure is bounded by two congruent quarter-circle arcs.

Module[{diskSegmentWithBoundary}, diskSegmentWithBoundary[x__] := {{FaceForm[LightYellow], DiskSegment[x]}, {LightDarkSwitched[Darker[StandardGray, 0.55], Lighter[StandardGray, 0.55]], AbsoluteThickness[2], Circle[x]}}; Graphics[{diskSegmentWithBoundary[{1/Sqrt[2], 0}, 1, {3*(Pi/4), 5*(Pi/4)}], diskSegmentWithBoundary[{-Sqrt[2]^(-1), 0}, 1, {-Pi/4, Pi/4}]}]]