module Dodge.Render.ShapePicture
    where
import Dodge.Data
import Geometry
import ShapePicture

floorItemSPic :: FloorItem -> SPic
floorItemSPic flit 
    = uncurryV translateSPf (_flItPos flit) 
    $ rotateSP (_flItRot flit)  (_itFloorPict (_flIt flit))