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

Question

我使用的是Haskell的Fungen框架，並且有一個使用BitmapFonts的函數。問題是，我唯一可以使用的BitmapFonts是GLUT中的那些，這裏是數據：

data BitmapFont = Fixed8By13 | Fixed9By15 | TimesRoman10 | TimesRoman24 | Helvetica10 | Helvetica12 | Helvetica18

這些字體對於我的應用程序非常小，我想使用另一個BitmapFont，而不僅僅是這些，或者使其中一個更大。我該怎麼做？

Answer 1

這裏是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 

據我瞭解，FunGEn的文本類型限制字體大小固定的BitMapFont：

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

但renderString也可以採取StrokeFont，其中在字體系列中更受限制，但對標準OpenGL scaling/transformation/rotation作出響應。

所以，一個好的開始可能是讓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整合。