w = 0.1;
l = 4;
n = 15;
theta = 150 Degree;
Graphics[
 Union[
  Table[
   Rotate[Rectangle[{-w, -w}, {w, l}], i, {0, 0}],
   {i, -theta/2, theta/2, theta/(n - 1)}
   ]
  ]
 ]