[Mldonkey-commits] mldonkey distrib/ChangeLog src/utils/cdk/gd.ml ...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       07/03/06 19:32:10

Modified files:
        distrib        : ChangeLog 
        src/utils/cdk  : gd.ml gdstubs.c 

Log message:
        patch #5784

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1197&r2=1.1198
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/utils/cdk/gd.ml?cvsroot=mldonkey&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/utils/cdk/gdstubs.c?cvsroot=mldonkey&r1=1.4&r2=1.5

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1197
retrieving revision 1.1198
diff -u -b -r1.1197 -r1.1198
--- distrib/ChangeLog   6 Mar 2007 19:31:26 -0000       1.1197
+++ distrib/ChangeLog   6 Mar 2007 19:32:09 -0000       1.1198
@@ -15,6 +15,7 @@
 =========
 
 2007/03/06
+5784: Gd: Implement binding for function gdImageFilledArc
 5773: Geoip: Country-based up-/download statistics
 - new ini file statistics.ini, to be used later for all statistics
 - new command "costats", accepts parameters:

Index: src/utils/cdk/gd.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/utils/cdk/gd.ml,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- src/utils/cdk/gd.ml 31 Aug 2005 23:54:02 -0000      1.3
+++ src/utils/cdk/gd.ml 6 Mar 2007 19:32:10 -0000       1.4
@@ -67,6 +67,7 @@
   method virtual rectangle: x1:int -> y1:int -> x2:int -> y2:int -> color -> 
unit
   method virtual filled_rectangle: x1:int -> y1:int -> x2:int -> y2:int -> 
color -> unit
   method virtual arc: cx:int -> cy:int -> w:int -> h:int -> s:int -> e:int -> 
color -> unit
+  method virtual arc_fill: cx:int -> cy:int -> w:int -> h:int -> s:int -> 
e:int -> color -> style:int -> unit
   method virtual border_fill: x:int -> y:int -> border:color -> fill:color -> 
unit
   method virtual fill: x:int -> y:int -> color -> unit
   method virtual save_as_png: string -> unit
@@ -113,6 +114,9 @@
 external do_draw_arc: t -> int -> int -> int -> int -> int -> int -> int -> 
unit
     = "ml_image_arc" "ml_image_arc_native"
 
+external do_draw_arc_fill: t -> int -> int -> int -> int -> int -> int -> int 
-> int -> unit
+    = "ml_image_arc_fill" "ml_image_arc_fill_native"
+
 external do_border_fill: t -> int -> int -> int -> int -> unit
     = "ml_image_border_fill" "ml_image_border_fill_native"
     
@@ -257,6 +261,9 @@
   method arc ~cx ~cy ~w ~h ~s ~e color =
     do_draw_arc im cx cy w h s e color#code
 
+  method arc_fill ~cx ~cy ~w ~h ~s ~e color ~style =
+    do_draw_arc_fill im cx cy w h s e color#code style
+
   method border_fill ~x ~y ~border ~fill =
     do_border_fill im x y (border#code) (fill#code)
 

Index: src/utils/cdk/gdstubs.c
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/utils/cdk/gdstubs.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- src/utils/cdk/gdstubs.c     9 Oct 2005 15:53:36 -0000       1.4
+++ src/utils/cdk/gdstubs.c     6 Mar 2007 19:32:10 -0000       1.5
@@ -259,6 +259,19 @@
                         argv[6], argv[7]);
 }
 
+value ml_image_arc_fill_native(value gdw, value cx, value cy, value w, value h,
+                          value s, value e, value c, value style) {
+  gdImageFilledArc(IM_VAL(gdw), Int_val(cx), Int_val(cy), Int_val(w), 
Int_val(h),
+             Int_val(s), Int_val(e), Int_val(c), Int_val(style));
+  return Val_unit;
+}
+
+value ml_image_arc_fill(value *argv, int argn) {
+  return
+    ml_image_arc_fill_native(argv[0], argv[1], argv[2], argv[3], argv[4], 
argv[5],
+                        argv[6], argv[7], argv[8]);
+}
+
 value ml_image_border_fill_native(value gdw, value x, value y, value b,
                                   value c) {
   gdImageFillToBorder(IM_VAL(gdw), Int_val(x), Int_val(y), Int_val(b),