paintmap.c

Go to the documentation of this file.

/* --
OpenFX - Modelling, Animation and Rendering Package
-- */

/*  PAINTMAP.C  DLL to apply mapping coords by unwrapping mesh */

#include <stdlib.h>
#include <stdio.h>
#include <math.h>
#include <setjmp.h>
#include <windows.h>
#include <commctrl.h>
#include <vfw.h>

#include "struct.h"
#include "callback.h"
#include "dstruct.h"

#include "paintmap.h"

typedef struct tagMENUHELPDATA{
  int iCode;
  char *str;
} MENUHELPDATA;

#if __X__MIPS__
BOOL WINAPI _CRT_INIT(HINSTANCE ,DWORD , LPVOID );
#endif

#define DESELECTED 0
#define SELECTED   1

#define MAXTEXT     256


static HWND      hParent,hInfo;
static HINSTANCE hThisInstance;
static HDRAWDIB  hDrawDib = NULL;

#define BOUND(x,min,max) ((x) < (min) ? (min) : ((x) > (max) ? (max) : (x)))
#define SWAP(x,y)   ((x)^=(y)^=(x)^=(y))
#define MIN(x,y) (((x) <= (y)) : x ? y)
#define StartWait() hcurSave = SetCursor(LoadCursor(NULL,IDC_WAIT))
#define EndWait()   SetCursor(hcurSave)
/* macro to determine if resource is a DIB */

static char *szViewClass="OFX:PaintMapClass";
static SYSTEM_INFO sys_info;
static int ImageWidth, ImageHeight,DisplayWidth,DisplayHeight,DisplayBits,DisplayPlanes,xScreen,yScreen;
static unsigned char  *ImagePixels;
static BITMAPINFOHEADER ImageHeader;
static long xOffset=0,yOffset=0;
static double scale=1.0;
static BOOL bChanged=FALSE;

static POINT ptSize;
static DWORD fdwStyle = WS_POPUP | WS_CAPTION | ! WS_SYSMENU |
                        WS_MAXIMIZEBOX | WS_MINIMIZEBOX | WS_THICKFRAME;
static HCURSOR hcurSave;

static int pen=0,stretched=1,tracetool=0;

static long Nf=0,NvSelect=0;
static struct TFLIST {long fID; BOOL bSelect[3]; float x[3], y[3];} *TFlist=NULL;

#define NMENUHELPDATA 16
static MENUHELPDATA MenuHelpData[NMENUHELPDATA]={
  0xFFFF,             "   ",
  IDM_PEN_RED,        "Draw with RED pen",
  IDM_PEN_WHITE,      "Draw with WHITE pen",
  IDM_PEN_BLACK,      "Draw with BLACK pen",
  IDM_PEN_CYAN,       "Draw with CYAN pen",
  IDM_SELECT_ALL,     "Select All (ctl+A)",
  IDM_SELECT_NONE,    "Select None (ctl+D)",
  IDM_SELINVERT,      "Select Invert",
  IDM_SCALE,          "Scale (X)<ctl>",
  IDM_SELECT,         "Select (S)",
  IDM_MOVE,           "Click on vertex to move",
  IDM_PAN,            "Pan (P)",
  IDM_ZOOM,           "Zoom (Z) ",
  IDM_EXIT,           "Finish",
  IDM_ABORT,          "Update Mapping ",
  IDM_ROTATE,         "Rotate (R)"
};

static int ErrMsg(char *sz,...);
static void PutMsg(char *s);
static LRESULT CALLBACK MainWndProc(HWND hWnd,UINT iMessage,WPARAM wParam,LPARAM lParam);
static BOOL MenuCommand(HWND hWnd, WORD id);
static void AppPaint(HWND hWnd, HDC hDC, int x, int y);
static BOOL Viewer(void);
static void DrawRubberBox(HWND hwnd, int x, int y, int xx, int yy );
static void SelectInBox(BOOL, BOOL, HWND, int x, int y, int xx, int yy );
static void SetMovement(HWND, int, int);
static void SetScale(HWND, float, float, int, int);
static void SetRotation(HWND hwnd, float angle, long rxp, long ryp);
static void DrawList(HWND hwnd, HDC hDC);
static void DrawRubberList(HWND hwnd, int x, int y, float s);
static void DrawRotatedRubberList(HWND hwnd, int xo, int yo, float r);
static void DrawScaledRubberList(HWND hwnd, int xo, int yo, float sx, float sy);
static void DrawFaceList(HWND hwnd, HDC hDC);
static void SetSelection(BOOL);
static void InvertSelection(void);
static void UpdateFaceMapping(void);

static BOOL Viewer(void){
 MSG msg;
 HWND hDesktopWnd,hWnd;
 HDC hDCcaps;
 WNDCLASS wndclass;
 HANDLE hAccel;
 hDesktopWnd = GetDesktopWindow();
 hDCcaps     = GetDC(hDesktopWnd);
 DisplayWidth= GetDeviceCaps(hDCcaps,HORZRES);
 DisplayHeight= GetDeviceCaps(hDCcaps,VERTRES);
 DisplayBits= GetDeviceCaps(hDCcaps,BITSPIXEL);
 DisplayPlanes= GetDeviceCaps(hDCcaps,PLANES);
 ReleaseDC(hDesktopWnd,hDCcaps);
 GetSystemInfo(&sys_info);
 wndclass.style         = 0;
 wndclass.lpfnWndProc   = (WNDPROC)MainWndProc;
 wndclass.cbClsExtra    = 0 ;
 wndclass.cbWndExtra    = 0 ;
 wndclass.hInstance     = hThisInstance ;
 wndclass.hIcon         = NULL;
 wndclass.hCursor       = LoadCursor (NULL, IDC_ARROW) ;
 wndclass.hbrBackground = GetStockObject (WHITE_BRUSH) ;
 wndclass.lpszMenuName  = "tracemenu" ;
 wndclass.lpszClassName = szViewClass;
 if (!RegisterClass (&wndclass))  return FALSE ;
 xScreen = GetSystemMetrics (SM_CXSCREEN) ;
 yScreen = GetSystemMetrics (SM_CYSCREEN) ;
 hWnd = CreateWindow(
        szViewClass,
        "Texture Coordinate Editor",
        fdwStyle,
        25,
        25,
        xScreen-50,
        yScreen-50,
        hParent,
        NULL,
        hThisInstance,
        NULL) ;
 if(hWnd == NULL)return FALSE;
 hDrawDib=DrawDibOpen();
 ShowWindow (hWnd,SW_SHOWNA);
 PostMessage(hWnd,WM_COMMAND,(WPARAM)IDM_DRAWIT,0);
 hAccel=LoadAccelerators(hThisInstance,MAKEINTRESOURCE(TRACEACCEL));
 while(GetMessage (&msg,NULL,0,0)){
   if(!TranslateAccelerator(hWnd,hAccel,&msg)){
     TranslateMessage (&msg);
     DispatchMessage (&msg);
   }
 }
 DestroyWindow(hWnd);
 if(hDrawDib != NULL)DrawDibClose(hDrawDib);
 UnregisterClass(wndclass.lpszClassName,wndclass.hInstance);
 if(TFlist != NULL)X__Free(TFlist); TFlist=NULL; Nf=0;
 return TRUE;
}

LRESULT CALLBACK MainWndProc(HWND hWnd,UINT iMessage,WPARAM wParam,
                             LPARAM lParam){
 static BOOL bToolCaptured=FALSE;
 static HCURSOR hCursorSave;
 static POINT LastPt,FirstPt;
 static BOOL bMoved;
 static BOOL bSingle;
 static float sx,sy,angle;
 PAINTSTRUCT ps;
 HDC hDC;
 int i,dx,dy;
 RECT rc;
 POINT pt;
 double delta;
 switch (iMessage) {
   case WM_DESTROY:
    break;
  case WM_COMMAND:
    return MenuCommand(hWnd,LOWORD(wParam));
    break;
  case WM_MENUSELECT: {
      HMENU hmenu;
      UINT fuFlags,uItem,id;
      hmenu=(HMENU)lParam;
      fuFlags=(UINT)HIWORD(wParam);
      uItem=(UINT)LOWORD(wParam);
      id=0;
      if(fuFlags == 0xFFFF)id=0;
      else if(fuFlags & MF_POPUP){;}
      else{
        for(i=0;i<NMENUHELPDATA;i++){
          if(uItem == MenuHelpData[i].iCode){id=(UINT)i; break;}
        }
      }
      SendMessage(hInfo,SB_SETTEXT,(WPARAM)0,(LPARAM)MenuHelpData[id].str);
    }
    break;
  case WM_LBUTTONDOWN:
    bMoved=FALSE;
    if(tracetool == 0 || bToolCaptured)break;
    else if(tracetool == 1){ // select
      bToolCaptured=TRUE;
      SetCapture(hWnd);
      hCursorSave=SetCursor(LoadCursor(NULL,IDC_SIZE));
      LastPt.x=LOWORD(lParam); LastPt.y=HIWORD(lParam);
      FirstPt.x=LOWORD(lParam); FirstPt.y=HIWORD(lParam);
      DrawRubberBox(hWnd,FirstPt.x,FirstPt.y,LastPt.x,LastPt.y);
    }
    else if(tracetool == 2){ // move
      bToolCaptured=TRUE;
      SetCapture(hWnd);
      hCursorSave=SetCursor(LoadCursor(NULL,IDC_SIZE));
      LastPt.x=LOWORD(lParam); LastPt.y=HIWORD(lParam);
      FirstPt.x=LOWORD(lParam); FirstPt.y=HIWORD(lParam);
      if(NvSelect == 0){
        SelectInBox(FALSE,TRUE,hWnd,FirstPt.x-4,FirstPt.y-4,LastPt.x+4,LastPt.y+4);
        bSingle=TRUE;
      }
      else bSingle=FALSE;
      DrawRubberList(hWnd,0,0,1.0);
    }
    else if(tracetool == 4 || tracetool == 3){ /* zoom  or pan */
      if(tracetool == 3 && scale <= 1.0)break; // cant pan if fully zoomed out
      bToolCaptured=TRUE;
      SetCapture(hWnd);
      hCursorSave=SetCursor(LoadCursor(NULL,IDC_HAND));
      LastPt.x=LOWORD(lParam); LastPt.y=HIWORD(lParam);

    }
    else if(tracetool == 5){ /* scale */
      sx=sy=1.0;
      bToolCaptured=TRUE;
      SetCapture(hWnd);
      hCursorSave=SetCursor(LoadCursor(NULL,IDC_SIZE));
      LastPt.x=LOWORD(lParam); LastPt.y=HIWORD(lParam);
      FirstPt.x=LOWORD(lParam); FirstPt.y=HIWORD(lParam);
      DrawScaledRubberList(hWnd,FirstPt.x,FirstPt.y,0.0,0.0);
//      DrawRubberList(hWnd,0,0,1.0);
    }
    else if(tracetool == 6){ /* rotate */
      sx=sy=1.0;
      angle=0.0;
      bToolCaptured=TRUE;
      SetCapture(hWnd);
      hCursorSave=SetCursor(LoadCursor(NULL,IDC_SIZE));
      LastPt.x=LOWORD(lParam); LastPt.y=HIWORD(lParam);
      FirstPt.x=LOWORD(lParam); FirstPt.y=HIWORD(lParam);
      DrawRotatedRubberList(hWnd,FirstPt.x,FirstPt.y,angle);
    }
    GetClientRect(hWnd,&rc);
    pt.x=rc.left; pt.y=rc.top;
    ClientToScreen(hWnd,&pt);
    rc.left=pt.x; rc.top=pt.y;
    pt.x=rc.right; pt.y=rc.bottom;
    ClientToScreen(hWnd,&pt);
    rc.right=pt.x; rc.bottom=pt.y;
    ClipCursor(&rc);
    break;
  case WM_MOUSEMOVE:
    if(!bToolCaptured)break;
    if(tracetool == 1){ // select
      DrawRubberBox(hWnd,FirstPt.x,FirstPt.y,LastPt.x,LastPt.y);
      LastPt.x=LOWORD(lParam); LastPt.y=HIWORD(lParam);
      DrawRubberBox(hWnd,FirstPt.x,FirstPt.y,LastPt.x,LastPt.y);
    }
    if(tracetool == 2){ // move
      DrawRubberList(hWnd,LastPt.x-FirstPt.x,LastPt.y-FirstPt.y,1.0);
      LastPt.x=LOWORD(lParam); LastPt.y=HIWORD(lParam);
      DrawRubberList(hWnd,LastPt.x-FirstPt.x,LastPt.y-FirstPt.y,1.0);
    }
    if(tracetool == 3){ // pan
      dx=(int)LOWORD(lParam) - (int)LastPt.x;
      dy=(int)HIWORD(lParam) - (int)LastPt.y;
      GetClientRect(hWnd,&rc);
      delta=(double)ImageWidth/scale*(double)dx/(double)rc.right;   
      xOffset = xOffset-(int)delta;
      if(xOffset < 0)xOffset=0;
      if(xOffset+ImageWidth/scale > ImageWidth)xOffset=ImageWidth-ImageWidth/scale;
      delta=(double)ImageHeight/scale*(double)dy/(double)rc.bottom;   
      yOffset = yOffset-(int)delta;
      if(yOffset < 0)yOffset=0;
      if(yOffset+ImageHeight/scale > ImageHeight)yOffset=ImageHeight-ImageHeight/scale;
      LastPt.x=LOWORD(lParam); LastPt.y=HIWORD(lParam);
      InvalidateRect(hWnd,NULL,FALSE);
    }
    if(tracetool == 4){ // zoom
      dx=(int)LOWORD(lParam) - (int)LastPt.x;
      scale += 0.005*(double)dx; if(scale < 1.0)scale=1.0; if(scale > 8.0)scale=8.0;
      if(xOffset+ImageWidth/scale > ImageWidth)xOffset=ImageWidth-ImageWidth/scale;
      if(xOffset < 0)xOffset=0;
      if(yOffset+ImageHeight/scale > ImageHeight)yOffset=ImageHeight-ImageHeight/scale;
      if(yOffset < 0)yOffset=0;
      LastPt.x=LOWORD(lParam); LastPt.y=HIWORD(lParam);
      InvalidateRect(hWnd,NULL,FALSE);
    }
    if(tracetool == 5){ // scale
//      DrawRubberList(hWnd,0,0,ss);
      DrawScaledRubberList(hWnd,FirstPt.x,FirstPt.y,sx,sy);
      dx=(int)LOWORD(lParam) - (int)LastPt.x;
      sx += 0.005*(double)dx; if(sx < 0.2)sx=0.2; if(sx > 4.0)sx=4.0;
      if(!(GetKeyState(VK_CONTROL) & 0x8000))
      sy += 0.005*(double)dx; if(sy < 0.2)sy=0.2; if(sy > 4.0)sy=4.0;
      LastPt.x=LOWORD(lParam); LastPt.y=HIWORD(lParam);
      DrawScaledRubberList(hWnd,FirstPt.x,FirstPt.y,sx,sy);
//      DrawRubberList(hWnd,0,0,ss);
    }
    if(tracetool == 6){ // rotate
      DrawRotatedRubberList(hWnd,FirstPt.x,FirstPt.y,angle);
      angle = -(double)((int)LOWORD(lParam)-FirstPt.x)*0.1;
      DrawRotatedRubberList(hWnd,FirstPt.x,FirstPt.y,angle);
    }
    bMoved=TRUE;
    break;
  case WM_LBUTTONUP:
    if(!bToolCaptured)break;
    if(tracetool == 1){ /* select */
      DrawRubberBox(hWnd,FirstPt.x,FirstPt.y,LastPt.x,LastPt.y);
      LastPt.x=LOWORD(lParam); LastPt.y=HIWORD(lParam);
      if(!bMoved){
        SelectInBox(TRUE,TRUE,hWnd,FirstPt.x-3,FirstPt.y-3,LastPt.x+3,LastPt.y+3);
      }
      else{
        SelectInBox(FALSE,TRUE,hWnd,FirstPt.x,FirstPt.y,LastPt.x,LastPt.y);
      }
      SetCursor(hCursorSave);
      ClipCursor(NULL);
      ReleaseCapture();
      bToolCaptured=FALSE;
      InvalidateRect(hWnd,NULL,FALSE);
    }
    else if(tracetool == 2){ /* move */
      DrawRubberList(hWnd,LastPt.x-FirstPt.x,LastPt.y-FirstPt.y,1.0);
      LastPt.x=LOWORD(lParam); LastPt.y=HIWORD(lParam);
      SetCursor(hCursorSave);
      ClipCursor(NULL);
      ReleaseCapture();
      SetMovement(hWnd,LastPt.x-FirstPt.x,LastPt.y-FirstPt.y);
      if(bSingle)SetSelection(FALSE);
      bToolCaptured=FALSE;
      InvalidateRect(hWnd,NULL,FALSE);
    }
    else if(tracetool == 4 || tracetool == 3){ // zoom or pan
      SetCursor(hCursorSave);
      ClipCursor(NULL);
      ReleaseCapture();
      bToolCaptured=FALSE;
    }
    else if(tracetool == 5){ // scale
      DrawScaledRubberList(hWnd,FirstPt.x,FirstPt.y,sx,sy);
//      DrawRubberList(hWnd,0,0,ss);
      LastPt.x=LOWORD(lParam); LastPt.y=HIWORD(lParam);
      SetCursor(hCursorSave);
      ClipCursor(NULL);
      ReleaseCapture();
      SetScale(hWnd,sx, sy, FirstPt.x, FirstPt.y);
      bToolCaptured=FALSE;
      InvalidateRect(hWnd,NULL,FALSE);
    }
    else if(tracetool == 6){ // rotate
      DrawRotatedRubberList(hWnd,FirstPt.x,FirstPt.y,angle);
      LastPt.x=LOWORD(lParam); LastPt.y=HIWORD(lParam);
      angle = -(double)(LastPt.x-FirstPt.x)*0.1;
      SetCursor(hCursorSave);
      ClipCursor(NULL);
      ReleaseCapture();
      SetRotation(hWnd,angle,FirstPt.x,FirstPt.y);
      bToolCaptured=FALSE;
      InvalidateRect(hWnd,NULL,FALSE);
    }
    break;
  case WM_PAINT:
    hDC = BeginPaint(hWnd, &ps);
    AppPaint(hWnd,hDC,0,0);
    DrawList(hWnd,hDC);
    EndPaint(hWnd,&ps);
    break ;
  case WM_SIZE:
    InvalidateRect(hWnd,NULL,FALSE);
    return 0;
  default:
      return DefWindowProc (hWnd, iMessage, wParam, lParam) ;
 }
 return 0L ;
}

BOOL MenuCommand (HWND hWnd, WORD id){
 int i;
 char lpMessage[MAXTEXT],lpCaption[64];
 switch (id) {
   case IDM_DRAWIT:
     //StartWait();
     //EndWait();
     InvalidateRect (hWnd, NULL, FALSE);
     break;
   case IDM_PEN_RED  : pen=0; goto PENID;
   case IDM_PEN_WHITE: pen=1; goto PENID;
   case IDM_PEN_BLACK: pen=2; goto PENID;
   case IDM_PEN_CYAN : pen=3; goto PENID;
     PENID:
     CheckMenuItem(GetMenu(hWnd),IDM_PEN_RED,MF_UNCHECKED);
     CheckMenuItem(GetMenu(hWnd),IDM_PEN_WHITE,MF_UNCHECKED);
     CheckMenuItem(GetMenu(hWnd),IDM_PEN_BLACK,MF_UNCHECKED);
     CheckMenuItem(GetMenu(hWnd),IDM_PEN_CYAN,MF_UNCHECKED);
     if(pen == 0)CheckMenuItem(GetMenu(hWnd),IDM_PEN_RED,MF_CHECKED);
     if(pen == 1)CheckMenuItem(GetMenu(hWnd),IDM_PEN_WHITE,MF_CHECKED);
     if(pen == 2)CheckMenuItem(GetMenu(hWnd),IDM_PEN_BLACK,MF_CHECKED);
     if(pen == 3)CheckMenuItem(GetMenu(hWnd),IDM_PEN_CYAN,MF_CHECKED);
     DrawList(hWnd,NULL);
     break;
   case IDM_SELINVERT:
     InvertSelection();
     InvalidateRect (hWnd, NULL, FALSE);
     break;
   case IDM_SELECT_ALL:
     SetSelection(TRUE);
     InvalidateRect (hWnd, NULL, FALSE);
     break;
   case IDM_SELECT_NONE:
     SetSelection(FALSE);
     InvalidateRect (hWnd, NULL, FALSE);
     break;
   case IDM_ROTATE:
     EnableMenuItem(GetMenu(hWnd),IDM_ROTATE,MF_GRAYED);
     EnableMenuItem(GetMenu(hWnd),IDM_SCALE,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_SELECT,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_MOVE,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_PAN,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_ZOOM,MF_ENABLED);
     DrawMenuBar(hWnd);
     tracetool=6;
     break;
   case IDM_SCALE:
     EnableMenuItem(GetMenu(hWnd),IDM_SCALE,MF_GRAYED);
     EnableMenuItem(GetMenu(hWnd),IDM_SELECT,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_MOVE,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_PAN,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_ZOOM,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_ROTATE,MF_ENABLED);
     DrawMenuBar(hWnd);
     tracetool=5;
     break;
   case IDM_SELECT:  // Select
     EnableMenuItem(GetMenu(hWnd),IDM_SCALE,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_SELECT,MF_GRAYED);
     EnableMenuItem(GetMenu(hWnd),IDM_MOVE,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_PAN,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_ZOOM,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_ROTATE,MF_ENABLED);
     DrawMenuBar(hWnd);
     tracetool=1;
     break;
   case IDM_MOVE:
     EnableMenuItem(GetMenu(hWnd),IDM_SCALE,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_SELECT,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_MOVE,MF_GRAYED);
     EnableMenuItem(GetMenu(hWnd),IDM_PAN,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_ZOOM,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_ROTATE,MF_ENABLED);
     DrawMenuBar(hWnd);
     tracetool=2;
     break;
   case IDM_PAN: // pan
     EnableMenuItem(GetMenu(hWnd),IDM_SELECT,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_SCALE,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_MOVE,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_PAN,MF_GRAYED);
     EnableMenuItem(GetMenu(hWnd),IDM_ZOOM,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_ROTATE,MF_ENABLED);
     DrawMenuBar(hWnd);
     tracetool=3;
     break;
   case IDM_ZOOM:  // zoom
     EnableMenuItem(GetMenu(hWnd),IDM_SCALE,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_SELECT,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_MOVE,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_PAN,MF_ENABLED);
     EnableMenuItem(GetMenu(hWnd),IDM_ZOOM,MF_GRAYED);
     EnableMenuItem(GetMenu(hWnd),IDM_ROTATE,MF_ENABLED);
     DrawMenuBar(hWnd);
     tracetool=4;
     break;
   case IDM_EXIT:
     if(bChanged){
       int r;
       if((r=MessageBox(hWnd,"Keep Changes?","Texture Paint",MB_YESNOCANCEL)) == IDYES){
         UpdateFaceMapping();
       }
       if(r == IDCANCEL)break;
     }
     PostQuitMessage(0);
     break;
   case IDM_ABORT:  // Update
     UpdateFaceMapping();
     break;
   default:
     break;
 }
 return TRUE;
}

static int ErrMsg(char *sz,...){
 char ach[128];
 va_list arg_ptr;
 va_start(arg_ptr,sz);
 vsprintf(ach,sz,arg_ptr);   /* Format the string */
 va_end(arg_ptr);
 MessageBox (NULL, ach, NULL, MB_OK|MB_ICONEXCLAMATION|MB_APPLMODAL);
 return FALSE;
}

static void PutMsg(char *s){
 MessageBox (NULL,s, "PaintMap", MB_OK|MB_ICONEXCLAMATION|MB_APPLMODAL);
}

static void AppPaint(HWND hWnd,HDC hDC,int x,int y){
 RECT rc;
 GetClientRect(hWnd,&rc);
 if(hDrawDib != NULL && ImagePixels != NULL){
   DrawDibRealize(hDrawDib,hDC,TRUE);
   DrawDibDraw(hDrawDib,hDC,0,0,rc.right,rc.bottom,
           (LPBITMAPINFOHEADER)(&ImageHeader),ImagePixels,
           xOffset,yOffset,
           (int)((double)ImageWidth/scale), 
           (int)((double)ImageHeight/scale), 0);
 }
}

static int Xcoord(double c, long l){
  c=(c*(double)ImageWidth-xOffset)*scale;
  return (int)(c*(double)l/(double)ImageWidth);
}

static int Ycoord(double c, long l){
  c=((1.0-c)*(double)ImageHeight - yOffset)*scale;
  return (int)(c*(double)l/(double)ImageHeight);
}

static double coordX(long c, long l){
  return ((double)c*(double)ImageWidth/(double)l/scale+(double)xOffset)/(double)ImageWidth;
}

static double coordY(long c, long l){
  return 1.0-((double)c*(double)ImageHeight/(double)l/scale+(double)yOffset)/(double)ImageHeight;
}


static void DrawRubberBox(HWND hwnd, int x, int y, int xx, int yy){
 HPEN hOldPen,MyPen;
 int oldROP;
 HDC hDClocal;
 hDClocal=GetDC(hwnd);
 if(pen == 0)MyPen=CreatePen(PS_SOLID,0,RGB(255,0,0));
 if(pen == 1)MyPen=CreatePen(PS_SOLID,0,RGB(255,255,255));
 if(pen == 2)MyPen=CreatePen(PS_SOLID,0,RGB(0,0,0));
 if(pen == 3)MyPen=CreatePen(PS_SOLID,0,RGB(0,255,255));
 hOldPen=SelectObject(hDClocal,MyPen);
 oldROP=SetROP2(hDClocal,R2_NOT);
 MoveToEx(hDClocal,x,y,NULL);
 LineTo(hDClocal,xx,y);
 LineTo(hDClocal,xx,yy);
 LineTo(hDClocal,x,yy);
 LineTo(hDClocal,x,y);
 SetROP2(hDClocal,oldROP);
 SelectObject(hDClocal,hOldPen);
 DeleteObject(MyPen);
 ReleaseDC(hwnd,hDClocal);
}

static void DrawList(HWND hwnd, HDC hDC){
 int i,x,y;
 HPEN hOldPen,MyPen;
 HBRUSH hOldBrush;
 HDC hDClocal;
 if(hDC == NULL){
   hDClocal=GetDC(hwnd);
 }
 else hDClocal=hDC;
 if(pen == 0)MyPen=CreatePen(PS_SOLID,0,RGB(255,0,0));
 if(pen == 1)MyPen=CreatePen(PS_SOLID,0,RGB(255,255,255));
 if(pen == 2)MyPen=CreatePen(PS_SOLID,0,RGB(0,0,0));
 if(pen == 3)MyPen=CreatePen(PS_SOLID,0,RGB(0,255,255));
 hOldPen=SelectObject(hDClocal,MyPen);
 hOldBrush=SelectObject(hDClocal,GetStockObject(BLACK_BRUSH));
 DrawFaceList(hwnd,hDClocal);
 SelectObject(hDClocal,hOldPen);
 SelectObject(hDClocal,hOldBrush);
 DeleteObject(MyPen);
 if(hDC == NULL){
   ReleaseDC(hwnd,hDClocal);
 }
}

static void DrawRubberList(HWND hwnd, int xo, int yo, float s){
 HPEN hOldPen,MyPen;
 int oldROP;
 HDC hDClocal;
 RECT rc;
 int i,x0,y0,x1,y1,x2,y2;
 GetClientRect(hwnd,&rc);
 hDClocal=GetDC(hwnd);
 if(pen == 0)MyPen=CreatePen(PS_SOLID,0,RGB(255,0,0));
 if(pen == 1)MyPen=CreatePen(PS_SOLID,0,RGB(255,255,255));
 if(pen == 2)MyPen=CreatePen(PS_SOLID,0,RGB(0,0,0));
 if(pen == 3)MyPen=CreatePen(PS_SOLID,0,RGB(0,255,255));
 hOldPen=SelectObject(hDClocal,MyPen);
 oldROP=SetROP2(hDClocal,R2_NOT);
 if(Nf > 0 && TFlist != NULL){
   for(i=0;i<Nf;i++){
     x0=Xcoord(TFlist[i].x[0],rc.right);  y0=Ycoord(TFlist[i].y[0],rc.bottom);
     x1=Xcoord(TFlist[i].x[1],rc.right);  y1=Ycoord(TFlist[i].y[1],rc.bottom);
     x2=Xcoord(TFlist[i].x[2],rc.right);  y2=Ycoord(TFlist[i].y[2],rc.bottom);
     if(TFlist[i].bSelect[0] && TFlist[i].bSelect[1] && TFlist[i].bSelect[2]){
       MoveToEx(hDClocal,x0*s+xo,y0*s+yo,NULL);
       LineTo(hDClocal,x1*s+xo,y1*s+yo); 
       LineTo(hDClocal,x2*s+xo,y2*s+yo); 
       LineTo(hDClocal,x0*s+xo,y0*s+yo);
     }
     else{
       x0=Xcoord(TFlist[i].x[0],rc.right);  y0=Ycoord(TFlist[i].y[0],rc.bottom);
       x1=Xcoord(TFlist[i].x[1],rc.right);  y1=Ycoord(TFlist[i].y[1],rc.bottom);
       x2=Xcoord(TFlist[i].x[2],rc.right);  y2=Ycoord(TFlist[i].y[2],rc.bottom);
       if(TFlist[i].bSelect[0] && !TFlist[i].bSelect[1]){MoveToEx(hDClocal,x0*s+xo,y0*s+yo,NULL); LineTo(hDClocal,x1,y1);}
       if(TFlist[i].bSelect[0] && !TFlist[i].bSelect[2]){MoveToEx(hDClocal,x0*s+xo,y0*s+yo,NULL); LineTo(hDClocal,x2,y2);}
       if(TFlist[i].bSelect[1] && !TFlist[i].bSelect[0]){MoveToEx(hDClocal,x1*s+xo,y1*s+yo,NULL); LineTo(hDClocal,x0,y0);}
       if(TFlist[i].bSelect[1] && !TFlist[i].bSelect[2]){MoveToEx(hDClocal,x1*s+xo,y1*s+yo,NULL); LineTo(hDClocal,x2,y2);}
       if(TFlist[i].bSelect[2] && !TFlist[i].bSelect[0]){MoveToEx(hDClocal,x2*s+xo,y2*s+yo,NULL); LineTo(hDClocal,x0,y0);}
       if(TFlist[i].bSelect[2] && !TFlist[i].bSelect[1]){MoveToEx(hDClocal,x2*s+xo,y2*s+yo,NULL); LineTo(hDClocal,x1,y1);}
     }
   }
 }
 SetROP2(hDClocal,oldROP);
 SelectObject(hDClocal,hOldPen);
 DeleteObject(MyPen);
 ReleaseDC(hwnd,hDClocal);
}

static void DrawScaledRubberList(HWND hwnd, int xo, int yo, float sx, float sy){
 HPEN hOldPen,MyPen;
 int oldROP;
 HDC hDClocal;
 RECT rc;
 int i,x0,y0,x1,y1,x2,y2;
 GetClientRect(hwnd,&rc);
 hDClocal=GetDC(hwnd);
 if(pen == 0)MyPen=CreatePen(PS_SOLID,0,RGB(255,0,0));
 if(pen == 1)MyPen=CreatePen(PS_SOLID,0,RGB(255,255,255));
 if(pen == 2)MyPen=CreatePen(PS_SOLID,0,RGB(0,0,0));
 if(pen == 3)MyPen=CreatePen(PS_SOLID,0,RGB(0,255,255));
 hOldPen=SelectObject(hDClocal,MyPen);
 oldROP=SetROP2(hDClocal,R2_NOT);
 if(Nf > 0 && TFlist != NULL){
   for(i=0;i<Nf;i++){
     x0=Xcoord(TFlist[i].x[0],rc.right);  y0=Ycoord(TFlist[i].y[0],rc.bottom);
     x1=Xcoord(TFlist[i].x[1],rc.right);  y1=Ycoord(TFlist[i].y[1],rc.bottom);
     x2=Xcoord(TFlist[i].x[2],rc.right);  y2=Ycoord(TFlist[i].y[2],rc.bottom);
     x0=(x0-xo)*sx+xo; y0=(y0-yo)*sy+yo;
     x1=(x1-xo)*sx+xo; y1=(y1-yo)*sy+yo;
     x2=(x2-xo)*sx+xo; y2=(y2-yo)*sy+yo;
     if(TFlist[i].bSelect[0] && TFlist[i].bSelect[1] && TFlist[i].bSelect[2]){
       MoveToEx(hDClocal,x0,y0,NULL);
       LineTo(hDClocal,x1,y1); 
       LineTo(hDClocal,x2,y2); 
       LineTo(hDClocal,x0,y0);
     }
     else{
       if(TFlist[i].bSelect[0] && !TFlist[i].bSelect[1]){MoveToEx(hDClocal,x0,y0,NULL); LineTo(hDClocal,x1,y1);}
       if(TFlist[i].bSelect[0] && !TFlist[i].bSelect[2]){MoveToEx(hDClocal,x0,y0,NULL); LineTo(hDClocal,x2,y2);}
       if(TFlist[i].bSelect[1] && !TFlist[i].bSelect[0]){MoveToEx(hDClocal,x1,y1,NULL); LineTo(hDClocal,x0,y0);}
       if(TFlist[i].bSelect[1] && !TFlist[i].bSelect[2]){MoveToEx(hDClocal,x1,y1,NULL); LineTo(hDClocal,x2,y2);}
       if(TFlist[i].bSelect[2] && !TFlist[i].bSelect[0]){MoveToEx(hDClocal,x2,y2,NULL); LineTo(hDClocal,x0,y0);}
       if(TFlist[i].bSelect[2] && !TFlist[i].bSelect[1]){MoveToEx(hDClocal,x2,y2,NULL); LineTo(hDClocal,x1,y1);}
     }
   }
 }
 SetROP2(hDClocal,oldROP);
 SelectObject(hDClocal,hOldPen);
 DeleteObject(MyPen);
 ReleaseDC(hwnd,hDClocal);
}

static void DrawRotatedRubberList(HWND hwnd, int xo, int yo, float r){
 HPEN hOldPen,MyPen;
 int oldROP;
 HDC hDClocal;
 RECT rc;
 int i,x0,y0,x1,y1,x2,y2;
 double cosa,sina,tx,ty,ttx,tty;
 GetClientRect(hwnd,&rc);
 hDClocal=GetDC(hwnd);
 if(pen == 0)MyPen=CreatePen(PS_SOLID,0,RGB(255,0,0));
 if(pen == 1)MyPen=CreatePen(PS_SOLID,0,RGB(255,255,255));
 if(pen == 2)MyPen=CreatePen(PS_SOLID,0,RGB(0,0,0));
 if(pen == 3)MyPen=CreatePen(PS_SOLID,0,RGB(0,255,255));
 hOldPen=SelectObject(hDClocal,MyPen);
 oldROP=SetROP2(hDClocal,R2_NOT);
 cosa=cos(r*3.14159/180.0); sina=sin(r*3.14159/180.0);
 if(Nf > 0 && TFlist != NULL){
   for(i=0;i<Nf;i++){
     x0=Xcoord(TFlist[i].x[0],rc.right);  y0=Ycoord(TFlist[i].y[0],rc.bottom);
     x1=Xcoord(TFlist[i].x[1],rc.right);  y1=Ycoord(TFlist[i].y[1],rc.bottom);
     x2=Xcoord(TFlist[i].x[2],rc.right);  y2=Ycoord(TFlist[i].y[2],rc.bottom);
     tx=x0-xo; ty=y0-yo;
     ttx = ( tx*cosa+ty*sina); tty = (-tx*sina+ty*cosa);
     x0 = xo+ttx; y0 = yo+tty;
     tx=x1-xo; ty=y1-yo;
     ttx = ( tx*cosa+ty*sina); tty = (-tx*sina+ty*cosa);
     x1 = xo+ttx; y1 = yo+tty;
     tx=x2-xo; ty=y2-yo;
     ttx = ( tx*cosa+ty*sina); tty = (-tx*sina+ty*cosa);
     x2 = xo+ttx; y2 = yo+tty;
     if(TFlist[i].bSelect[0] && TFlist[i].bSelect[1] && TFlist[i].bSelect[2]){
       MoveToEx(hDClocal,x0,y0,NULL);
       LineTo(hDClocal,x1,y1); 
       LineTo(hDClocal,x2,y2); 
       LineTo(hDClocal,x0,y0);
     }
     else{
       if(TFlist[i].bSelect[0] && !TFlist[i].bSelect[1]){MoveToEx(hDClocal,x0,y0,NULL); LineTo(hDClocal,x1,y1);}
       if(TFlist[i].bSelect[0] && !TFlist[i].bSelect[2]){MoveToEx(hDClocal,x0,y0,NULL); LineTo(hDClocal,x2,y2);}
       if(TFlist[i].bSelect[1] && !TFlist[i].bSelect[0]){MoveToEx(hDClocal,x1,y1,NULL); LineTo(hDClocal,x0,y0);}
       if(TFlist[i].bSelect[1] && !TFlist[i].bSelect[2]){MoveToEx(hDClocal,x1,y1,NULL); LineTo(hDClocal,x2,y2);}
       if(TFlist[i].bSelect[2] && !TFlist[i].bSelect[0]){MoveToEx(hDClocal,x2,y2,NULL); LineTo(hDClocal,x0,y0);}
       if(TFlist[i].bSelect[2] && !TFlist[i].bSelect[1]){MoveToEx(hDClocal,x2,y2,NULL); LineTo(hDClocal,x1,y1);}
     }
   }
 }
 SetROP2(hDClocal,oldROP);
 SelectObject(hDClocal,hOldPen);
 DeleteObject(MyPen);
 ReleaseDC(hwnd,hDClocal);
}


static void DrawFaceList(HWND hwnd, HDC hDClocal){
 RECT rc;
 int i,x,y;
 GetClientRect(hwnd,&rc);
 if(Nf > 0 && TFlist != NULL){
   for(i=0;i<Nf;i++){
     x=Xcoord(TFlist[i].x[0],rc.right);  y=Ycoord(TFlist[i].y[0],rc.bottom);
     MoveToEx(hDClocal,x,y,NULL);
     x=Xcoord(TFlist[i].x[1],rc.right);  y=Ycoord(TFlist[i].y[1],rc.bottom);
     LineTo(hDClocal,x,y); 
     Rectangle(hDClocal,x-2,y-2,x+2,y+2);
     if(TFlist[i].bSelect[1])Rectangle(hDClocal,x-4,y-4,x+4,y+4); 
     x=Xcoord(TFlist[i].x[2],rc.right);  y=Ycoord(TFlist[i].y[2],rc.bottom);
     LineTo(hDClocal,x,y); 
     Rectangle(hDClocal,x-2,y-2,x+2,y+2);
     if(TFlist[i].bSelect[2])Rectangle(hDClocal,x-4,y-4,x+4,y+4); 
     x=Xcoord(TFlist[i].x[0],rc.right);  y=Ycoord(TFlist[i].y[0],rc.bottom);
     LineTo(hDClocal,x,y); 
     Rectangle(hDClocal,x-2,y-2,x+2,y+2);
     if(TFlist[i].bSelect[0])Rectangle(hDClocal,x-4,y-4,x+4,y+4); 
   }
 }
}

static void SetSelection(BOOL status){
 struct TFLIST *f;
 long  i,j;
 if(Nf < 1)return;
 if(status == TRUE)NvSelect=Nf*3; else NvSelect=0;
 for(i=0;i<Nf;i++){
   f=(TFlist+i);
   for(j=0;j<3;j++)f->bSelect[j]=status;
 }
}

static void InvertSelection(void){
 struct TFLIST *f;
 long  i,j;
 if(Nf < 1)return;
 for(i=0;i<Nf;i++){
   f=(TFlist+i);
   for(j=0;j<3;j++){
     if(!f->bSelect[j])NvSelect += 3; else NvSelect -= 3;
     f->bSelect[j] ^= 1;
   }
 }
}


static void SelectInBox(BOOL invert, BOOL status, HWND hwnd, int x1, int y1, int x2, int y2 ){
 struct TFLIST *f;
 RECT rc;
 long i,j;
 int xp,yp,xb1,xb2,yb1,yb2;
 if(Nf < 1)return;
 if(x1 > x2){xb1=x2; xb2=x1;} else {xb1=x1; xb2=x2;}
 if(y1 > y2){yb1=y2; yb2=y1;} else {yb1=y1; yb2=y2;}
 GetClientRect(hwnd,&rc);
 for(i=0;i<Nf;i++){
   f=(TFlist+i);
   for(j=0;j<3;j++){
     xp=Xcoord(TFlist[i].x[j],rc.right);  yp=Ycoord(TFlist[i].y[j],rc.bottom);
     if(xp >= xb1 && xp <= xb2 && yp >= yb1 && yp <= yb2){
       if(invert){
         if(!f->bSelect[j])NvSelect += 3; else NvSelect -= 3;
         f->bSelect[j] ^= 1;
       }
       else{
         f->bSelect[j]=status;
         if(status)NvSelect += 3;  else NvSelect -= 3;
       }
     }
   }
 }
}

static void SetMovement(HWND hwnd, int dx, int dy){
 struct TFLIST *f;
 RECT rc;
 long i,j,xp,yp;
 double rdx,rdy;
 if(Nf < 1)return;
 GetClientRect(hwnd,&rc);
 for(i=0;i<Nf;i++){
   f=(TFlist+i);
   for(j=0;j<3;j++)if(f->bSelect[j]){
     xp=Xcoord(f->x[j],rc.right);  yp=Ycoord(f->y[j],rc.bottom);
     f->x[j] = coordX(xp+dx,rc.right);
     f->y[j] = coordY(yp+dy,rc.bottom);
   }
 }
 bChanged=TRUE;
}

static void SetScale(HWND hwnd, float sx, float sy, int xc, int yc){
 struct TFLIST *f;
 RECT rc;
 long i,j,xp,yp;
 double rdx,rdy;
 if(Nf < 1)return;
 GetClientRect(hwnd,&rc);
 for(i=0;i<Nf;i++){
   f=(TFlist+i);
   for(j=0;j<3;j++)if(f->bSelect[j]){
     xp=Xcoord(f->x[j],rc.right);  yp=Ycoord(f->y[j],rc.bottom);
     xp=(xp-xc)*sx+xc;
     yp=(yp-yc)*sy+yc;
     f->x[j] = coordX(xp,rc.right);
     f->y[j] = coordY(yp,rc.bottom);
   }
 }
 bChanged=TRUE;
}

static void SetRotation(HWND hwnd, float angle, long rxp, long ryp){
 struct TFLIST *f;
 RECT rc;
 long i,j,xp,yp; // xp is in window coord
 double rx,ry,cosa,sina;
 if(Nf < 1)return;
 GetClientRect(hwnd,&rc);
 cosa=cos(angle*3.14159/180.0); sina=sin(angle*3.14159/180.0);
 for(i=0;i<Nf;i++){
   f=(TFlist+i);
   for(j=0;j<3;j++)if(f->bSelect[j]){
     xp=Xcoord(f->x[j],rc.right);  
     yp=Ycoord(f->y[j],rc.bottom);
     rx = xp-rxp;
     ry = yp-ryp;
     xp = (long) (rx*cosa+ry*sina);
     yp = (long)(-rx*sina+ry*cosa);
     xp = xp+rxp;
     yp = yp+ryp;
     f->x[j] = coordX(xp,rc.right);
     f->y[j] = coordY(yp,rc.bottom);
   }
 }
 bChanged=TRUE;
}

static void UpdateFaceMapping(void){
 struct TFLIST *f;
 face *fp;
 long i,j;
 if(Nf < 1)return;
 for(i=0;i<Nf;i++){
   f=(TFlist+i);
   fp=(MainFp+f->fID); 
   for(j=0;j<3;j++){
     fp->x[j]=f->x[j];
     fp->y[j]=f->y[j];
   }
 }
 bChanged=FALSE;
}

static void BuildFaceList(long mapID){
 face *fp;
 struct TFLIST *f;
 long  i,j,c;
 for(c=0,i=0,fp=MainFp;i<Nface;i++,fp++){
   if((MainVp+fp->V[0])->status == SELECTED &&
      (MainVp+fp->V[1])->status == SELECTED &&
      (MainVp+fp->V[2])->status == SELECTED &&
      fp->imagemap == mapID)c++;
 }
 if(c == 0)return;
 if((f=(struct TFLIST *)X__Malloc(c*sizeof(struct TFLIST))) == NULL)return;
 TFlist=f;
 for(Nf=0,i=0,fp=MainFp;i<Nface;i++,fp++){
   if((MainVp+fp->V[0])->status == SELECTED &&
      (MainVp+fp->V[1])->status == SELECTED &&
      (MainVp+fp->V[2])->status == SELECTED &&
      fp->imagemap == mapID){
     f=(TFlist+Nf);
     f->fID=i;
     for(j=0;j<3;j++){f->x[j]=fp->x[j];  f->y[j]=fp->y[j]; f->bSelect[j]=FALSE;}
     Nf++;
   }
 }
}

#if __WATCOMC__
int APIENTRY LibMain(HANDLE hDLL, DWORD dwReason, LPVOID lpReserved){
#else
BOOL WINAPI DllMain(HANDLE hDLL, DWORD dwReason, LPVOID lpReserved){
#endif
  switch (dwReason) {
    case DLL_PROCESS_ATTACH: {
#if __X__MIPS__
      if(!_CRT_INIT(hDLL,dwReason,lpReserved))return(int)FALSE;
//      MessageBox (GetFocus(),"Trace attaching","Debug",MB_OK);
#endif
      hThisInstance=hDLL;
      break;
    }
    case DLL_PROCESS_DETACH:
#if __X__MIPS__
      if(!_CRT_INIT(hDLL,dwReason,lpReserved))return(int)FALSE;
//      MessageBox (GetFocus(),"Trace detaching","Debug",MB_OK);
#endif
      break;
  }
  return TRUE;
}

#if __SC__
#pragma startaddress(DllMain)
#endif

BOOL _PaintMap(
 HWND parent_window, HWND info_window,
 unsigned char *pix, long w, long h , long mapID, X__STRUCTURE *lpX__in){
 LPBITMAPINFOHEADER lpbi;
 tracetool=0;
 hParent=parent_window;
 hInfo=info_window;
 lpEVI=lpX__in;
 {
 IMAGEMAP *map;
 map = &(iMap[mapID]);
 }
 ImageWidth=w;
 ImageHeight=h;
 ImagePixels=pix;
 lpbi=(LPBITMAPINFOHEADER)&ImageHeader;
 lpbi->biSize=sizeof(BITMAPINFOHEADER);
 lpbi->biWidth=(DWORD)w;
 lpbi->biHeight=(DWORD)h;
 lpbi->biPlanes=1;
 lpbi->biBitCount=24;
 lpbi->biCompression=BI_RGB;
 lpbi->biSizeImage = w*h*3L;
 lpbi->biXPelsPerMeter=0;
 lpbi->biYPelsPerMeter=0;
 lpbi->biClrUsed=0;
 lpbi->biClrImportant=0;
 xOffset=0,yOffset=0; scale=1.0;
 BuildFaceList(mapID);
#include "keyfile.c"
 return Viewer();
}