INTERFACE PZPlot;

IMPORT PSPlot, PZLR3Chain, PZMatch;

PROCEDURE PSMatching(
    fname: TEXT ;
    READONLY match: PZMatch.T;
    READONLY vA: PZLR3Chain.T;
    iniA, finA: CARDINAL;
    READONLY vB : PZLR3Chain.T;
    iniB, finB: CARDINAL;
    closed: BOOLEAN;
    pairing: BOOLEAN;
    caption: TEXT := ""
  );
  (*
    Draws the two chains and the matching, as a ".ps" file.  
    
    The matched segments are drawn in red and blue, the rest of the
    chains are drawn in black. If "pairing=TRUE", the lines connecting
    matched points are drawn in gray.  Assumes the sample indices in
    "match" are relative to "iniA" and "iniB". *)

PROCEDURE EPSMatching(
    fname: TEXT;
    READONLY match: PZMatch.T;
    READONLY vA: PZLR3Chain.T;
    iniA, finA: CARDINAL;
    READONLY vB: PZLR3Chain.T;
    iniB, finB: CARDINAL;
    closed: BOOLEAN;
    pairing: BOOLEAN;
  );
  (*
    Ditto, but writes an ".eps" file. *)
  
PROCEDURE LR3Chain(
    f: PSPlot.File; 
    READONLY c: PZLR3Chain.T;
    closed: BOOLEAN := TRUE;
    step: CARDINAL := 1;
  );
  (*
    Draws the given chain into file "ps",
    plotting only one sample out of every "step" samples. *)
    
END PZPlot.