********************************************************************
* NOTE: This file is generated automatically from the event * definition file Euclid.evt. ********************************************************************<* PRAGMA LL *> INTERFACEcall the following to generate an event:EuclidIE ; <*NOWARN*> IMPORT Algorithm, Euclid, View, Thread;PROCEDURE SetupTriangle ( initiator: Algorithm.T; a, b: REAL ) RAISES {Thread.Alerted}; <* LL = {} *> PROCEDURE SetupSquare ( initiator: Algorithm.T; p1, p2, p3, p4: Euclid.Id ) RAISES {Thread.Alerted}; <* LL = {} *> PROCEDURE LineAL ( initiator: Algorithm.T; show: BOOLEAN ) RAISES {Thread.Alerted}; <* LL = {} *> PROCEDURE Triangle ( initiator: Algorithm.T; p1, p2, p3: Euclid.Id; color: INTEGER ) RAISES {Thread.Alerted}; <* LL = {} *> PROCEDURE Quad ( initiator: Algorithm.T; p1, p2, p3, p4: Euclid.Id; color: INTEGER ) RAISES {Thread.Alerted}; <* LL = {} *> PROCEDURE Shear ( initiator: Algorithm.T; p1, p2, from, to: Euclid.Id ) RAISES {Thread.Alerted}; <* LL = {} *> PROCEDURE RotateTriangle ( initiator: Algorithm.T; pivot, p1From, p1To, p2From, pt2To: Euclid.Id ) RAISES {Thread.Alerted}; <* LL = {} *> PROCEDURE RotateLine ( initiator: Algorithm.T; pivot, pFrom, pTo: Euclid.Id ) RAISES {Thread.Alerted}; <* LL = {} *> PROCEDURE RotateAngle ( initiator: Algorithm.T; pivot, p1From, p1To, p2From, pt2To: Euclid.Id ) RAISES {Thread.Alerted}; <* LL = {} *> PROCEDURE HighlightLine ( initiator: Algorithm.T; p1, p2: Euclid.Id; value: INTEGER; show: BOOLEAN ) RAISES {Thread.Alerted}; <* LL = {} *> PROCEDURE HighlightAngle ( initiator: Algorithm.T; p1, vertex, p2: Euclid.Id; value: INTEGER; show: BOOLEAN ) RAISES {Thread.Alerted}; <* LL = {} *> PROCEDURE Remove ( initiator: Algorithm.T; p1, p2, p3, p4: Euclid.Id; show: BOOLEAN ) RAISES {Thread.Alerted}; <* LL = {} *> PROCEDURE Step ( initiator: Algorithm.T; ) RAISES {Thread.Alerted}; <* LL = {} *> END EuclidIE.