>>>>>>>>>>>>>>> Sample code for initializing User Objects <<<<<<<<<<<<<<<<

GLOBAL	USERBLK extobjs[MAX_OBJS];	/* APPLBLK defined in OBDEFS.H	*/
GLOBAL	WORD	n_extobjs;		/* Set MAX_OBJS to total user   */
					/* objects in resource		*/

	VOID
obj_init()				/* Scan whole resource for user   */
	{				/* objects.  Uses map_tree()      */
	LONG	tree, obspec;		/* from GEMCL5.C		  */
	WORD	itree, i, obj;

	n_extobjs = 0;			/* Replace TREE0 with your first  */
					/* tree, TREEN with the last      */
	for (itree = TREE0; itree <= TREEN; itree++)
		{
		rsrc_gaddr(R_TREE, itree, &tree);
		map_tree(tree, ROOT, NIL, fix_obj);
		}
	}

	WORD
fix_obj(tree, obj)			/* Code to check and fix up	*/
	LONG	tree;			/* a user defined object	*/
	WORD	obj;
	{
	WORD	hibyte;

	hibyte = LWGET(OB_TYPE(obj)) & 0xff00;		/* check extended */
	if (!hibyte)					/* type - if none */
		return (TRUE);				/* ignore object  */
	extobjs[n_extobjs].ub_code = dr_code;		/* set drawcode   */
	extobjs[n_extobjs].ub_parm = LLGET(OB_SPEC(obj)); /* copy obspec  */
	LLSET(OB_SPEC(obj), ADDR(&extobjs[n_extobjs]));   /* point obspec */
	LWSET(OB_TYPE(obj), G_USERDEF | hibyte);	/* to userblk &   */
	n_extobjs++;					/* patch type     */
	return (TRUE);
	}
	
>>>>>>>>>>>>>>>>>>>>>> Sample User Object Drawing Code <<<<<<<<<<<<<<<<<<<<
>>>>>>>>>>>>>>>>>>>>>> Implements Rounded Box based    <<<<<<<<<<<<<<<<<<<<
>>>>>>>>>>>>>>>>>>>>>> on G_BOX type		       <<<<<<<<<<<<<<<<<<<<

	WORD
dr_code(pb)				/* Sample user object drawing   */
	PARMBLK	*pb;			/* code.  Caution: NOT portable */
	{				/* to Intel small data models   */
	LONG	tree, obspec;
	WORD	slct, flip, type, ext_type, flags;
	WORD	pxy[4];
	WORD	bgc, interior, style, bdc, width, chc;
	
	tree = pb->pb_tree;
	obspec = LLGET(pb->pb_parm);	/* original obspec from USERBLK  */
	ext_type = LHIBT(LWGET(OB_TYPE(pb->pb_obj)));
	slct = SELECTED & pb->pb_currstate;
	flip = SELECTED & (pb->pb_currstate ^ pb->pb_prevstate);
	set_clip(TRUE, &pb->pb_xc);	/* These two routines in GEMCL9.C */
	grect_to_array(&pb->pb_x, pxy);	

	switch (ext_type) {
		case 1:			/* Rounded box       */
					/* Crack color word  */
			get_colrwd(obspec, &bgc, &style, &interior,
				&bdc, &width, &chc);
					/* For select effect, use char color */
			if (slct)	/* In place of background	     */
				bgc = chc;
					/* Fill in background		     */
			rr_fill(MD_REPLACE, (width? 0: 1), bgc, interior, 
				style, pxy);
					/* Do perimeter if needed	     */
					/* rr_perim is in GEMCL9.C	     */
			if (width && !flip)
				{
				pxy[0] -= width; pxy[2] += width; 
				rr_perim(MD_REPLACE, bdc, FIS_SOLID, width, pxy);
				}
			break;
		default:		/* Add more types here		    */
			break;
		}
	return (0);
	}

	VOID				/* Cracks the obspec color word    */
get_colrwd(obspec, bgc, style, interior, bdc, width, chc)
	LONG	obspec;
	WORD	*bgc, *style, *interior, *bdc, *width, *chc, *chmode;
	{
	WORD	colorwd;

	colorwd = LLOWD(obspec);
	*bgc = colorwd & 0xf;
	*style = (colorwd & 0x70) >> 4;
	if ( !(*style) )
		*interior = 0;
	else if (*style == 7)
		*interior = 1;
	else if (colorwd & 0x80)	/* HACK: Uses character writing mode */
		*interior = 3;		/* bit to select alternate interior  */
	else				/* styles!			     */
		*interior = 2;
	*bdc = (colorwd & 0xf000) >> 12;

	*width = LHIWD(obspec) & 0xff;
	if (*width > 127)
		*width = 256 - *width;

	if (*width && !(*width & 0x1))		/* VDI only renders odd */
		(*width)--;			/* widths!		*/

	*chc = (colorwd & 0x0f00) >> 8;		/* used for select effect */
	}

	VOID				/* Fill a rounded rectangle	*/
rr_fill(mode, perim, color, interior, style, pxy)
	WORD	mode, perim, color, style, interior, *pxy;
	{
	vswr_mode(vdi_handle, mode);
	vsf_color(vdi_handle, color);
	vsf_style(vdi_handle, style);
	vsf_interior(vdi_handle, interior);
	vsf_perimeter(vdi_handle, perim);
	v_rfbox(vdi_handle, pxy);
	}