我一直坚持使用 Haskell/Yampa (=Arrows) (with HOOD) 为我的游戏对象生成调试输出。
我的引擎基本上运行一系列游戏对象，这些对象产生输出状态（线、圆），然后进行渲染。
data Output = Circle Position2 Double | Line Vector2
output :: [Output] -> IO ()
output oos = mapM render oos
render :: Output -> IO ()
render (Circle p r) = drawCircle p r
render (Line vec) = drawLine (Point2 0 0) vec
玩家对象只是向右移动并表示为（定位的）圆圈。
playerObject :: SF () Output -- SF is an Arrow run by time
p <- mover (Point2 0 0) -< (Vector2 10 0)
returnA -< (Circle p 2.0)
mover 只是一个简单的积分器（加速度->速度->位置），我想观察速度并将其渲染为调试输出作为（未定位的）线。
mover :: Position2 -> SF Vector2 Position2
mover position0 = proc acceleration -> do
velocity <- integral -< acceleration -- !! I want to observe velocity
position <- (position0 .+^) ^<< integral -< velocity
returnA -< position
如何为游戏对象函数的内部值创建额外的图形调试输出？
实际应该发生的是在输出中，首先渲染实际对象（圆形），但也渲染额外的调试输出（运动矢量作为线）。也许我可以用 HOOD 来实现这一点，但我仍然不熟悉 Haskell，并且不知道如何针对我的案例采用 HOOD 教程。
我不知道 HOOD 但 Debug.Trace 很简单：
> import Debug.Trace
> mover position0 = proc acceleration -> do
> > velocity <- integral -< acceleration
> > position <- trace ("vel:" ++ show velocity ++ "\n") $
> > > > > > > > > > > (position0 .+^) ^<< integral -< velocity
> > returnA -< position
请注意，它不应该放在定义速度的线上。
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
