-------------------------------------------------------------------------------
-- $Id: RPM.hs#1 2009/10/01 10:31:09 REDMOND\\satnams $
-------------------------------------------------------------------------------

module Lava.RPM
where

-------------------------------------------------------------------------------

showRLOC (x, y)
   = rloc
     where
     rloc = "R" ++ show (-(y `div` 2)) ++ "C" ++ show (x `div` 2) ++
            ".S" ++ show ((x+1) `mod` 2) 

-------------------------------------------------------------------------------

showSlice (x,y)
    = "x" ++ show x ++ "y" ++ show (y `div` 2)

-------------------------------------------------------------------------------