/*********************/
/*		     */
/* Character editing */
/*		     */
/*********************/

#include "Typeface.h"

ULONG PixelBorder = TRUE;
extern struct Preferences Prefs;

static struct VectorItem LineArrowLeft[] =
  { 10,10,VIF_SCALE,
    SHADOWPEN,0,VIF_DRIPEN,
     2, 5,VIF_MOVE,
     8, 2,VIF_DRAW,
     8, 8,VIF_DRAW,
     2, 5,VIF_DRAW,
     0, 0,VIF_LASTITEM };
static struct VectorItem LineArrowRight[] =
  { 10,10,VIF_SCALE,
    SHADOWPEN,0,VIF_DRIPEN,
     8, 5,VIF_MOVE,
     2, 2,VIF_DRAW,
     2, 8,VIF_DRAW,
     8, 5,VIF_DRAW,
     0, 0,VIF_LASTITEM };
static struct VectorItem SolidArrowLeft[] =
  { 10,10,VIF_SCALE,
    SHADOWPEN,0,VIF_AOLDRIPEN,
     0, 0,VIF_AREASTART,
     2, 5,VIF_MOVE,
     8, 2,VIF_DRAW,
     8, 8,VIF_DRAW,
     2, 5,VIF_DRAW,
     0, 0,VIF_AREAEND,
     0, 0,VIF_LASTITEM };
static struct VectorItem SolidArrowRight[] =
  { 10,10,VIF_SCALE,
    SHADOWPEN,0,VIF_AOLDRIPEN,
     0, 0,VIF_AREASTART,
     8, 5,VIF_MOVE,
     2, 2,VIF_DRAW,
     2, 8,VIF_DRAW,
     8, 5,VIF_DRAW,
     0, 0,VIF_AREAEND,
     0, 0,VIF_LASTITEM };
static struct VectorItem SolidArrowUp[] =
  { 11,11,VIF_SCALE,
    SHADOWPEN,0,VIF_AOLDRIPEN,
     0, 0,VIF_AREASTART,
     5, 2,VIF_MOVE,
     2, 8,VIF_DRAW,
     8, 8,VIF_DRAW,
     5, 2,VIF_DRAW,
     0, 0,VIF_AREAEND,
     0, 0,VIF_LASTITEM };
static struct VectorItem SolidArrowDown[] =
  { 11,11,VIF_SCALE,
    SHADOWPEN,0,VIF_AOLDRIPEN,
     0, 0,VIF_AREASTART,
     5, 8,VIF_MOVE,
     2, 2,VIF_DRAW,
     8, 2,VIF_DRAW,
     5, 8,VIF_DRAW,
     0, 0,VIF_AREAEND,
     0, 0,VIF_LASTITEM };
static struct VectorItem KernImage[] =
  { 11,11,VIF_SCALE,
    SHINEPEN,0,VIF_AOLDRIPEN,
    SHINEPEN,0,VIF_DRIPEN,
     0, 0,VIF_AREASTART,
     2, 2,VIF_MOVE,
     2, 8,VIF_DRAW,
     5, 8,VIF_DRAW,
     2, 2,VIF_DRAW,
     0, 0,VIF_AREAEND,
    SHADOWPEN,0,VIF_AOLDRIPEN,
    SHADOWPEN,0,VIF_DRIPEN,
     0, 0,VIF_AREASTART,
     5, 2,VIF_MOVE,
     8, 2,VIF_DRAW,
     8, 8,VIF_DRAW,
     5, 2,VIF_DRAW,
     0, 0,VIF_AREAEND,
     0, 0,VIF_LASTITEM };

struct CharNode *OpenCharWin(ULONG charnum,struct IBox size)
{
extern struct Screen *Screen;
extern struct List *CharWndList;
extern struct MsgPort *WndMsgPort;
extern struct Image *SizeImage, *LeftImage, *RightImage;
extern struct Image *UpImage, *DownImage;
extern Class *EditClass;
extern struct Character CharBuffer[256];

struct CharNode *node;
Object *extobj;
ULONG gw,gh,top;
UWORD width,height;
static struct NewMenu menus[] = { PROJECT_MENU,CHARACTER_MENU,End };
static ULONG scroll2edit[] = { GA_ID,EG_Update,TAG_DONE };

  if ((node = CreateNode(sizeof(struct CharNode),CharWndList)) == NULL)
    Quit();
  if ((node->chln_Title = AllocVec(256,MEMF_CLEAR)) == NULL) Quit();
  if (charnum > 0)
    if (charnum == 256)
      sprintf(node->chln_Title,"blank");
    else
      sprintf(node->chln_Title,"%c (%lu decimal/$%.2lX hex)",
      (char)charnum,charnum,charnum);
  else
    sprintf(node->chln_Title,"(%lu decimal/$%lX hex)",charnum,charnum);
  if ((node->chln_Hook = AllocVec(sizeof(struct Hook),MEMF_CLEAR)) == NULL)
    Quit();
  node->chln_Hook->h_Entry = CharHook;
  node->chln_Hook->h_Data = node;
  node->chln_Character = CharBuffer+charnum;
  node->chln_Number = charnum;
  width = (Prefs.PixelX*node->chln_Character->chr_Width)+(2*EG_XOFFSET)+8+
    Screen->WBorLeft+UpImage->Width;
  if (width < size.Width) size.Width = width;
  height = (Prefs.PixelY*node->chln_Character->chr_Height)+(2*EG_YOFFSET)+7+
    Screen->WBorTop+Screen->Font->ta_YSize+LeftImage->Height+Prefs.VecHeight;
  if (height < size.Height) size.Height = height;

  node->chln_Object = WindowObject,
    WINDOW_Screen,Screen,
    WINDOW_SharedPort,WndMsgPort,
    WINDOW_MenuStrip,menus,
    WINDOW_Title,node->chln_Title,
    WINDOW_Bounds,&size,
    WINDOW_HelpFile,NAME".guide",
    WINDOW_HelpNode,"char",
    WINDOW_IDCMPHook,node->chln_Hook,
    WINDOW_IDCMPHookBits,IDCMP_CHANGEWINDOW,
    WINDOW_SizeRight,TRUE,
    WINDOW_SizeBottom,TRUE,
    WINDOW_MasterGroup,
      VGroupObject,
	HOffset(4),VOffset(2),Spacing(2),
	StartMember,
	  HGroupObject,
	    Spacing(4),
	    StartMember,
	      HGroupObject,
		StartMember,
		  ButtonObject,
		    VIT_VectorArray,LineArrowLeft,
		    ButtonFrame,
		    GA_ID,ID_WIDTHL,
		  EndObject,
		  FixWidth(22),FixHeight(Prefs.VecHeight),
		EndMember,
		StartMember,
		  ButtonObject,
		    VIT_VectorArray,LineArrowRight,
		    ButtonFrame,
		    GA_ID,ID_WIDTHR,
		  EndObject,
		  FixWidth(22),FixHeight(Prefs.VecHeight),
		EndMember,
	      EndObject,
	    EndMember,
	    StartMember,
	      HGroupObject,
		StartMember,
		  ButtonObject,
		    VIT_VectorArray,SolidArrowLeft,
		    ButtonFrame,
		    GA_ID,ID_MOVEL,
		  EndObject,
		  FixWidth(22),FixHeight(Prefs.VecHeight),
		EndMember,
		StartMember,
		  ButtonObject,
		    VIT_VectorArray,SolidArrowRight,
		    ButtonFrame,
		    GA_ID,ID_MOVER,
		  EndObject,
		  FixWidth(22),FixHeight(Prefs.VecHeight),
		EndMember,
		StartMember,
		  ButtonObject,
		    VIT_VectorArray,SolidArrowUp,
		    ButtonFrame,
		    GA_ID,ID_MOVEU,
		  EndObject,
		  FixWidth(22),FixHeight(Prefs.VecHeight),
		EndMember,
		StartMember,
		  ButtonObject,
		    VIT_VectorArray,SolidArrowDown,
		    ButtonFrame,
		    GA_ID,ID_MOVED,
		  EndObject,
		  FixWidth(22),FixHeight(Prefs.VecHeight),
		EndMember,
	      EndObject,
	    EndMember,
	    StartMember,
	      HGroupObject,
		StartMember,
		  ButtonObject,
		    VIT_VectorArray,KernImage,
		    ButtonFrame,
		    GA_ID,ID_KERNING,
		  EndObject,
		  FixWidth(22),FixHeight(Prefs.VecHeight),
		EndMember,
	      EndObject,
	    EndMember,
	  EndObject,
	  FixMinSize,
	EndMember,
	StartMember,
	  extobj = ExternalObject,
	    EXT_MinWidth,(2*Prefs.PixelX)+(2*EG_XOFFSET)-2,
	    EXT_MinHeight,(2*Prefs.PixelY)+(2*EG_YOFFSET)-2,
	    EXT_Class,EditClass,
	    EXT_NoRebuild,TRUE,
	    EG_PixelX,Prefs.PixelX,
	    EG_PixelY,Prefs.PixelY,
	    EG_CharNode,node,
	    EG_CharStruct,node->chln_Character,
	    EG_PixelBorder,PixelBorder,
	    GA_Disabled,FALSE,
	    GA_ID,ID_EDIT,
	  EndObject,
	EndMember,
      EndObject,
    EndObject;
  if (node->chln_Object == NULL) Quit();
  if ((node->chln_Window = WindowOpen(node->chln_Object)) == NULL) Quit();

  gh = MAX(LeftImage->Height,RightImage->Height);
  gh = MAX(SizeImage->Height,gh);
  gw = MAX(UpImage->Width,DownImage->Width);
  gw = MAX(SizeImage->Width,gw);
  top = Screen->WBorTop+Screen->Font->ta_YSize+1;
  GetAttr(EXT_Object,extobj,&(node->chln_EditGadg));

  if ((node->chln_HorizGadg = CreatePropGadg(FREEHORIZ,
    GA_Left,3,
    GA_RelBottom,3-gh,
    GA_RelWidth,-5-gw-LeftImage->Width-RightImage->Width,
    GA_Height,gh-4,
    GA_BottomBorder,TRUE,
    GA_ID,GADG_HORIZ,
    ICA_TARGET,node->chln_EditGadg,
    ICA_MAP,scroll2edit,
    PGA_Total,node->chln_Character->chr_Width,
    PGA_Visible,node->chln_Character->chr_Width,TAG_DONE)) == NULL) Quit();
  if ((node->chln_VertGadg = CreatePropGadg(FREEVERT,
    GA_RelRight,5-gw,
    GA_Top,top+1,
    GA_Width,gw-8,
    GA_RelHeight,-top-SizeImage->Height-UpImage->Height-DownImage->Height-2,
    GA_RightBorder,TRUE,
    GA_Previous,node->chln_HorizGadg,
    GA_ID,GADG_VERT,
    ICA_TARGET,node->chln_EditGadg,
    ICA_MAP,scroll2edit,
    PGA_Total,node->chln_Character->chr_Height,
    PGA_Visible,node->chln_Character->chr_Height,TAG_DONE)) == NULL) Quit();

  if ((node->chln_LeftGadg = CreateButtonGadg(LeftImage,
    GA_RelRight,1-LeftImage->Width-RightImage->Width-gw,
    GA_RelBottom,1-LeftImage->Height,
    GA_BottomBorder,TRUE,
    GA_Previous,node->chln_VertGadg,
    GA_ID,GADG_LEFT,
    ICA_TARGET,node->chln_EditGadg,
    ICA_MAP,scroll2edit,TAG_DONE)) == NULL) Quit();
  if ((node->chln_RightGadg = CreateButtonGadg(RightImage,
    GA_RelRight,1-RightImage->Width-gw,
    GA_RelBottom,1-RightImage->Height,
    GA_BottomBorder,TRUE,
    GA_Previous,node->chln_LeftGadg,
    GA_ID,GADG_RIGHT,
    ICA_TARGET,node->chln_EditGadg,
    ICA_MAP,scroll2edit,TAG_DONE)) == NULL) Quit();
  if ((node->chln_UpGadg = CreateButtonGadg(UpImage,
    GA_RelRight,1-UpImage->Width,
    GA_RelBottom,1-UpImage->Height-DownImage->Height-SizeImage->Height,
    GA_RightBorder,TRUE,
    GA_Previous,node->chln_RightGadg,
    GA_ID,GADG_UP,
    ICA_TARGET,node->chln_EditGadg,
    ICA_MAP,scroll2edit,TAG_DONE)) == NULL) Quit();
  if ((node->chln_DownGadg = CreateButtonGadg(DownImage,
    GA_RelRight,1-DownImage->Width,
    GA_RelBottom,1-DownImage->Height-SizeImage->Height,
    GA_RightBorder,TRUE,
    GA_Previous,node->chln_UpGadg,
    GA_ID,GADG_DOWN,
    ICA_TARGET,node->chln_EditGadg,
    ICA_MAP,scroll2edit,TAG_DONE)) == NULL) Quit();

  AddGList(node->chln_Window,node->chln_HorizGadg,-1,-1,NULL);
  SetScrollers(node);
  RefreshGList(node->chln_HorizGadg,node->chln_Window,NULL,-1);
}

void CloseCharWin(struct CharNode *node)
{
extern struct Window *WidthWnd, *KernWnd;
extern struct CharNode *WidthNode, *KernNode;

  ClrWindowClose(&(node->chln_Object),&(node->chln_Window));
  ClrDisposeObject(&(node->chln_Object));
  if (node->chln_Title)
  {
    FreeVec(node->chln_Title);
    node->chln_Title = NULL;
  }
  ClrDisposeObject(&(node->chln_HorizGadg));
  ClrDisposeObject(&(node->chln_VertGadg));
  ClrDisposeObject(&(node->chln_LeftGadg));
  ClrDisposeObject(&(node->chln_RightGadg));
  ClrDisposeObject(&(node->chln_UpGadg));
  ClrDisposeObject(&(node->chln_DownGadg));
  if (node->chln_Hook)
  {
    FreeVec(node->chln_Hook);
    node->chln_Hook = NULL;
  }
  if ((WidthWnd) && (WidthNode == node)) CloseWidthWnd(FALSE);
  if ((KernWnd) && (KernNode == node)) CloseKernWnd(FALSE);
}

Object *CreateSysImage(ULONG which,struct DrawInfo *dri)
{
  return (NewObject(NULL,SYSICLASS,
    SYSIA_DrawInfo,dri,
    SYSIA_Which,which,TAG_DONE));
}

Object *CreatePropGadg(ULONG freedom,Tag tag1,...)
{
  return (NewObject(NULL,PROPGCLASS,
    PGA_Freedom,freedom,
    PGA_NewLook,TRUE,
    PGA_Borderless,TRUE,
    TAG_MORE,&tag1));
}

Object *CreateButtonGadg(Object *image,Tag tag1,...)
{
  return (NewObject(NULL,BUTTONGCLASS,
    GA_Image,image,
    TAG_MORE,&tag1));
}

__geta4 void CharHook(__a0 struct Hook *hook, __a2 Object *o,
  __a1 struct IntuiMessage *msg)
{
  if ((msg->Class == IDCMP_CHANGEWINDOW) && (msg->Code == CWCODE_MOVESIZE))
    ForceResizeChar(hook->h_Data);
}

void ForceResizeChar(struct CharNode *node)
{
struct Character *chr;
LONG l,t,w,h;

  chr = node->chln_Character;
  GetAttr(EG_XOffset,node->chln_EditGadg,&l);
  GetAttr(EG_YOffset,node->chln_EditGadg,&t);
  GetAttr(EG_Width,node->chln_EditGadg,&w);
  GetAttr(EG_Height,node->chln_EditGadg,&h);
  if (chr->chr_Width - l < w) l = chr->chr_Width - w;
  if (l < 0) l = 0;
  if (chr->chr_Height - t < h) t = chr->chr_Height - h;
  if (t < 0) t = 0;
  SetGadgetAttrs(node->chln_EditGadg,node->chln_Window,NULL,
    EG_XOffset,l,EG_YOffset,t,TAG_DONE);
  SetScrollers(node);
}

void SetScrollers(struct CharNode *node)
{
ULONG l,t,w,h;

  GetAttr(EG_XOffset,node->chln_EditGadg,&l);
  GetAttr(EG_YOffset,node->chln_EditGadg,&t);
  GetAttr(EG_Width,node->chln_EditGadg,&w);
  GetAttr(EG_Height,node->chln_EditGadg,&h);
  SetGadgetAttrs(node->chln_HorizGadg,node->chln_Window,NULL,
    PGA_Top,l,PGA_Visible,w,TAG_DONE);
  SetGadgetAttrs(node->chln_VertGadg,node->chln_Window,NULL,
    PGA_Top,t,PGA_Visible,h,TAG_DONE);
}

void RedrawEdit(struct CharNode *node)
{
  SetGadgetAttrs(node->chln_HorizGadg,node->chln_Window,NULL,
    PGA_Total,node->chln_Character->chr_Width,TAG_DONE);
  SetGadgetAttrs(node->chln_VertGadg,node->chln_Window,NULL,
    PGA_Total,node->chln_Character->chr_Height,TAG_DONE);
  SetGadgetAttrs(node->chln_EditGadg,node->chln_Window,NULL,
    EG_Update,GADG_NONE,TAG_DONE);
  ForceResizeChar(node);
}

void MoveLeft(struct CharNode *node)
{
struct Character *chr;
ULONG i,j;

  chr = node->chln_Character;
  if ((chr->chr_Data) && (chr->chr_Width > 0))
  {
    for (j = 0; j < chr->chr_Height; j++)
    {
      for (i = 0; i < chr->chr_Width-1; i++) DATA(i,j) = DATA(i+1,j);
      DATA(chr->chr_Width-1,j) = 0;
    }
    RedrawEdit(node);
  }
}

void MoveRight(struct CharNode *node)
{
struct Character *chr;
ULONG i,j;

  chr = node->chln_Character;
  if ((chr->chr_Data) && (chr->chr_Width > 0))
  {
    for (j = 0; j < chr->chr_Height; j++)
    {
      for (i = chr->chr_Width-1; i > 0; i--) DATA(i,j) = DATA(i-1,j);
      DATA(0,j) = 0;
    }
    RedrawEdit(node);
  }
}

void MoveUp(struct CharNode *node)
{
struct Character *chr;
ULONG i,j;

  chr = node->chln_Character;
  if ((chr->chr_Data) && (chr->chr_Height > 0))
  {
    for (i = 0; i < chr->chr_Width; i++)
    {
      for (j = 0; j < chr->chr_Height-1; j++) DATA(i,j) = DATA(i,j+1);
      DATA(i,chr->chr_Height-1) = 0;
    }
    RedrawEdit(node);
  }
}

void MoveDown(struct CharNode *node)
{
struct Character *chr;
ULONG i,j;

  chr = node->chln_Character;
  if ((chr->chr_Data) && (chr->chr_Height > 0))
  {
    for (i = 0; i < chr->chr_Width; i++)
    {
      for (j = chr->chr_Height-1; j > 0; j--) DATA(i,j) = DATA(i,j-1);
      DATA(i,0) = 0;
    }
    RedrawEdit(node);
  }
}