// GDI.LIB - Interfaces to some of Windows' graphics routines
//
// Contributed in its initial form to the CEnvi library by Jari Karjala.
// Thank you Jari.


MoveTo(hdc, x1,y1)
{
   DynamicLink("GDI","MOVETO",SWORD16,PASCAL,hdc,x1,y1);
}

LineTo(hdc, x1,y1)
{
   DynamicLink("GDI","LINETO",SWORD16,PASCAL,hdc,x1,y1);
}

Rectangle(hdc, x1,y1, x2,y2)
{
   DynamicLink("GDI","RECTANGLE",SWORD16,PASCAL,hdc,x1,y1,x2,y2);
}

RoundRect(hdc, x1,y1, x2,y2, a,b)
{
   DynamicLink("GDI","ROUNDRECT",SWORD16,PASCAL,hdc,x1,y1,x2,y2,a,b);
}

Ellipse(hdc, x1,y1, x2,y2)
{
   DynamicLink("GDI","ELLIPSE",SWORD16,PASCAL,hdc,x1,y1,x2,y2);
}

SelectObject(hdc, obj)
{
   return DynamicLink("GDI","SELECTOBJECT",SWORD16,PASCAL,hdc,obj);
}

BeginPaint(WindowHandle,PaintStructBLOb)
{
   // Prepare window for painting and fill paint struct blob
   // Return: hdc
   BLObSize(PaintStructBLOb,32);
   return DynamicLink("USER","BEGINPAINT",SWORD16,PASCAL,WindowHandle,PaintStructBLOb);
}

EndPaint(WindowHandle,PaintStructBLOb)
{
   DynamicLink("USER","ENDPAINT",SWORD16,PASCAL,WindowHandle,PaintStructBLOb);
}