Initial commit
This commit is contained in:
368
BitmapText.pbi
Normal file
368
BitmapText.pbi
Normal file
@@ -0,0 +1,368 @@
|
||||
;-NewBitmap
|
||||
|
||||
Structure myFontData
|
||||
x.l
|
||||
y.l
|
||||
Width.l
|
||||
Height.l
|
||||
EndStructure
|
||||
|
||||
Structure BitmapFont
|
||||
SpriteId.i
|
||||
FirstClipSpriteId.l
|
||||
AsciiStart.c
|
||||
AsciiEnd.c
|
||||
Array Tab.l(10)
|
||||
Array FontData.myFontData(1)
|
||||
EndStructure
|
||||
|
||||
Global NewList BitmapFont.BitmapFont()
|
||||
|
||||
Procedure.i CatchBitmapFont(FirstClipSpriteId.l,FontFileName.S)
|
||||
Protected z.l
|
||||
Protected *Mem,*Dat
|
||||
*Mem=AddElement(BitmapFont())
|
||||
BitmapFont()\FirstClipSpriteId=FirstClipSpriteId
|
||||
|
||||
*Dat=ReadDataPackage("Datas.pck",FontFileName+".dat")
|
||||
BitmapFont()\AsciiStart=PeekB(*Dat)
|
||||
BitmapFont()\AsciiEnd=PeekB(*Dat+1)
|
||||
;Debug BitmapFont()\AsciiStart
|
||||
;Debug BitmapFont()\AsciiEnd
|
||||
;ShowMemoryViewer(*Dat,MemorySize(*Dat))
|
||||
;End
|
||||
ReDim BitmapFont()\FontData(BitmapFont()\AsciiEnd-BitmapFont()\AsciiStart)
|
||||
CopyMemory(*Dat+2,@BitmapFont()\FontData(),SizeOf(myFontData)*ArraySize(BitmapFont()\FontData()))
|
||||
FreeMemory(*Dat)
|
||||
; If OpenFile(0,"Datas/"+FileName+".dat")
|
||||
; BitmapFont()\AsciiStart=ReadCharacter(0,#PB_Ascii)
|
||||
; BitmapFont()\AsciiEnd=ReadCharacter(0,#PB_Ascii)
|
||||
; ReDim BitmapFont()\FontData(BitmapFont()\AsciiEnd-BitmapFont()\AsciiStart)
|
||||
; ReadData(0,@BitmapFont()\FontData(),SizeOf(myFontData)*ArraySize(BitmapFont()\FontData()))
|
||||
; CloseFile(0)
|
||||
; EndIf
|
||||
BitmapFont()\SpriteId=CatchSpriteFromPackage(#PB_Any,FontFileName+".png");LoadSprite(#PB_Any,"Datas/"+FileName+".png",#PB_Sprite_AlphaBlending)
|
||||
If IsSprite(BitmapFont()\SpriteId)
|
||||
For z=0 To ArraySize(BitmapFont()\FontData())
|
||||
RecordSprite(FirstClipSpriteId+z,BitmapFont()\SpriteId,BitmapFont()\FontData(z)\x,BitmapFont()\FontData(z)\y,BitmapFont()\FontData(z)\Width,BitmapFont()\FontData(z)\Height,BitmapFont()\FontData(z)\Width/BitmapFont()\FontData(z)\Height, 1)
|
||||
Next
|
||||
Else
|
||||
Debug "error load font"
|
||||
End
|
||||
EndIf
|
||||
ProcedureReturn *Mem
|
||||
EndProcedure
|
||||
|
||||
|
||||
Procedure.i LoadBitmapFont(FirstClipSpriteId.l,FileName.s="MonoFont")
|
||||
Protected z.l
|
||||
Protected *Mem
|
||||
*Mem=AddElement(BitmapFont())
|
||||
BitmapFont()\FirstClipSpriteId=FirstClipSpriteId
|
||||
If OpenFile(0,"Datas/"+FileName+".dat")
|
||||
BitmapFont()\AsciiStart=ReadCharacter(0,#PB_Ascii)
|
||||
BitmapFont()\AsciiEnd=ReadCharacter(0,#PB_Ascii)
|
||||
ReDim BitmapFont()\FontData(BitmapFont()\AsciiEnd-BitmapFont()\AsciiStart)
|
||||
ReadData(0,@BitmapFont()\FontData(),SizeOf(myFontData)*ArraySize(BitmapFont()\FontData()))
|
||||
CloseFile(0)
|
||||
EndIf
|
||||
Debug FileName+".png"
|
||||
BitmapFont()\SpriteId=LoadSprite(#PB_Any,"Datas/"+FileName+".png",#PB_Sprite_AlphaBlending)
|
||||
If IsSprite(BitmapFont()\SpriteId)
|
||||
For z=0 To ArraySize(BitmapFont()\FontData())
|
||||
RecordSprite(FirstClipSpriteId+z,BitmapFont()\SpriteId,BitmapFont()\FontData(z)\x,BitmapFont()\FontData(z)\y,BitmapFont()\FontData(z)\Width,BitmapFont()\FontData(z)\Height,BitmapFont()\FontData(z)\Width/BitmapFont()\FontData(z)\Height, 1)
|
||||
Next
|
||||
Else
|
||||
Debug "error load font"
|
||||
End
|
||||
EndIf
|
||||
ProcedureReturn *Mem
|
||||
EndProcedure
|
||||
|
||||
Procedure TextBitmapWidth(string.s)
|
||||
Protected l.l,c.l,n.l,width.l,size.l=0
|
||||
Protected tabIndex.l=0
|
||||
For l=0 To Len(String)-1
|
||||
c=Asc(Mid(String,l+1,1));-BitmapFont()\AsciiStart
|
||||
width=0
|
||||
If c=9 ; TAB
|
||||
Width=BitmapFont()\Tab(tabIndex) -Size
|
||||
tabIndex=tabIndex+1
|
||||
ElseIf c=32; Espace and _
|
||||
Width=GUI\HalfBlockSize
|
||||
Else
|
||||
c=c-BitmapFont()\AsciiStart
|
||||
If c>=1 And c<BitmapFont()\AsciiEnd
|
||||
Width=(BitmapFont()\FontData(c)\Width)*GUI\BlockSize/BitmapFont()\FontData(0)\Height*0.85
|
||||
Else
|
||||
|
||||
Width=GUI\HalfBlockSize
|
||||
EndIf
|
||||
EndIf
|
||||
size=size+Width
|
||||
Next
|
||||
ProcedureReturn size
|
||||
EndProcedure
|
||||
|
||||
Procedure DrawingBitmapFont(FontId)
|
||||
If FontId>-1 And FontID<ListSize(BitmapFont())
|
||||
SelectElement(BitmapFont(),FontId)
|
||||
EndIf
|
||||
EndProcedure
|
||||
|
||||
Procedure DrawBitmapText(X.l,Y.l,String.s,Alpha.l=255)
|
||||
Protected l.l,p.l,c.l,Spr.l,width.l
|
||||
Protected tabIndex.l=0
|
||||
For l=0 To Len(String)-1
|
||||
c=Asc(Mid(String,l+1,1))
|
||||
width=0
|
||||
If c=9 ;TAB
|
||||
Width=BitmapFont()\Tab(tabIndex) -X
|
||||
tabIndex=tabIndex+1
|
||||
ElseIf c=32; Espace
|
||||
Width=GUI\HalfBlockSize
|
||||
Else
|
||||
c=c-BitmapFont()\AsciiStart
|
||||
If c>=1 Or c<BitmapFont()\AsciiEnd
|
||||
spr=BitmapFont()\FirstClipSpriteId+c
|
||||
DisplayClipSprite(Spr,X ,Y,Alpha)
|
||||
Width=(BitmapFont()\FontData(c)\Width) * GUI\BlockSize/BitmapFont()\FontData(0)\Height*0.85
|
||||
Else
|
||||
Width=GUI\HalfBlockSize
|
||||
EndIf
|
||||
EndIf
|
||||
X=X+Width
|
||||
Next
|
||||
EndProcedure
|
||||
|
||||
Structure TextTitle
|
||||
FondId.l
|
||||
Text.s
|
||||
Alpha.l
|
||||
Selected.b
|
||||
EndStructure
|
||||
Structure Titles
|
||||
List Title.TextTitle()
|
||||
ScrollY.f ;Must be Float to scroll with low resolution
|
||||
StartTime.q
|
||||
LineSpacing.f
|
||||
Alpha.f
|
||||
Center.b ; #True center Text #False No center
|
||||
Event.l ;
|
||||
Speed.l ;6000
|
||||
EndStructure
|
||||
|
||||
Structure TextData
|
||||
FontId.l
|
||||
String.s
|
||||
X.l
|
||||
Y.l
|
||||
Width.l
|
||||
Height.l
|
||||
Opacity.l
|
||||
Align.c
|
||||
Depth.l
|
||||
Autodestroy.b
|
||||
EndStructure
|
||||
|
||||
Global NewList Texts.TextData()
|
||||
|
||||
Procedure NewText(FontId.l,String.s,X.l,Y.l,Opacity.l=255,Depth.l=#Spr_Depth_Front,Align=9)
|
||||
Protected *Mem
|
||||
*Mem=AddElement(Texts())
|
||||
Texts()\FontId=FontId
|
||||
Texts()\String=String
|
||||
Texts()\X=X
|
||||
Texts()\Y=Y
|
||||
Texts()\Opacity=Opacity
|
||||
Texts()\Depth=Depth
|
||||
Texts()\Align=Align
|
||||
DrawingBitmapFont(FontId)
|
||||
Texts()\Width=TextBitmapWidth(String)
|
||||
Texts()\Height=GUI\BlockSize
|
||||
ProcedureReturn *Mem
|
||||
EndProcedure
|
||||
|
||||
|
||||
Procedure ChangeText(*TextData.TextData,String.s)
|
||||
*TextData\String=String
|
||||
DrawingBitmapFont(*TextData\FontId)
|
||||
*TextData\Width=TextBitmapWidth(String)
|
||||
EndProcedure
|
||||
|
||||
Procedure DisplayText(*Text.TextData)
|
||||
Protected X.l
|
||||
Protected Y.l
|
||||
If *Text\Align & #Align_Hor_Left = #Align_Hor_Left
|
||||
X=*Text\X
|
||||
EndIf
|
||||
|
||||
If *Text\Align & #Align_Hor_Middle = #Align_Hor_Middle
|
||||
X=*Text\X-*Text\Width/2;* Texts()\Size
|
||||
EndIf
|
||||
|
||||
If *Text\Align & #Align_Hor_Right = #Align_Hor_Right
|
||||
X=*Text\X-*Text\Width ;* Texts()\Size
|
||||
EndIf
|
||||
|
||||
If *Text\Align & #Align_Ver_Top = #Align_Ver_Top
|
||||
Y=*Text\Y
|
||||
EndIf
|
||||
|
||||
If *Text\Align & #Align_Ver_Middle=#Align_Ver_Middle
|
||||
Y=*Text\Y-*Text\Height/2;* Texts()\Size
|
||||
EndIf
|
||||
If *Text\Align & #Align_Ver_Bottom= #Align_Ver_Bottom
|
||||
Y=*Text\Y-*Text\Height;* Texts()\Size
|
||||
EndIf
|
||||
DrawingBitmapFont(*Text\FontId)
|
||||
DrawBitmapText(X,Y,*Text\String,*Text\Opacity)
|
||||
;Debug Str(*Text\FontId)+" "+*Text\String
|
||||
EndProcedure
|
||||
|
||||
Procedure DisplayTexts(Depth.l=#Spr_ALL)
|
||||
|
||||
Debug ListSize(Texts())
|
||||
ForEach Texts()
|
||||
If Depth=#Spr_ALL Or Texts()\Depth=Depth
|
||||
DisplayText(Texts())
|
||||
EndIf
|
||||
Next
|
||||
EndProcedure
|
||||
|
||||
Procedure ClearAllText()
|
||||
ClearList(Texts())
|
||||
EndProcedure
|
||||
;-Tilte
|
||||
|
||||
Global Titles.Titles
|
||||
|
||||
Procedure ClearTitles()
|
||||
ClearList(Titles\Title())
|
||||
Titles\Event=-1
|
||||
Titles\ScrollY=0
|
||||
Titles\Speed=6000
|
||||
Titles\StartTime=ElapsedMilliseconds()
|
||||
EndProcedure
|
||||
|
||||
Procedure TitlesCenter(Center.b=#True)
|
||||
Titles\Center=Center
|
||||
EndProcedure
|
||||
|
||||
Procedure TitlesEvent(Event.l);todo Je suis rendu là
|
||||
Titles\Event=Event
|
||||
EndProcedure
|
||||
|
||||
Procedure AddTitle(Text.s,FontId=-1,Alpha.l=255,Selected.b=#False)
|
||||
AddElement(Titles\Title())
|
||||
Titles\Title()\Text=Text
|
||||
Titles\Title()\FondId=FontId
|
||||
Titles\Title()\Alpha=Alpha
|
||||
Titles\Title()\Selected=Selected
|
||||
EndProcedure
|
||||
|
||||
;-####################################
|
||||
|
||||
;AddElement(Title()):Title()="Copyright 1990 Software LTD"
|
||||
|
||||
Procedure DisplayTitles()
|
||||
If Titles\StartTime=0:Titles\StartTime=ElapsedMilliseconds():EndIf
|
||||
|
||||
If ListSize(Titles\Title())>0
|
||||
Protected RealLineSpacing=Titles\LineSpacing*GUI\BlockSize
|
||||
Protected LineHeight.f=GUI\BlockSize+RealLineSpacing
|
||||
|
||||
Titles\ScrollY=Titles\ScrollY+ ScreenHeight()*(ElapsedMilliseconds()-Titles\StartTime)/Titles\Speed ;6000
|
||||
If Titles\ScrollY>ScreenHeight()+ ListSize(Titles\Title())* LineHeight
|
||||
If Titles\Event>-1:
|
||||
PostEventGUI(Titles\Event)
|
||||
EndIf
|
||||
Titles\ScrollY=0
|
||||
EndIf
|
||||
ForEach Titles\Title()
|
||||
DrawingBitmapFont(Titles\Title()\FondId)
|
||||
Protected.l Y=ScreenHeight() + ListIndex(Titles\Title()) * LineHeight - Titles\ScrollY
|
||||
If Y>-LineHeight And Y<ScreenHeight()
|
||||
Protected X.l
|
||||
If Titles\Center=#True
|
||||
X=(ScreenWidth()-TextBitmapWidth(Titles\Title()\Text))/2
|
||||
Else
|
||||
X=0
|
||||
EndIf
|
||||
Protected Alpha.l
|
||||
If Titles\Title()\Alpha=255
|
||||
Alpha=Titles\Alpha
|
||||
Else
|
||||
Alpha=Titles\Title()\Alpha * Titles\Alpha / 255
|
||||
EndIf
|
||||
If Titles\Title()\Selected=#True
|
||||
DisplayClipSprite(#Spr_White,0,Y,200,1,ScreenWidth(),GUI\BlockSize)
|
||||
EndIf
|
||||
DrawBitmapText(X,Y,Titles\Title()\Text,Alpha)
|
||||
EndIf
|
||||
Next
|
||||
Titles\StartTime=ElapsedMilliseconds()
|
||||
EndIf
|
||||
EndProcedure
|
||||
|
||||
;- Message
|
||||
|
||||
Structure Message
|
||||
String.s
|
||||
Font.l
|
||||
StartTime.q
|
||||
Duration.l
|
||||
FadeDuration.l
|
||||
MessStep.l
|
||||
EndStructure
|
||||
|
||||
Global NewList Message.Message()
|
||||
|
||||
Procedure NewMessage(String.s,Font.l=0,Duration.l=2000,FadeDuration.l=500)
|
||||
AddElement(Message())
|
||||
Message()\String=String
|
||||
Message()\Font=Font
|
||||
Message()\Duration=Duration
|
||||
Message()\FadeDuration=FadeDuration
|
||||
EndProcedure
|
||||
|
||||
Procedure DisplayMessage()
|
||||
If FirstElement(Message())
|
||||
Protected Fade.l
|
||||
Select Message()\MessStep
|
||||
Case 0;In
|
||||
If Message()\StartTime=0:Message()\StartTime=ElapsedMilliseconds()+Message()\FadeDuration:EndIf
|
||||
Fade=255-Int((Message()\StartTime-ElapsedMilliseconds())*255/Message()\FadeDuration)
|
||||
If ElapsedMilliseconds()>Message()\StartTime
|
||||
Message()\MessStep=Message()\MessStep+1
|
||||
Message()\StartTime=0
|
||||
EndIf
|
||||
Case 1; Display
|
||||
If Message()\StartTime=0:Message()\StartTime=ElapsedMilliseconds()+Message()\Duration:EndIf
|
||||
If ElapsedMilliseconds()>Message()\StartTime
|
||||
Message()\MessStep=Message()\MessStep+1
|
||||
Message()\StartTime=0
|
||||
EndIf
|
||||
Fade=255
|
||||
Case 2;
|
||||
If Message()\StartTime=0:Message()\StartTime=ElapsedMilliseconds()+Message()\FadeDuration:EndIf
|
||||
Fade=Int((Message()\StartTime-ElapsedMilliseconds())*255/Message()\FadeDuration)
|
||||
If ElapsedMilliseconds()>Message()\StartTime
|
||||
Message()\MessStep=Message()\MessStep+1
|
||||
Message()\StartTime=0
|
||||
EndIf
|
||||
Case 3
|
||||
EndSelect
|
||||
DrawingBitmapFont(Message()\Font)
|
||||
Protected Width.l=TextBitmapWidth(Message()\String)
|
||||
DrawBitmapText((ScreenWidth()-Width)/2,GUI\BenchY+GUI\BenchHeight,Message()\String,Fade)
|
||||
If Message()\MessStep=3
|
||||
DeleteElement(Message())
|
||||
EndIf
|
||||
EndIf
|
||||
EndProcedure
|
||||
; IDE Options = PureBasic 6.11 LTS (Windows - x64)
|
||||
; CursorPosition = 255
|
||||
; FirstLine = 255
|
||||
; Folding = ---
|
||||
; EnableXP
|
||||
Reference in New Issue
Block a user