From: Tony Cook <tony@develop=help.com>
Date: Sun, 2 Sep 2001 00:50:50 +0000 (+0000)
Subject: better scale* fills
X-Git-Tag: Imager-0.48^2~589
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/7a606d29ffdfce11301c7582beaf194765b7cf35

better scale* fills
---

diff --git a/Changes b/Changes
index 745eee1c..0a916ad7 100644
--- 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 d47f491c..bb9700c6 100644
--- 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 */