[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] mldonkey distrib/ChangeLog src/utils/cdk/gd.ml ...
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] mldonkey distrib/ChangeLog src/utils/cdk/gd.ml ... |
Date: |
Tue, 06 Mar 2007 19:32:10 +0000 |
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),
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Mldonkey-commits] mldonkey distrib/ChangeLog src/utils/cdk/gd.ml ...,
mldonkey-commits <=