The R Project SVN – R – Diff – /branches/R-exp-R5/src/extra/graphapp/context.c

    WITHOUT ANY WARRANTY.
    See the file COPYLIB.TXT for details.
 */
-/* Copyright (C) 2004 	The R Foundation
+/* Copyright (C) 2004	The R Foundation
       Changes for R:  allow 32 contexts not 4
       Remove assumption that current->dest is non-NULL
 */
 /*
  *  Private library variables.
  */
-	PROTECTED drawstruct app_drawstate =
+PROTECTED drawstruct app_drawstate =
-		{
+{
-			NULL,	/* drawing destination */
+    NULL,	/* drawing destination */
-			Black,	/* colour */
+    Black,	/* colour */
-			S,  	/* drawing mode */
+    S,	/* drawing mode */
-			{0,0},	/* point */
+    {0,0},	/* point */
-,  	/* line width */
+,	/* line width */
-			NULL,	/* font */
+    NULL,	/* font */
-			NULL,	/* cursor */
+    NULL,	/* cursor */
-		};
+};
-	PROTECTED drawstate current = & app_drawstate;
+PROTECTED drawstate current = & app_drawstate;
-	PROTECTED HDC       dc;	/* shared DC variable */
+PROTECTED HDC       dc;	/* shared DC variable */
-	PROTECTED HPEN      the_pen   = 0;
+PROTECTED HPEN      the_pen   = 0;
-	PROTECTED HBRUSH    the_brush = 0;
+PROTECTED HBRUSH    the_brush = 0;
-	PROTECTED COLORREF win_rgb  = 0L;
+PROTECTED COLORREF win_rgb  = 0L;
 /*
  *  Private drawing context variables.
  */
-	static	rgb 	prev_pixval	= Black;
+static	rgb	prev_pixval	= Black;
-	static	int 	prev_width	= 1;
+static	int	prev_width	= 1;
-	static	bitmap	grey_bitmap	= NULL;
+static	bitmap	grey_bitmap	= NULL;
-	static rgb grey_cmap [] = {
+static rgb grey_cmap [] = {
 x00000000UL,
 x00FFFFFFUL,
-	};
+};
-	static byte grey_pixels [] = {
+static byte grey_pixels [] = {
 , 1, 0, 1, 0, 1, 0, 1,
 , 0, 1, 0, 1, 0, 1, 0,
 , 1, 0, 1, 0, 1, 0, 1,
 , 0, 1, 0, 1, 0, 1, 0,
 , 1, 0, 1, 0, 1, 0, 1,
 , 0, 1, 0, 1, 0, 1, 0,
 , 1, 0, 1, 0, 1, 0, 1,
 , 0, 1, 0, 1, 0, 1, 0,
-	};
+};
-	static imagedata grey_imagedata = {
+static imagedata grey_imagedata = {
 ,	/* depth */
 ,	/* width */
 ,	/* height */
 ,	/* cmapsize */
-		grey_cmap,
+    grey_cmap,
-		grey_pixels
+    grey_pixels
-	};
+};
-	static image grey_image = & grey_imagedata;
+static image grey_image = & grey_imagedata;
 /*
  *  Private context list structure
  */
-	typedef struct contextinfo  contextinfo;
+typedef struct contextinfo  contextinfo;
-	struct contextinfo
+struct contextinfo
-	{
+{
-		object	obj;	/* back pointer to drawing object */
+    object	obj;	/* back pointer to drawing object */
-		HDC 	dc; 	/* handle to DC used when drawing */
+    HDC	dc;	/* handle to DC used when drawing */
-		HGDIOBJ old_bitmap; /* bitmap returned by SelectObject() */
+    HGDIOBJ old_bitmap; /* bitmap returned by SelectObject() */
-	};
+};
 /*
  *  The constant MAX_CONTEXTS controls how large the
  *  circular array of contexts is, and thus how many
  *  concurrently active contexts there can be.  This
  *  number should be at least 2,  since bitblt needs
  *  two contexts for source and destination bitmaps.
  */
-	#define MAX_CONTEXTS 32
+#define MAX_CONTEXTS 32
-	static contextinfo context[MAX_CONTEXTS];
+static contextinfo context[MAX_CONTEXTS];
-	static int num_contexts = 0;
+static int num_contexts = 0;
-	static int empty_slot = 0;
+static int empty_slot = 0;
 /*
  *  Create a pen and a brush for use in drawing.
  */
 static void create_pen_and_brush(rgb c, unsigned long winrgb,
 		int width, int depth)
+{
-	the_pen = CreatePen(PS_INSIDEFRAME, width, winrgb);
+    the_pen = CreatePen(PS_INSIDEFRAME, width, winrgb);
-	if ((depth == 1) && (c == Grey))
+    if ((depth == 1) && (c == Grey))
-		the_brush = CreatePatternBrush(grey_bitmap->handle);
+	the_brush = CreatePatternBrush(grey_bitmap->handle);
-	else
+    else
-		the_brush = CreateSolidBrush(winrgb);
+	the_brush = CreateSolidBrush(winrgb);
+}
 /*
  *  Delete any created pens and brushes.
  *  Assumes they are not selected into any valid DC.
  */
 static void delete_pen_and_brush(void)
+{
-	DeleteObject(the_pen);
+    DeleteObject(the_pen);
-	DeleteObject(the_brush);
+    DeleteObject(the_brush);
+}
 /*
  *  Set Windows drawing globals up.
  */
 PROTECTED
 void init_contexts(void)
+{
-	grey_bitmap = imagetobitmap(grey_image);
+    grey_bitmap = imagetobitmap(grey_image);
-	grey_bitmap->text = new_string("grey_bitmap");
+    grey_bitmap->text = new_string("grey_bitmap");
-	current = & app_drawstate;
+    current = & app_drawstate;
-	app_drawstate.fnt = SystemFont;
+    app_drawstate.fnt = SystemFont;
-	app_drawstate.crsr = ArrowCursor;
+    app_drawstate.crsr = ArrowCursor;
-	create_pen_and_brush(Black, Black, 1, 0);
+    create_pen_and_brush(Black, Black, 1, 0);
+}
 static void free_context(contextinfo *c)
+{
-	if (! c->dc)
+    if (! c->dc)
-		return; /* already been deleted */
+	return; /* already been deleted */
-	SelectObject(c->dc, GetStockObject(NULL_PEN));
+    SelectObject(c->dc, GetStockObject(NULL_PEN));
-	SelectObject(c->dc, GetStockObject(NULL_BRUSH));
+    SelectObject(c->dc, GetStockObject(NULL_BRUSH));
-	if (c->obj->kind & ControlObject)
-		ReleaseDC(c->obj->handle, c->dc);
-	else if (c->obj->kind == BitmapObject) {
-		SelectObject(c->dc, c->old_bitmap);
-		DeleteDC(c->dc);
-	}
+    if (c->obj->kind & ControlObject)
+	ReleaseDC(c->obj->handle, c->dc);
+    else if (c->obj->kind == BitmapObject) {
+	SelectObject(c->dc, c->old_bitmap);
+	DeleteDC(c->dc);
+    }
-	if (dc == c->dc)
+    if (dc == c->dc)
-		dc = 0;
+	dc = 0;
-	c->dc = 0;
+    c->dc = 0;
-	c->obj = NULL;
+    c->obj = NULL;
-	c->old_bitmap = 0;
+    c->old_bitmap = 0;
+}
 /*
  *  Add a new DC into our list of DCs.
  */
 PROTECTED
 void add_context(object obj, HDC dc, HGDIOBJ old)
+{
-	contextinfo *c;
+    contextinfo *c;
-	/* Clear a spot for the new DC if the array is full. */
+    /* Clear a spot for the new DC if the array is full. */
-	if (num_contexts == MAX_CONTEXTS) {
+    if (num_contexts == MAX_CONTEXTS) {
-		c = & context[empty_slot];
+	c = & context[empty_slot];
-		free_context(c);
+	free_context(c);
-		empty_slot = (empty_slot+1) % MAX_CONTEXTS;
+	empty_slot = (empty_slot+1) % MAX_CONTEXTS;
-	} else {
+    } else {
-		c = & context[num_contexts];
+	c = & context[num_contexts];
-		num_contexts++;
+	num_contexts++;
-	}
+    }
-	/* Add this context to the list. */
+    /* Add this context to the list. */
-	c->obj = obj;
+    c->obj = obj;
-	c->dc = dc;
+    c->dc = dc;
-	c->old_bitmap = old;
+    c->old_bitmap = old;
+}
 /*
  *  Find and return a DC for a window or a bitmap.
  *  Also keep track of which DCs have been created.
  */
 PROTECTED
 HDC get_context(object obj)
+{
-	int i;
+    int i;
-	HDC dc;
+    HDC dc;
-	HGDIOBJ old;
+    HGDIOBJ old;
-	/* Determine if a DC for this object already exists. */
+    /* Determine if a DC for this object already exists. */
-	for (i = 0; i < num_contexts; i++) {
+    for (i = 0; i < num_contexts; i++) {
-		if (context[i].obj == obj)
+	if (context[i].obj == obj)
-			return context[i].dc;
+	    return context[i].dc;
-	}
+    }
-	/* Use GetDC or CreateCompatibleDC to return a DC. */
+    /* Use GetDC or CreateCompatibleDC to return a DC. */
-	if (obj->kind & ControlObject) {
+    if (obj->kind & ControlObject) {
-		dc = GetDC(obj->handle);
+	dc = GetDC(obj->handle);
-		add_context(obj, dc, 0);
+	add_context(obj, dc, 0);
-	}
+    }
-	else if (obj->kind == BitmapObject) {
+    else if (obj->kind == BitmapObject) {
-		dc = CreateCompatibleDC(0);
+	dc = CreateCompatibleDC(0);
-		old = SelectObject(dc, obj->handle);
+	old = SelectObject(dc, obj->handle);
-		add_context(obj, dc, old);
+	add_context(obj, dc, old);
-	}
+    }
-	else {
+    else {
-		return NULL;
+	return NULL;
 	/* apperror("Cannot find DC for non-drawable object."); */
-	}
+    }
-	/* We only select in the brush or pen we need, when we
+    /* We only select in the brush or pen we need, when we
-	 * need it. Thus at all other times, they are NULL.
+     * need it. Thus at all other times, they are NULL.
-	 * This ensures we can delete objects when we want, and
+     * This ensures we can delete objects when we want, and
-	 * also makes correct context possible. */
+     * also makes correct context possible. */
-	SelectObject(dc, GetStockObject(NULL_PEN));
+    SelectObject(dc, GetStockObject(NULL_PEN));
-	SelectObject(dc, GetStockObject(NULL_BRUSH));
+    SelectObject(dc, GetStockObject(NULL_BRUSH));
-	return dc;
+    return dc;
+}
 /*
  *  Remove the context from the list by blanking its fields.
  *  It is assumed that the DC has previously been released,
  *  for example by EndPaint() in the events.c file.
  */
 PROTECTED
 void remove_context(object obj)
+{
-	int i;
+    int i;
-	contextinfo *c;
+    contextinfo *c;
-	for (i = 0; i < num_contexts; i++) {
+    for (i = 0; i < num_contexts; i++) {
-		c = & context[i];
+	c = & context[i];
-		if (c->obj == obj) {
+	if (c->obj == obj) {
-			c->obj = NULL;
+	    c->obj = NULL;
-			c->dc = 0;
+	    c->dc = 0;
-			c->old_bitmap = 0;
+	    c->old_bitmap = 0;
-			empty_slot = i;
+	    empty_slot = i;
-		}
+	}
+    }
+}
 /*
  *  Free the DC associated with a given object.
  */
 PROTECTED
 void del_context(object obj)
+{
-	int i;
+    int i;
-	contextinfo *c;
+    contextinfo *c;
-	for (i = 0; i < num_contexts; i++) {
+    for (i = 0; i < num_contexts; i++) {
-		c = & context[i];
+	c = & context[i];
-		if (c->obj == obj) {
+	if (c->obj == obj) {
-			free_context(c);
+	    free_context(c);
-			c->obj = NULL;
+	    c->obj = NULL;
-			c->dc = 0;
+	    c->dc = 0;
-			c->old_bitmap = 0;
+	    c->old_bitmap = 0;
-			empty_slot = i;
+	    empty_slot = i;
-		}
+	}
+    }
+}
 /*
  *  Get rid of all DCs.
  */
 PROTECTED
 void del_all_contexts(void)
+{
-	int i;
+    int i;
-	contextinfo *c;
+    contextinfo *c;
-	for (i = 0; i < num_contexts; i++) {
+    for (i = 0; i < num_contexts; i++) {
-		c = & context[i];
+	c = & context[i];
-		free_context(c);
+	free_context(c);
-		c->obj = NULL;
+	c->obj = NULL;
-		c->dc = 0;
+	c->dc = 0;
-		c->old_bitmap = 0;
+	c->old_bitmap = 0;
-	}
+    }
-	num_contexts = 0;
+    num_contexts = 0;
-	empty_slot = 0;
+    empty_slot = 0;
+}
 /*
  *  De-initialise drawing variables.
  */
 PROTECTED
 void finish_contexts(void)
+{
-	del_all_contexts();
+    del_all_contexts();
-	DeleteObject(the_pen);
+    DeleteObject(the_pen);
-	DeleteObject(the_brush);
+    DeleteObject(the_brush);
+}
 /*
  *  Set up a pen and a brush for use in colouring things, and return
  *  the Windows RGB value equivalent to the library rgb value.
  */
 static unsigned long set_win_rgb(rgb c, int width)
+{
-	int r, g, b;
+    int r, g, b;
-	long luminance;
+    long luminance;
-	int depth;
+    int depth;
-	unsigned long winrgb;
+    unsigned long winrgb;
-	if (current->mode == Ones)
+    if (current->mode == Ones)
-		c = White;
+	c = White;
-	else if (current->mode == Zeros)
+    else if (current->mode == Zeros)
-		c = Black;
+	c = Black;
-	r = (int) ((c >> 16) & 0x000000FFL);
+    r = (int) ((c >> 16) & 0x000000FFL);
-	g = (int) ((c >>  8) & 0x000000FFL);
+    g = (int) ((c >>  8) & 0x000000FFL);
-	b = (int) ((c >>  0) & 0x000000FFL);
+    b = (int) ((c >>  0) & 0x000000FFL);
-	if (current->dest) depth = getdepth(current->dest);
+    if (current->dest) depth = getdepth(current->dest);
-	else depth = 2;  /* set default minimal depth if no current window */
+    else depth = 2;  /* set default minimal depth if no current window */
-	if (depth <= 2)	/* map to black or white, or grey if c == Grey */
+    if (depth <= 2)	/* map to black or white, or grey if c == Grey */
-	{
+    {
-		luminance = (r*3 + g*5 + b) / 9;
+	luminance = (r*3 + g*5 + b) / 9;
-		if (luminance > 0x0087)		r = g = b = 0x00FF;
+	if (luminance > 0x0087)		r = g = b = 0x00FF;
-		else if (luminance <= 0x0077)	r = g = b = 0x0000;
+	else if (luminance <= 0x0077)	r = g = b = 0x0000;
-		else				r = g = b = 0x0080;
+	else				r = g = b = 0x0080;
-		c = rgb(r,g,b);
+	c = rgb(r,g,b);
-	}
+    }
-	winrgb = RGB(r, g, b);
+    winrgb = RGB(r, g, b);
-	/* Has a colour or width change occured? */
+    /* Has a colour or width change occured? */
-	if ((c != prev_pixval) || (width != prev_width))
+    if ((c != prev_pixval) || (width != prev_width))
-	{
+    {
-		prev_pixval = c;
+	prev_pixval = c;
-		prev_width = width;
+	prev_width = width;
-		/* delete any old objects */
+	/* delete any old objects */
-		delete_pen_and_brush();
+	delete_pen_and_brush();
-		/* set up new objects */
+	/* set up new objects */
-		create_pen_and_brush(c, winrgb, width, depth);
+	create_pen_and_brush(c, winrgb, width, depth);
-	}
+    }
-	return winrgb;
+    return winrgb;
+}
 void setcursor(cursor c)
+{
-	decrease_refcount(current->crsr);
+    decrease_refcount(current->crsr);
-	current->crsr = c;
+    current->crsr = c;
-	if (c) SetCursor((HCURSOR) c->handle);
+    if (c) SetCursor((HCURSOR) c->handle);
-	increase_refcount(c);
+    increase_refcount(c);
+}
 void setfont(font f)
+{
-	decrease_refcount(current->fnt);
+    decrease_refcount(current->fnt);
-	current->fnt = f;
+    current->fnt = f;
-	increase_refcount(f);
+    increase_refcount(f);
+}
 /*
  *  Set the way that source and destination pixels are combined
  *  when drawing.
  */
 void setdrawmode(int mode)
+{
-	current->mode = mode & 0x0F; /* must be between 0x00 and 0x0F */
+    current->mode = mode & 0x0F; /* must be between 0x00 and 0x0F */
+}
 /*
  *  Set the colour.
  */
 void setrgb(rgb hue)
+{
-	current->hue = hue;
+    current->hue = hue;
-	win_rgb = set_win_rgb(hue, current->linewidth);
+    win_rgb = set_win_rgb(hue, current->linewidth);
+}
 /*
  *  Set the line width.
  */
 void setlinewidth(int width)
+{
-	if (width < 1)
+    if (width < 1)
-		width = 1;
+	width = 1;
-	current->linewidth = width;
+    current->linewidth = width;
-	win_rgb = set_win_rgb(current->hue, current->linewidth);
+    win_rgb = set_win_rgb(current->hue, current->linewidth);
+}
 /*
  *  Set which window/menubar/menu to add new objects too.
  */
 void addto(object obj)
+{
-	if (! obj)
+    if (! obj)
-		return;
+	return;
-	switch (obj->kind) {
+    switch (obj->kind) {
-		case WindowObject:	current_window = obj;	break;
+    case WindowObject:	current_window = obj;	break;
-		case MenubarObject:	current_menubar = obj;	break;
+    case MenubarObject:	current_menubar = obj;	break;
-		case MenuObject:	current_menu = obj;	break;
+    case MenuObject:	current_menu = obj;	break;
-	}
+    }
+}
 /*
  *  Set which bitmap or window to draw to; allocate a DC too.
  */
 void drawto(drawing d)
+{
-	if (! d) {
+    if (! d) {
-		current = & app_drawstate;
+	current = & app_drawstate;
-		current->dest = NULL;
+	current->dest = NULL;
-		return;
+	return;
-	}
+    }
-	dc = get_context(d);
+    dc = get_context(d);
-	if (d->drawstate) {
+    if (d->drawstate) {
-		/* Change the current drawing state to this one. */
+	/* Change the current drawing state to this one. */
-		current = d->drawstate;
+	current = d->drawstate;
-		current->dest = d;
+	current->dest = d;
-		win_rgb = set_win_rgb(current->hue, current->linewidth);
+	win_rgb = set_win_rgb(current->hue, current->linewidth);
-	}
+    }
-	else {
+    else {
-		/* Otherwise just use the current drawing state. */
+	/* Otherwise just use the current drawing state. */
-		current->dest = d;
+	current->dest = d;
-	}
+    }
+}
 /*
  *  Ensure drawing variables are set up.
  */
 void setdrawstate(drawstate s)
+{
-	if (! s)
+    if (! s)
-		return;
+	return;
-	moveto(s->p);
+    moveto(s->p);
-	setdrawmode(s->mode);
+    setdrawmode(s->mode);
-	setcursor(s->crsr);
+    setcursor(s->crsr);
-	setfont(s->fnt);
+    setfont(s->fnt);
-	setlinewidth(s->linewidth);
+    setlinewidth(s->linewidth);
-	setrgb(s->hue);
+    setrgb(s->hue);
+}
 /*
  *  Change the current drawstate to the specified one.
  */
 void restoredrawstate(drawstate s)
+{
-	if (! s)
+    if (! s)
-		return;
+	return;
-	setdrawstate(s);
+    setdrawstate(s);
-	discard(s);
+    discard(s);
+}
 /*
  *  Reset drawing variables to initial values.
  */
 void resetdrawstate(void)
+{
-	setrgb(Black);
+    setrgb(Black);
-	setlinewidth(1);
+    setlinewidth(1);
-	setcursor(ArrowCursor);
+    setcursor(ArrowCursor);
-	moveto(pt(0,0));
+    moveto(pt(0,0));
-	setfont(SystemFont);
+    setfont(SystemFont);
-	setdrawmode(S);
+    setdrawmode(S);
+}
 /*
  *  Return a new copy of the current drawing state.
  */
 drawstate copydrawstate(void)
+{
-	drawstate s = NULL;
+    drawstate s = NULL;
-	if (current) {
+    if (current) {
-		s = create(drawstruct);
+	s = create(drawstruct);
-		if (s)
+	if (s)
-			*s = *current;
+	    *s = *current;
-	}
+    }
-	return s;
+    return s;
+}
 /*
  *  Return drawing state information.
  */
 drawing	currentdrawing(void)    { return current->dest; }
-rgb 	currentrgb(void)        { return current->hue; }
+rgb	currentrgb(void)        { return current->hue; }
-int 	currentmode(void)       { return current->mode; }
+int	currentmode(void)       { return current->mode; }
 point	currentpoint(void)      { return current->p; }
-int 	currentlinewidth(void)  { return current->linewidth; }
+int	currentlinewidth(void)  { return current->linewidth; }
 font	currentfont(void)       { return current->fnt; }
 cursor	currentcursor(void)     { return current->crsr; }
-int 	getkeystate(void)       { return keystate; }
+int	getkeystate(void)       { return keystate; }

The R Project SVN R

(root)/branches/R-exp-R5/src/extra/graphapp/context.c @ 77458 – Rev 42521 → 45017