mentor/derived/EuclidIE.i3

 Copyright (C) 1995, Digital Equipment Corporation.       
 All rights reserved.                                     
 See the file COPYRIGHT for a full description.           
                                                          
 Last modified on Thu Feb  9 08:50:12 PST 1995 by kalsow  
      modified on Sun Jun  5 21:58:07 PDT 1994 by mhb     
      modified on Wed Feb 17 16:46:35 PST 1993 by johnh   


********************************************************************

      *  NOTE: This file is generated automatically from the event
      *        definition file Euclid.evt.
      ********************************************************************



<* PRAGMA LL *>

INTERFACE EuclidIE;

<*NOWARN*> IMPORT Algorithm, Euclid, View, Thread;

 call the following to generate an event: 


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.





interface View is in: