大概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,RGB(iPalCol(bPalIDLeft)) 画左边的像素点 Pictrue1.Pset(iX+1,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(字模开始地址,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,RGB(iPalCol(bPalIDLeft))); pDC->SetPixel(iX+1,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 WithPicture1.ForeColor = WhitePicture1.BackColor = BlackPicture1.Print "我"Dim iPixelCol as IntegerDim bTileArray[31] as ByteDim bTile as ByteDim iX,iY as IntegerFor iY = 0 to 7For iX = 0 to 7 Step 2iPixelCol = Picture1.Point(iX+1,iY) 右边的像素点If iPixelCol<>0 ThenbTile = (bTile+1)*16ElsebTile = (bTile+0)*16End IfiPixelCol = Picture1.Point(iX,iY) 左边的像素点If iPixelCol<>0 ThenbTile = bTile+1ElsebTile = bTile+0End IfbTileArray[iY*4+iX/2] = bTilebTile = 0Next iXNext iYDim sRomName as StringsRomName = "E:/rom.gba"Open sRomName For Binary as #1Put #1,bTileArrayClose #1如果要做字的阴影效果,只需要:1、把背景模式设定为“透明”2、先把前景色设定为灰色3、画1个向右下偏移1像素的灰色字符4、把前景色设定为白色5、画白色字符6、在转换的时候加入对阴影的处理 (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|