Hi Fox
I am not sure about your aim
I think that you are creating a software for mathematical purposes
1- so if you are looking for mathematical notations font (Free) that will be hard to get
2- If you have the symbols even if it is bitmap (bmp,png,tif...) you can use one of the next prog.
to create your own font and load it during execution and that will solve a big problem for you
I mean the unicode characters beyond 256
beside these prog. will trace the bitmap to vector type and assign it to an ascii no.as you like
2-1 Font Creator
2-2 Font Grapher
2-3 FontLab which is the best
and may be you can add effects like BlackBoard
3- Next is a tip that can come close to BlackBoard style
I hope I can give you a hand
Code: Select all
LoadFont(1, "Broadway",16)
;LoadFont(1, "Symbol",20)
Procedure TextOutline(text$,x,y)
StartDrawing(WindowOutput(0))
DrawingFont(FontID(1))
DrawingMode(#PB_2DDrawing_Transparent)
For i = 1 To Len(text$)
FrontColor($0102FE)
tex$ = Mid(Text$,i,1)
DrawText(x-1,y,tex$)
DrawText(x+1,y,tex$)
DrawText(x,y-1,tex$)
DrawText(x,y+1,tex$)
FrontColor($E0FFFF)
DrawText(x,y,tex$)
x = x + TextWidth(Tex$) + 2
Next
StopDrawing()
EndProcedure
If OpenWindow(0, 100, 200, 195, 260, "Test Outline Text", #PB_Window_SystemMenu)
TextOutline("Quality",20,20)
;TextOutline("qrstuvwxy",20,20)
Repeat
EventID.l = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
Until Quit = 1
EndIf
End