diff options
Diffstat (limited to 'otherlibs/graph/draw.c')
| -rw-r--r-- | otherlibs/graph/draw.c | 25 |
1 files changed, 16 insertions, 9 deletions
diff --git a/otherlibs/graph/draw.c b/otherlibs/graph/draw.c index d2c4f8e69..c0a6c4370 100644 --- a/otherlibs/graph/draw.c +++ b/otherlibs/graph/draw.c @@ -57,16 +57,16 @@ value gr_lineto(vx, vy) return Val_unit; } -value gr_draw_arc(argv, argc) - int argc; - value * argv; +value gr_draw_arc_nat(vx, vy, vrx, vry, va1, va2) + value vx, vy, vrx, vry, va1, va2; { - int x = Int_val(argv[0]); - int y = Int_val(argv[1]); - int rx = Int_val(argv[2]); - int ry = Int_val(argv[3]); - int a1 = Int_val(argv[4]); - int a2 = Int_val(argv[5]); + int x = Int_val(vx); + int y = Int_val(vy); + int rx = Int_val(vrx); + int ry = Int_val(vry); + int a1 = Int_val(va1); + int a2 = Int_val(va2); + 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, @@ -75,6 +75,13 @@ value gr_draw_arc(argv, argc) return Val_unit; } +value gr_draw_arc(argv, argc) + int argc; + value * argv; +{ + return gr_draw_arc_nat(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]); +} + value gr_set_line_width(vwidth) value vwidth; { |