{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Control.Moffy.Samples.Boxes.Viewable where

data Box = Box Rect BColor deriving Int -> Box -> ShowS
[Box] -> ShowS
Box -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Box] -> ShowS
$cshowList :: [Box] -> ShowS
show :: Box -> String
$cshow :: Box -> String
showsPrec :: Int -> Box -> ShowS
$cshowsPrec :: Int -> Box -> ShowS
Show
data BColor = Red | Green | Blue | Yellow | Cyan | Magenta deriving (Int -> BColor -> ShowS
[BColor] -> ShowS
BColor -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BColor] -> ShowS
$cshowList :: [BColor] -> ShowS
show :: BColor -> String
$cshow :: BColor -> String
showsPrec :: Int -> BColor -> ShowS
$cshowsPrec :: Int -> BColor -> ShowS
Show, Int -> BColor
BColor -> Int
BColor -> [BColor]
BColor -> BColor
BColor -> BColor -> [BColor]
BColor -> BColor -> BColor -> [BColor]
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: BColor -> BColor -> BColor -> [BColor]
$cenumFromThenTo :: BColor -> BColor -> BColor -> [BColor]
enumFromTo :: BColor -> BColor -> [BColor]
$cenumFromTo :: BColor -> BColor -> [BColor]
enumFromThen :: BColor -> BColor -> [BColor]
$cenumFromThen :: BColor -> BColor -> [BColor]
enumFrom :: BColor -> [BColor]
$cenumFrom :: BColor -> [BColor]
fromEnum :: BColor -> Int
$cfromEnum :: BColor -> Int
toEnum :: Int -> BColor
$ctoEnum :: Int -> BColor
pred :: BColor -> BColor
$cpred :: BColor -> BColor
succ :: BColor -> BColor
$csucc :: BColor -> BColor
Enum)

-- data Rect = Rect { leftUp :: Point, rightdown :: Point }
data Rect = Rect Point Point deriving Int -> Rect -> ShowS
[Rect] -> ShowS
Rect -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Rect] -> ShowS
$cshowList :: [Rect] -> ShowS
show :: Rect -> String
$cshow :: Rect -> String
showsPrec :: Int -> Rect -> ShowS
$cshowsPrec :: Int -> Rect -> ShowS
Show

type Point = (Double, Double)