编写字库汉化程序~VB篇/VC篇 by sumiya

大概1年前些过程序生成字库的程序,今天又要用到了,结果找了半天找不到,只好再重新写一遍了,这个就是当时参考的教程,很不错的。

 

显示:

1BPP_VB

1BPP_VC

4BPP_VB

4BPP_VC

 

写入

1BPP_VB

4BPP_VB

 

------------------------------------------------------------------------------------------------------------------

 

转自:tgb论坛,原地址

 

在原理篇中已经讲解了字库的原理,下面从字库显示开始讲解如何用VB编写字库程序。

 


1BPP

仍然借用这个图:

            行   2进制数    转换为16进制
|_|_|_|_|_|_|_|_|   0 00000000     0
|_|_|_|X|X|_|_|_|   1 00011000     18
|_|_|X|_|_|X|_|_|   2 00100100     24
|_|X|_|_|_|_|X|_|   3 以下省略…………
|_|X|_|_|_|_|X|_|   4 ……………………
|_|X|X|X|X|X|X|_|
|_|X|_|_|_|_|X|_|
|_|X|_|_|_|_|X|_|   8 ……         一共8Byte

1、首先要打开ROM:
Dim sRomName as String      定义一个字符串来存放ROM路径
sRomName = "你存放ROM的绝对路径,比如:E:/0001.gba"
Open sRomName For Binary as #1 在1号工作区以2进制方式打开ROM

2、把字模数据读到数组以便处理
Dim bTileArray(7) as Byte      定义一个8Byte的数组用于存放字模数据
Get #1,字模开始地址,bTileArray   从1号工作区的字模开始地址处,获取字模数据

3、虚拟一部分调色板
Dim bPalID as Byte         定义一个Byte变量存放颜色编号
Dim iPalCol(1) as Integer        虚拟一部分调色板
iPalCol(0) = 0x00           将虚拟调色板的0号颜色设为黑
iPalCol(1) = 0xFFFFFF          将1号颜色设为白

4、按顺序把每个2进制位的值提取出来
Dim bTile as Byte          临时存放1byte字模数据
Dim iX,iY as Integer         定义两个整数变量记录当前在字模里的坐标
For iY = 0 To 7            设定循环,这里表示字模纵向有8行
bTile = bTileArray(iY)         临时存放1Byte数据,方便处理
For iX = 0 To 7            设定循环,这里表示字模横向有8列
bPalID = bTile/256          获取最高点的2进制位的值,作为编号

5、虚拟GBA硬件的索引过程
Pictrue1.Pset(iX,iY),RGB(iPalCol(bPalID))
上面这句是:用编号索引到虚拟调色板iPalCol的bPalID号颜色,再把这个颜色画到图象框控件Picture1的(iX,iY)点上。

6、将临时数据左移1位,这样第2高的2进制位就变最高位
bTile = (bTile and 0x7F) * 2

7、继续处理下面的数据
Next iX
Next iY

8、关闭工作区和ROM
Close #1


这里的程序只能处理1个字模,如果要1次显示多个字模就要多设定一个字数循环,并让数据读取的首地址根据字数递增而递增。

 

 

上面1BPP的程序写成VC MFC的格式,就是这个(原理是一模一样的):

1、打开ROM
CString sRomName="E:/rom.gba";
CFile Rom;
Rom.Open(_T(sRomName),CFile::modeReadWrite|CFile::shareDenyNone)

获取图象框的“设备上下文”(Device Content),下面画点的时候要用。
CWnd *pImg=GetDlgItem(IDC_STATIC) 获取图象框指针
CDC *pDC=pImg->GetDC(); 获取图象框DC

2、读取TILE
BYTE bTileArray[8];
Rom.Seek(字模开始地址,CFile::begin);
Rom.Read(bTileArray,8);

3、虚拟调色板
BYTE bPalID;
int iPalCol[2]={0x00,0xFFFFFF};

4、提取编号
BYTE bTile;
for(int iY=0;iY<7;iY++)
{
  bTile=bTileArray[iY];
  for(int iX=0;iX<7;iX++)
  {
    bPalID=bTile/256;

5、索引颜色并画点
    pDC->SetPixel(iX,iY,RGB(iPalCol(bPalID)));

6、移位操作
    bTile=(bTile & 0x7F) * 2;
  }
}

7、关闭ROM
Rom.Close();
……省略一些扫尾工作,不影响正常的显示

 

 

4BPP

1、打开ROM:
Dim sRomName as String
sRomName = "E:/0001.gba"
Open sRomName For Binary as #1

2、把字模数据读到数组(4*8=32,一共要读32Byte)
Dim bTileArray(31) as Byte      32Byte的数组用于存放字模数据
Get #1,字模开始地址,bTileArray

3、虚拟调色板
Dim bPalIDLeft,bPalIDRight as Byte
Dim iPalCol(1) as Integer
iPalCol(0) = 0x00           黑色
iPalCol(1) = 0xFFFFFF         白色
iPalCol(2) = 0xD0D0D0        灰色
iPalCol(3) = ……
……
……
iPalCol(15) = ……        4BPP能表示0~15这16个数,可以根据需要赋值

4、按顺序把每4个2进制位的值提取出来
Dim bTile as Byte          
Dim iX,iY as Integer         
For iY = 0 To 7            
For iX = 0 To 7 Step 2
bTile = bTileArray(iY*4+iX/2)    临时存放1byte,1Byte=8bit,含2个Pixel
bPalIDRight = (bTile and 0xF0)/16    获取前4Bit的值,作为右边像素点的颜色编号

5、处理后4Bit
bPalIDLeft = bTile and 0x0F
    
6、虚拟GBA硬件的索引过程
Pictrue1.Pset(iX,iY),RGB(iPalCol(bPalIDLeft))      画左边的像素点
Pictrue1.Pset(iX+1,iY),RGB(iPalCol(bPalIDRight))    画右边的像素点

7、继续处理下面的数据
Next iX
Next iY

8、关闭工作区和ROM
Close #1

 

4BPP VC

CString sRomName="E:/rom.gba";
CFile Rom;
Rom.Open(_T(sRomName),CFile::modeReadWrite|CFile::shareDenyNone);

CWnd *pImg=GetDlgItem(IDC_STATIC);
CDC *pDC=pImg->GetDC();

BYTE bTileArray[32];
Rom.Seek(字模开始地址,CFile::begin);
Rom.Read(bTileArray,32);

BYTE bPalIDLeft,bPalIDRight;
int iPalCol[16]={0x00,0xFFFFFF,0xD0D0D0,……根据需要设定颜色,这里仍然是白底黑字、带灰色阴影};

BYTE bTile;
for(int iY=0;iY<7;iY++)
{
  for(int iX=0;iX<7;iX+=2)
  {
    bTile=bTileArray(iY*4+iX/2);
    bPalIDRight=(bTile & 0xF0)/16;

    bPalIDLeft=bTile & 0x0F;

    pDC->SetPixel(iX,iY,RGB(iPalCol(bPalIDLeft)));
    pDC->SetPixel(iX+1,iY,RGB(iPalCol(bPalIDRight)));

  }
}
Rom.Close();

 

 

1BPP VB篇

字模写入过程

1、先要用程序画一个中文字符
2、根据字库原理,把字符转换为2进制数据串
3、把数据串写进ROM

用程序实现上面过程

1、在图象框画字符

设定字体大小、字体名
With Picture1.Font
.Size = 9
.Name = "宋体"
End With

设定前景色,这里是字体的颜色,设为白色
Picture1.ForeColor = White

设定背景色,这里设为黑色。
Picture1.BackColor = Black

在图象框画字符
Picture1.Print "你要写入字库的字,比如'我'字"

2、按顺序获取像素点颜色,并转换为2进制串

Dim iPixelCol as Integer  '用于存放获取的像素点颜色
Dim bTileArray[7] as Byte  '用于存放字模2进制串
Dim bTile as Byte      '用于临时存放8个2进制位(1Byte)
Dim iX,iY as Integer     '用于存放坐标

For iY = 0 to 7       纵向8行循环
For iX = 0 to 7       横向8列循环

获取像素点颜色值
iPixelCol = Picture1.Point(iX,iY)

转换为2进制数据
If iPixelCol<>0 Then     如果像素点不是黑色
bTile = (bTile+1)*2       给最低位赋值为1(因为白色是1号颜色)并左移1位
Else             如果是黑色
bTile = (bTile+0)*2       给最低位赋值0(黑色是0号颜色)并左移1位
End If

Next iX           转换下一个像素点

bTileArray[iY] = bTile    把临时存放的8个2进制位放到2进制串里
bTile = 0          把bTile的8个位清0,以便进行下一行的转换

Next iY           进入下一行的转换

3、把2进制串写入ROM

打开ROM
Dim sRomName as String
sRomName = "E:/rom.gba"
Open sRomName For Binary as #1

写入
Put #1,新字模开始地址,bTileArray

关闭ROM
Close #1

 

4BPP VB篇

With Picture1.Font
.Size = 9
.Name = "宋体"
End With

Picture1.ForeColor = White

Picture1.BackColor = Black

Picture1.Print "我"

Dim iPixelCol as Integer
Dim bTileArray[31] as Byte
Dim bTile as Byte
Dim iX,iY as Integer

For iY = 0 to 7
For iX = 0 to 7 Step 2

iPixelCol = Picture1.Point(iX+1,iY)     右边的像素点

If iPixelCol<>0 Then
bTile = (bTile+1)*16
Else
bTile = (bTile+0)*16
End If

iPixelCol = Picture1.Point(iX,iY)     左边的像素点

If iPixelCol<>0 Then
bTile = bTile+1
Else
bTile = bTile+0
End If

bTileArray[iY*4+iX/2] = bTile

bTile = 0

Next iX

Next iY

Dim sRomName as String
sRomName = "E:/rom.gba"
Open sRomName For Binary as #1

Put #1,新字模开始地址,bTileArray

Close #1

如果要做字的阴影效果,只需要:
1、把背景模式设定为“透明”
2、先把前景色设定为灰色
3、画1个向右下偏移1像素的灰色字符
4、把前景色设定为白色
5、画白色字符
6、在转换的时候加入对阴影的处理

 

你可能感兴趣的:(工作,String,Integer,mfc,vb,byte)