mentor/derived/BresenhamViewClass.m3


 Copyright (C) 1995, Digital Equipment Corporation.       
 All rights reserved.                                     
 See the file COPYRIGHT for a full description.           
                                                          
 Last modified on Thu Feb  9 08:56:54 PST 1995 by kalsow  
      modified on Sat Jun  4 16:23:08 1994 by heydon      
      modified on Wed Feb 17 17:04:32 PST 1993 by johnh   
      modified on Tue Jun  9 00:35:35 1992 by mhb         

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

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


<* PRAGMA LL *>

MODULE BresenhamViewClass;

<*NOWARN*> IMPORT BresenhamAlgClass, ZeusClass, ViewClass;

REVEAL
  T = Public BRANDED OBJECT
      OVERRIDES
        <* LL.sup = VBT.mu *>
        isCompat := IsCompat;
        <* LL.sup < VBT.mu *>
        oeSetup := Setup;
        oeNewLine := NewLine;
        oeErrorInit := ErrorInit;
        oeShowPixel := ShowPixel;
        oeFindError := FindError;
        oeChangeError := ChangeError;
        oeCompareError := CompareError;
        oeShowNextPixel := ShowNextPixel;
        oeMove := Move;
        <* LL.sup = VBT.mu *>
      END;

PROCEDURE IsCompat(<*UNUSED*> v: T; alg: ZeusClass.T): BOOLEAN =
  <* LL.sup = VBT.mu *>
  BEGIN
    RETURN ISTYPE(alg, BresenhamAlgClass.T)
  END IsCompat;

PROCEDURE Setup (view: T
    ; <*UNUSED*> width: INTEGER
    ; <*UNUSED*> height: INTEGER
    ; <*UNUSED*> show: BOOLEAN
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END Setup;
PROCEDURE NewLine (view: T
    ; <*UNUSED*> x0: INTEGER
    ; <*UNUSED*> y0: INTEGER
    ; <*UNUSED*> x1: INTEGER
    ; <*UNUSED*> y1: INTEGER
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END NewLine;
PROCEDURE ErrorInit (view: T
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END ErrorInit;
PROCEDURE ShowPixel (view: T
    ; <*UNUSED*> x: INTEGER
    ; <*UNUSED*> y: INTEGER
    ; <*UNUSED*> p1: INTEGER
    ; <*UNUSED*> p2: INTEGER
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END ShowPixel;
PROCEDURE FindError (view: T
    ; <*UNUSED*> p: INTEGER
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END FindError;
PROCEDURE ChangeError (view: T
    ; <*UNUSED*> p: INTEGER
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END ChangeError;
PROCEDURE CompareError (view: T
    ; <*UNUSED*> p: INTEGER
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END CompareError;
PROCEDURE ShowNextPixel (view: T
    ; <*UNUSED*> p: INTEGER
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END ShowNextPixel;
PROCEDURE Move (view: T
    ; <*UNUSED*> p: INTEGER
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END Move;

BEGIN
END BresenhamViewClass.