/**************************************************************************
 *
 *************************************************************************/

#include "gemfintl.h"

#define EXTEND_INTERIOR 0x8000

typedef struct {
	XUSERBLK   xub;
	short	   tick_limit;
	short	   tick_count;
	short	   tick_width;
	short	   curr_width;
	short	   full_width;
	short	   fill_style;
	short	   xoffset;
} ThermoInfo;

#ifdef GEMFAST_PROTOS
  static long GCALLBACK draw_thermo(XPARMBLK *pb)
#else
  static long GCALLBACK draw_thermo(pb)
	register XPARMBLK	*pb;
#endif
{
	register ThermoInfo *pt = (ThermoInfo *)pb->pub;
	register short		 vdi_handle;
	register short		 fillwidth;
	VRECT				 cliprect;
	VRECT				 boxrect;
	GRECT				 objrect;

	if (0 == (vdi_handle = apl_vshared())) {
		return 0;
	}

	fillwidth = pt->tick_count * pt->tick_width;
	if (fillwidth > pt->full_width) {
		fillwidth = pt->full_width;
	}

	rc_copy(&pb->drawrect, &objrect);
	objrect.g_x += pt->xoffset;
	objrect.g_w  = pt->full_width;

	rc_gtov(&objrect, &boxrect);
	rc_vadjust(&boxrect, 1, 1);

	if (pt->fill_style & EXTEND_INTERIOR) {
		objrect.g_x += pt->curr_width - 1;
		rc_intersect(&pb->cliprect, &objrect);
		rc_gtov(&objrect, &cliprect);
		vs_clip(vdi_handle, 1, (short *)&cliprect);
	} else {
		rc_gtov(&pb->cliprect, &cliprect);
		vs_clip(vdi_handle, 1, (short *)&cliprect);
		vsf_interior(vdi_handle, IS_HOLLOW);
		v_bar(vdi_handle, (short *)&boxrect);
	}

	boxrect.v_x2 = boxrect.v_x1 + fillwidth;

	vsf_interior(vdi_handle, IS_PATTERN);
	vsf_style(vdi_handle, pt->fill_style & 0x0007);
	v_bar(vdi_handle, (short *)&boxrect);
	vsf_style(vdi_handle, IP_SOLID);
	vsf_interior(vdi_handle, IS_SOLID);

	vs_clip(vdi_handle, 0, (short *)&cliprect);

	pt->curr_width = fillwidth;

	return 0;

}

short obj_mkthermo(ptree, object, nincr)
	OBJECT			*ptree;
	register short	   object;
	register short	   nincr;
{
	register short			iwidth;
	register OBJECT 	 *pobj = &ptree[object];
	register ThermoInfo  *pt;

/*-------------------------------------------------------------------------
 * Check for zero increments to prevent div-by-zero errors.
 * Calc the pixel width of one increment.
 * Make sure a VDI workstation is available for later.
 *-----------------------------------------------------------------------*/

	if (0 >= nincr)
		return gfErr_parameter_range;

	if (0 == (iwidth = pobj->ob_width / nincr))
		return gfErr_parameter_range;

	if (0 == apl_vshared()) {
		return gfErr_vdi_handle;
	}

/*-------------------------------------------------------------------------
 * If the object has already been made into a G_THERMO extended object,
 * just get its pointer, else make it into such an object.
 *-----------------------------------------------------------------------*/

	if ((pobj->ob_type & 0x00FF) == G_USERDEF) {
		pt = (ThermoInfo *)pobj->_Ob_spec;
		if (pt->xub.ob_type != G_THERMO) {
			return gfErr_wrong_type;
		}
	} else {
		if (NULL == (pt = apl_malloc((long)sizeof(*pt)))) {
			return gfErr_no_memory;
		}
		obj_mxuserdef(ptree, object, &pt->xub, draw_thermo, NULL, (long)sizeof(*pt));
		pt->xub.ob_type = G_THERMO;
	}

/*-------------------------------------------------------------------------
 *-----------------------------------------------------------------------*/

	pt->curr_width = 0;
	pt->tick_limit = nincr;
	pt->tick_count = 0;
	pt->tick_width = iwidth;
	pt->full_width = nincr * iwidth;
	pt->xoffset    = (pobj->ob_width - pt->full_width) / 2;
	pt->fill_style = (short)(((long)pt->xub.ob_spec >> 4) & 0x0007);

	return 0;

}

short obj_udthermo(ptree, object, newpos, pclip)
	OBJECT *ptree;
	short	  object;
	short	  newpos;
	GRECT  *pclip;
{
	register ThermoInfo *pt = (ThermoInfo *)ptree[object]._Ob_spec;
	short				  oldpos;

	if ((ptree[object].ob_type & 0x00FF) != G_USERDEF
	 || pt->xub.ob_type != G_THERMO) {
		return 0;
	}

	oldpos = pt->tick_count;

	if (newpos == OBJ_TINQUIRE) {
		return oldpos;
	} else if (newpos < 0) {
		newpos = pt->tick_count + 1;
	}

	if (newpos > pt->tick_limit) {
		newpos = pt->tick_limit;
	}

	if (oldpos == newpos) {
		return oldpos;
	}

	pt->tick_count = newpos;

	if (pclip != NULL) {
		if (oldpos < newpos) {
			pt->fill_style |= EXTEND_INTERIOR;
		}
		objc_draw(ptree, object, MAX_DEPTH, RECTVALS(pclip));
		pt->fill_style &= ~EXTEND_INTERIOR;
	}

	return oldpos;
}