Graphics[{EdgeForm[Black],White,
Polygon@{{0,0},{-1,0},Sqrt[2]{Cos[#],Sin[#]}&[Pi-(ArcCot[1])]},
Polygon@{{0,0},Sqrt[2]{Cos[#],Sin[#]}&[Pi-(ArcCot[1])],Sqrt[3]{Cos[#],Sin[#]}&[Pi-(ArcCot[1]+ArcCot[Sqrt[2]])]},Polygon@{{0,0},Sqrt[3]{Cos[#],Sin[#]}&[Pi-(ArcCot[1]+ArcCot[Sqrt[2]])],Sqrt[4]{Cos[#],Sin[#]}&[Pi-(ArcCot[1]+ArcCot[Sqrt[2]]+ArcCot[Sqrt[3]])]}
}]
求更好的代码