/*=========================================================================*/
/* CDTEST.C - 09/12/95                                                     */
/* Canvas Draw Test.                                                       */
/*=========================================================================*/

/*- Convenccoes Usadas: ---------------------------------------------------*/
/* - Identificadores de funccoes associadas a um callback comeccam por f.  */
/*   Ex: fResize, fRepaint.                                                */
/* - Identificadores de constantes sao escritos em maiusculas.             */
/*   Ex: LINE, ARC, NEWPOINT.                                              */
/* - Identificadores de funcoes internas do programa sao escritas em       */
/*   minusculas.                                                           */
/*   Ex: newpolypoint, dellist.                                            */
/*-------------------------------------------------------------------------*/

#include <stdio.h>
#include <string.h>
#include <stdlib.h>

#include <iup.h>
#include <cd.h>
#include <wd.h>
#include <cd_old.h>
#include <wd_old.h>
#include <cdiup.h>
#include <cdpicture.h>
#include <cddbuf.h>
#include <cdirgb.h>
#include <iupkey.h>

#include "cdtest.h"

/*- Contexto do CD Test: --------------------------------------------------*/
tCTC ctgc;

/*- Parametros geometricos da primitiva sendo desenhada: ------------------*/
tLinePos line_pos;
tBoxPos box_pos;
tPixelPos pixel_pos;
tMarkPos mark_pos;
tArcPos arc_pos;


#ifdef USE_CONTEXTPLUS
static const int use_contextplus = 1;
#else
static const int use_contextplus = 0;
#endif

static const int antialias = 1;


/*-------------------------------------------------------------------------*/
/* Associa os call-backs do IUP.                                           */
/*-------------------------------------------------------------------------*/
void setcallbacks(void)
{
  IupSetFunction("cmdFileExit", (Icallback) fFileExit);
  
  IupSetFunction("cmdEditClear", (Icallback) fEditClear);
  IupSetFunction("cmdEditUndo", (Icallback) fEditUndo);

  IupSetFunction("cmdHelpAbout", (Icallback) fHelpAbout);
  IupSetFunction("cmdCloseAbout", (Icallback) fCloseAbout);

  IupSetFunction("cmdWDCanvas", (Icallback) fWDCanvas);
  IupSetFunction("cmdCloseWD", (Icallback) fCloseWD);
  IupSetFunction("cmdPICCanvas", (Icallback) fPICCanvas);
  IupSetFunction("cmdClosePIC", (Icallback) fClosePIC);

  IupSetFunction("cmdShowDialog", (Icallback) fShowDialog);
  IupSetFunction("cmdLine", (Icallback) fLine);
  IupSetFunction("cmdRect", (Icallback) fRect);
  IupSetFunction("cmdBox", (Icallback) fBox);
  IupSetFunction("cmdArc", (Icallback) fArc);
  IupSetFunction("cmdSector", (Icallback) fSector);
  IupSetFunction("cmdChord", (Icallback) fChord);
  IupSetFunction("cmdPixel", (Icallback) fPixel);
  IupSetFunction("cmdMark", (Icallback) fMark);
  IupSetFunction("cmdText", (Icallback) fText);
  IupSetFunction("cmdPoly", (Icallback) fPoly);
  IupSetFunction("cmdCustom", (Icallback) fCustom);

  IupSetFunction("cmdOptions", (Icallback) fOptions);
  IupSetFunction("cmdOptionsHide", (Icallback) fOptionsHide);
  IupSetFunction("cmdAttributes", (Icallback) fAttributes);
  IupSetFunction("cmdAttributesHide", (Icallback) fAttributesHide);
  IupSetFunction("cmdMsgHide", (Icallback) fMsgHide);
  IupSetFunction("cmdSimulate", (Icallback) fSimulate);
  IupSetFunction("cmdStretchPlay", (Icallback) fStretchPlay);

  IupSetFunction("cmdWriteMode",  (Icallback) fWriteMode);
  IupSetFunction("cmdLineStyle", (Icallback) fLineStyle);
  IupSetFunction("cmdLineCap", (Icallback) fLineCap);
  IupSetFunction("cmdLineJoin", (Icallback) fLineJoin);
  IupSetFunction("cmdFillMode", (Icallback) fFillMode);
  IupSetFunction("cmdFontStyle", (Icallback) fFontStyle);
  IupSetFunction("cmdFontTypeFace", (Icallback) fFontTypeFace);
  IupSetFunction("cmdMarkType", (Icallback) fMarkType);
  IupSetFunction("cmdTextAlignment", (Icallback) fTextAlignment);
  IupSetFunction("cmdHatchStyle", (Icallback) fHatchStyle);
  IupSetFunction("cmdOpacity", (Icallback) fOpacity);

  IupSetFunction("cmdNoBuffering", (Icallback) fNoBuffering);
  IupSetFunction("cmdImageBuffer", (Icallback) fImageBuffer);
  IupSetFunction("cmdRGBBuffer", (Icallback) fRGBBuffer);

  IupSetFunction("cmdInteger", (Icallback) fInteger);
  IupSetFunction("cmdReal", (Icallback) fReal);
  IupSetFunction("cmdDraw", (Icallback) fDraw);

  IupSetFunction("cmdSolid", (Icallback)   fSolid);
  IupSetFunction("cmdHatch", (Icallback)   fHatch);
  IupSetFunction("cmdStipple", (Icallback) fStipple);
  IupSetFunction("cmdPattern", (Icallback) fPattern);

  IupSetFunction("cmdOpenLines", (Icallback) fOpenLines);
  IupSetFunction("cmdClosedLines", (Icallback) fClosedLines);
  IupSetFunction("cmdFill", (Icallback) fFill);
  IupSetFunction("cmdPolyClip", (Icallback) fPolyClip);
  IupSetFunction("cmdPolyBezier", (Icallback) fPolyBezier);

  IupSetFunction("cmdClip", (Icallback) fClip);
  IupSetFunction("cmdClipArea", (Icallback) fClipArea);
  IupSetFunction("cmdClipOff", (Icallback) fClipOff);
  IupSetFunction("cmdClipPoly", (Icallback) fClipPoly);

  IupSetFunction("cmdImage", (Icallback) fImage);
  IupSetFunction("cmdImagePut", (Icallback) fImagePut);
  IupSetFunction("cmdImageGet", (Icallback) fImageGet);

  IupSetFunction("cmdImageRGB", (Icallback) fImageRGB);
  IupSetFunction("cmdImageRGBPut", (Icallback) fImageRGBPut);
  IupSetFunction("cmdImageRGBGet", (Icallback) fImageRGBGet);
}

/*-------------------------------------------------------------------------*/
/* Inicializa o stipple e o pattern exemplo.                               */
/*-------------------------------------------------------------------------*/
void initsamples(void)
{
  int i;

  /* zera os vetores */
  for (i=0; i<100; i++) {
    ctgc.stipple[i] = 0;
    ctgc.pattern[i] = 0xffffffl;
  }

  /* especificaccao do stipple */
  ctgc.stipple[11] = 1;  /*------------*/ 
  ctgc.stipple[21] = 1;  /*  0123456789*/  
  ctgc.stipple[31] = 1;  /*            */  
  ctgc.stipple[41] = 1;  /*9 0000000000*/  
  ctgc.stipple[51] = 1;  /*8 0000111110*/  
                         /*7 0001000110*/  
  ctgc.stipple[12] = 1;  /*6 0010001010*/  
  ctgc.stipple[52] = 1;  /*5 0111110010*/  
  ctgc.stipple[62] = 1;  /*4 0100010010*/  
                         /*3 0100010100*/  
  ctgc.stipple[13] = 1;  /*2 0100011000*/  
  ctgc.stipple[53] = 1;  /*1 0111110000*/  
  ctgc.stipple[73] = 1;  /*0 0000000000*/  
                         /*------------*/  
  ctgc.stipple[14] = 1;    
  ctgc.stipple[54] = 1;
  ctgc.stipple[84] = 1;

  ctgc.stipple[15] = 1; ctgc.stipple[26] = 1;
  ctgc.stipple[25] = 1; ctgc.stipple[66] = 1;
  ctgc.stipple[35] = 1; ctgc.stipple[86] = 1;
  ctgc.stipple[45] = 1; 
  ctgc.stipple[55] = 1; ctgc.stipple[48] = 1;
  ctgc.stipple[85] = 1; ctgc.stipple[58] = 1;
                        ctgc.stipple[68] = 1;
  ctgc.stipple[37] = 1; ctgc.stipple[78] = 1;
  ctgc.stipple[77] = 1; ctgc.stipple[88] = 1;
  ctgc.stipple[87] = 1; 
                        

  /* especificaccao do stipple */
  ctgc.pattern[11] = CD_RED;   /*------------*/
  ctgc.pattern[21] = CD_RED;   /*  0123456789*/               
  ctgc.pattern[31] = CD_RED;   /*            */               
  ctgc.pattern[41] = CD_RED;   /*9 WWWWWWWWWW*/               
  ctgc.pattern[51] = CD_RED;   /*8 WWWWGGGGGW*/               
  ctgc.pattern[12] = CD_RED;   /*7 WWWGGGGGBW*/                                         
  ctgc.pattern[22] = CD_RED;   /*6 WWGGGGGBBW*/                                         
  ctgc.pattern[32] = CD_RED;   /*5 WrrrrrBBBW*/                                         
  ctgc.pattern[42] = CD_RED;   /*4 WrrrrrBBBW*/                                         
  ctgc.pattern[52] = CD_RED;   /*3 WrrrrrBBWW*/                                         
  ctgc.pattern[13] = CD_RED;   /*2 WrrrrrBWWW*/                                         
  ctgc.pattern[23] = CD_RED;   /*1 WrrrrrWWWW*/                                         
  ctgc.pattern[33] = CD_RED;   /*0 WWWWWWWWWW*/                                         
  ctgc.pattern[43] = CD_RED;   /*------------*/                                         
  ctgc.pattern[53] = CD_RED;                                            
  ctgc.pattern[14] = CD_RED;   ctgc.pattern[15] = CD_RED;
  ctgc.pattern[24] = CD_RED;   ctgc.pattern[25] = CD_RED;
  ctgc.pattern[34] = CD_RED;   ctgc.pattern[35] = CD_RED;
  ctgc.pattern[44] = CD_RED;   ctgc.pattern[45] = CD_RED;
  ctgc.pattern[54] = CD_RED;   ctgc.pattern[55] = CD_RED;
  
  ctgc.pattern[26] = CD_BLUE;  ctgc.pattern[37] = CD_BLUE;
  ctgc.pattern[36] = CD_BLUE;  ctgc.pattern[47] = CD_BLUE;
  ctgc.pattern[46] = CD_BLUE;  ctgc.pattern[57] = CD_BLUE;
  ctgc.pattern[56] = CD_BLUE;  ctgc.pattern[67] = CD_BLUE;
  
  ctgc.pattern[48] = CD_BLUE;  ctgc.pattern[62] = CD_GREEN;
  ctgc.pattern[58] = CD_BLUE;  ctgc.pattern[63] = CD_GREEN;
  ctgc.pattern[68] = CD_BLUE;  ctgc.pattern[64] = CD_GREEN;
  ctgc.pattern[78] = CD_BLUE;  ctgc.pattern[65] = CD_GREEN;
                               ctgc.pattern[66] = CD_GREEN;

  ctgc.pattern[73] = CD_GREEN; ctgc.pattern[84] = CD_GREEN;
  ctgc.pattern[74] = CD_GREEN; ctgc.pattern[85] = CD_GREEN;
  ctgc.pattern[75] = CD_GREEN; ctgc.pattern[86] = CD_GREEN;
  ctgc.pattern[76] = CD_GREEN; ctgc.pattern[87] = CD_GREEN;
  ctgc.pattern[77] = CD_GREEN; ctgc.pattern[88] = CD_GREEN;

  ctgc.dashes[0] = 10; 
  ctgc.dashes[1] = 2; 
  ctgc.dashes[2] = 5; 
  ctgc.dashes[3] = 2; 
}

/*-------------------------------------------------------------------------*/
/* Inicializa o CD Test.                                                   */
/*-------------------------------------------------------------------------*/
void CDTestInit(void)
{
  memset(&ctgc, 0, sizeof(ctgc));

  if (use_contextplus) 
  {
#ifdef USE_CONTEXTPLUS
    cdInitContextPlus();
#endif
  }

  /* inicializaccao dos drivers */
  DriversInit();
  
  /* mostra o dialogo principal */
  IupShow(IupGetHandle("dlgMain")); 

  /* inicializaccao da barra de cores */
  ColorBarInit(IupGetHandle("dlgMain"), IupGetHandle("cnvColorBar"), &ctgc.foreground, &ctgc.background);
    
  /* cria o canvas do CD associado ao canvas do IUP */
  if (use_contextplus) cdUseContextPlus(1); 
  ctgc.iup_canvas = cdCreateCanvas(CD_IUP, IupGetHandle("cnvMain"));
  if (!antialias) cdCanvasSetAttribute(ctgc.iup_canvas, "ANTIALIAS", "0");
  cdActivate(ctgc.iup_canvas);
  if (use_contextplus) cdUseContextPlus(0); 

  /* associa os call-backs */
  setcallbacks();

  /* os call-backs do canvas devem ser associados depois de sua criacao */
  IupSetFunction("cmdRepaint", (Icallback) fRepaint);
  IupSetFunction("cmdMotionCB", (Icallback) fMotionCB);
  IupSetFunction("cmdButtonCB", (Icallback) fButtonCB);
  IupSetFunction("cmdResizeCB", (Icallback) fResizeCB);
  IupSetFunction("cmdGetFocusCB", (Icallback) fGetFocusCB);

  /* inicializaccao do contexto */
  ctgc.write_mode = CD_REPLACE;
  ctgc.line_style = CD_CONTINUOUS;
  ctgc.line_cap = CD_CAPFLAT;
  ctgc.line_join = CD_MITER;
  ctgc.fill_mode = CD_EVENODD;
  ctgc.line_width = 1;
  ctgc.font_style = CD_PLAIN;
  ctgc.font_type_face = CD_SYSTEM;
  ctgc.font_size = CD_STANDARD;
  ctgc.text_alignment = CD_BASE_LEFT;
  ctgc.text_orientation = 0;
  ctgc.back_opacity =  CD_TRANSPARENT;
  ctgc.mark_type = CD_STAR;
  ctgc.poly_mode = CD_OPEN_LINES;
  ctgc.interior_style = CD_SOLID;
  ctgc.hatch = CD_HORIZONTAL;
  ctgc.following = FALSE;
  ctgc.foreground = CD_BLACK;
  ctgc.background = CD_WHITE;
  ctgc.head = NULL;
  ctgc.test_image = NULL;
  ctgc.sim = 0;
  ctgc.stretch_play = 1;
  ctgc.dlg_x = IUP_CENTER;
  ctgc.dlg_y = IUP_CENTER;
  ctgc.visible = 0;

  /* inicializa os vetores stipple e pattern */
  initsamples();

  /* inicializa o CDTest com a primitiva LINE */
  ctgc.dlg_cur_prim = IupGetHandle("dlgLB");
  ctgc.bt_cur_prim = IupGetHandle("btCurPrim");
  ctgc.cur_prim = LINE;
  
  /* inicializaccao do Canvas do IUP */
  cdActivate(ctgc.iup_canvas);
  cdFont(ctgc.font_type_face,ctgc.font_style,ctgc.font_size);
  cdBackground(ctgc.background);
  cdClear();
  cdGetCanvasSize(&(ctgc.w),&(ctgc.h),NULL,NULL);
  ctgc.bpp = cdGetColorPlanes();

  {
    double mm, xres;  
    cdPixel2MM(1, 0, &mm, NULL);
    xres = 1.0/mm;
    ctgc.res = xres;
  }

  /* inicializa o canvas off-screen de double-bufering */
  ctgc.buffering = NO_BUFFER;
  ctgc.buffer_canvas = NULL;

  /* inicializa o clipping */
  ctgc.clip_mode = CD_CLIPOFF;
  cdGetClipArea(&(ctgc.clip_xmin), &(ctgc.clip_xmax),
                &(ctgc.clip_ymin), &(ctgc.clip_ymax));

  /* zera o buffer temporario de pontos */
  ctgc.num_points = 0;

  /* a lista de primitivas jah estah vazia, nao hah o que apagar */
  IupSetAttribute(IupGetHandle("itEditUndo"), IUP_ACTIVE, IUP_NO);

  /* atualiza o tamanho do canvas em pixels na barra de titulo */
  sprintf(ctgc.title, "CDTest 5.3 (%dx%d - %dbpp)", ctgc.w, ctgc.h, ctgc.bpp);
  IupSetAttribute(IupGetHandle("dlgMain"), IUP_TITLE, ctgc.title);

  /* inicializa a barra de status */
  sprintf(ctgc.status_line, "LEFT click and drag.");
  set_status();

  /* inicializa a posiccao do mouse */
  mouse_pos(0, 0);
  
  /* constroi os dialogos do CDTest sem mostra-los */
  IupMap(IupGetHandle("dlgLB"));
  IupMap(IupGetHandle("dlgAS"));
  IupMap(IupGetHandle("dlgPixel"));
  IupMap(IupGetHandle("dlgImage"));
  IupMap(IupGetHandle("dlgImageRGB"));
  IupMap(IupGetHandle("dlgMark"));
  IupMap(IupGetHandle("dlgText"));
  IupMap(IupGetHandle("dlgClip"));
  IupMap(IupGetHandle("dlgAttributes"));
  IupMap(IupGetHandle("dlgWDCanvas"));
  IupMap(IupGetHandle("dlgPICCanvas"));

  /* cria o canvas WD */
  if (use_contextplus) cdUseContextPlus(1); 
  ctgc.wd_canvas = cdCreateCanvas(CD_IUP, IupGetHandle("cnvWDCanvas"));
  ctgc.pic_canvas = cdCreateCanvas(CD_IUP, IupGetHandle("cnvPICCanvas"));
  ctgc.picture = cdCreateCanvas(CD_PICTURE, "");
  if (use_contextplus) cdUseContextPlus(0); 

  /* CDTEST default values */
  cdActivate(ctgc.picture);
  cdLineStyleDashes(ctgc.dashes, 4);
  cdPattern(10, 10, ctgc.pattern);
  cdStipple(10, 10, ctgc.stipple);
  cdInteriorStyle(CD_SOLID);

  cdActivate(ctgc.wd_canvas);
  cdLineStyleDashes(ctgc.dashes, 4);
  cdPattern(10, 10, ctgc.pattern);
  cdStipple(10, 10, ctgc.stipple);
  cdInteriorStyle(CD_SOLID);

  /* reativa o canvas IUP */
  cdActivate(ctgc.iup_canvas);
  cdLineStyleDashes(ctgc.dashes, 4);
  cdPattern(10, 10, ctgc.pattern);
  cdStipple(10, 10, ctgc.stipple);
  cdInteriorStyle(CD_SOLID);
}

static void CDTestClose(void)
{
  dellist();         

  ColorBarClose();

  if (ctgc.buffer_canvas) cdKillCanvas(ctgc.buffer_canvas);
  if (ctgc.test_image) cdKillImage(ctgc.test_image);
  cdKillCanvas(ctgc.picture);
  cdKillCanvas(ctgc.pic_canvas);
  cdKillCanvas(ctgc.wd_canvas);
  cdKillCanvas(ctgc.iup_canvas);

  memset(&ctgc, 0, sizeof(tCTC));

  IupDestroy(IupGetHandle("dlgLB"));
  IupDestroy(IupGetHandle("dlgAS"));
  IupDestroy(IupGetHandle("dlgPixel"));
  IupDestroy(IupGetHandle("dlgImage"));
  IupDestroy(IupGetHandle("dlgImageRGB"));
  IupDestroy(IupGetHandle("dlgMark"));
  IupDestroy(IupGetHandle("dlgText"));
  IupDestroy(IupGetHandle("dlgClip"));
  IupDestroy(IupGetHandle("dlgAttributes"));
  IupDestroy(IupGetHandle("dlgWDCanvas"));
  IupDestroy(IupGetHandle("dlgPICCanvas"));

  IupDestroy(IupGetHandle("dlgMain"));

  if (use_contextplus) 
  {
#ifdef USE_CONTEXTPLUS
    cdFinishContextPlus();
#endif
  }
}

static int iscurvisible(void)
{
  char* vis = IupGetAttribute(ctgc.dlg_cur_prim, IUP_VISIBLE);
  if (!vis)
    return 0;
  return strcmp(vis, IUP_YES) == 0? 1: 0;
}

/*-------------------------------------------------------------------------*/
/* Copia o conteudo da lista de primitivas para o dispositivo ativo.       */
/*-------------------------------------------------------------------------*/
void putlist(cdCanvas *target)
{
  tList *temp;
  int wdc_w, wdc_h, wd = 0;

  /* ativa o canvas destino */
  cdActivate(target);

  cdGetCanvasSize(&wdc_w, &wdc_h, NULL, NULL);

  if (target == ctgc.wd_canvas)
  {
    wdWindow(0, ctgc.w, 0, ctgc.h);
    wdViewport(0, wdc_w, 0, wdc_h);
    wd = 1;
  }

  /* limpa o canvas com a cor de fundo */
  cdBackground(ctgc.background);
  cdClear();
  cdClipArea(ctgc.clip_xmin, ctgc.clip_xmax, ctgc.clip_ymin, ctgc.clip_ymax);
  cdClip(ctgc.clip_mode);

  /* coloca a lista de primitivas no canvas */
  for (temp = ctgc.head; temp; temp = (tList *) temp->next) 
  {
    switch (temp->type) {
      case LINE:
        cdWriteMode(temp->par.lineboxpar.write_mode);
        cdLineCap(temp->par.lineboxpar.line_cap);
        cdLineJoin(temp->par.lineboxpar.line_join);
        cdLineStyle(temp->par.lineboxpar.line_style);
        cdLineWidth(temp->par.lineboxpar.line_width);
        cdForeground(temp->par.lineboxpar.foreground);
        if (wd)
          wdLine(temp->par.lineboxpar.x1, temp->par.lineboxpar.y1,
            temp->par.lineboxpar.x2, temp->par.lineboxpar.y2);
        else
          cdLine(temp->par.lineboxpar.x1, temp->par.lineboxpar.y1,
            temp->par.lineboxpar.x2, temp->par.lineboxpar.y2);
        break;
      case RECT:
        cdWriteMode(temp->par.lineboxpar.write_mode);
        cdLineCap(temp->par.lineboxpar.line_cap);
        cdLineJoin(temp->par.lineboxpar.line_join);
        cdLineStyle(temp->par.lineboxpar.line_style);
        cdLineWidth(temp->par.lineboxpar.line_width);
        cdForeground(temp->par.lineboxpar.foreground);
        if (wd)
          wdRect(temp->par.lineboxpar.x1, temp->par.lineboxpar.x2,
            temp->par.lineboxpar.y1, temp->par.lineboxpar.y2);
        else
          cdRect(temp->par.lineboxpar.x1, temp->par.lineboxpar.x2,
            temp->par.lineboxpar.y1, temp->par.lineboxpar.y2);
        break;
      case BOX:
        cdWriteMode(temp->par.lineboxpar.write_mode);
        cdLineCap(temp->par.lineboxpar.line_cap);
        cdLineJoin(temp->par.lineboxpar.line_join);
        cdLineStyle(temp->par.lineboxpar.line_style);
        cdLineWidth(temp->par.lineboxpar.line_width);
        cdForeground(temp->par.lineboxpar.foreground);
        cdBackground(temp->par.lineboxpar.background);
        cdBackOpacity(temp->par.lineboxpar.back_opacity);
        cdHatch(temp->par.lineboxpar.hatch);
        cdInteriorStyle(temp->par.lineboxpar.interior_style);
        if (wd)
          wdBox(temp->par.lineboxpar.x1, temp->par.lineboxpar.x2,
            temp->par.lineboxpar.y1, temp->par.lineboxpar.y2);
        else
          cdBox(temp->par.lineboxpar.x1, temp->par.lineboxpar.x2,
            temp->par.lineboxpar.y1, temp->par.lineboxpar.y2);
        break;
      case ARC:
        cdWriteMode(temp->par.arcsectorpar.write_mode);
        cdLineCap(temp->par.arcsectorpar.line_cap);
        cdLineJoin(temp->par.arcsectorpar.line_join);
        cdLineStyle(temp->par.arcsectorpar.line_style);
        cdLineWidth(temp->par.arcsectorpar.line_width);
        cdForeground(temp->par.arcsectorpar.foreground);
        if (wd)
          wdArc(temp->par.arcsectorpar.xc, temp->par.arcsectorpar.yc,
            temp->par.arcsectorpar.w, temp->par.arcsectorpar.h,
            temp->par.arcsectorpar.angle1, temp->par.arcsectorpar.angle2);
        else
          cdArc(temp->par.arcsectorpar.xc, temp->par.arcsectorpar.yc,
            temp->par.arcsectorpar.w, temp->par.arcsectorpar.h,
            temp->par.arcsectorpar.angle1, temp->par.arcsectorpar.angle2);
        break;
      case CHORD:
        cdWriteMode(temp->par.arcsectorpar.write_mode);
        cdLineCap(temp->par.arcsectorpar.line_cap);
        cdLineJoin(temp->par.arcsectorpar.line_join);
        cdLineStyle(temp->par.arcsectorpar.line_style);
        cdLineWidth(temp->par.arcsectorpar.line_width);
        cdForeground(temp->par.arcsectorpar.foreground);
        cdBackground(temp->par.arcsectorpar.background);
        cdBackOpacity(temp->par.arcsectorpar.back_opacity);
        cdHatch(temp->par.arcsectorpar.hatch);
        cdInteriorStyle(temp->par.arcsectorpar.interior_style);
        if (wd)
          wdChord(temp->par.arcsectorpar.xc, temp->par.arcsectorpar.yc,
            temp->par.arcsectorpar.w, temp->par.arcsectorpar.h,
            temp->par.arcsectorpar.angle1, temp->par.arcsectorpar.angle2);
        else
          cdChord(temp->par.arcsectorpar.xc, temp->par.arcsectorpar.yc,
            temp->par.arcsectorpar.w, temp->par.arcsectorpar.h,
            temp->par.arcsectorpar.angle1, temp->par.arcsectorpar.angle2);
        break;
      case SECTOR:
        cdWriteMode(temp->par.arcsectorpar.write_mode);
        cdLineCap(temp->par.arcsectorpar.line_cap);
        cdLineJoin(temp->par.arcsectorpar.line_join);
        cdLineStyle(temp->par.arcsectorpar.line_style);
        cdLineWidth(temp->par.arcsectorpar.line_width);
        cdForeground(temp->par.arcsectorpar.foreground);
        cdBackground(temp->par.arcsectorpar.background);
        cdBackOpacity(temp->par.arcsectorpar.back_opacity);
        cdHatch(temp->par.arcsectorpar.hatch);
        cdInteriorStyle(temp->par.arcsectorpar.interior_style);
        if (wd)
          wdSector(temp->par.arcsectorpar.xc, temp->par.arcsectorpar.yc,
            temp->par.arcsectorpar.w, temp->par.arcsectorpar.h,
            temp->par.arcsectorpar.angle1, temp->par.arcsectorpar.angle2);
        else
          cdSector(temp->par.arcsectorpar.xc, temp->par.arcsectorpar.yc,
            temp->par.arcsectorpar.w, temp->par.arcsectorpar.h,
            temp->par.arcsectorpar.angle1, temp->par.arcsectorpar.angle2);
        break;
      case PIXEL:
        cdWriteMode(temp->par.pixelpar.write_mode);
        cdPixel(temp->par.pixelpar.x, temp->par.pixelpar.y,
          temp->par.pixelpar.foreground);
        break;
      case MARK:
        cdWriteMode(temp->par.markpar.write_mode);
        cdMarkSize(temp->par.markpar.mark_size);
        cdMarkType(temp->par.markpar.mark_type);
        cdForeground(temp->par.markpar.foreground);
        if (wd)
          wdMark(temp->par.markpar.x, temp->par.markpar.y);
        else
          cdMark(temp->par.markpar.x, temp->par.markpar.y);
        break;
      case TEXT:
        cdWriteMode(temp->par.textpar.write_mode);
        cdForeground(temp->par.textpar.foreground);
        cdBackground(temp->par.textpar.background);
        cdBackOpacity(temp->par.textpar.back_opacity);
        cdTextAlignment(temp->par.textpar.text_alignment);
        cdTextOrientation(temp->par.textpar.text_orientation);
        cdFont(temp->par.textpar.font_type_face,
          temp->par.textpar.font_style,
          temp->par.textpar.font_size);
        if (wd)
          wdText(temp->par.textpar.x, temp->par.textpar.y,
            temp->par.textpar.s);
        else
          cdText(temp->par.textpar.x, temp->par.textpar.y,
            temp->par.textpar.s);
        break;
      case POLY: {
        int i;
        cdForeground(temp->par.polypar.foreground);
        cdBackground(temp->par.polypar.background);
        cdWriteMode(temp->par.polypar.write_mode);
        cdLineCap(temp->par.polypar.line_cap);
        cdLineJoin(temp->par.polypar.line_join);
        cdLineStyle(temp->par.polypar.line_style);
        cdLineWidth(temp->par.polypar.line_width);
        cdFillMode(temp->par.polypar.fill_mode);
        cdBackOpacity(temp->par.polypar.back_opacity);
        cdHatch(temp->par.polypar.hatch);
        cdInteriorStyle(temp->par.polypar.interior_style);
        cdBegin(temp->par.polypar.poly_mode);
        if (wd)
          for (i=0; (i<temp->par.polypar.num_points); i++) {
            wdVertex(temp->par.polypar.points[i].x,
              temp->par.polypar.points[i].y);
          }
        else
          for (i=0; (i<temp->par.polypar.num_points); i++) {
            cdVertex(temp->par.polypar.points[i].x,
              temp->par.polypar.points[i].y);
          }
        cdEnd();
        break;
      case META:
        cdWriteMode(CD_REPLACE);
        cdLineStyle(CD_CONTINUOUS);
        cdLineWidth(1);
        cdBackground(CD_WHITE);
        cdBackOpacity(CD_TRANSPARENT);
        cdForeground(CD_BLACK);
        cdInteriorStyle(CD_SOLID);
        if (ctgc.stretch_play)
        {
          if (wd)
            cdPlay(temp->par.metapar.ctx, 0, wdc_w-1, 0, wdc_h-1, temp->par.metapar.filename);
          else
            cdPlay(temp->par.metapar.ctx, 0, ctgc.w-1, 0, ctgc.h-1, temp->par.metapar.filename);
        }
        else
          cdPlay(temp->par.metapar.ctx, 0, 0, 0, 0, temp->par.metapar.filename);
        break;
      default:
        break;
      }
    }
  }

  /* volta o clip-mode para o corrente */
  cdClip(ctgc.clip_mode);
}

/*-------------------------------------------------------------------------*/
/* Copia o conteudo da lista de primitivas no canvas WD.                   */
/*-------------------------------------------------------------------------*/
int fWDRepaint(void)
{
  putlist(ctgc.wd_canvas);

  /* reativa o canvas iup */
  cdActivate(ctgc.iup_canvas);

  return IUP_DEFAULT;
}

int fPICRepaint(void)
{
  int w, h;
  putlist(ctgc.picture);

  cdActivate(ctgc.pic_canvas);
  cdGetCanvasSize(&w, &h, NULL, NULL);
  cdClear();
  if (ctgc.stretch_play)
    cdPlay(CD_PICTURE, 0, w-1, 0, h-1, ctgc.picture);
  else
    cdPlay(CD_PICTURE, 0, 0, 0, 0, ctgc.picture);

  /* reativa o canvas iup */
  cdActivate(ctgc.iup_canvas);

  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Redesenha o canvas.                                                     */
/*-------------------------------------------------------------------------*/
void updatecanvas(void)
{
  if (ctgc.buffering == NO_BUFFER)
    putlist(ctgc.iup_canvas);
  else
  {
    cdActivate(ctgc.iup_canvas);
    cdClip(CD_CLIPOFF);

    putlist(ctgc.buffer_canvas);
    cdFlush();

    cdActivate(ctgc.iup_canvas);
    cdClip(ctgc.clip_mode);
  }

  if (ctgc.wd_dialog)
    fWDRepaint();

  if (ctgc.pic_dialog)
    fPICRepaint();
}

/*-------------------------------------------------------------------------*/
/* Redesenha o canvas.                                                     */
/*-------------------------------------------------------------------------*/
int fRepaint(void)
{
  int i;

  /* ativa o canvas na tela */
  cdActivate(ctgc.iup_canvas);
  wdViewport(0, ctgc.w, 0, ctgc.h);

  /* desliga o clipping durante o evento Repaint */
  cdClip(CD_CLIPOFF);

  /* double-buffering? */
  cdWriteMode(CD_REPLACE);
  updatecanvas();

  /* se o evento repaint for gerado durante o rubber band...*/
  /* ...eh preciso restaurar o estado anterior */
  if (ctgc.following) {
    cdWriteMode(CD_NOT_XOR);
    cdForeground(CD_BLACK);
    cdLineStyle(CD_CONTINUOUS);
    cdLineWidth(1);
    switch (ctgc.cur_prim) {
      case POLY:
        for (i=0; (i<ctgc.num_points-1); i++) {
          cdLine(ctgc.points[i].x, ctgc.points[i].y,
                 ctgc.points[i+1].x, ctgc.points[i+1].y);
        }
        polygon(REPAINT, 0, 0);
        break;
      case LINE:
        line(REPAINT, 0, 0);
        break;
      case ARC:
      case CHORD:
      case SECTOR:
        arc(REPAINT, 0, 0);
        break;
      case RECT:
      case BOX:
        box(REPAINT, 0, 0);
        break;
      default:
        break;
    }
  }

  /* restaura o estado de clipping anterior ao evento Repaint */
  cdClip(ctgc.clip_mode);

  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Ativa o canvas WD.                                                      */
/*-------------------------------------------------------------------------*/
int fWDCanvas(void)
{
  IupShow(IupGetHandle("dlgWDCanvas"));
  ctgc.wd_dialog = TRUE;
  IupSetFunction("cmdWDRepaint", (Icallback)fWDRepaint);
  fWDRepaint();
  return IUP_DEFAULT;
}

int fPICCanvas(void)
{
  IupShow(IupGetHandle("dlgPICCanvas"));
  ctgc.pic_dialog = TRUE;
  IupSetFunction("cmdPICRepaint", (Icallback)fPICRepaint);
  fPICRepaint();
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Desativa o canvas WD.                                                   */
/*-------------------------------------------------------------------------*/
int fCloseWD(void) 
{
  ctgc.wd_dialog = FALSE;
  return IUP_DEFAULT;
}

int fClosePIC(void) 
{
  ctgc.pic_dialog = FALSE;
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Apaga a ultima primitiva desenhada.                                     */
/*-------------------------------------------------------------------------*/
int fEditUndo(void)
{
  /* apaga a ultima primitiva da fila */
  dellast();
  /* se nao ha mais primitivas na fila, desabilita o undo */
  if (ctgc.head == NULL) 
    IupSetAttribute(IupGetHandle("itEditUndo"), IUP_ACTIVE, IUP_NO);

  updatecanvas();

  return IUP_DEFAULT;
}

int fSimulate(Ihandle *self, int v)
{
  ignore(self);

  cdActivate(ctgc.iup_canvas);

  if (v == 1) 
  {
    if (ctgc.sim == 1)
      return IUP_DEFAULT;

    ctgc.sim = 1;
    cdSimulate(CD_SIM_ALL);
    sprintf(ctgc.status_line, "cdSimulate(CD_SIM_ALL)");
  }
  else 
  {
    if (ctgc.sim == 0)
      return IUP_DEFAULT;

    ctgc.sim = 0;
    cdSimulate(CD_SIM_NONE);
    sprintf(ctgc.status_line, "cdSimulate(CD_SIM_NONE)");
  }

  set_status();
  updatecanvas();
  return IUP_DEFAULT;
}

int fStretchPlay(Ihandle *self, int v)
{
  ignore(self);
  ctgc.stretch_play = v;
  updatecanvas();
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Tchau.                                                                  */
/*-------------------------------------------------------------------------*/
int fFileExit(void)
{
  IupHide(ctgc.dlg_cur_prim);
  return IUP_CLOSE;
}

/*-------------------------------------------------------------------------*/
/* Funcao associada ao toggle OpenLines.                                   */
/*-------------------------------------------------------------------------*/
int fOpenLines(void)
{
  ctgc.poly_mode = CD_OPEN_LINES;
  sprintf(ctgc.status_line, "cdBegin(CD_OPEN_LINES)");
  set_status();
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Funcao associada ao toggle ClosedLines.                                 */
/*-------------------------------------------------------------------------*/
int fClosedLines(void)
{
  ctgc.poly_mode = CD_CLOSED_LINES;
  sprintf(ctgc.status_line, "cdBegin(CD_CLOSED_LINES)");
  set_status();
  return IUP_DEFAULT;
}

int fPolyBezier(void)
{
  ctgc.poly_mode = CD_BEZIER;
  sprintf(ctgc.status_line, "cdBegin(CD_BEZIER)");
  set_status();
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Funcao associada ao toggle Fill.                                        */
/*-------------------------------------------------------------------------*/
int fFill(void)
{
  ctgc.poly_mode = CD_FILL;
  sprintf(ctgc.status_line, "cdBegin(CD_FILL)");
  set_status();
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Funcao associada ao toggle Clip.                                        */
/*-------------------------------------------------------------------------*/
int fPolyClip(void)
{
  ctgc.poly_mode = CD_CLIP;
  sprintf(ctgc.status_line, "cdBegin(CD_CLIP)");
  set_status();
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Funcao associada ao toggle Solid.                                       */
/*-------------------------------------------------------------------------*/
int fSolid(void)
{
  ctgc.interior_style = CD_SOLID;
  sprintf(ctgc.status_line, "cdInteriorStyle(CD_SOLID)");
  set_status();
  cdInteriorStyle(CD_SOLID);
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Funcao associada ao toggle Hatch.                                       */
/*-------------------------------------------------------------------------*/
int fHatch(void)
{
  ctgc.interior_style = CD_HATCH;
  cdInteriorStyle(CD_HATCH);
  sprintf(ctgc.status_line, "cdInteriorStyle(CD_HATCH)");
  set_status();
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Funcao associada ao toggle Stipple.                                     */
/*-------------------------------------------------------------------------*/
int fStipple(void)
{
  ctgc.interior_style = CD_STIPPLE;
  cdInteriorStyle(CD_STIPPLE);
  sprintf(ctgc.status_line, "cdInteriorStyle(CD_STIPPLE)");
  set_status();
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Funcao associada ao toggle Pattern.                                     */
/*-------------------------------------------------------------------------*/
int fPattern(void)
{
  ctgc.interior_style = CD_PATTERN;
  cdInteriorStyle(CD_PATTERN);
  sprintf(ctgc.status_line, "cdInteriorStyle(CD_PATTERN)");
  set_status();
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Seleciona o a opacidade do fundo.                                       */
/*-------------------------------------------------------------------------*/
int fOpacity(Ihandle *self, char *t, int o, int v)
{
  ignore(t);
  ignore(self);
  if (v == 0) return IUP_DEFAULT;
  switch (o) {
    case 1:
      ctgc.back_opacity = CD_OPAQUE;
      sprintf(ctgc.status_line, "cdBackOpacity(CD_OPAQUE)");
      break;
    case 2:
      ctgc.back_opacity = CD_TRANSPARENT;
      sprintf(ctgc.status_line, "cdBackOpacity(CD_TRANSPARENT)");
      break;
  }
  set_status();
  return IUP_DEFAULT;
}


/*-------------------------------------------------------------------------*/
/* Seleciona o modo de repaint para imagem do servidor.                    */
/*-------------------------------------------------------------------------*/
int fImageBuffer(Ihandle *self, int v)
{
  ignore(self);

  /* se o toggle foi para o estado ligado... */
  if (v) {
    switch (ctgc.buffering) {
    case IMAGE_BUFFER:
      break;
    case IMAGERGB_BUFFER:
      /* mata o canvas do buffer anterior */
      if (ctgc.buffer_canvas) cdKillCanvas(ctgc.buffer_canvas);
      ctgc.buffer_canvas = NULL;
      /* prosegue como se nao houvesse o buffer anterior */
    case NO_BUFFER:
      /* cria o canvas do buffer */
      if (use_contextplus) cdUseContextPlus(1); 
      ctgc.buffer_canvas = cdCreateCanvas(CD_DBUFFER, ctgc.iup_canvas);
      if (!antialias) cdCanvasSetAttribute(ctgc.buffer_canvas, "ANTIALIAS", "0");
      if (use_contextplus) cdUseContextPlus(0); 
      /* se nao consegui criar o canvas... */
      if (!ctgc.buffer_canvas) {
        /* desabilita o double-buffering */
        ctgc.buffering = NO_BUFFER;
        sprintf(ctgc.status_line, "Error creating CD_DBUFFER canvas.");
        set_status();
      }
      else {
        /* seta o modo de escrita para double-buffering em imagem do servidor */
        ctgc.buffering = IMAGE_BUFFER;
        /* reconstroe o stipple e o pattern no canvas do buffer */
        cdActivate(ctgc.buffer_canvas);
        cdLineStyleDashes(ctgc.dashes, 4);
        cdPattern(10, 10, ctgc.pattern);
        cdStipple(10, 10, ctgc.stipple);
        cdInteriorStyle(CD_SOLID);
        if (ctgc.sim == 1)
          cdSimulate(CD_SIM_ALL);
        else
          cdSimulate(CD_SIM_NONE);
        /* atualiza o buffer */
        updatecanvas();
        /* muda a linha de status */
        sprintf(ctgc.status_line, "CD_DBUFFER buffer active.");
        set_status();
      }

      break;
    }
  }
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Seleciona o modo de repaint para imagem RGB.                            */
/*-------------------------------------------------------------------------*/
int fRGBBuffer(Ihandle *self, int v)
{
  ignore(self);

  if (v) {
    switch (ctgc.buffering) {
    case IMAGERGB_BUFFER:
      break;
    case IMAGE_BUFFER:
      /* mata o canvas do buffer anterior */
      if (ctgc.buffer_canvas) cdKillCanvas(ctgc.buffer_canvas);
      ctgc.buffer_canvas = NULL;
      /* prossegue como se nao houvesse o buffer anterior */
    case NO_BUFFER:
      /* cria o canvas do buffer */
      ctgc.buffer_canvas = cdCreateCanvas(CD_DBUFFERRGB, ctgc.iup_canvas);
      if (!antialias) cdCanvasSetAttribute(ctgc.buffer_canvas, "ANTIALIAS", "0");
      /* se nao consegui criar o canvas... */
      if (!ctgc.buffer_canvas) {
        /* mata a imagem alocada */
        /* desabilita o double-buffering */
        ctgc.buffering = NO_BUFFER;
        sprintf(ctgc.status_line, "Error creating CD_DBUFFERRGB canvas.");
        set_status();
      }
      else {
        /* seta o modo de escrita para double-buffering em imagem RGB */
        ctgc.buffering = IMAGERGB_BUFFER;
        /* reconstroe o stipple e o pattern no canvas do buffer */
        cdActivate(ctgc.buffer_canvas);
        cdLineStyleDashes(ctgc.dashes, 4);
        cdPattern(10, 10, ctgc.pattern);
        cdStipple(10, 10, ctgc.stipple);
        cdInteriorStyle(CD_SOLID);
        if (ctgc.sim == 1)
          cdSimulate(CD_SIM_ALL);
        else
          cdSimulate(CD_SIM_NONE);
        /* atualiza o buffer */
        updatecanvas();
        /* muda a linha de status */
        sprintf(ctgc.status_line, "CD_DBUFFERRGB buffer active.");
        set_status();
      }
      break;
    }
  }
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Seleciona o modo de repaint para escrita diretamente na tela.           */
/*-------------------------------------------------------------------------*/
int fNoBuffering(Ihandle *self, int v)
{
  ignore(self);

  /* se foi para double-buffering, atualiza o buffer off-screen */
  if (v) {
    switch (ctgc.buffering) {
    case IMAGERGB_BUFFER:
      /* mata o canvas */
      if (ctgc.buffer_canvas) cdKillCanvas(ctgc.buffer_canvas);
      ctgc.buffer_canvas = NULL;
      /* passa a desenhar diretamente na tela */
      ctgc.buffering = NO_BUFFER;
      /* atualiza o buffer */
      updatecanvas();
      break;
    case IMAGE_BUFFER:
      /* mata o canvas */
      if (ctgc.buffer_canvas) cdKillCanvas(ctgc.buffer_canvas);
      ctgc.buffer_canvas = NULL;
      /* passa a desenhar diretamente na tela */
      ctgc.buffering = NO_BUFFER;
      /* atualiza o buffer */
      updatecanvas();
      break;
    case NO_BUFFER:
      break;
    }
  }
  /* muda a linha de status */
  sprintf(ctgc.status_line, "Now drawing on-screen.");
  set_status();
  
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Funcoes da barra de estilos..                                           */
/*-------------------------------------------------------------------------*/
int fMarkType(Ihandle *self, char *t, int o, int v)
{
  ignore(t);
  ignore(self);
  if (v == 0) return IUP_DEFAULT;
  switch (o) {
    case 1:
      ctgc.mark_type = CD_PLUS;
      sprintf(ctgc.status_line, "cdMarkType(CD_PLUS)");
      break;
    case 2:
      ctgc.mark_type = CD_STAR;
      sprintf(ctgc.status_line, "cdMarkType(CD_STAR)");
      break;
    case 3:
      ctgc.mark_type = CD_CIRCLE;
      sprintf(ctgc.status_line, "cdMarkType(CD_CIRCLE)");
      break;
    case 4:
      ctgc.mark_type = CD_X;
      sprintf(ctgc.status_line, "cdMarkType(CD_X)");
      break;
    case 5:
      ctgc.mark_type = CD_BOX;
      sprintf(ctgc.status_line, "cdMarkType(CD_BOX)");
      break;
    case 6:
      ctgc.mark_type = CD_DIAMOND;
      sprintf(ctgc.status_line, "cdMarkType(CD_DIAMOND)");
      break;
    case 7:
      ctgc.mark_type = CD_HOLLOW_CIRCLE;
      sprintf(ctgc.status_line, "cdMarkType(CD_HOLLOW_CIRCLE)");
      break;
    case 8:
      ctgc.mark_type = CD_HOLLOW_BOX;
      sprintf(ctgc.status_line, "cdMarkType(CD_HOLLOW_BOX)");
      break;
    case 9:
      ctgc.mark_type = CD_HOLLOW_DIAMOND;
      sprintf(ctgc.status_line, "cdMarkType(CD_HOLLOW_DIAMOND)");
      break;
  }
  set_status();
  return IUP_DEFAULT;
}

int fWriteMode(Ihandle *self, char *t, int o, int v)
{
  ignore(t);
  ignore(self);
  if (v == 0) return IUP_DEFAULT;
  switch (o) {
    case 1:
      ctgc.write_mode = CD_REPLACE;
      sprintf(ctgc.status_line, "cdWriteMode(CD_REPLACE)");
      break;
    case 2:
      ctgc.write_mode = CD_XOR;
      sprintf(ctgc.status_line, "cdWriteMode(CD_XOR)");
      break;
    case 3:
      ctgc.write_mode = CD_NOT_XOR;
      sprintf(ctgc.status_line, "cdWriteMode(CD_NOT_XOR)");
      break;
  }
  set_status();
  return IUP_DEFAULT;
}

int fLineStyle(Ihandle *self, char *t, int o, int v)
{
  ignore(t);
  ignore(self);
  if (v == 0) return IUP_DEFAULT;
  switch (o) {
    case 1:
      ctgc.line_style = CD_CONTINUOUS;
      sprintf(ctgc.status_line, "cdLineStyle(CD_CONTINUOUS)");
      break;
    case 2:
      ctgc.line_style = CD_DASHED;
      sprintf(ctgc.status_line, "cdLineStyle(CD_DASHED)");
      break;
    case 3:
      ctgc.line_style = CD_DOTTED;
      sprintf(ctgc.status_line, "cdLineStyle(CD_DOTTED)");
      break;
    case 4:
      ctgc.line_style = CD_DASH_DOT;
      sprintf(ctgc.status_line, "cdLineStyle(CD_DASH_DOT)");
      break;
    case 5:
      ctgc.line_style = CD_DASH_DOT_DOT;
      sprintf(ctgc.status_line, "cdLineStyle(CD_DASH_DOT_DOT)");
      break;
    case 6:
      ctgc.line_style = CD_CUSTOM;
      sprintf(ctgc.status_line, "cdLineStyle(CD_CUSTOM)");
      break;
  }
  set_status();
  return IUP_DEFAULT;
}

int fLineCap(Ihandle *self, char *t, int o, int v)
{
  ignore(t);
  ignore(self);
  if (v == 0) return IUP_DEFAULT;
  switch (o) {
    case 1:
      ctgc.line_cap = CD_CAPFLAT;
      sprintf(ctgc.status_line, "cdLineCap(CD_CAPFLAT)");
      break;
    case 2:
      ctgc.line_cap = CD_CAPSQUARE;
      sprintf(ctgc.status_line, "cdLineCap(CD_CAPSQUARE)");
      break;
    case 3:
      ctgc.line_cap = CD_CAPROUND;
      sprintf(ctgc.status_line, "cdLineCap(CD_CAPROUND)");
      break;
  }
  set_status();
  return IUP_DEFAULT;
}

int fLineJoin(Ihandle *self, char *t, int o, int v)
{
  ignore(t);
  ignore(self);
  if (v == 0) return IUP_DEFAULT;
  switch (o) {
    case 1:
      ctgc.line_join = CD_MITER;
      sprintf(ctgc.status_line, "cdLineJoin(CD_MITER)");
      break;
    case 2:
      ctgc.line_join = CD_BEVEL;
      sprintf(ctgc.status_line, "cdLineJoin(CD_BEVEL)");
      break;
    case 3:
      ctgc.line_join = CD_ROUND;
      sprintf(ctgc.status_line, "cdLineJoin(CD_ROUND)");
      break;
  }
  set_status();
  return IUP_DEFAULT;
}

int fFillMode(Ihandle *self, char *t, int o, int v)
{
  ignore(t);
  ignore(self);
  if (v == 0) return IUP_DEFAULT;
  switch (o) {
    case 1:
      ctgc.fill_mode = CD_EVENODD;
      sprintf(ctgc.status_line, "cdFillMode(CD_EVENODD)");
      break;
    case 2:
      ctgc.fill_mode = CD_WINDING;
      sprintf(ctgc.status_line, "cdFillMode(CD_WINDING)");
      break;
  }
  set_status();
  return IUP_DEFAULT;
}

char* font_style[4] = {"CD_PLAIN", "CD_BOLD", "CD_ITALIC", "CD_BOLD_ITALIC"};
char* font_face[4] = {"CD_SYSTEM", "CD_COURIER", "CD_TIMES_ROMAN", "CD_HELVETICA"};

int fFontStyle(Ihandle *self, char *t, int o, int v)
{
  ignore(t);
  ignore(self);
  if (v == 0) return IUP_DEFAULT;
  switch (o) {
    case 1:
      ctgc.font_style = CD_PLAIN;
      break;
    case 2:
      ctgc.font_style = CD_BOLD;
      break;
    case 3:
      ctgc.font_style = CD_ITALIC;
      break;
    case 4:
      ctgc.font_style = CD_BOLD_ITALIC;
      break;
  }
  ctgc.font_size = IupGetInt(IupGetHandle("txtFontSize"), IUP_VALUE);
  sprintf(ctgc.status_line, "cdFont(%s, %s, %d)", font_face[ctgc.font_type_face], font_style[ctgc.font_style], ctgc.font_size);
  set_status();
  return IUP_DEFAULT;
}


int fFontTypeFace(Ihandle *self, char *t, int o, int v)
{
  ignore(t);
  ignore(self);
  if (v == 0) return IUP_DEFAULT;
  switch (o) {
    case 1:
      ctgc.font_type_face = CD_SYSTEM;
      break;
    case 2:
      ctgc.font_type_face = CD_COURIER;
      break;
    case 3:
      ctgc.font_type_face = CD_TIMES_ROMAN;
      break;
    case 4:
      ctgc.font_type_face = CD_HELVETICA;
      break;
  }
  ctgc.font_size = IupGetInt(IupGetHandle("txtFontSize"), IUP_VALUE);
  sprintf(ctgc.status_line, "cdFont(%s, %s, %d)", font_face[ctgc.font_type_face], font_style[ctgc.font_style], ctgc.font_size);
  set_status();
  return IUP_DEFAULT;
}

int fTextAlignment(Ihandle *self, char *t, int o, int v)
{
  ignore(t);
  ignore(self);
  if (v == 0) return IUP_DEFAULT;
  switch (o) {
    case 1:
      ctgc.text_alignment = CD_NORTH;
	  sprintf(ctgc.status_line, "cdTextAlignment(CD_NORTH)");
      break;
    case 2 :
      ctgc.text_alignment = CD_SOUTH;
	  sprintf(ctgc.status_line, "cdTextAlignment(CD_SOUTH)");
      break;
    case 3:
      ctgc.text_alignment = CD_EAST;
	  sprintf(ctgc.status_line, "cdTextAlignment(CD_EAST)");
      break;
    case 4:
      ctgc.text_alignment = CD_WEST;
	  sprintf(ctgc.status_line, "cdTextAlignment(CD_WEST)");
      break;
    case 5:
      ctgc.text_alignment = CD_NORTH_EAST;
	  sprintf(ctgc.status_line, "cdTextAlignment(CD_NORTH_EAST)");
      break;
    case 6:
      ctgc.text_alignment = CD_NORTH_WEST;
	  sprintf(ctgc.status_line, "cdTextAlignment(CD_NORTH_WEST)");
      break;
    case 7:
      ctgc.text_alignment = CD_SOUTH_EAST;
	  sprintf(ctgc.status_line, "cdTextAlignment(CD_SOUTH_EAST)");
      break;
    case 8:
      ctgc.text_alignment = CD_SOUTH_WEST;
	  sprintf(ctgc.status_line, "cdTextAlignment(CD_SOUTH_WEST)");
      break;
    case 9:
      ctgc.text_alignment = CD_CENTER;
	  sprintf(ctgc.status_line, "cdTextAlignment(CD_CENTER)");
      break;
    case 10:
      ctgc.text_alignment = CD_BASE_LEFT;
	  sprintf(ctgc.status_line, "cdTextAlignment(CD_BASE_LEFT)");
      break;
    case 11:
      ctgc.text_alignment = CD_BASE_CENTER;
	  sprintf(ctgc.status_line, "cdTextAlignment(CD_BASE_CENTER)");
      break;
    case 12:
      ctgc.text_alignment = CD_BASE_RIGHT;
	  sprintf(ctgc.status_line, "cdTextAlignment(CD_BASE_RIGHT)");
      break;
  }
  set_status();
  return IUP_DEFAULT;
}

int fHatchStyle(Ihandle *self, char *t, int o, int v)
{
  ignore(t);
  ignore(self);
  if (v == 0) return IUP_DEFAULT;
  switch (o) {
    case 1:
      ctgc.hatch = CD_HORIZONTAL;
	  sprintf(ctgc.status_line, "cdHatch(CD_HORIZONTAL)");
      break;
    case 2 :
      ctgc.hatch = CD_VERTICAL;
	  sprintf(ctgc.status_line, "cdHatch(CD_VERTICAL)");
      break;
    case 3:
      ctgc.hatch = CD_FDIAGONAL;
	  sprintf(ctgc.status_line, "cdHatch(CD_FDIAGONAL)");
      break;
    case 4:
      ctgc.hatch = CD_BDIAGONAL;
	  sprintf(ctgc.status_line, "cdHatch(CD_BDIAGONAL)");
      break;
    case 5:
      ctgc.hatch = CD_CROSS;
	  sprintf(ctgc.status_line, "cdHatch(CD_CROSS)");
      break;
    case 6:
      ctgc.hatch = CD_DIAGCROSS;
	  sprintf(ctgc.status_line, "cdHatch(CD_DIAGCROSS)");
      break;
  }
  set_status();
  cdHatch(ctgc.hatch);
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Atualiza a linha de estatus do CDTest.                                  */
/*-------------------------------------------------------------------------*/
void set_status(void) 
{
  IupSetAttribute(IupGetHandle("lbStatusLine"), IUP_TITLE, ctgc.status_line);
}

/*-------------------------------------------------------------------------*/
/* Atualiza a posiccao do mouse no dialogo principal.                      */
/*-------------------------------------------------------------------------*/
void mouse_pos(int x, int y) 
{
  /* salva a posiccao do mouse no contexto */
  ctgc.x = x;
  ctgc.y = y;

  /* atualiza a posiccao do mouse no feedback para o usuario */
  sprintf(ctgc.mouse_pos, "(%4d,%4d)", x, y);
  IupSetAttribute(IupGetHandle("lbMousePos"), IUP_TITLE, ctgc.mouse_pos);
}

/*-------------------------------------------------------------------------*/
/* Mostra a caixa de dialogo corrente.                                     */
/*-------------------------------------------------------------------------*/
int fShowDialog(void)
{
  if (ctgc.dlg_cur_prim != NULL) {
    IupShowXY(ctgc.dlg_cur_prim, ctgc.dlg_x, ctgc.dlg_y);
  }
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Ativa a seleccao de area de clip.                                       */
/*-------------------------------------------------------------------------*/
int fClip(Ihandle* self)
{
  if (ctgc.cur_prim == POLY) {
    fButtonCB(NULL, IUP_BUTTON3, 0, 0, 0, 0);
  }
  IupSetAttribute(ctgc.bt_cur_prim, IUP_IMAGE, "imgClip");
  ctgc.following = FALSE;
  ctgc.cur_prim = CLIP;
  ctgc.visible = iscurvisible();
  IupHide(ctgc.dlg_cur_prim);
  if (ctgc.visible)
  {
    ctgc.dlg_x = IupGetInt(ctgc.dlg_cur_prim, IUP_X);
    ctgc.dlg_y = IupGetInt(ctgc.dlg_cur_prim, IUP_Y);
  }
  ctgc.dlg_cur_prim = IupGetHandle("dlgClip");
  sprintf(ctgc.status_line, "LEFT click and drag to set. RIGHT clip to disable.");
  set_status();
  if (ctgc.visible || IupGetAttribute(self, "ISMENU"))
    IupShowXY(ctgc.dlg_cur_prim, ctgc.dlg_x, ctgc.dlg_y);
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Atualiza a area de clipping.                                            */
/*-------------------------------------------------------------------------*/
int fClipArea(void)
{
  ctgc.clip_mode = CD_CLIPAREA;
  ctgc.clip_xmin = IupGetInt(IupGetHandle("txtClipXmin"), IUP_VALUE);
  ctgc.clip_xmax = IupGetInt(IupGetHandle("txtClipXmax"), IUP_VALUE);
  ctgc.clip_ymin = IupGetInt(IupGetHandle("txtClipYmin"), IUP_VALUE);
  ctgc.clip_ymax = IupGetInt(IupGetHandle("txtClipYmax"), IUP_VALUE);
  cdClipArea(ctgc.clip_xmin,ctgc.clip_xmax,ctgc.clip_ymin,ctgc.clip_ymax);
  cdClip(CD_CLIPAREA);
  sprintf(ctgc.status_line, "cdClipArea( %d, %d, %d, %d)", 
          ctgc.clip_xmin,ctgc.clip_xmax,ctgc.clip_ymin,ctgc.clip_ymax);
  set_status();
  updatecanvas();
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Atualiza poligono de clipping.                                          */
/*-------------------------------------------------------------------------*/
int fClipPoly(void)
{
  ctgc.clip_mode=CD_CLIPPOLYGON;
  cdClip(CD_CLIPPOLYGON);
  sprintf(ctgc.status_line, "cdClip(CD_CLIPPOLYGON)");
  set_status();
  updatecanvas();
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Desativa o Clipping.                                                    */
/*-------------------------------------------------------------------------*/
int fClipOff(void)
{
  ctgc.clip_mode = CD_CLIPOFF;
  cdClip(CD_CLIPOFF);
  sprintf(ctgc.status_line, "cdClip(CD_CLIPOFF)"); 
  set_status();
  updatecanvas();
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Prepara a seleccao de imagens.                                          */
/*-------------------------------------------------------------------------*/
int fImage(Ihandle* self)
{
  if (ctgc.cur_prim == POLY) {
    fButtonCB(NULL, IUP_BUTTON3, 0, 0, 0, 0);
  }
  IupSetAttribute(ctgc.bt_cur_prim, IUP_IMAGE, "imgImage");
  ctgc.cur_prim = IMAGE;
  ctgc.following = FALSE;
  ctgc.visible = iscurvisible();
  IupHide(ctgc.dlg_cur_prim);
  if (ctgc.visible)
  {
    ctgc.dlg_x = IupGetInt(ctgc.dlg_cur_prim, IUP_X);
    ctgc.dlg_y = IupGetInt(ctgc.dlg_cur_prim, IUP_Y);
  }
  ctgc.dlg_cur_prim = IupGetHandle("dlgImage");
  sprintf(ctgc.status_line, "LEFT click and drag to get. RIGHT click to put.");
  set_status();
  if (ctgc.visible || IupGetAttribute(self, "ISMENU"))
    IupShowXY(ctgc.dlg_cur_prim, ctgc.dlg_x, ctgc.dlg_y);
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Pega a imagem.                                                          */
/*-------------------------------------------------------------------------*/
int fImageGet(void)
{
  int x, y, width, height;

  /* mata a image */
  if (ctgc.test_image != NULL) {
    cdKillImage(ctgc.test_image);
  }

  x = IupGetInt(IupGetHandle("txtImageX"), IUP_VALUE);
  y = IupGetInt(IupGetHandle("txtImageY"), IUP_VALUE);

  width = IupGetInt(IupGetHandle("txtImageW"), IUP_VALUE);
  height = IupGetInt(IupGetHandle("txtImageH"), IUP_VALUE);

  if (width*height != 0) 
  {
    if (ctgc.buffering) 
      cdActivate(ctgc.buffer_canvas);
    else 
      cdActivate(ctgc.iup_canvas);

    ctgc.test_image = cdCreateImage(width, height);
    if (ctgc.test_image != NULL) 
    {
      cdGetImage(ctgc.test_image, x, y);
      sprintf(ctgc.status_line, "cdGetImage( image, %d, %d)", x, y); 
      set_status();
    }

    cdActivate(ctgc.iup_canvas);
  }
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Coloca a imagem.                                                        */
/*-------------------------------------------------------------------------*/
int fImagePut(void)
{
  int x, y;

  x = IupGetInt(IupGetHandle("txtImageX"), IUP_VALUE);
  y = IupGetInt(IupGetHandle("txtImageY"), IUP_VALUE);

  if (ctgc.test_image != NULL) 
  {
    if (ctgc.buffering) 
    {
      cdActivate(ctgc.iup_canvas);
      cdClip(CD_CLIPOFF);

      cdActivate(ctgc.buffer_canvas);
    }
    else 
      cdActivate(ctgc.iup_canvas);

    cdWriteMode(ctgc.write_mode);
    cdPutImage(ctgc.test_image, x, y);
    sprintf(ctgc.status_line, "cdPutImage( image, %d, %d)", x, y); 
    set_status();

    if (ctgc.buffering) 
    {
      cdFlush();

      cdActivate(ctgc.iup_canvas);
      cdClip(ctgc.clip_mode);
    }
  }
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Prepara a seleccao de imagens.                                          */
/*-------------------------------------------------------------------------*/
int fImageRGB(Ihandle* self)
{
  if (ctgc.cur_prim == POLY) {
    fButtonCB(NULL, IUP_BUTTON3, 0, 0, 0, 0);
  }
  IupSetAttribute(ctgc.bt_cur_prim, IUP_IMAGE, "imgImageRGB");
  ctgc.cur_prim = RGB;
  ctgc.following = FALSE;
  ctgc.visible = iscurvisible();
  IupHide(ctgc.dlg_cur_prim);
  if (ctgc.visible)
  {
    ctgc.dlg_x = IupGetInt(ctgc.dlg_cur_prim, IUP_X);
    ctgc.dlg_y = IupGetInt(ctgc.dlg_cur_prim, IUP_Y);
  }
  ctgc.dlg_cur_prim = IupGetHandle("dlgImageRGB");
  sprintf(ctgc.status_line, "LEFT click and drag to get. RIGHT click to put.");
  set_status();
  if (ctgc.visible || IupGetAttribute(self, "ISMENU"))
    IupShowXY(ctgc.dlg_cur_prim, ctgc.dlg_x, ctgc.dlg_y);
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Pega a imagem.                                                          */
/*-------------------------------------------------------------------------*/
int fImageRGBGet(void)
{
  int x, y;

  x = IupGetInt(IupGetHandle("txtImageRGBX"), IUP_VALUE);
  y = IupGetInt(IupGetHandle("txtImageRGBY"), IUP_VALUE);
  ctgc.rgb_w = IupGetInt(IupGetHandle("txtImageRGBW"), IUP_VALUE);
  ctgc.rgb_h = IupGetInt(IupGetHandle("txtImageRGBH"), IUP_VALUE);

  if (ctgc.red) free(ctgc.red);
  ctgc.red   = (unsigned char *) malloc (ctgc.rgb_w*ctgc.rgb_h*sizeof(unsigned char));
  if (ctgc.green) free(ctgc.green);
  ctgc.green = (unsigned char *) malloc (ctgc.rgb_w*ctgc.rgb_h*sizeof(unsigned char));
  if (ctgc.blue) free(ctgc.blue);
  ctgc.blue  = (unsigned char *) malloc (ctgc.rgb_w*ctgc.rgb_h*sizeof(unsigned char));

  if ((ctgc.red!=NULL)&&(ctgc.green!=NULL)&&(ctgc.blue!=NULL)) {
    sprintf(ctgc.status_line, "cdGetImageRGB( r, g, b, %d, %d, %d, %d)",
      x, y, ctgc.rgb_w, ctgc.rgb_h); 
    set_status();

    if (ctgc.buffering) 
      cdActivate(ctgc.buffer_canvas);
    else 
      cdActivate(ctgc.iup_canvas);

    cdGetImageRGB(ctgc.red, ctgc.green, ctgc.blue, x, y, ctgc.rgb_w, ctgc.rgb_h);

    cdActivate(ctgc.iup_canvas);
  }
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Joga a imagem na tela.                                                  */
/*-------------------------------------------------------------------------*/
int fImageRGBPut(void)
{
  int x, y;
  
  x = IupGetInt(IupGetHandle("txtImageRGBX"), IUP_VALUE);
  y = IupGetInt(IupGetHandle("txtImageRGBY"), IUP_VALUE);

  if ((ctgc.red!=NULL)&&(ctgc.green!=NULL)&&(ctgc.blue!=NULL)) 
  {
    if (ctgc.buffering)
    {
      cdActivate(ctgc.iup_canvas);
      cdClip(CD_CLIPOFF);

      cdActivate(ctgc.buffer_canvas);
    }
    else 
      cdActivate(ctgc.iup_canvas);

    cdWriteMode(ctgc.write_mode);
    sprintf(ctgc.status_line, "cdPutImageRGB( %d, %d, r, g, b, %d, %d, %d, %d)",
      ctgc.rgb_w, ctgc.rgb_h, x, y, ctgc.rgb_w, ctgc.rgb_h); 
    set_status();
    cdPutImageRGB(ctgc.rgb_w, ctgc.rgb_h, ctgc.red, ctgc.green, ctgc.blue, x, y, ctgc.rgb_w, ctgc.rgb_h);

    if (ctgc.buffering)
    {
      cdFlush();

      cdActivate(ctgc.iup_canvas);
      cdClip(ctgc.clip_mode);
    }
  }
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Muda a primitiva corrente.                                              */
/*-------------------------------------------------------------------------*/
int fLine(Ihandle* self)
{
  if (ctgc.cur_prim != LINE) {
    IupSetAttribute(ctgc.bt_cur_prim, IUP_IMAGE, "imgLine");
    if (ctgc.cur_prim == POLY) { /* termina o poligono em andamento */
      fButtonCB(NULL, IUP_BUTTON3, 0, 0, 0, 0);
    }
    ctgc.cur_prim = LINE;
    ctgc.following = FALSE;
    ctgc.visible = iscurvisible();
    IupHide(ctgc.dlg_cur_prim);      /* esconde o dialogo anterior */
    if (ctgc.visible)
    {
      ctgc.dlg_x = IupGetInt(ctgc.dlg_cur_prim, IUP_X);
      ctgc.dlg_y = IupGetInt(ctgc.dlg_cur_prim, IUP_Y);
    }
    ctgc.dlg_cur_prim = IupGetHandle("dlgLB");
    IupSetAttribute(ctgc.dlg_cur_prim, IUP_TITLE, "Line Parameters");
  }
  sprintf(ctgc.status_line, "LEFT click and drag.");
  set_status();
  if (ctgc.visible || IupGetAttribute(self, "ISMENU"))
    IupShowXY(ctgc.dlg_cur_prim, ctgc.dlg_x, ctgc.dlg_y);
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Muda a primitiva corrente.                                              */
/*-------------------------------------------------------------------------*/
int fRect(Ihandle* self)
{
  if (ctgc.cur_prim != RECT) {
    IupSetAttribute(ctgc.bt_cur_prim, IUP_IMAGE, "imgRect");
    if (ctgc.cur_prim == POLY) {
      fButtonCB(NULL, IUP_BUTTON3, 0, 0, 0, 0);
    }
    ctgc.cur_prim = RECT;
    ctgc.following = FALSE;
    ctgc.visible = iscurvisible();
    IupHide(ctgc.dlg_cur_prim);
    if (ctgc.visible)
    {
      ctgc.dlg_x = IupGetInt(ctgc.dlg_cur_prim, IUP_X);
      ctgc.dlg_y = IupGetInt(ctgc.dlg_cur_prim, IUP_Y);
    }
    ctgc.dlg_cur_prim = IupGetHandle("dlgLB");
    IupSetAttribute(ctgc.dlg_cur_prim, IUP_TITLE, "Rect Parameters");
  }
  sprintf(ctgc.status_line, "LEFT click and drag.");
  set_status();
  if (ctgc.visible || IupGetAttribute(self, "ISMENU"))
    IupShowXY(ctgc.dlg_cur_prim, ctgc.dlg_x, ctgc.dlg_y);
  return IUP_DEFAULT;
}

int fBox(Ihandle* self)
{
  if (ctgc.cur_prim != BOX) {
    IupSetAttribute(ctgc.bt_cur_prim, IUP_IMAGE, "imgBox");
    if (ctgc.cur_prim == POLY) {
      fButtonCB(NULL, IUP_BUTTON3, 0, 0, 0, 0);
    }
    ctgc.cur_prim = BOX;
    ctgc.following = FALSE;
    ctgc.visible = iscurvisible();
    IupHide(ctgc.dlg_cur_prim);
    if (ctgc.visible)
    {
      ctgc.dlg_x = IupGetInt(ctgc.dlg_cur_prim, IUP_X);
      ctgc.dlg_y = IupGetInt(ctgc.dlg_cur_prim, IUP_Y);
    }
    ctgc.dlg_cur_prim = IupGetHandle("dlgLB");
    IupSetAttribute(ctgc.dlg_cur_prim, IUP_TITLE, "Box Parameters");
  }
  sprintf(ctgc.status_line, "LEFT click and drag.");
  set_status();
  if (ctgc.visible || IupGetAttribute(self, "ISMENU"))
    IupShowXY(ctgc.dlg_cur_prim, ctgc.dlg_x, ctgc.dlg_y);
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Muda a primitiva corrente.                                              */
/*-------------------------------------------------------------------------*/
int fArc(Ihandle* self)
{
  if (ctgc.cur_prim != ARC) {
    IupSetAttribute(ctgc.bt_cur_prim, IUP_IMAGE, "imgArc");
    if (ctgc.cur_prim == POLY) {
      fButtonCB(NULL, IUP_BUTTON3, 0, 0, 0, 0);
    }
    ctgc.cur_prim = ARC;
    ctgc.following = FALSE;
    ctgc.visible = iscurvisible();
    IupHide(ctgc.dlg_cur_prim);
    if (ctgc.visible)
    {
      ctgc.dlg_x = IupGetInt(ctgc.dlg_cur_prim, IUP_X);
      ctgc.dlg_y = IupGetInt(ctgc.dlg_cur_prim, IUP_Y);
    }
    ctgc.dlg_cur_prim = IupGetHandle("dlgAS");
    IupSetAttribute(ctgc.dlg_cur_prim, IUP_TITLE, "Arc Parameters");
  }
  sprintf(ctgc.status_line, "LEFT click at center and drag.");
  set_status();
  if (ctgc.visible || IupGetAttribute(self, "ISMENU"))
    IupShowXY(ctgc.dlg_cur_prim, ctgc.dlg_x, ctgc.dlg_y);
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Muda a primitiva corrente.                                              */
/*-------------------------------------------------------------------------*/
int fSector(Ihandle* self)
{
  if (ctgc.cur_prim != SECTOR) {
    IupSetAttribute(ctgc.bt_cur_prim, IUP_IMAGE, "imgSector");
    if (ctgc.cur_prim == POLY) {
      fButtonCB(NULL, IUP_BUTTON3, 0, 0, 0, 0);
    }
    ctgc.cur_prim = SECTOR;
    ctgc.following = FALSE;
    ctgc.visible = iscurvisible();
    IupHide(ctgc.dlg_cur_prim);
    if (ctgc.visible)
    {
      ctgc.dlg_x = IupGetInt(ctgc.dlg_cur_prim, IUP_X);
      ctgc.dlg_y = IupGetInt(ctgc.dlg_cur_prim, IUP_Y);
    }
    ctgc.dlg_cur_prim = IupGetHandle("dlgAS");
    IupSetAttribute(ctgc.dlg_cur_prim, IUP_TITLE, "Sector Parameters");
  }
  sprintf(ctgc.status_line, "LEFT click at center and drag.");
  set_status();
  if (ctgc.visible || IupGetAttribute(self, "ISMENU"))
    IupShowXY(ctgc.dlg_cur_prim, ctgc.dlg_x, ctgc.dlg_y);
  return IUP_DEFAULT;
}
   
int fChord(Ihandle* self)
{
  if (ctgc.cur_prim != CHORD) {
    IupSetAttribute(ctgc.bt_cur_prim, IUP_IMAGE, "imgChord");
    if (ctgc.cur_prim == POLY) {
      fButtonCB(NULL, IUP_BUTTON3, 0, 0, 0, 0);
    }
    ctgc.cur_prim = CHORD;
    ctgc.following = FALSE;
    ctgc.visible = iscurvisible();
    IupHide(ctgc.dlg_cur_prim);
    if (ctgc.visible)
    {
      ctgc.dlg_x = IupGetInt(ctgc.dlg_cur_prim, IUP_X);
      ctgc.dlg_y = IupGetInt(ctgc.dlg_cur_prim, IUP_Y);
    }
    ctgc.dlg_cur_prim = IupGetHandle("dlgAS");
    IupSetAttribute(ctgc.dlg_cur_prim, IUP_TITLE, "Chord Parameters");
  }
  sprintf(ctgc.status_line, "LEFT click at center and drag.");
  set_status();
  if (ctgc.visible || IupGetAttribute(self, "ISMENU"))
    IupShowXY(ctgc.dlg_cur_prim, ctgc.dlg_x, ctgc.dlg_y);
  return IUP_DEFAULT;
}
   
/*-------------------------------------------------------------------------*/
/* Muda a primitiva corrente.                                              */
/*-------------------------------------------------------------------------*/
int fPixel(Ihandle* self)
{
  if (ctgc.cur_prim != PIXEL) {
    IupSetAttribute(ctgc.bt_cur_prim, IUP_IMAGE, "imgPixel");
    if (ctgc.cur_prim == POLY) {
      fButtonCB(NULL, IUP_BUTTON3, 0, 0, 0, 0);
    }
    ctgc.cur_prim = PIXEL;
    ctgc.following = FALSE;
    ctgc.visible = iscurvisible();
    IupHide(ctgc.dlg_cur_prim);
    if (ctgc.visible)
    {
      ctgc.dlg_x = IupGetInt(ctgc.dlg_cur_prim, IUP_X);
      ctgc.dlg_y = IupGetInt(ctgc.dlg_cur_prim, IUP_Y);
    }
    ctgc.dlg_cur_prim = IupGetHandle("dlgPixel");
  }
  sprintf(ctgc.status_line, "LEFT click.");
  set_status();
  if (ctgc.visible || IupGetAttribute(self, "ISMENU"))
    IupShowXY(ctgc.dlg_cur_prim, ctgc.dlg_x, ctgc.dlg_y);
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Muda a primitiva corrente.                                              */
/*-------------------------------------------------------------------------*/
int fMark(Ihandle* self)
{
  if (ctgc.cur_prim != MARK) {
    IupSetAttribute(ctgc.bt_cur_prim, IUP_IMAGE, "imgMark");
    if (ctgc.cur_prim == POLY) {
      fButtonCB(NULL, IUP_BUTTON3, 0, 0, 0, 0);
    }
    ctgc.cur_prim = MARK;
    ctgc.following = FALSE;
    ctgc.visible = iscurvisible();
    IupHide(ctgc.dlg_cur_prim);
    if (ctgc.visible)
    {
      ctgc.dlg_x = IupGetInt(ctgc.dlg_cur_prim, IUP_X);
      ctgc.dlg_y = IupGetInt(ctgc.dlg_cur_prim, IUP_Y);
    }
    ctgc.dlg_cur_prim = IupGetHandle("dlgMark");
  }
  sprintf(ctgc.status_line, "LEFT click.");
  set_status();
  if (ctgc.visible || IupGetAttribute(self, "ISMENU"))
    IupShowXY(ctgc.dlg_cur_prim, ctgc.dlg_x, ctgc.dlg_y);
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Muda a primitiva corrente.                                              */
/*-------------------------------------------------------------------------*/
int fText(Ihandle* self)
{
  if (ctgc.cur_prim != TEXT) {
    IupSetAttribute(ctgc.bt_cur_prim, IUP_IMAGE, "imgText");
    if (ctgc.cur_prim == POLY) {
      fButtonCB(NULL, IUP_BUTTON3, 0, 0, 0, 0);
    }
    ctgc.cur_prim = TEXT;
    ctgc.following = FALSE;
    ctgc.visible = iscurvisible();
    IupHide(ctgc.dlg_cur_prim);
    if (ctgc.visible)
    {
      ctgc.dlg_x = IupGetInt(ctgc.dlg_cur_prim, IUP_X);
      ctgc.dlg_y = IupGetInt(ctgc.dlg_cur_prim, IUP_Y);
    }
    ctgc.dlg_cur_prim = IupGetHandle("dlgText");
  }
  sprintf(ctgc.status_line, "LEFT click.");
  set_status();
  if (ctgc.visible || IupGetAttribute(self, "ISMENU"))
    IupShowXY(ctgc.dlg_cur_prim, ctgc.dlg_x, ctgc.dlg_y);
  return IUP_DEFAULT;
}

int fPlayCGM(void);

int fCustom(Ihandle* self)
{
  (void)self;
  cdActivate(ctgc.iup_canvas);
  cdBackground(CD_WHITE);
  cdClear();
  dellist();         
  fPlayCGM();
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Muda a primitiva corrente.                                              */
/*-------------------------------------------------------------------------*/
int fPoly(Ihandle* self)
{
  if (ctgc.cur_prim != POLY) {
    IupSetAttribute(ctgc.bt_cur_prim, IUP_IMAGE, "imgPoly");
    ctgc.cur_prim = POLY;
    ctgc.following = FALSE;
    ctgc.visible = iscurvisible();
    IupHide(ctgc.dlg_cur_prim);
    if (ctgc.visible)
    {
      ctgc.dlg_x = IupGetInt(ctgc.dlg_cur_prim, IUP_X);
      ctgc.dlg_y = IupGetInt(ctgc.dlg_cur_prim, IUP_Y);
    }
    ctgc.dlg_cur_prim = IupGetHandle("dlgPoly");
    /* zera o buffer temporario de pontos */
    ctgc.num_points = 0; 
  }
  sprintf(ctgc.status_line, "LEFT click to add vertex. RIGHT click to end.");
  set_status();
  if (ctgc.visible || IupGetAttribute(self, "ISMENU"))
    IupShowXY(ctgc.dlg_cur_prim, ctgc.dlg_x, ctgc.dlg_y);
  return IUP_DEFAULT;
}

int fOptions(void)
{
  IupShow(IupGetHandle("dlgOptions"));
  return IUP_DEFAULT;
}

int fOptionsHide(void)
{
  IupHide(IupGetHandle("dlgOptions"));
  return IUP_DEFAULT;
}


/*-------------------------------------------------------------------------*/
/* Mostra a caixa de dialogo Attributes.                                   */
/*-------------------------------------------------------------------------*/
int fAttributes(void)
{
  IupShow(IupGetHandle("dlgAttributes"));
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Esconde o dialogo de Attributes.                                        */
/*-------------------------------------------------------------------------*/
int fAttributesHide(void)
{
  ctgc.font_size = IupGetInt(IupGetHandle("txtFontSize"), IUP_VALUE);
  cdFont(ctgc.font_type_face,ctgc.font_style,ctgc.font_size);
  IupHide(IupGetHandle("dlgAttributes"));
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Esconde o dialogo de primitiva corrente.                                */
/*-------------------------------------------------------------------------*/
int fMsgHide(void)
{
  IupHide(ctgc.dlg_cur_prim);
  ctgc.dlg_x = IupGetInt(ctgc.dlg_cur_prim, IUP_X);
  ctgc.dlg_y = IupGetInt(ctgc.dlg_cur_prim, IUP_Y);
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Filtra inteiros.                                                        */
/*-------------------------------------------------------------------------*/
int fInteger(Ihandle *self, int c)
{
  ignore(self);
  if (isdigit(c) || c == '-') 
    return IUP_DEFAULT;
  else if (c) 
    return IUP_IGNORE;
  else 
    return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Filtra reais.                                                           */
/*-------------------------------------------------------------------------*/
int fReal(Ihandle *self, int c)
{
  ignore(self);
  if (isdigit(c)) 
    return IUP_DEFAULT;
  else if ((c=='.') || (c=='e') || (c=='E') || (c=='+') || (c=='-')) 
    return IUP_DEFAULT;
  else if (c) 
    return IUP_IGNORE;
  else 
    return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Desenha a primitiva entrada na caixa de dialogo ativa.                  */
/*-------------------------------------------------------------------------*/
void draw(void)
{
  int a, b;

  IupSetAttribute(IupGetHandle("itEditUndo"), IUP_ACTIVE, IUP_YES);
  ctgc.line_width = IupGetInt(IupGetHandle("txtLineWidth"), IUP_VALUE);
  if (ctgc.line_width < 1) ctgc.line_width = 1;
  ctgc.font_size = IupGetInt(IupGetHandle("txtFontSize"), IUP_VALUE);

  /* escolhe entre o canvas na tela e o off-screen */
  if (ctgc.buffering) 
  {
    cdActivate(ctgc.iup_canvas);
    cdClip(CD_CLIPOFF);

    cdActivate(ctgc.buffer_canvas);
  }
  else 
    cdActivate(ctgc.iup_canvas);

  /* atualiza os atributos */
  cdWriteMode(ctgc.write_mode);
  cdLineStyle(ctgc.line_style);
  cdLineCap(ctgc.line_cap);
  cdLineJoin(ctgc.line_join);
  cdLineWidth(ctgc.line_width);
  cdForeground(ctgc.foreground);
  cdBackground(ctgc.background);
  cdHatch(ctgc.hatch);
  cdFillMode(ctgc.fill_mode);
  cdInteriorStyle(ctgc.interior_style);
  cdBackOpacity(ctgc.back_opacity);

  cdClipArea(ctgc.clip_xmin,ctgc.clip_xmax,ctgc.clip_ymin,ctgc.clip_ymax);
  cdClip(ctgc.clip_mode);

  switch (ctgc.cur_prim) {
    case LINE:
      /* atualiza a linha de status */
      sprintf(ctgc.status_line, "cdLine( %d, %d, %d, %d)", line_pos.x1, 
        line_pos.y1, line_pos.x2, line_pos.y2);
      set_status();
      /* desenha a line na tela */
      cdLine(line_pos.x1, line_pos.y1, line_pos.x2, line_pos.y2);
      /* arquiva a line */
      newline(line_pos.x1, line_pos.y1, line_pos.x2, line_pos.y2); 
      break;
    case RECT:
      /* atualiza a linha de status */
      sprintf(ctgc.status_line,"cdRect( %d, %d, %d, %d)",box_pos.xmin, 
        box_pos.xmax, box_pos.ymin, box_pos.ymax);
      set_status();
      /* desenha a box na tela */
      cdRect(box_pos.xmin, box_pos.xmax, box_pos.ymin, box_pos.ymax);
      /* armazena a box */
      newrect(box_pos.xmin, box_pos.xmax, box_pos.ymin, box_pos.ymax); 
      break;
    case BOX:
      /* atualiza a linha de status */
      sprintf(ctgc.status_line,"cdBox( %d, %d, %d, %d)",box_pos.xmin, 
        box_pos.xmax, box_pos.ymin, box_pos.ymax);
      set_status();
      /* desenha a box na tela */
      cdBox(box_pos.xmin, box_pos.xmax, box_pos.ymin, box_pos.ymax);
      /* armazena a box */
      newbox(box_pos.xmin, box_pos.xmax, box_pos.ymin, box_pos.ymax); 
      break;
    case ARC:
      arc_pos.angle1 = IupGetFloat(IupGetHandle("txtASAngle1"),IUP_VALUE);
      arc_pos.angle2 = IupGetFloat(IupGetHandle("txtASAngle2"),IUP_VALUE);
      /* atualiza a linha de status */
      sprintf(ctgc.status_line,"cdArc( %d, %d, %d, %d, %.5G, %.5G)", arc_pos.xc, 
        arc_pos.yc, arc_pos.w, arc_pos.h, arc_pos.angle1, arc_pos.angle2);
      set_status();
      /* desenha o arc na tela */
      cdArc(arc_pos.xc, arc_pos.yc, arc_pos.w, arc_pos.h, arc_pos.angle1, 
        arc_pos.angle2);
      /* armazena o arc */
      newarc(arc_pos.xc, arc_pos.yc, arc_pos.w, arc_pos.h, arc_pos.angle1, 
        arc_pos.angle2);
      break;
    case SECTOR:
      arc_pos.angle1 = IupGetFloat(IupGetHandle("txtASAngle1"),IUP_VALUE);
      arc_pos.angle2 = IupGetFloat(IupGetHandle("txtASAngle2"),IUP_VALUE);
      /* atualiza a linha de status */
      sprintf(ctgc.status_line,"cdSector( %d, %d, %d, %d, %.5G, %.5G)", arc_pos.xc, 
        arc_pos.yc, arc_pos.w, arc_pos.h, arc_pos.angle1, arc_pos.angle2);
      set_status();
      /* desenha o sector na tela */
      cdSector(arc_pos.xc, arc_pos.yc, arc_pos.w, arc_pos.h, arc_pos.angle1, 
        arc_pos.angle2);
      /* armazena o sector */
      newsector(arc_pos.xc, arc_pos.yc, arc_pos.w, arc_pos.h, arc_pos.angle1, 
        arc_pos.angle2);
      break;
    case CHORD:
      arc_pos.angle1 = IupGetFloat(IupGetHandle("txtASAngle1"),IUP_VALUE);
      arc_pos.angle2 = IupGetFloat(IupGetHandle("txtASAngle2"),IUP_VALUE);
      /* atualiza a linha de status */
      sprintf(ctgc.status_line,"cdChord( %d, %d, %d, %d, %.5G, %.5G)", arc_pos.xc, 
        arc_pos.yc, arc_pos.w, arc_pos.h, arc_pos.angle1, arc_pos.angle2);
      set_status();
      /* desenha o sector na tela */
      cdChord(arc_pos.xc, arc_pos.yc, arc_pos.w, arc_pos.h, arc_pos.angle1, 
        arc_pos.angle2);
      /* armazena o sector */
      newchord(arc_pos.xc, arc_pos.yc, arc_pos.w, arc_pos.h, arc_pos.angle1, 
        arc_pos.angle2);
      break;
    case PIXEL:
      /* atualiza a linha de status */
      sprintf(ctgc.status_line, "cdPixel( %d, %d, 0x%.6lx )",pixel_pos.x, pixel_pos.y,ctgc.foreground);
      set_status();
      /* desenha o pixel na tela */
      cdPixel(pixel_pos.x, pixel_pos.y, ctgc.foreground);
      /* armazena o pixel */
      newpixel(pixel_pos.x, pixel_pos.y);
      break;
    case MARK:
      mark_pos.size = IupGetInt(IupGetHandle("txtMarkSize"),IUP_VALUE);
      /* atualiza a linha de status */
      sprintf(ctgc.status_line,"cdMark( %d, %d)", mark_pos.x, mark_pos.y);
      set_status();
      /* armazena a marca */
      newmark(mark_pos.x, mark_pos.y, mark_pos.size);
      /* desenha a marca na tela */
      cdMarkType(ctgc.mark_type);
      cdMarkSize(mark_pos.size);
      cdMark(mark_pos.x, mark_pos.y);
      break;
    case TEXT:
      if (IupGetAttribute(IupGetHandle("txtTextS"),IUP_VALUE)) {
        a=IupGetInt(IupGetHandle("txtTextX"),IUP_VALUE);
        b=IupGetInt(IupGetHandle("txtTextY"),IUP_VALUE);
        sprintf(ctgc.status_line," cdText( %d, %d, ""%.3s""...)", a, b,
                IupGetAttribute(IupGetHandle("txtTextS"),IUP_VALUE));
        set_status();
        ctgc.text_orientation = IupGetInt(IupGetHandle("txtTextOrientation"),IUP_VALUE);
        newtext(a,b,IupGetAttribute(IupGetHandle("txtTextS"),IUP_VALUE));
        cdFont(ctgc.font_type_face,ctgc.font_style,ctgc.font_size);
        cdTextAlignment(ctgc.text_alignment);
        cdTextOrientation(ctgc.text_orientation);
        cdText(a,b,IupGetAttribute(IupGetHandle("txtTextS"),IUP_VALUE));
      }
    case POLY:
      if (ctgc.num_points > 1) {
        cdBegin(ctgc.poly_mode);
        for (a=0; (a<ctgc.num_points); a++) {
          cdVertex(ctgc.points[a].x,ctgc.points[a].y);
        }
        cdEnd();
        if (ctgc.poly_mode != CD_CLIP)
          newpoly();
        ctgc.num_points = 0;
      }
      break;
    default:
      break;
  }

  if (ctgc.buffering) 
  {
    cdFlush();

    cdActivate(ctgc.iup_canvas);
    cdClip(ctgc.clip_mode);
  }
}

/*-------------------------------------------------------------------------*/
/* Desenha a primitiva entrada na caixa de dialogo corrente.               */
/*-------------------------------------------------------------------------*/
int fDraw(void)
{
  /* atualiza os dados entrados na caixa de dialogo no contexto da */
  /* primitiva corrente */
  switch (ctgc.cur_prim) {
    case LINE:
      line_pos.x1 = IupGetInt(IupGetHandle("txtLBX1"), IUP_VALUE);
      line_pos.x2 = IupGetInt(IupGetHandle("txtLBX2"), IUP_VALUE);
      line_pos.y1 = IupGetInt(IupGetHandle("txtLBY1"), IUP_VALUE);
      line_pos.y2 = IupGetInt(IupGetHandle("txtLBY2"), IUP_VALUE);
      break;
    case RECT:
    case BOX:
      box_pos.xmin = IupGetInt(IupGetHandle("txtLBX1"), IUP_VALUE);
      box_pos.xmax = IupGetInt(IupGetHandle("txtLBX2"), IUP_VALUE);
      box_pos.ymin = IupGetInt(IupGetHandle("txtLBY1"), IUP_VALUE);
      box_pos.ymax = IupGetInt(IupGetHandle("txtLBY2"), IUP_VALUE);
      break;
    case ARC:
    case CHORD:
    case SECTOR:
      arc_pos.xc = IupGetInt(IupGetHandle("txtASXC"), IUP_VALUE);
      arc_pos.yc = IupGetInt(IupGetHandle("txtASYC"), IUP_VALUE);
      arc_pos.w = IupGetInt(IupGetHandle("txtASW"), IUP_VALUE);
      arc_pos.h = IupGetInt(IupGetHandle("txtASH"), IUP_VALUE);
      break;
    case PIXEL:
      pixel_pos.x = IupGetInt(IupGetHandle("txtPixelX"), IUP_VALUE);
      pixel_pos.y = IupGetInt(IupGetHandle("txtPixelY"), IUP_VALUE);
      break;
    case MARK:
      mark_pos.x = IupGetInt(IupGetHandle("txtMarkX"), IUP_VALUE);
      mark_pos.y = IupGetInt(IupGetHandle("txtMarkY"), IUP_VALUE);
      break;
    default:
      break;
  }

  /* efetivamente desenha a primitiva */
  draw();
  
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Mostra a janelinha de apresentacao.                                     */
/*-------------------------------------------------------------------------*/
int fHelpAbout(void)
{
  IupSetAttribute(IupGetHandle("lblVersion"), IUP_TITLE, cdVersion());
  IupShow(IupGetHandle("dlgHelpAbout"));
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Mata a janelinha de apresentacao.                                       */
/*-------------------------------------------------------------------------*/
int fCloseAbout(void)
{
  IupHide(IupGetHandle("dlgHelpAbout"));
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Limpa o canvas e a lista de primitivas.                                 */
/*-------------------------------------------------------------------------*/
int fEditClear(void)
{
  /* mata a lista de primitivas */
  dellist();         

  /* torna inativo a opcap undo */
  IupSetAttribute(IupGetHandle("itEditUndo"), IUP_ACTIVE, IUP_NO);

  updatecanvas();

  sprintf(ctgc.status_line, "cdClear()");
  set_status();

  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Funcao associada ao ganho de focus do canvas.                           */
/*-------------------------------------------------------------------------*/
int fGetFocusCB(Ihandle *self)
{
  ignore(self);
  /* avisa ao CD que o focus foi recebido, */
  /* para que ele restaure o contexto grafico */
  cdActivate(ctgc.iup_canvas);
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Funcao associada ao movimento do mouse.                                 */
/*-------------------------------------------------------------------------*/
int fMotionCB(Ihandle *self, int x, int y, char *r)
{
  ignore(self);
  ignore(r);

  if (!ctgc.iup_canvas)
    return IUP_DEFAULT;

  cdActivate(ctgc.iup_canvas);
  cdUpdateYAxis(&y);
  mouse_pos(x, y);

  if (ctgc.following) {
    switch(ctgc.cur_prim) {
      case LINE:
        line(MOVE, x, y);
        follow(x, y);
        break;
      case RECT:
      case BOX:
        box(MOVE, x, y);
        follow(x, y);
        break;
      case CLIP:
        box(MOVE, x, y);
        follow(x, y);
        break;
      case ARC:    /* ARC e SECTOR... */
      case SECTOR: /* sao equivalentes */
      case CHORD:
        arc(MOVE, x, y);
        follow(x, y);
        break;
      case IMAGE:
        box(MOVE, x, y);
        follow(x, y);
        break;
      case RGB:
        box(MOVE, x, y);
        follow(x, y);
        break;
      case POLY:
        polygon(MOVE, x, y);
        break;
      default:
        break;
    }
  }
  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Funcao associada ao botao do mouse.                                     */
/*-------------------------------------------------------------------------*/
int fButtonCB(Ihandle *self, int b, int e, int x, int y, char *r)
{
  ignore(self);
  ignore(r);

  cdActivate(ctgc.iup_canvas);
  cdWriteMode(CD_NOT_XOR);
  cdForeground(CD_BLACK);
  cdLineStyle(CD_CONTINUOUS);
  cdLineWidth(1);
  cdClip(CD_CLIPOFF);

  cdUpdateYAxis(&y);
  mouse_pos(x, y);

  if (b == IUP_BUTTON1) {
    if (e) {
      switch(ctgc.cur_prim) {
        case LINE:
          follow(x, y);
          line(NEWPOINT, x, y);
          line_pos.x1 = x;
          line_pos.y1 = y;
          ctgc.following = TRUE;
          break;
        case RECT:
        case BOX:
          follow(x, y);
          box(NEWPOINT, x, y);
          box_pos.x = x;
          box_pos.y = y;
          ctgc.following = TRUE;
          break;
        case CLIP:
          box(NEWPOINT, x, y);
          follow(x, y);
          ctgc.following = TRUE;
          break;
        case ARC:    /* ARC e SECTOR... */
        case SECTOR: /* sao equivalentes */
        case CHORD:
          follow(x, y);
          arc(CENTER, x, y);
          arc_pos.xc = x;
          arc_pos.yc = y;
          ctgc.following = TRUE;
          break;
        case MARK:
        case PIXEL:
        case TEXT:
          follow(x, y);
          draw();
          break;
        case IMAGE:
          follow(x, y);
          box(NEWPOINT, x, y);
          ctgc.following = TRUE;
          break;
        case RGB:
          follow(x, y);
          box(NEWPOINT, x, y);
          ctgc.following = TRUE;
          break;
        default:
          break;
      }
    }
    else {
      switch(ctgc.cur_prim) {
        case LINE:
          if (ctgc.following) {
            ctgc.following = FALSE;
            line(CLOSE, x, y);
            cdClip(ctgc.clip_mode);
            draw();
          }
          break;
        case RECT:
        case BOX:
          if (ctgc.following) {
            ctgc.following = FALSE;
            box(CLOSE, x, y);
            cdClip(ctgc.clip_mode);
            draw();
          }
          break;
        case CLIP:
          if (ctgc.following) {
            ctgc.following = FALSE;
            box(CLOSE, x, y);
            fClipArea();
          }
         break;
        case ARC:    /* ARC e SECTOR... */
        case SECTOR: /* ...sao equivalentes */
        case CHORD:
          if (ctgc.following) {
            ctgc.following = FALSE;
            arc(CLOSE, x, y);
            cdClip(ctgc.clip_mode);
            draw();
            arc_pos.w = 0;
            arc_pos.h = 0;
          }
          break;
        case POLY:
          cdActivate(ctgc.iup_canvas);
          polygon(NEWPOINT, x, y);
          newpolypoint(x, y);
          sprintf(ctgc.status_line, "cdVertex( %d, %d)", x, y);
          set_status();
          ctgc.following = TRUE;
          break;
        case IMAGE:
          if (ctgc.following) {
            ctgc.following = FALSE;
            box(CLOSE, x, y);
            cdClip(ctgc.clip_mode);
            fImageGet();
          }
          break;
        case RGB:
          if (ctgc.following) {
            ctgc.following = FALSE;
            box(CLOSE, x, y);
            cdClip(ctgc.clip_mode);
            fImageRGBGet();
          }
          break;
        default:
          break;
      }
    }
  }
  else if (b == IUP_BUTTON3) {
    if (e) {
      switch (ctgc.cur_prim) {
        case IMAGE:
          cdClip(ctgc.clip_mode);
          follow(x, y);
          fImagePut();
          break;
        case RGB:
          cdClip(ctgc.clip_mode);
          follow(x, y);
          fImageRGBPut();
          break;
        case CLIP:
          fClipOff();
          break;
        default:
          break;
      }
    }
    else {
      switch (ctgc.cur_prim) {
        case POLY:
          cdActivate(ctgc.iup_canvas);
          ctgc.following = FALSE;
          polygon(CLOSE, x, y);
          sprintf(ctgc.status_line, "cdEnd()");
          set_status();
          fDraw();
          break;
        default:
          break;
      }
    }
  }

  return IUP_DEFAULT;
}

/*-------------------------------------------------------------------------*/
/* Funcao associada ao resize do canvas.                                   */
/*-------------------------------------------------------------------------*/
int fResizeCB(Ihandle *self, int width, int height)
{
  ignore(self);

  /* atualiza o contexto do programa */
  ctgc.w = width;
  ctgc.h = height;

  /* atualiza o tamanho do canvas em pixels no titulo */
  sprintf(ctgc.title, "CDTest 5.3 (%dx%d - %dbpp)", ctgc.w, ctgc.h, ctgc.bpp);
  IupSetAttribute(IupGetHandle("dlgMain"), IUP_TITLE, ctgc.title);

  /* reconstroi o buffer off-screen, se necessario */
  if (ctgc.buffering) 
    cdActivate(ctgc.buffer_canvas);
  else
    cdActivate(ctgc.iup_canvas);

  return IUP_DEFAULT;
}

void cdtest_loadled(void);

/*-------------------------------------------------------------------------*/
/* Rotina principal.                                                       */
/*-------------------------------------------------------------------------*/
int main(int argc, char** argv)
{
  char *err = NULL;

  /* inicializa o IUP */
  IupOpen(&argc, &argv);                        

  /* carrega o LED */
#ifdef USE_LED
  err = IupLoad("cdtest.led");
#else
  cdtest_loadled();
#endif

  if (!err)
  {
    /* inicializa o CDTest */
    CDTestInit();                     
  }
  else
  {
    /* imprime uma mensagem de erro */ 
    IupMessage("LED Error:", err);
    IupClose();
    return;
  }

  IupMainLoop();

  CDTestClose();

  IupClose();

  return 0;
}