return (
  {posx=>$x, posy=>$y, dirx=>0,  diry=>1,  quality=>5},
  {posx=>$x, posy=>$y, dirx=>0,  diry=>-1, quality=>1},
  {posx=>$x, posy=>$y, dirx=>1,  diry=>0,  quality=>3},
  {posx=>$x, posy=>$y, dirx=>-1, diry=>0,  quality=>1},
        );