Classes abstraites et sous-typage : objets graphiques

On cherche à regrouper dans une même hiérarchie de classes, les différents objets graphiques. Pour cela on commence par décrire la classe abstraite graphical_object suivante :

class virtual graphical_object () =
object
  method virtual display : unit -> unit
  method virtual erase : unit -> unit
  method virtual rmoveto : int * int -> unit
end;;

1.

Ecrire la hiérarchie de classes point, point_colore, picture (qui est une suite de points) et polygone sous-classe de picture.

2.

Ecrire une classe circle.

3.

Ecrire une classe group, sous-classe de graphical_object, qui est un regroupement d'objets graphiques.

4.

Dessinez les relations entre toutes ces classes.