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

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

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

spaceWidth = xcoord . spaceSize
spaceHeight = ycoord . spaceSize

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