(* $M-  *)

DEFINITION MODULE DrawDecs;

(*****************************************************************************)
(*                                                                           *)
(*  Definitionsmodul: DrawDecs             Version 1.0 vom 1. November 1990  *)
(*                                                                           *)
(*  Für M2Amiga Modula-2 von Olaf Pfeiffer & Paul Lukowicz / Copyright 1990  *)
(*                                                                           *)
(*---------------------------------------------------------------------------*)
(*                                                                           *)
(*  In diesem Modul sind die Prozedurtypen für diverse   Zeichenprozeduren   *)
(*  aus "DrawSettings" vereinbart                                            *)
(*                                                                           *)
(*****************************************************************************)


FROM  Graphics  IMPORT  RastPortPtr;
FROM  GfxDecs   IMPORT  GfxPtr, Pixel;


TYPE PixlProc     = PROCEDURE (GfxPtr, INTEGER, INTEGER, INTEGER);
TYPE DrawProc     = PROCEDURE (GfxPtr, INTEGER, INTEGER, INTEGER);
TYPE LineProc     = PROCEDURE (GfxPtr, INTEGER, INTEGER, INTEGER,
                                       INTEGER, INTEGER);
TYPE PaintProc    = PROCEDURE (GfxPtr, INTEGER, INTEGER, INTEGER, INTEGER);
TYPE PolyProc     = PROCEDURE (GfxPtr, INTEGER, ARRAY OF Pixel, INTEGER,
                               INTEGER, INTEGER);
TYPE PolyFillProc = PROCEDURE (GfxPtr, INTEGER, ARRAY OF Pixel, INTEGER,
                               INTEGER, INTEGER, INTEGER, INTEGER);

TYPE Params = ARRAY[0..7] OF INTEGER;


END DrawDecs.