Create new environment for graphics with list of graphics

I need to create a new environment for a set of graphics figures, with counter on the caption so I can generate the list of all graphics like that :

begin{graphic}
 begin{center}
 caption{Title of the graphic}
 includegraphics[scale=1]{the graph.eps}
 end{center}
end{graphic}

so I can get in the title:

Graphic I.1 Title of the graphic

Graphic I.2 Title of the next graphic

and so on.
Thanks