Subversion Repositories Kolibri OS

Rev

Rev 5499 | Rev 5526 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5499 Rev 5519
Line 27... Line 27...
27 
:void WriteTextCenter(dword x,y,w,color_t,text)
 27 
:void WriteTextCenter(dword x,y,w,color_t,text)
28 
{
 28 
{
29 
	WriteText(-strlen(text)*6+w/2+x+1,y,0x80,color_t,text);
 29 
	WriteText(-strlen(text)*6+w/2+x+1,y,0x80,color_t,text);
30 
}
 30 
}
Line 31... Line 31...
31 
 
 31 
 
32 
:void DrawCircle(int x, y, r)
 32 
:void DrawCircle(int x, y, r, color)
33 
{
 33 
{
34 
	int i;
 34 
	int i;
35 
	float px=0, py=r, ii = r * 3.1415926 * 2;
 35 
	float px=0, py=r, ii = r * 3.1415926 * 2;
36 
	FOR (i = 0; i < ii; i++)
 36 
	FOR (i = 0; i < ii; i++)
37 
	{
 37 
	{
38 
        PutPixel(px + x, y - py, 0);
 38 
        PutPixel(px + x, y - py, color);
39 
        px = py / r + px;
 39 
        px = py / r + px;
40 
        py = -px / r + py;
 40 
        py = -px / r + py;
41 
	}
 41 
	}