diff options
| -rw-r--r-- | otherlibs/graph/draw.c | 4 | ||||
| -rw-r--r-- | otherlibs/graph/fill.c | 3 | ||||
| -rw-r--r-- | otherlibs/graph/point_col.c | 1 |
3 files changed, 8 insertions, 0 deletions
diff --git a/otherlibs/graph/draw.c b/otherlibs/graph/draw.c index c6cacffa6..52b8e9e05 100644 --- a/otherlibs/graph/draw.c +++ b/otherlibs/graph/draw.c @@ -19,6 +19,7 @@ value gr_plot(vx, vy) { int x = Int_val(vx); int y = Int_val(vy); + gr_check_open(); XDrawPoint(grdisplay, grwindow.win, grwindow.gc, x, Wcvt(y)); XDrawPoint(grdisplay, grbstore.win, grbstore.gc, x, Bcvt(y)); XFlush(grdisplay); @@ -47,6 +48,7 @@ value gr_lineto(vx, vy) { int x = Int_val(vx); int y = Int_val(vy); + gr_check_open(); XDrawLine(grdisplay, grwindow.win, grwindow.gc, grx, Wcvt(gry), x, Wcvt(y)); XDrawLine(grdisplay, grbstore.win, grbstore.gc, @@ -67,6 +69,7 @@ value gr_draw_arc_nat(vx, vy, vrx, vry, va1, va2) int a1 = Int_val(va1); int a2 = Int_val(va2); + gr_check_open(); XDrawArc(grdisplay, grwindow.win, grwindow.gc, x - rx, Wcvt(y) - ry, rx * 2, ry * 2, a1 * 64, (a2 - a1) * 64); XDrawArc(grdisplay, grbstore.win, grbstore.gc, @@ -86,6 +89,7 @@ value gr_set_line_width(vwidth) value vwidth; { int width = Int_val(vwidth); + gr_check_open(); XSetLineAttributes(grdisplay, grwindow.gc, width, LineSolid, CapRound, JoinRound); XSetLineAttributes(grdisplay, grbstore.gc, diff --git a/otherlibs/graph/fill.c b/otherlibs/graph/fill.c index edf75925e..b00357f60 100644 --- a/otherlibs/graph/fill.c +++ b/otherlibs/graph/fill.c @@ -22,6 +22,7 @@ value gr_fill_rect(vx, vy, vw, vh) int w = Int_val(vw); int h = Int_val(vh); + gr_check_open(); XFillRectangle(grdisplay, grwindow.win, grwindow.gc, x, Wcvt(y) - h + 1, w, h); XFillRectangle(grdisplay, grbstore.win, grbstore.gc, @@ -36,6 +37,7 @@ value gr_fill_poly(array) XPoint * points; int npoints, i; + gr_check_open(); npoints = Wosize_val(array); points = (XPoint *) stat_alloc(npoints * sizeof(XPoint)); for (i = 0; i < npoints; i++) { @@ -64,6 +66,7 @@ value gr_fill_arc_nat(vx, vy, vrx, vry, va1, va2) int a1 = Int_val(va1); int a2 = Int_val(va2); + gr_check_open(); XFillArc(grdisplay, grwindow.win, grwindow.gc, x - rx, Wcvt(y) - ry, rx * 2, ry * 2, a1 * 64, (a2 - a1) * 64); XFillArc(grdisplay, grbstore.win, grbstore.gc, diff --git a/otherlibs/graph/point_col.c b/otherlibs/graph/point_col.c index b45414166..541c653e3 100644 --- a/otherlibs/graph/point_col.c +++ b/otherlibs/graph/point_col.c @@ -21,6 +21,7 @@ value gr_point_color(vx, vy) XImage * im; int rgb; + gr_check_open(); im = XGetImage(grdisplay, grbstore.win, x, Bcvt(y), 1, 1, (-1), ZPixmap); rgb = gr_rgb_pixel(XGetPixel(im, 0, 0)); XDestroyImage(im); |