//////////////////////////////////////////////////////////////////////
// Map Template for Map Preparation Package version 1.5             //
//                                                                  //
// Copyright  ©1995-97                                              //
// Gerd Staudenmaier, Software Development & Marketing              //
// Friedrichshafener Str. 24 b                                      //
// D-88090 Immenstaad, Germany                                      //
// e-mail: gerds@micronet.de                                        //
// all rights reserved !                                            //
//                                                                  //
// IMPORTANT !!!                                                    //
// You may freely use this map template for use with "GPS Map" and  //
// "GPS Map Lite" only. All other applications need the written     //
// permission of the author!                                        //
//////////////////////////////////////////////////////////////////////

CONSTANT C_SCREEN_RES := 85; // MP1xx screen resolution in dots per inch


DEFCONST ('SetOffset, FUNC (BoundsFrame, dX, dY)
 BEGIN
  BoundsFrame.left   := BoundsFrame.left + dX;
  BoundsFrame.top    := BoundsFrame.top + dY;
  BoundsFrame.right  := BoundsFrame.right + dX;
  BoundsFrame.bottom := BoundsFrame.bottom + dY
 END);


DEFCONST ('calcBounds, FUNC (TilesArray)
 BEGIN
  LOCAL Bounds := {left: 0, top: 0, right: 0, bottom: 0};
  FOR I := 0 TO Length (TilesArray) - 1 DO BEGIN
   IF (TilesArray[I].bounds.left < Bounds.left)
      THEN Bounds.left := TilesArray[I].bounds.left;
   IF (TilesArray[I].bounds.top < Bounds.top)
      THEN Bounds.top := TilesArray[I].bounds.top;
   IF (TilesArray[I].bounds.right > Bounds.right)
      THEN Bounds.right := TilesArray[I].bounds.right;
   IF (TilesArray[I].bounds.bottom > Bounds.bottom)
      THEN Bounds.bottom := TilesArray[I].bounds.bottom
  END;
  RETURN Bounds
 END);
 
 
// end of project file