--                            -*- Mode: Haskell -*- 
-- Copyright 1994 by Peter Thiemann
--
-- just a provider of type declarations
-- 
-- $Locker:  $
-- $Log: Info.hs,v $
-- Revision 1.1  2004/08/05 11:11:58  malcolm
-- Add a regression testsuite for the nhc98 compiler.  It isn't very good,
-- but it is better than nothing.  I've been using it for about four years
-- on nightly builds, so it's about time it entered the repository!  It
-- includes a slightly altered version of the nofib suite.
-- Instructions are in the README.
--
-- Revision 1.1  1996/01/08 20:02:33  partain
-- Initial revision
--
-- Revision 1.1  1994/03/15  15:34:53  thiemann
-- Initial revision
--
-- 


module Info where

import Color	(Color (..))
import Fonts	(FONT)

type ColorInfo = (Color, Color, Color, Color)
type INFO =  (Int, Int, Int, Int, Int, FONT, FONT, ColorInfo)
type WrapperType = String -> INFO -> Container -> ShowS

type Container = (
--      rx, ry		origin relative to bounding box
	Int, Int,
--	widht height	of content's bounding box
	Int, Int,
--	inOutY		relative position of entry/exit point
	Int,
        GObject)

data GObject
	= AString Color FONT String			    -- AString font theString
	| ABox Color Bool Container			    -- round edges toggle
	| Arrow Color Int				    -- Arrow size
	| Aline Color					    -- width height rlineto
	| ATurn Color TDirection			    -- a turn
	| AComposite [Container]


data TDirection = SE | SW | WN | NE