diff --git a/src/frontend/display.c b/src/frontend/display.c
index 54595883f..797cd0103 100644
--- a/src/frontend/display.c
+++ b/src/frontend/display.c
@@ -275,9 +275,9 @@ SetLinestyle(int linestyleid)
 
 
 void
-SetColor(int colorid)
+SetColor(int colorid, GRAPH *graph)
 {
-    dispdev->SetColor (colorid);
+    dispdev->SetColor (colorid, graph);
 }
 
 
diff --git a/src/frontend/display.h b/src/frontend/display.h
index a3ff68d4b..df7944d21 100644
--- a/src/frontend/display.h
+++ b/src/frontend/display.h
@@ -23,7 +23,7 @@ void DevDrawText(char *text, int x, int y, int angle);
 void DefineColor(int colorid, double red, double green, double blue);
 void DefineLinestyle(int linestyleid, int mask);
 void SetLinestyle(int linestyleid);
-void SetColor(int colorid);
+void SetColor(int colorid, GRAPH* graph);
 void DevUpdate(void);
 void DatatoScreen(GRAPH *graph, double x, double y, int *screenx, int *screeny);
 void Input(REQUEST *request, RESPONSE *response);
diff --git a/src/frontend/hpgl.c b/src/frontend/hpgl.c
index 9b700b1ff..77be5e6d1 100644
--- a/src/frontend/hpgl.c
+++ b/src/frontend/hpgl.c
@@ -291,9 +291,9 @@ int GL_SetLinestyle(int linestyleid)
 }
 
 
-/* ARGSUSED */
-int GL_SetColor(int colorid)
+int GL_SetColor(int colorid, GRAPH* graph)
 {
+    NG_IGNORE(graph);
     fprintf(plotfile, "SP %d;", colorid);
 
     return 0;
diff --git a/src/frontend/plotting/graf.c b/src/frontend/plotting/graf.c
index cbefaa1bc..8732c108b 100644
--- a/src/frontend/plotting/graf.c
+++ b/src/frontend/plotting/graf.c
@@ -80,6 +80,7 @@ int gr_init(double *xlims, double *ylims, /* The size of the screen. */
         int xtype, int ytype, /* The types of the data graphed. */
         const char *pname,
         const char *commandline) /* For xi_zoomdata() */
+        int prevgraph)                /* plot id, if started from a previous plot*/
 {
     GRAPH *graph;
     wordlist *wl;
@@ -154,6 +155,16 @@ int gr_init(double *xlims, double *ylims, /* The size of the screen. */
 
     graph->plotname = tprintf("%s: %s", pname, plotname);
 
+
+    /* restore background color from previous graph, e.g. for zooming,
+       it will be used in NewViewport(graph) */
+    if (prevgraph > 0) {
+        graph->mgraphid = prevgraph;
+    }
+    else {
+        graph->mgraphid = 0;
+    }
+
     /* note: have enum here or some better convention */
     if (NewViewport(graph) == 1) {
         /* note: where is the error message generated? */
@@ -162,6 +173,19 @@ int gr_init(double *xlims, double *ylims, /* The size of the screen. */
         return (FALSE);
     }
 
+    /* restore data from previous graph, e.g. for zooming */
+    if (prevgraph > 0) {
+        int i;
+        GRAPH* pgraph = FindGraph(prevgraph);
+        /* transmit colors */
+        for (i = 0; i < 25; i++) {
+            graph->colorarray[i] = pgraph->colorarray[i];
+        }
+        strcpy(graph->ticchar, pgraph->ticchar);
+        graph->ticdata = pgraph->ticdata;
+        graph->ticmarks = pgraph->ticmarks;
+    }
+
     /* layout decisions */
     /* note: have to do before gr_fixgrid and after NewViewport */
     graph->viewportxoff = graph->fontwidth * 8;  /* 8 lines on left */
@@ -290,7 +314,7 @@ void gr_point(struct dvec *dv,
             return;
         }
     }
-    SetColor(dv->v_color);
+    SetColor(dv->v_color, currentgraph);
 
     switch (currentgraph->plottype) {
         double    *tics;
@@ -463,7 +487,7 @@ void drawlegend(GRAPH *graph, int plotno, struct dvec *dv)
     const int y = graph->absolute.height - graph->fontheight
         - ((plotno + 2) / 2) * (graph->fontheight);
     const int i = y + graph->fontheight / 2 + 1;
-    SetColor(dv->v_color);
+    SetColor(dv->v_color, graph);
     if (graph->plottype == PLOT_POINT) {
         char buf[16];
         (void) sprintf(buf, "%c : ", dv->v_linestyle);
@@ -473,10 +497,10 @@ void drawlegend(GRAPH *graph, int plotno, struct dvec *dv)
         SetLinestyle(dv->v_linestyle);
         DevDrawLine(x, i, x + graph->viewport.width / 20, i, FALSE);
     }
-    SetColor(1);
-    DevDrawText(dv->v_name, x_base + graph->fontwidth, y, 0);
-} /* end of function drawlegend */
-
+    SetColor(1, graph);
+    DevDrawText(dv->v_name, x + graph->viewport.width / 20
+                + graph->fontwidth, y, 0);
+}
 
 
 /* end one plot of a graph */
@@ -627,7 +651,7 @@ void gr_restoretext(GRAPH *graph)
 
     /* restore text */
     for (k = graph->keyed; k; k = k->next) {
-        SetColor(k->colorindex);
+        SetColor(k->colorindex, graph);
         DevDrawText(k->text, k->x, k->y, 0);
     }
 }
diff --git a/src/frontend/plotting/graf.h b/src/frontend/plotting/graf.h
index 9d73c5cab..d960a3b14 100644
--- a/src/frontend/plotting/graf.h
+++ b/src/frontend/plotting/graf.h
@@ -19,7 +19,8 @@ int gr_init(double *xlims, double *ylims,
         const char *xlabel,
         const char *ylabel, /* Labels for axes. */
         int xtype, int ytype,
-        const char *pname, const char *commandline);
+        const char *pname, const char *commandline,
+        int prevgraph);
 void gr_point(struct dvec *dv,
         double newx, double newy,
         double oldx, double oldy, int np);
diff --git a/src/frontend/plotting/graphdb.c b/src/frontend/plotting/graphdb.c
index 861721ecf..4ca5cf432 100644
--- a/src/frontend/plotting/graphdb.c
+++ b/src/frontend/plotting/graphdb.c
@@ -60,6 +60,7 @@ GRAPH *NewGraph(void)
     LISTGRAPH *list;
     const int BucketId = RunningId % NUMGBUCKETS;
 
+    /* allocate memory for graph via LISTGRAPH */
     if ((list = TMALLOC(LISTGRAPH, 1)) == NULL) {
         internalerror("can't allocate a listgraph");
         return (GRAPH *) NULL;
diff --git a/src/frontend/plotting/grid.c b/src/frontend/plotting/grid.c
index 6342a5e83..d8a57e5c8 100644
--- a/src/frontend/plotting/grid.c
+++ b/src/frontend/plotting/grid.c
@@ -74,7 +74,7 @@ gr_fixgrid(GRAPH *graph, double xdelta, double ydelta, int xtype, int ytype)
     if (graph->grid.gridtype == GRID_NONE)
         graph->grid.gridtype = GRID_LIN;
 
-    SetColor(1);
+    SetColor(1, graph);
     SetLinestyle(1);
 
     if ((graph->data.xmin > graph->data.xmax) ||
@@ -132,7 +132,7 @@ void
 gr_redrawgrid(GRAPH *graph)
 {
 
-    SetColor(1);
+    SetColor(1, graph);
     SetLinestyle(1);
     /* draw labels */
     if (graph->grid.xlabel) {
@@ -1477,7 +1477,7 @@ arcset(GRAPH *graph, double rad, double prevrad, double irad, double iprevrad, d
     /* Let's be lazy and just draw everything -- we won't get called too
      * much and the circles get clipped anyway...
      */
-    SetColor(18);
+    SetColor(18, graph);
 
     cliparc((double) (centx + xoffset + radoff - rad),
             (double) (centy + yoffset), rad, 2*angle,
@@ -1491,7 +1491,7 @@ arcset(GRAPH *graph, double rad, double prevrad, double irad, double iprevrad, d
             M_PI - 2 * angle, centx, centy, maxrad, 0);
 
     /* Draw the upper and lower circles.  */
-    SetColor(19);
+    SetColor(19, graph);
     aclip = cliparc((double) (centx + xoffset + radoff),
                     (double) (centy + yoffset + irad), irad,
                     (double) (M_PI * 1.5 + 2 * iangle),
@@ -1500,7 +1500,7 @@ arcset(GRAPH *graph, double rad, double prevrad, double irad, double iprevrad, d
         xlab = (int)(centx + xoffset + radoff + irad * cos(aclip));
         ylab = (int)(centy + yoffset + irad * (1 + sin(aclip)));
         if ((ylab - gr_ycenter) > graph->fontheight) {
-            SetColor(1);
+            SetColor(1, graph);
             adddeglabel(graph, pdeg, xlab, ylab,
                         gr_xcenter, gr_ycenter, gr_xcenter, gr_ycenter);
             /*
@@ -1508,7 +1508,7 @@ arcset(GRAPH *graph, double rad, double prevrad, double irad, double iprevrad, d
               adddeglabel(graph, ndeg, xlab, ylab,
               gr_xcenter, gr_ycenter, gr_xcenter, gr_ycenter);
             */
-            SetColor(19);
+            SetColor(19, graph);
         }
     }
     aclip = cliparc((double) (centx + xoffset + radoff),
@@ -1519,14 +1519,14 @@ arcset(GRAPH *graph, double rad, double prevrad, double irad, double iprevrad, d
     if ((aclip >= 0 && aclip < 2*M_PI - M_PI/180) && (pdeg < 359)) {
         xlab = (int)(centx + xoffset + radoff + irad * cos(aclip));
         ylab = (int)(centy + yoffset + irad * (sin(aclip) - 1));
-        SetColor(1);
+        SetColor(1, graph);
         adddeglabel(graph, ndeg, xlab, ylab,
                     gr_xcenter, gr_ycenter, gr_xcenter, gr_ycenter);
-        SetColor(19);
+        SetColor(19, graph);
     }
 
     /* Now toss the labels on... */
-    SetColor(1);
+    SetColor(1, graph);
 
     x = centx + xoffset + (int)radoff - 2 * (int)rad -
         gi_fntwidth * (int) strlen(plab) - 2;
diff --git a/src/frontend/plotting/plot5.c b/src/frontend/plotting/plot5.c
index cc3aeec47..155a089bb 100644
--- a/src/frontend/plotting/plot5.c
+++ b/src/frontend/plotting/plot5.c
@@ -210,9 +210,11 @@ int Plt5_SetLinestyle(int linestyleid)
 
 
 /* ARGSUSED */
-int Plt5_SetColor(int colorid)
+
+int Plt5_SetColor(int colorid, GRAPH *graph)
 {
     NG_IGNORE(colorid);
+    NG_IGNORE(graph);
 
     /* do nothing */
     return 0;
diff --git a/src/frontend/plotting/plotit.c b/src/frontend/plotting/plotit.c
index 2d3d1bf5c..5bf27ada3 100644
--- a/src/frontend/plotting/plotit.c
+++ b/src/frontend/plotting/plotit.c
@@ -275,6 +275,14 @@ bool plotit(wordlist *wl, const char *hcopy, const char *devname)
         return FALSE;
     }
 
+    /* All these things are static so that "samep" will work. 
+    static double *xcompress = NULL, *xindices = NULL;
+    static double *xlim = NULL, *ylim = NULL, *xynull;
+    static double *xdelta = NULL, *ydelta = NULL;
+    static char *xlabel = NULL, *ylabel = NULL, *title = NULL;
+    static double *xprevgraph = NULL;*/
+
+    int prevgraph = 0;
     static bool nointerp = FALSE;
     static GRIDTYPE gtype = GRID_LIN;
     static PLOTTYPE ptype = PLOT_LIN;
@@ -324,6 +332,8 @@ bool plotit(wordlist *wl, const char *hcopy, const char *devname)
     nxlabel = getword(wwl, "xlabel");
     nylabel = getword(wwl, "ylabel");
     ntitle = getword(wwl, "title");
+    /* remove sgraphid */
+    txfee(getlims(wwl, "sgraphid", 1));
 
     /* Build the plot command. This construction had been done with wordlists
      * and reversing, and flattening, but it is clearer as well as much more
@@ -426,6 +436,13 @@ bool plotit(wordlist *wl, const char *hcopy, const char *devname)
         txfree(getlims(wl, "ydel", 1));
     }
 
+    if (!sameflag || !xprevgraph) {
+        xprevgraph = getlims(wl, "sgraphid", 1);
+        if(xprevgraph)
+            prevgraph = (int)(*xprevgraph);
+    } else {
+        txfree(getlims(wl, "sgraphid", 1));
+    }
     /* Get the grid type and the point type.  Note we can't do if-else
      * here because we want to catch all the grid types.
      */
@@ -1122,7 +1139,7 @@ bool plotit(wordlist *wl, const char *hcopy, const char *devname)
             xdelta ? *xdelta : 0.0,
             ydelta ? *ydelta : 0.0,
             gtype, ptype, xlabel, ylabel, xt, y_type,
-            plot_cur->pl_typename, ds_get_buf(&ds_cline))) {
+            plot_cur->pl_typename, ds_get_buf(&ds_cline), prevgraph)) {
         goto quit;
     }
 
diff --git a/src/frontend/plotting/x11.c b/src/frontend/plotting/x11.c
index b84bf034d..2e3b24886 100644
--- a/src/frontend/plotting/x11.c
+++ b/src/frontend/plotting/x11.c
@@ -354,7 +354,7 @@ handlekeypressed(Widget w, XtPointer client_data, XEvent *ev, Boolean *continue_
     /* write it */
     PushGraphContext(graph);
     text[nbytes] = '\0';
-    SetColor(1);
+    SetColor(1, graph);
     DevDrawText(text, keyev->x, graph->absolute.height - keyev->y, 0);
     /* save it */
     SaveText(graph, text, keyev->x, graph->absolute.height - keyev->y);
diff --git a/src/frontend/postsc.c b/src/frontend/postsc.c
index f0eaad0c0..ec07a60eb 100644
--- a/src/frontend/postsc.c
+++ b/src/frontend/postsc.c
@@ -410,12 +410,12 @@ int PS_Text(char *text, int x, int y, int angle)
     PS_SetLinestyle(SOLID);
     /* set text color to black if background is not white */
     if (setbgcolor > 0)
-        PS_SetColor(0);
+        PS_SetColor(0, currentgraph);
     else
-        PS_SetColor(1);
+        PS_SetColor(1, currentgraph);
     /* if color is given by set hcopytxpscolor=settxcolor, give it a try */
     if (settxcolor >= 0)
-        PS_SetColor(settxcolor);
+        PS_SetColor(settxcolor, currentgraph);
     /* stroke the path if there's an open one */
     PS_Stroke();
     /* move to (x, y) */
@@ -431,7 +431,7 @@ int PS_Text(char *text, int x, int y, int angle)
 
     /* restore old linestyle */
 
-    PS_SetColor(savedcolor);
+    PS_SetColor(savedcolor, currentgraph);
     PS_SetLinestyle(savedlstyle);
     return 0;
 }
@@ -458,8 +458,9 @@ int PS_SetLinestyle(int linestyleid)
 }
 
 
-int PS_SetColor(int colorid)
+int PS_SetColor(int colorid, GRAPH *graph)
 {
+    NG_IGNORE(graph);
     PS_LinestyleColor(currentgraph->linestyle, colorid);
     return 0;
 }
diff --git a/src/frontend/wdisp/wincolor.c b/src/frontend/wdisp/wincolor.c
index d5382c84c..de53318cf 100644
--- a/src/frontend/wdisp/wincolor.c
+++ b/src/frontend/wdisp/wincolor.c
@@ -13,6 +13,7 @@
 #undef BOOLEAN
 #include <windows.h>
 #include "ngspice/wincolornames.h"
+#include "ngspice/graph.h"
 
 
 
@@ -145,6 +146,14 @@ void wincolor_init(COLORREF* ColorTable, int noc)
     }
 }
 
+void wincolor_graph(COLORREF* ColorTable, int noc, GRAPH *graph)
+{
+    int i;
+    for (i = 0; i < noc; i++) {
+        graph->colorarray[i] = ColorTable[i];
+    }
+}
+
 void wincolor_redo(COLORREF* ColorTable, int noc)
 {
     int i = 0;
diff --git a/src/frontend/wdisp/windisp.c b/src/frontend/wdisp/windisp.c
index 98fa313c7..7ed7d576d 100644
--- a/src/frontend/wdisp/windisp.c
+++ b/src/frontend/wdisp/windisp.c
@@ -4,6 +4,7 @@
  * Holger Vogt  07.12.01
  * Holger Vogt  05.12.07
  * Holger Vogt  01.11.18
+ * Holger Vogt  09.02.20
  */
 
 #include "ngspice/ngspice.h"
@@ -64,6 +65,7 @@ extern HWND        swString;      /* string input window of main window */
 extern int         DevSwitch(char *devname);
 extern int         NewViewport(GRAPH *pgraph);
 extern void        com_hardcopy(wordlist *wl);
+extern void        wincolor_graph(COLORREF* ColorTable, int noc, GRAPH* graph);
 
 /* defines */
 #define RAD_TO_DEG   (180.0 / M_PI)
@@ -349,6 +351,19 @@ static LRESULT PrintInit(HWND hwnd)
     return 0;
 }
 
+/* check if background color is dark enough.
+   Threshold is empirical by looking at color tables */
+static bool get_black(GRAPH* graph)
+{
+    int tcolor = GetRValue(graph->colorarray[0]) +
+        (int)(1.5 * GetGValue(graph->colorarray[0])) + 
+        GetBValue(graph->colorarray[0]);
+    if (tcolor > 360) {
+        return FALSE;
+    }
+    else
+        return TRUE;
+}
 
 /* window procedure */
 LRESULT CALLBACK PlotWindowProc(HWND hwnd, UINT uMsg,
@@ -395,14 +410,16 @@ LRESULT CALLBACK PlotWindowProc(HWND hwnd, UINT uMsg,
         /* left mouse button: connect coordinate pair by dashed pair of x, y lines */
         if (wParam & MK_LBUTTON) {
             hdc = GetDC(hwnd);
-            if (isblack) {
+            GRAPH* gr = pGraph(hwnd);
+            isblack = get_black(gr);
+            if (isblack)
                 prevmix = SetROP2(hdc, R2_XORPEN);
             }
             else {
                 prevmix = SetROP2(hdc, R2_NOTXORPEN);
             }
             /* Create white dashed pen */
-            NewPen = CreatePen(LType(12), 0, ColorTable[1]);
+            NewPen = CreatePen(LType(12), 0, gr->colorarray[1]);
             OldPen = SelectObject(hdc, NewPen);
             /* draw lines with previous coodinates -> delete old line because of XOR */
             MoveToEx (hdc, x0, y0, NULL);
@@ -427,12 +444,14 @@ LRESULT CALLBACK PlotWindowProc(HWND hwnd, UINT uMsg,
         /* right mouse button: create white (black) dashed box */
         else if (wParam & MK_RBUTTON) {
             hdc = GetDC (hwnd);
+            GRAPH* gr = pGraph(hwnd);
+            isblack = get_black(gr);
             if (isblack)
                 prevmix = SetROP2(hdc, R2_XORPEN);
             else
                 prevmix = SetROP2(hdc, R2_NOTXORPEN);
             /* Create white (black) dashed pen */
-            NewPen = CreatePen(LType(12), 0, ColorTable[1]);
+            NewPen = CreatePen(LType(12), 0, gr->colorarray[1]);
             OldPen = SelectObject(hdc, NewPen);
             /* draw box with previous coodinates -> delete old lines because of XOR */
             MoveToEx (hdc, x0, y0, NULL);
@@ -535,11 +554,11 @@ LRESULT CALLBACK PlotWindowProc(HWND hwnd, UINT uMsg,
         if (!eq(plot_cur->pl_typename, buf2)) {
             (void) sprintf(buf,
 //       "setplot %s; %s xlimit %e %e ylimit %e %e; setplot $curplot\n",
-                           "setplot %s; %s xlimit %e %e ylimit %e %e\n",
-                           buf2, gr->commandline, fx0, fxe, fy0, fye);
+                           "setplot %s; %s xlimit %e %e ylimit %e %e sgraphid %d\n",
+                           buf2, gr->commandline, fx0, fxe, fy0, fye, gr->graphid);
         } else {
-            (void) sprintf(buf, "%s xlimit %e %e ylimit %e %e\n",
-                           gr->commandline, fx0, fxe, fy0, fye);
+            (void) sprintf(buf, "%s xlimit %e %e ylimit %e %e sgraphid %d\n",
+                           gr->commandline, fx0, fxe, fy0, fye, gr->graphid);
         }
 
         (void) cp_evloop(buf);
@@ -635,6 +654,7 @@ int WIN_NewViewport(GRAPH *graph)
 #endif
     tpWindowData   wd;
     HMENU    sysmenu;
+    GRAPH* pgraph = NULL;
 
     /* test the parameters */
     if (!graph) {
@@ -647,6 +667,16 @@ int WIN_NewViewport(GRAPH *graph)
         return 1;
     }
 
+    /* get the colors into graph struct */
+    wincolor_graph(ColorTable, NumWinColors, graph);
+    /* If we had a previous graph, e.g. after zooming, we
+    have to set the background color already here, because
+    background is set below */
+    if (graph->mgraphid > 0) {
+        pgraph = FindGraph(graph->mgraphid);
+        graph->colorarray[0] = pgraph->colorarray[0];
+    }
+
     /* allocate device dependency info */
     wd = calloc(1, sizeof(tWindowData));
     if (!wd) {
@@ -685,7 +715,7 @@ int WIN_NewViewport(GRAPH *graph)
 
    /* set the background color */
     SelectObject(dc, GetStockObject(DC_BRUSH));
-    SetDCBrushColor(dc, ColorTable[0]);
+    SetDCBrushColor(dc, graph->colorarray[0]);
 
     wd->wnd = window;
     SetWindowLongPtr(window, 0, (LONG_PTR)graph);
@@ -696,9 +726,6 @@ int WIN_NewViewport(GRAPH *graph)
     /* get the mask */
     GetClientRect(window, &(wd->Area));
 
-
-
-
     /* set the Color Index */
     wd->ColorIndex = 0;
 
@@ -715,7 +742,7 @@ int WIN_NewViewport(GRAPH *graph)
     AppendMenu(sysmenu, MF_STRING, ID_HARDCOPY_BW, STR_HARDCOPY_BW);
 
     /* set default parameters of DC */
-    SetBkColor(dc, ColorTable[0]);
+    SetBkColor(dc, graph->colorarray[0]);
     SetBkMode(dc, TRANSPARENT );
 
     /* set font */
@@ -748,6 +775,10 @@ int WIN_NewViewport(GRAPH *graph)
         linewidth = 0;
     if (linewidth < 0)
         linewidth = 0;
+    if (pgraph)
+        graph->graphwidth = pgraph->graphwidth;
+    else
+        graph->graphwidth = linewidth;
 
     /* get linewidth information from .spiceinit or .control section */
     if (!cp_getvar("gridwidth", CP_NUM, &gridlinewidth, 0))
@@ -755,6 +786,11 @@ int WIN_NewViewport(GRAPH *graph)
     if (gridlinewidth < 0)
         gridlinewidth = 0;
 
+    if (pgraph)
+        graph->gridwidth = pgraph->gridwidth;
+    else
+        graph->gridwidth = gridlinewidth;
+
     /* wait until the window is really there */
     WaitForIdle();
 
@@ -828,9 +864,9 @@ WIN_DrawLine(int x1, int y1, int x2, int y2, bool isgrid)
 
     MoveToEx(wd->hDC, x1, wd->Area.bottom - y1, NULL);
     if (isgrid)
-        NewPen = CreatePen(LType(wd->ColorIndex), gridlinewidth, ColorTable[wd->ColorIndex]);
+        NewPen = CreatePen(LType(wd->ColorIndex), currentgraph->gridwidth, currentgraph->colorarray[wd->ColorIndex]);
     else
-        NewPen = CreatePen(LType(wd->ColorIndex), linewidth, ColorTable[wd->ColorIndex]);
+        NewPen = CreatePen(LType(wd->ColorIndex), currentgraph->graphwidth, currentgraph->colorarray[wd->ColorIndex]);
     OldPen = SelectObject(wd->hDC, NewPen);
     LineTo(wd->hDC, x2, wd->Area.bottom - y2);
     OldPen = SelectObject(wd->hDC, OldPen);
@@ -889,7 +925,7 @@ int WIN_Arc(int x0, int y0, int radius, double theta, double delta_theta)
     ye = (int)(dy0 + (r * sin(theta + delta_theta)));
 
     /* plot */
-    NewPen = CreatePen(LType(wd->ColorIndex), linewidth, ColorTable[wd->ColorIndex]);
+    NewPen = CreatePen(LType(wd->ColorIndex), linewidth, currentgraph->colorarray[wd->ColorIndex]);
     OldPen = SelectObject(wd->hDC, NewPen);
     Arc(wd->hDC, left, yb-top, right, yb-bottom, xs, yb-ys, xe, yb-ye);
     OldPen = SelectObject(wd->hDC, OldPen);
@@ -1002,7 +1038,7 @@ int WIN_Text(char *text, int x, int y, int angle)
 #endif
     SelectObject(wd->hDC, hfont);
 
-    SetTextColor(wd->hDC, ColorTable[wd->ColorIndex]);
+    SetTextColor(wd->hDC, currentgraph->colorarray[wd->ColorIndex]);
 #ifdef EXT_ASC
     TextOut(wd->hDC, x, wd->Area.bottom - y - currentgraph->fontheight, text, (int)strlen(text));
 #else
@@ -1043,8 +1079,9 @@ int WIN_SetLinestyle(int style)
 }
 
 
-int WIN_SetColor(int color)
+int WIN_SetColor(int color, GRAPH *graph)
 {
+    NG_IGNORE(graph);
     tpWindowData wd;
 
     if (!currentgraph)
diff --git a/src/include/ngspice/ftedev.h b/src/include/ngspice/ftedev.h
index f378b5a0a..530f497ac 100644
--- a/src/include/ngspice/ftedev.h
+++ b/src/include/ngspice/ftedev.h
@@ -24,7 +24,7 @@ typedef int  disp_fn_Text_t (char *text, int x, int y, int angle);
 typedef int  disp_fn_DefineColor_t (int colorid, double red, double green, double blue);
 typedef int  disp_fn_DefineLinestyle_t (int linestyleid, int mask);
 typedef int  disp_fn_SetLinestyle_t (int linestyleid);
-typedef int  disp_fn_SetColor_t (int colorid);
+typedef int  disp_fn_SetColor_t (int colorid, GRAPH *graf);
 typedef int  disp_fn_Update_t (void);
 typedef int  disp_fn_Track_t (void);
 typedef int  disp_fn_MakeMenu_t (void);
diff --git a/src/include/ngspice/graph.h b/src/include/ngspice/graph.h
index 2fd05471d..e7b64d615 100644
--- a/src/include/ngspice/graph.h
+++ b/src/include/ngspice/graph.h
@@ -105,6 +105,16 @@ struct graph {
     /* for zoomin */
     char *commandline;
 
+    /* colors used */
+    unsigned long colorarray[25];
+
+    /* we have a mother graph */
+    int mgraphid;
+
+    /* linewidths */
+    int graphwidth;
+    int gridwidth;
+
     /* Space here is allocated by NewViewport
         and de-allocated by DestroyGraph.
     */