#include <WINGs/WINGs.h>
#include <WINGs/WINGsP.h>

#define WINWIDTH 200
#define WINHEIGHT 300

Display *display;
WMScreen *screen;
WMPixmap* pixmap;

void closeAction(WMWidget *self,void *data)
{
  WMDestroyWidget(self);
  exit(0);
}

void drawProcedure(XEvent *event, void *data)
{
  WMDrawPixmap(pixmap, W_VIEW_DRAWABLE(WMWidgetView(data)), 30, 30);
}


int main(int argc, char **argv)
{
  WMColor *color;
  WMWindow * win;
  RImage *image;

  RColor one, two = { 0xAF, 0x0F, 0xFF, 0x33 };
  one.red   = 0x20;
  one.green = 0x20;
  one.blue  = 0x20;
  one.alpha = 0xFF;

  WMInitializeApplication("DrawWin", &argc, argv);
  display = XOpenDisplay("");
  screen = WMCreateScreen(display, DefaultScreen(display));
  win = WMCreateWindow(screen, "");
  WMResizeWidget(win, WINWIDTH, WINHEIGHT);
  WMSetWindowCloseAction(win, closeAction, NULL);
  WMSetWindowTitle(win, "Graphics");
  color = WMCreateRGBColor(screen, 124<<9, 206<<8, 162<<8, False);
  WMSetWidgetBackgroundColor((WMWidget *)win, color);

  /* end setup main window */

  image = RCreateImage(100, 100, 0.8);
  RFillImage(image, &two);
  RDrawLine(image, 50, 10, 90, 90, &one);
  RDrawLine(image, 10, 90, 50, 10, &one);
  RDrawLine(image, 10, 90, 90, 90, &one);

  WMRealizeWidget(win);

  pixmap = WMCreatePixmapFromRImage(screen, image, 1);
  WMCreateEventHandler(WMWidgetView(win), ExposureMask, drawProcedure, win);

  WMMapWidget(win);
  WMScreenMainLoop(screen);
}