Apsamikkum

Author

Eric W. Weisstein
August 29, 2026

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

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

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

Figure

The shaded apsamikkum is the central concave region bounded by four quarter-circle arcs.

Module[{boundary, centers, fill, neutral},
	centers = {{-1, -1}, {-1, 1}, {1, 1}, {1, -1}};
	boundary = Join[
		({-1, -1} + {Cos[#], Sin[#]} &) /@ Subdivide[0, Pi/2, 50],
		({-1, 1} + {Cos[#], Sin[#]} &) /@ Subdivide[-Pi/2, 0, 50],
		({1, 1} + {Cos[#], Sin[#]} &) /@ Subdivide[Pi, 3 Pi/2, 50],
		({1, -1} + {Cos[#], Sin[#]} &) /@ Subdivide[Pi/2, Pi, 50]
	];
	fill = RGBColor[0.88, 0.42, 0.16];
	neutral = LightDarkSwitched[
		Darker[StandardGray, 0.55],
		Lighter[StandardGray, 0.55]
	];
	Graphics[{
		{FaceForm[fill], EdgeForm[None], Polygon[boundary]},
		{neutral, AbsoluteThickness[2], Circle[#, 1] & /@ centers}
	}]
]