拉絲 bitmap 轉絲 光澤 Haskell

Question

對於 uni 我有這個任務，我需要編寫一個簡單的游戲，我現在在將玩家 object 繪制到屏幕上時遇到問題。 我有以下功能：

data Player = MkPlayer {
                playerpos :: Point,
                playerradius :: Int,
                playerbullets :: [Bullet]
              }

instance Renderable Player where
  render (MkPlayer pos rad _ ) = do picture <- loadBMP "./images/player.bmp"
                                    return picture
.
.
.

view :: GameState -> IO Picture
view (MkGameState False (MkBoard player _) _) = render player

這會將圖像顯示在屏幕中央。 但當然，我想在玩家 position 處以合適的尺寸繪制圖像。 我該如何實施？ 任何幫助都是值得贊賞的！

Answer 1

在返回之前使用翻譯function

instance Renderable Player where
  render (MkPlayer (x,y) rad _ ) = do picture <- loadBMP "./images/player.bmp"
                                    return $ translate x y picture