Symbolic geometric transformations

例 1 ステップを1つのセッション内で順に実行します。各ステップはエンジンで実行済みで、以下の出力は実際に生成されたものです。

ステップ 1

Graphics[{EdgeForm[Gray],
	Nest[{{Black, Rectangle[{0, -.5}], White, Rectangle[{-1, -.5}]}, Scale[Rotate[#, π / 14], .95]}&, {}, 70]}]

出力

-Graphics-

使用する関数