Centering a rectangle inside another?

[zlzm10 (yuki kana)]

Graphics[{
Rectangle, Rectangle[{1, 1} ],
Purple, Rectangle[ {0, 1}], Rectangle[{1, 0}],
Yellow, Scale[Rectangle, 0.5], Scale[Rectangle[{1, 1}], 0.5],
Green, Scale[Rectangle[{0, 1}], 0.5], Scale[Rectangle[{1, 0}], 0.5]
}, Axes → True]

Please tell me the principle of Scale function.
Thanks

[hansmilton]

I cannot reproduce the problem. Executing the following code gives the expected output:

Graphics[{
  	Rectangle[], Rectangle[{1, 1}],
  	Purple, Rectangle[{0, 1}], Rectangle[{1, 0}],
  	Yellow, Scale[Rectangle[], 0.5], Scale[Rectangle[{1, 1}], 0.5],
  	Green, Scale[Rectangle[{0, 1}], 0.5], Scale[Rectangle[{1, 0}], 0.5]
  }, Axes -> True]

EDIT:

The above was tested in Mathematica 12.3. But in 12.2 the problem can be reproduced. See my post below.

[hansmilton]

Yuki, when testing the code in Mathematica 12.2 I can reproduce the problem. Looks like a bug in 12.2 (and earlier versions?)