From ecab8dac1b44fdc0d223b9687c86a55ceb19f787 Mon Sep 17 00:00:00 2001
From: Dave Schmenk <dschmenk@gmail.com>
Date: Sun, 8 Sep 2024 19:19:13 -0700
Subject: [PATCH] Little double color test update

---
 src/samplesrc/dcgrtest.pla | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/samplesrc/dcgrtest.pla b/src/samplesrc/dcgrtest.pla
index fa3b009..f6d5768 100644
--- a/src/samplesrc/dcgrtest.pla
+++ b/src/samplesrc/dcgrtest.pla
@@ -48,7 +48,7 @@ def dcgrTest#0
     dcgrVLinScr(30, 30+132, (21/7)*7+(100/7)*7)
     i = 64; j = 64; k = 86
     ok7 = k/7
-    inci = 1; incj = 1; inck = 1
+    inci = 1; incj = 1; inck = 2
     backblk, backspan, backw7 = dcgrAllocBl7Mem(SCR_WIDTH, 16)
     dcgrScrBl7Mem(0, 170, backw7, 16, backblk, backspan)
     restrblk, restrspan, restrw7 = dcgrAllocBl7Mem(16, 16)
@@ -56,12 +56,12 @@ def dcgrTest#0
     while ^$C000 < 128
         ok7, om7 = divmod(k, 7)
         dcgrMemBl7Mem(0, 0, restrw7, 16, backblk + ok7 * 4, backspan, restrw7, 16, restrblk, restrspan)
-        dcgrPixMem(om7 + 1, 0, 16, 16, @sprite, restrw, 16, restrblk, restrspan)
+        dcgrPixMem(om7 + 2, 0, 16, 16, @sprite, restrw, 16, restrblk, restrspan)
         //dcgrColor(i)
         //dcgrFillBl7Mem(0, 0, restrw7, 16, restrblk, restrspan)
         dcgrMemBl7Scr(ok7, 170, restrw7, 16, restrblk, restrspan)
         //dcgrFillBl7Scr(ok7, 170, restrw7, 16)
-        if k > 138 or k < -16; inck = -inck; fin
+        if k > 136 or k < -16; inck = -inck; fin
         k = k + inck
         dcgrPixScr(i, j, 16, 16, @sprite)
         if i > 102 or i < 23; inci = -inci; fin