From 4232ef839aba1b55cd8fdc1163f14f731056eda6 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Sat, 14 Dec 2024 19:27:21 -0800
Subject: [PATCH] cleanup

---
 src/dhgr.tk/utils/dhgrrgb.pla | 50 +++++++++++++++++------------------
 1 file changed, 25 insertions(+), 25 deletions(-)

diff --git a/src/dhgr.tk/utils/dhgrrgb.pla b/src/dhgr.tk/utils/dhgrrgb.pla
index a38130b4..4449c1b4 100644
--- a/src/dhgr.tk/utils/dhgrrgb.pla
+++ b/src/dhgr.tk/utils/dhgrrgb.pla
@@ -28,31 +28,31 @@ var = 29451, 29697, 29935, 30163, 30381, 30591, 30791, 30982
 var = 31164, 31336, 31498, 31651, 31794, 31928, 32051, 32165
 var = 32270, 32364, 32449, 32523, 32588, 32643, 32688, 32723
 var = 32748, 32763, 32767
-word hgrScan[] = $0000,$0400,$0800,$0C00,$1000,$1400,$1800,$1C00
-word           = $0080,$0480,$0880,$0C80,$1080,$1480,$1880,$1C80
-word           = $0100,$0500,$0900,$0D00,$1100,$1500,$1900,$1D00
-word           = $0180,$0580,$0980,$0D80,$1180,$1580,$1980,$1D80
-word           = $0200,$0600,$0A00,$0E00,$1200,$1600,$1A00,$1E00
-word           = $0280,$0680,$0A80,$0E80,$1280,$1680,$1A80,$1E80
-word           = $0300,$0700,$0B00,$0F00,$1300,$1700,$1B00,$1F00
-word           = $0380,$0780,$0B80,$0F80,$1380,$1780,$1B80,$1F80
-word           = $0028,$0428,$0828,$0C28,$1028,$1428,$1828,$1C28
-word           = $00A8,$04A8,$08A8,$0CA8,$10A8,$14A8,$18A8,$1CA8
-word           = $0128,$0528,$0928,$0D28,$1128,$1528,$1928,$1D28
-word           = $01A8,$05A8,$09A8,$0DA8,$11A8,$15A8,$19A8,$1DA8
-word           = $0228,$0628,$0A28,$0E28,$1228,$1628,$1A28,$1E28
-word           = $02A8,$06A8,$0AA8,$0EA8,$12A8,$16A8,$1AA8,$1EA8
-word           = $0328,$0728,$0B28,$0F28,$1328,$1728,$1B28,$1F28
-word           = $03A8,$07A8,$0BA8,$0FA8,$13A8,$17A8,$1BA8,$1FA8
-word           = $0050,$0450,$0850,$0C50,$1050,$1450,$1850,$1C50
-word           = $00D0,$04D0,$08D0,$0CD0,$10D0,$14D0,$18D0,$1CD0
-word           = $0150,$0550,$0950,$0D50,$1150,$1550,$1950,$1D50
-word           = $01D0,$05D0,$09D0,$0DD0,$11D0,$15D0,$19D0,$1DD0
-word           = $0250,$0650,$0A50,$0E50,$1250,$1650,$1A50,$1E50
-word           = $02D0,$06D0,$0AD0,$0ED0,$12D0,$16D0,$1AD0,$1ED0
-word           = $0350,$0750,$0B50,$0F50,$1350,$1750,$1B50,$1F50
-word           = $03D0,$07D0,$0BD0,$0FD0,$13D0,$17D0,$1BD0,$1FD0
-
+word hgrScan[] // HGR scanline order for saving memory buffer as DHGR
+word = $0000,$0400,$0800,$0C00,$1000,$1400,$1800,$1C00
+word = $0080,$0480,$0880,$0C80,$1080,$1480,$1880,$1C80
+word = $0100,$0500,$0900,$0D00,$1100,$1500,$1900,$1D00
+word = $0180,$0580,$0980,$0D80,$1180,$1580,$1980,$1D80
+word = $0200,$0600,$0A00,$0E00,$1200,$1600,$1A00,$1E00
+word = $0280,$0680,$0A80,$0E80,$1280,$1680,$1A80,$1E80
+word = $0300,$0700,$0B00,$0F00,$1300,$1700,$1B00,$1F00
+word = $0380,$0780,$0B80,$0F80,$1380,$1780,$1B80,$1F80
+word = $0028,$0428,$0828,$0C28,$1028,$1428,$1828,$1C28
+word = $00A8,$04A8,$08A8,$0CA8,$10A8,$14A8,$18A8,$1CA8
+word = $0128,$0528,$0928,$0D28,$1128,$1528,$1928,$1D28
+word = $01A8,$05A8,$09A8,$0DA8,$11A8,$15A8,$19A8,$1DA8
+word = $0228,$0628,$0A28,$0E28,$1228,$1628,$1A28,$1E28
+word = $02A8,$06A8,$0AA8,$0EA8,$12A8,$16A8,$1AA8,$1EA8
+word = $0328,$0728,$0B28,$0F28,$1328,$1728,$1B28,$1F28
+word = $03A8,$07A8,$0BA8,$0FA8,$13A8,$17A8,$1BA8,$1FA8
+word = $0050,$0450,$0850,$0C50,$1050,$1450,$1850,$1C50
+word = $00D0,$04D0,$08D0,$0CD0,$10D0,$14D0,$18D0,$1CD0
+word = $0150,$0550,$0950,$0D50,$1150,$1550,$1950,$1D50
+word = $01D0,$05D0,$09D0,$0DD0,$11D0,$15D0,$19D0,$1DD0
+word = $0250,$0650,$0A50,$0E50,$1250,$1650,$1A50,$1E50
+word = $02D0,$06D0,$0AD0,$0ED0,$12D0,$16D0,$1AD0,$1ED0
+word = $0350,$0750,$0B50,$0F50,$1350,$1750,$1B50,$1F50
+word = $03D0,$07D0,$0BD0,$0FD0,$13D0,$17D0,$1BD0,$1FD0
 byte memmode = FALSE // Memory or video surface
 var surfMem, surfSpan
 var[12] ntscChroma