Freetype2
Свободный, высококачественный, и портативный движок для шрифтов
Вебсайт: http://www.freetype.org
Поддерживаемые платформы: Win32, Linux
Заголовки: freetype2/freetype.bi
Версия заголовков: 2.1.9
Примеры: в examples/graphics/FreeType/
Вебсайт: http://www.freetype.org
Поддерживаемые платформы: Win32, Linux
Заголовки: freetype2/freetype.bi
Версия заголовков: 2.1.9
Примеры: в examples/graphics/FreeType/
Пример
'' Пример рендеринга символов с помощью FreeType
#include "freetype2/freetype.bi"
#ifdef __FB_LINUX__
Const TTF_FONT = "/usr/share/fonts/truetype/ttf-dejavu/DejaVuSans.ttf"
#else
Const TTF_FONT = "Vera.ttf"
#endif
Dim As FT_Library library
If (FT_Init_FreeType(@library) <> 0) Then
Print "FT_Init_FreeType() failed" : Sleep : End 1
End If
''
'' Загрузка шрифта и рендеринг символа '@' на битмапе
''
Dim As FT_Face face
If (FT_New_Face(library, TTF_FONT, 0, @face) <> 0) Then
Print "FT_New_Face() failed (font file '" & TTF_FONT & "' not found?)" : Sleep : End 1
End If
If (FT_Set_Pixel_Sizes(face, 0, 200) <> 0) Then
Print "FT_Set_Pixel_Sizes() failed" : Sleep : End 1
End If
If (FT_Load_Char(face, Asc("@"), FT_LOAD_DEFAULT) <> 0) Then
Print "FT_Load_Char() failed" : Sleep : End 1
End If
If (FT_Render_Glyph(face->glyph, FT_RENDER_MODE_NORMAL) <> 0) Then
Print "FT_Render_Glyph() failed" : Sleep : End 1
End If
''
'' Рисование битмапа
''
ScreenRes 320, 200, 32
Dim As FT_Bitmap Ptr bitmap = @face->glyph->bitmap
For y As Integer = 0 To (bitmap->rows - 1)
For x As Integer = 0 To (bitmap->Width - 1)
Dim As Integer col = bitmap->buffer[y * bitmap->pitch + x]
PSet(x, y), RGB(col, col, col)
Next
Next
Sleep
#include "freetype2/freetype.bi"
#ifdef __FB_LINUX__
Const TTF_FONT = "/usr/share/fonts/truetype/ttf-dejavu/DejaVuSans.ttf"
#else
Const TTF_FONT = "Vera.ttf"
#endif
Dim As FT_Library library
If (FT_Init_FreeType(@library) <> 0) Then
Print "FT_Init_FreeType() failed" : Sleep : End 1
End If
''
'' Загрузка шрифта и рендеринг символа '@' на битмапе
''
Dim As FT_Face face
If (FT_New_Face(library, TTF_FONT, 0, @face) <> 0) Then
Print "FT_New_Face() failed (font file '" & TTF_FONT & "' not found?)" : Sleep : End 1
End If
If (FT_Set_Pixel_Sizes(face, 0, 200) <> 0) Then
Print "FT_Set_Pixel_Sizes() failed" : Sleep : End 1
End If
If (FT_Load_Char(face, Asc("@"), FT_LOAD_DEFAULT) <> 0) Then
Print "FT_Load_Char() failed" : Sleep : End 1
End If
If (FT_Render_Glyph(face->glyph, FT_RENDER_MODE_NORMAL) <> 0) Then
Print "FT_Render_Glyph() failed" : Sleep : End 1
End If
''
'' Рисование битмапа
''
ScreenRes 320, 200, 32
Dim As FT_Bitmap Ptr bitmap = @face->glyph->bitmap
For y As Integer = 0 To (bitmap->rows - 1)
For x As Integer = 0 To (bitmap->Width - 1)
Dim As Integer col = bitmap->buffer[y * bitmap->pitch + x]
PSet(x, y), RGB(col, col, col)
Next
Next
Sleep