From 41f8cbe487e857fb7a0b93816cd865253352d6ef Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 26 Nov 2001 09:21:50 +0000
Subject: Adaptation pour le gradient PATH.

---
 generic/Color.c | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/generic/Color.c b/generic/Color.c
index b5d1da6..33708c7 100644
--- a/generic/Color.c
+++ b/generic/Color.c
@@ -1240,6 +1240,16 @@ ZnGetGradient(Tcl_Interp	*interp,
       }
       *scan_ptr = '\0';
     }
+    else if ((scan_ptr = strchr(buffer, '['))) {
+      num_tok = sscanf(scan_ptr, "[%lf %lf", (double *) &x, (double *) &y);
+      if (num_tok == 2) {
+	type = ZN_PATH_GRADIENT;
+      }
+      else {
+	goto grad_err2;
+      }
+      *scan_ptr = '\0';
+    }
     /*
      * Next count the colors.
      */
-- 
cgit v1.1