Curry Triangle

Author

Eric W. Weisstein
June 16, 2002

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

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

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

Initialization

<<Graphics`Colors`;
<<PlaneGeometry`;

Graphics

FilledPolygon[l_List,gr_:GrayLevel[.5]]:={{gr,Polygon[l]},Line[Append[l,First[l]]]}

Grid[x_,y_]:={Table[Line[{{-1,n},{x,n}}],{n,0,y}],
Table[Line[{{n,-1},{n,y}}],{n,0,x}]}

Show[GraphicsArray[Graphics[{Grid[11,13],#},AspectRatio->Automatic]&/@
{
{
FilledPolygon[{{0,0},{3,0},{3,7}},Red],
FilledPolygon[{{3,0},{7,0},{7,2},{5,2},{5,5},{3,5}},Green],
FilledPolygon[{{7,0},{10,0},{7,7}},Blue],
FilledPolygon[{{3,7},{7,7},{7,2},{5,2},{5,5},{3,5}},Violet],
FilledPolygon[{{3,7},{5,7},{5,12}},Yellow],
FilledPolygon[{{5,7},{7,7},{5,12}},Black]
},
{
FilledPolygon[{{0,0},{2,0},{2,5}},Yellow],
FilledPolygon[{{2,0},{4,0},{4,3},{6,3},{6,5},{2,5}},Green],
FilledPolygon[{{4,0},{8,0},{8,5},{6,5},{6,2},{4,2}},Violet],
FilledPolygon[{{8,0},{10,0},{8,5}},Black],
FilledPolygon[{{2,5},{5,5},{5,12}},Red],
FilledPolygon[{{5,5},{8,5},{5,12}},Blue]
},
{
FilledPolygon[{{2,0},{7,0},{2,2}},Yellow],
FilledPolygon[{{2,2},{7,0},{7,2}},Black],
FilledPolygon[{{7,0},{9,0},{9,4},{4,4},{4,2},{7,2}},Green],
FilledPolygon[{{0,2},{4,2},{4,4},{2,4},{2,7},{0,7}},Violet],
FilledPolygon[{{2,7},{9,7},{2,4}},Blue],
FilledPolygon[{{2,4},{9,4},{9,7}},Red]
}
}
]]