better scale* fills

diff --git a/Changes b/Changes
index 745eee1ca32b287a781742871d433623cc32363a..0a916ad76143bb34f9bae9132fbfb6533eea859e 100644 (file)
--- a/Changes
+++ b/Changes
@@ -498,6 +498,7 @@ Revision history for Perl extension Imager.
           - hatched generic fills (with some options)
           - fountain generic fills
           - sample code to generate an examples page
+        - improved the scale* hatches a bit
 
 =================================================================
 

diff --git a/fills.c b/fills.c
index d47f491c89140c4fbb0586275fb9ecdbe34573c4..bb9700c68b880d48106e15f172133c7fccd95f65 100644 (file)
--- a/fills.c
+++ b/fills.c
@@ -268,19 +268,19 @@ builtin_hatches[][8] =
   },
   {
     /* scales overlapping downwards */
-    0x77, 0x22, 0x22, 0x22, 0xDD, 0x88, 0x88, 0x88,
+    0x80, 0x80, 0x41, 0x3E, 0x08, 0x08, 0x14, 0xE3,
   },
   {
     /* scales overlapping upwards */
-    0x22, 0x22, 0x22, 0x77, 0x88, 0x88, 0x88, 0xDD,
+    0xC7, 0x28, 0x10, 0x10, 0x7C, 0x82, 0x01, 0x01,
   },
   {
     /* scales overlapping leftwards */
-    0xF0, 0x11, 0x0F, 0x11, 0xF0, 0x11, 0x0F, 0x11,
+    0x83, 0x84, 0x88, 0x48, 0x38, 0x48, 0x88, 0x84,
   },
   {
     /* scales overlapping rightwards */
-    0x88, 0xF0, 0x88, 0x0F, 0x88, 0xF0, 0x88, 0x0F,
+    0x21, 0x11, 0x12, 0x1C, 0x12, 0x11, 0x21, 0xC1,
   },
   {
     /* denser stipple */