DEFINITION RembrandtDocs;  (* portable *)
(* Stellt ein Rembrandt-Frame als einen Dokumententyp dar *)

 IMPORT
  Pictures, Documents,
  Rembrandt;

(* Erhöht den Zoomfaktor *)
 PROCEDURE Inc;

(* Verkleinert den Zoomfaktor *)
 PROCEDURE Dec;

(* Ein- bzw. ausschalten der Gitterlinien *)
 PROCEDURE Grid;

(* Initialisiert ein neues Document *)
 PROCEDURE InitDoc (D: Documents.Document);

(* Erstellt eine neues Document *)
 PROCEDURE NewDoc;

(* Öffnet ein leeres RembrandtDocument mit Breite und Höhe als Parameter *)
 PROCEDURE Open;

(* Öffnet ein neues RembrandtDocument mit Picture P und Name name *)
 PROCEDURE OpenPict (P: Pictures.Picture; name: ARRAY OF CHAR);

(* Markiertes RembrandtDocument zurückgeben *)
 PROCEDURE MarkedFrame (): Rembrandt.Frame;

END RembrandtDocs.