From c41b853015f2c98ee5dd69d17b537207fd45aa22 Mon Sep 17 00:00:00 2001 From: David Schmenk Date: Sat, 13 Dec 2014 16:30:26 -0800 Subject: [PATCH] Adjust corner peek-around --- src/samplesrc/octbeam.bas | 2 +- src/samplesrc/rogue.pla | 44 +++++++++++++++++++-------------------- 2 files changed, 23 insertions(+), 23 deletions(-) diff --git a/src/samplesrc/octbeam.bas b/src/samplesrc/octbeam.bas index f8bcebc..9381a2a 100644 --- a/src/samplesrc/octbeam.bas +++ b/src/samplesrc/octbeam.bas @@ -32,7 +32,7 @@ NEW 400 PRINT "byte[] vbeam": PRINT "byte = 0": FOR R = 1 TO RI 410 PRINT "byte = ";: FOR L = DB(R-1)+1 TO DB(R) 420 M = 0: IF YB(L) <> 0 THEN M = XB(L)/YB(L) -430 SY = INT(YB(L) - 1): SX = INT(XB(L) - M + .5) +430 SY = INT(YB(L) - 1): SX = INT(XB(L) - M + .25): REM ADJ OFFSET TO PEEK AROUND CORNERS 440 FOR P = 0 TO L 450 IF SY = YB(P) AND SX = XB(P) THEN VB(L) = P: P = L 460 NEXT diff --git a/src/samplesrc/rogue.pla b/src/samplesrc/rogue.pla index e82a78b..46ef793 100755 --- a/src/samplesrc/rogue.pla +++ b/src/samplesrc/rogue.pla @@ -76,29 +76,29 @@ byte[] vbeam byte = 0 byte = 0 byte = 0,1 -byte = 2,2,5,3 +byte = 2,1,3,3 byte = 5,6,7 -byte = 4,8,8,9,10 -byte = 11,13,13,14,15 -byte = 12,17,18,19,20 -byte = 16,21,17,22,22,23,24,25 -byte = 26,28,29,30,31,32,33 -byte = 34,27,35,29,36,37,38,47,39,40 -byte = 42,44,36,53,45,46,48,49,50 -byte = 41,43,53,54,55,56,57,58,59 -byte = 60,51,61,52,62,54,63,64,65,66,67,68 -byte = 70,72,74,74,75,76,77,78,79,80 -byte = 69,81,71,82,73,84,84,85,86,87,88,89,90 -byte = 91,93,95,83,96,96,97,110,98,99,100,101,102,103 -byte = 104,92,105,94,107,109,109,111,112,113,114,115,116,117 -byte = 119,121,106,122,108,123,124,125,126,127,128,129,130,131 -byte = 118,120,134,136,123,137,138,139,140,141,142,143,144,145 -byte = 146,132,147,133,148,135,150,137,167,151,152,153,154,155,156,174,157,158 -byte = 159 -byte = 161,163,165,149,166,167,168,169,170,187,171,172,173,175,176,177,178 -byte = 160,179,162,180,164,182,184,168,185,186,188,189,190,191,192,193,194,195 -byte = 196,198,200,181,201,183,203,203,204,205,206,207,208,209,210,211,212,213 -byte = 197,199,217,219,202,221,221,222,223,224,225,226,227,228,229,230,231 +byte = 4,8,6,9,10 +byte = 11,13,9,14,15 +byte = 12,18,14,19,20 +byte = 16,21,17,22,23,19,24,25 +byte = 26,28,30,31,31,32,33 +byte = 34,27,35,29,37,38,38,47,39,40 +byte = 42,44,36,45,46,47,48,49,50 +byte = 41,43,53,55,56,48,57,58,59 +byte = 60,51,61,52,62,54,64,65,65,66,67,68 +byte = 70,72,74,63,76,77,77,78,79,80 +byte = 69,81,71,82,73,84,75,86,87,87,88,89,90 +byte = 91,93,95,83,96,97,85,98,99,100,100,101,102,103 +byte = 104,92,105,94,107,109,110,112,113,113,114,115,116,117 +byte = 119,121,106,122,108,124,111,126,127,127,128,129,130,131 +byte = 118,120,134,136,123,138,125,140,141,141,142,143,144,145 +byte = 146,132,147,133,148,135,150,137,151,152,139,154,155,155,156,174,157,158 +byte = 159 +byte = 161,163,165,149,166,167,169,170,153,171,172,172,173,175,176,177,178 +byte = 160,179,162,180,164,182,184,168,186,187,189,190,190,191,192,193,194,195 +byte = 196,198,200,181,201,183,203,185,205,188,207,208,208,209,210,211,212,213 +byte = 197,199,217,219,202,221,204,223,206,225,226,226,227,228,229,230,231 byte[beampts] vispix