********************************************************************
* NOTE: This file is generated automatically from the event * definition file Bresenham.evt. ********************************************************************INTERFACEBresenhamAlgClass ; <*NOWARN*> IMPORT Algorithm, AlgorithmClass; <* PRAGMA LL *> TYPE EventDataRec = RECORD stopAtSetup: BOOLEAN := TRUE; waitAtSetup: CARDINAL := 1; ctOfSetup: CARDINAL := 0; stopAtNewLine: BOOLEAN := TRUE; waitAtNewLine: CARDINAL := 1; ctOfNewLine: CARDINAL := 0; stopAtErrorInit: BOOLEAN := TRUE; waitAtErrorInit: CARDINAL := 1; ctOfErrorInit: CARDINAL := 0; stopAtShowPixel: BOOLEAN := TRUE; waitAtShowPixel: CARDINAL := 1; ctOfShowPixel: CARDINAL := 0; stopAtFindError: BOOLEAN := TRUE; waitAtFindError: CARDINAL := 1; ctOfFindError: CARDINAL := 0; stopAtChangeError: BOOLEAN := TRUE; waitAtChangeError: CARDINAL := 1; ctOfChangeError: CARDINAL := 0; stopAtCompareError: BOOLEAN := TRUE; waitAtCompareError: CARDINAL := 1; ctOfCompareError: CARDINAL := 0; stopAtShowNextPixel: BOOLEAN := TRUE; waitAtShowNextPixel: CARDINAL := 1; ctOfShowNextPixel: CARDINAL := 0; stopAtMove: BOOLEAN := TRUE; waitAtMove: CARDINAL := 1; ctOfMove: CARDINAL := 0; END; T <: Public; Public = Algorithm.T OBJECT eventDataRec: EventDataRec; METHODS END; REVEAL Algorithm.T <: AlgorithmClass.T; END BresenhamAlgClass.