mgkit/src/Grid.i3


 Copyright (C) 1992, Digital Equipment Corporation 
 All rights reserved. 
 See the file COPYRIGHT for a full description. 
 
 by Steve Glassman and Stephen Harrison 
 Last modified on Wed Jul 22 01:39:07 1992 by steveg 

<*PRAGMA LL*>

INTERFACE Grid;

IMPORT Axis, MG;

TYPE Array = REF ARRAY OF ARRAY OF MG.Rectangle;

TYPE
  V <: PublicV;
  PublicV = MG.V OBJECT
              <* LL = self.mu *>
              a    : Array;
              (* two dimensional array [rows x cols] of MG.Rectangles *)
              group: MG.Group;
              (* MGPublic.Pos(group) is northwest corner of grid *)
              size: ARRAY Axis.T OF REAL;
              (* (width * cols, height * rows) *)
            METHODS
              <* LL <= self.mu *>
              init (rows, cols: CARDINAL; width, height: REAL): V;
            END;

END Grid.