DEFINITION MODULE TalkBase;
(*$ LargeVars:=FALSE *)

(*
 * Öffnet Display und besetzt die Variablen
 *)

FROM SYSTEM	IMPORT	ADDRESS;
FROM IntuitionD	IMPORT	WindowPtr,ScreenPtr;
FROM GraphicsD	IMPORT	TextAttrPtr,RastPortPtr;

TYPE
  (* Erlaubte Phoneme für centphon: (ADR("IY")) *)
  CentrPhons=(iy,ih,eh,ae,aa,ah,ao,ow,uh,er,uw);

  NarrData=RECORD
    rate,
    pitch,
    mode,
    sex,
    volume,
    sampFreq:CARDINAL;
    f0Enthusiasm,
    f0Perturb:SHORTCARD;
    f1Adj,
    f2Adj,
    f3Adj,
    a1Adj,
    a2Adj,
    a3Adj:SHORTINT;
    articulate,
    centralize:SHORTCARD;
    avBias,
    afBias,
    priority:SHORTINT;
    centphon:CentrPhons; (* internal number! *)
  END;

  Str127=ARRAY[0..127] OF CHAR;
  Str255=ARRAY[0..255] OF CHAR;
  AA12=ARRAY[0..11] OF ADDRESS;

CONST
  (* für Mouth-Draw: *)
  midX=508;
  midY=170;

VAR
  quit,
  saveIcons:BOOLEAN;

  myNarr,
  defNarr:NarrData;

  phonBuff:Str255;
  textBuff:Str127;

  (*$ LongAlign:=TRUE *)

  vi:ADDRESS;
  myWindow:WindowPtr;
  myScreen:ScreenPtr;
  myRp:RastPortPtr;
  myTextAttr:TextAttrPtr;
  centLabs:AA12;

PROCEDURE SetBusy(busy:BOOLEAN);

END TalkBase.def