12 lines
259 B
Haskell
12 lines
259 B
Haskell
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))
|
|
|