Periodic Table

table = Import[
   "http://www.snowtown.com/wrf/Occasional_Tables_files/ct-drawers3.\
gif"];

Show[
 Plot[0, {x, 0, 5}],
 Graphics[
  Table[Translate[
    Inset[Rotate[table, Pi x], {0.8 x, 0}, {Left, Center}, 1], {0,
     0.2 (-1)^x}], {x, 0, 5}]]
 ]