main.c

这是写GBABOX前写的一个delphi程序

	// main.c 
        #include "gbadef.h"
	#define MAX 10240							 // 最大字符数
	// 包含中文字库数据的头文件
	#include "gfx/GBAZK.h"
         
// ----------- 全局变量 --------
	// 图像缓冲区
	u16* video_buffer=(u16*)VRAM;
	int convert(u16 str,int n);
	void DrawPixel(int x, int y, int r, int g, int b);
	void DrawText(unsigned char *str,int x,int y,int r,int g,int b);
 
// ----------- 主程序 ------------
	int main()
	{    
                SetMode (MODE_5 | BG2_ENABLE); 
		DrawText("林少甫孵软小站",10,10,255,255,255);
		DrawText("ＷＷＷ．ＧＸＺＬＹ",10,40,255,0,255);
		DrawText("．ＣＯＭ／ＬＳＦ",30,60,255,255,0);
		while (1) {;}
	}

//- 写中文字符函数 ----------------
	void DrawText(unsigned char *str,int x,int y,int r,int g,int b)
	{
		int i,j,k,n;
		// 字符所在区,位,实际位置
		int qu, wei, location;

		while(*str)
		{
			// 得到单字的区位码
			qu = *(str++)-0xa0; 
			wei = *(str++)-0xa0; 
			location = qu*94+wei; 
			
			// 在字库里查找
			for(n=0 ;n<NUM_STR;n++)
			{
				if(ZKQW[n]==location)
				{
					// 根据字符数据画出字符
					for(i=0;i<16;i++)
						for(j=0;j<2;j++)
							for(k=0;k<8;k++) 
								if(convert(ZKDATA[n*32+i*2+j],7-k))
									DrawPixel(x+j*8+k,y+i,r,g,b); 
					x+=16; 
				}
			}
		}
	}


	int convert(u16 str,int n) 
	{ 
		return((str>>n)&0x1); 
	} 

//- 画点函数 ---------------------
	void DrawPixel(int x, int y, int r, int g, int b)
	{
		video_buffer[x+y*160] = RGB(r,g,b);
	}