当前位置：文江博客话题详情

我如何在 Glut - Fungen - Haskell 中使用其他字体

发布于 2024-12-16 21:33:57 字数 336 浏览 4 评论 0原文

我正在使用 Haskell 的 Fungen 框架，并且有一个使用 BitmapFonts 的函数。问题是，我唯一可以使用的 BitmapFont 是 GLUT 附带的 BitmapFont，这里是数据：

这些字体对于我的应用程序来说非常小，我想使用另一种 BitmapFont，而不仅仅是这些，或者使其中一个更大。我该怎么做呢？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

煮茶煮酒煮时光 2024-12-23 21:33:57

这是 putGameText：

putGameText :: [Text] -> IO ()
putGameText [] = return ()
putGameText ((text,font,(x,y),r,g,b):ts) = do
    loadIdentity
    color (Color3 r g b)
    rasterPos (Vertex2 x y)
    renderString font text
    putGameText ts

据我了解，FunGENn 的 Text 类型将字体限制为固定大小 BitMapFont：

type Text = (String, BitmapFont, (GLdouble, GLdouble), GLclampf, GLclampf, GLclampf)

但 renderString 可以还取一个StrokeFont ，其字体系列受到更多限制，但响应标准 OpenGL 缩放/变换/旋转。

因此，一个好的开始可能是让 myPutGameText 接受支持 StrokeFont 的 MyText 并在渲染之前进行缩放变换。这是一些伪代码，我希望有人能纠正：

type MyText = (String, StrokeFont, (GLdouble, GLdouble), GLclampf, GLclampf, GLclampf)

myPutGameText :: [MyText] -> (GLDouble,GLDouble,GLDouble) -> IO ()
myPutGameText [] _ = return ()
myPutGameText ((text,font,(x,y),r,g,b):ts) (sx,sy,sz) = do
    loadIdentity
    preservingMatrix $ do
      scale sx sy sz
      color (Color3 r g b)
      rasterPos (Vertex2 x y)
      renderString font text
      putGameText ts

为了更丰富的字体渲染，答案可能是集成类似的内容FTGL。

Here's the source of putGameText:

putGameText :: [Text] -> IO ()
putGameText [] = return ()
putGameText ((text,font,(x,y),r,g,b):ts) = do
    loadIdentity
    color (Color3 r g b)
    rasterPos (Vertex2 x y)
    renderString font text
    putGameText ts

As I understand it, FunGEn's Text type constrains font to a fixed-size BitMapFont:

type Text = (String, BitmapFont, (GLdouble, GLdouble), GLclampf, GLclampf, GLclampf)

but renderString can also take a StrokeFont, which is even more limited in font family but responds to standard OpenGL scaling/transformation/rotation.

So, a good start might be to make myPutGameText that accepts a StrokeFont-capable MyText and does a scaling transform before rendering. Here's some pseudo-code which I hope someone will correct:

type MyText = (String, StrokeFont, (GLdouble, GLdouble), GLclampf, GLclampf, GLclampf)

myPutGameText :: [MyText] -> (GLDouble,GLDouble,GLDouble) -> IO ()
myPutGameText [] _ = return ()
myPutGameText ((text,font,(x,y),r,g,b):ts) (sx,sy,sz) = do
    loadIdentity
    preservingMatrix $ do
      scale sx sy sz
      color (Color3 r g b)
      rasterPos (Vertex2 x y)
      renderString font text
      putGameText ts

For richer font rendering, the answer is probably to integrate something like FTGL.

回复收藏 0 原文

~没有更多了~