(*********************************************************************
 
   -:Program.  	 numwindow.def
   -:Author.   	 Pit Burkhardt  
    :Address.    Stettinerstraße 25 7030 Böblingen
    :Phone.      ----
   -:shortcut. 	 [pit]
   -:Version.  	 0.92   
   -:Date.     	 11.04.1988
   -:Copyright.  PD
   -:Language. 	 Modula-II
   -:Translator. M2Amiga
   -:Imports.	 ----
   -:UpDate.	 02.05.1988
   -:Contents.	 PROCEDUREs, creating 7-Segment-Numbers of variable height
    :Remark.	 "AMOK - Amiga Modula-2 Klub / Stuttgart"
    
**********************************************************************)

DEFINITION MODULE DragNum;

FROM SYSTEM IMPORT	ADDRESS, ADR;

FROM Arts IMPORT	Assert;

FROM Intuition IMPORT	WindowPtr;

FROM Graphics IMPORT	RastPortPtr, RectFill, SetAPen, SetRast, InitTmpRas,
			AllocRaster, TmpRas, AreaInfo, AreaMove,
                        AreaDraw, InitArea, AreaEnd, AreaEllipse;

FROM GfxMacros IMPORT	SetOPen;

CONST	MINWIDTH=100;
        MINHEIGHT=40;


PROCEDURE ShowNumber(wp:WindowPtr;W:INTEGER);

(* Zeichnet die Zahl W in Digitalziffern in das Window,			*) 
(* auf das wp zeigt.						 	*)
(* W muß < 1000 sein, also 3-stellig, sonst wird es ignoriert		*) 

PROCEDURE SetNumPrefs(AP,BP,OP:INTEGER;PX,PY:REAL);

(* Legt einige Einstellungen für ShowNumber fest			*)
(* SetNumPrefs muß nicht aufgerufen werden, ShowNumber läuft auch ohne	*)
(*									*)
(* AP:									*)
(* Nummer der Vordergrundfarbe der Digitalziffern, Voreinstellung: 3	*)
(*									*)
(* BP:									*)
(* Nummer der Hintergrundfarbe im Window, Voreinstellung: 0		*)
(*									*)
(* OP:									*)
(* Nummer der Outlinefarbe, Voreinstellung: 2				*)
(*									*)
(* PX:									*)
(* Gibt an, welche Breite des Windows die Zahl ausfüllen soll, ist	*)
(* PX = 1.0 (also 100 Prozent), so wird das Window in seiner 		*)
(* ganzen Breite ausgefüllt. Die Ziffer wird immer linksbündig dar	*)
(* gestellt. Erlaubte Werte: 0.0 .. 1.0 Voreinstellung: 1.0		*)
(*									*)
(* PY:									*)
(* Wie PX, jedoch bezüglich der Höhe. Die Ziffer liegt imer am		*)
(* oberen Rand des Windows an.						*) 

END DragNum.