Metrics.hs

module Metrics where
import Pics as P2
import Pics1 as P1
import BitmapOps(Bitmap)
import InvaderTypes(Object)
import AllFudgets

metrics1 = M 1 (pP 240 195) P1.pics
metrics2 = M 2 (scaleP 2 (spaceSize metrics1)) P2.pics

data Metrics = M { bmScale::Int, spaceSize::Size, pics::Object->Bitmap }

spaceWidth = xcoord . spaceSize
spaceHeight = ycoord . spaceSize

scaleP k (Point x y) = Point (k*x) (k*y)