I created a graphic with four rectangles and four points. The rectangles has a way itself to be created. It is possible to place the rectangles in function of the points
pos1 = {0, 1};
pos2 = {-1, 0};
pos3 = {0, -1};
pos4 = {1, 0};
tam1 = 1;
tam2 = 1.5;
g1 = Graphics[{Blue,
Rectangle[{pos1[[1]] - tam1/2, pos1[[2]]}, {pos1[[1]] + tam1/2,
pos1[[2]] + tam1}]}];
g2 = Graphics[{Green,
Rectangle[{pos2[[1]] - tam2, pos2[[2]] - tam2/2}, {pos2[[1]],
pos2[[2]] + tam2/2}]}];
g3 = Graphics[{Blue,
Rectangle[{pos3[[1]] - tam1/2,
pos3[[2]] - tam1}, {pos3[[1]] + tam1/2, pos3[[2]]}]}];
g4 = Graphics[{Green,
Rectangle[{pos4[[1]], pos4[[2]] - tam2/2}, {pos4[[1]] + tam2,
pos4[[2]] + tam2/2}]}];
points = Graphics[{Red, PointSize[0.02], Point[pos1], Point[pos2],
Point[pos3], Point[pos4]}];
Show[g1, g2, g3, g4, points]