Subversion Repositories Kolibri OS

Compare Revisions

Ignore whitespace Rev 6214 → Rev 6215

/programs/gui_patterns.inc
0,0 → 1,20
macro DrawBar x, y, width, height, color
{
mcall 13, (x) shl 16 + (width), (y) shl 16 + (height), color
}
 
macro DrawRectangle x, y, w, h, color
{
DrawBar x,y,w,1,color
DrawBar x,y+h,w,1
DrawBar x,y,1,h
DrawBar x+w,y,1,h+1
}
 
macro DrawRectangle3D x, y, w, h, color1, color2
{
DrawBar x,y,w,1,color1
DrawBar x,y,1,h
DrawBar x,y+h,w,1,color2
DrawBar x+w,y,1,h+1
}