better scale* fills
authorTony Cook <tony@develop=help.com>
Sun, 2 Sep 2001 00:50:50 +0000 (00:50 +0000)
committerTony Cook <tony@develop=help.com>
Sun, 2 Sep 2001 00:50:50 +0000 (00:50 +0000)
Changes
fills.c

diff --git a/Changes b/Changes
index 745eee1..0a916ad 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 d47f491..bb9700c 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 */