Scrollin tökkiminen vasemmasa reunassa korjattu siirtämällä bordereita sisäänpäin. Teksti vaati uudelleen asettelun

This commit is contained in:
gimulnautti 2023-02-19 20:10:08 +02:00
parent fde541ab41
commit 864471d582
1 changed files with 40 additions and 34 deletions

View File

@ -57,9 +57,12 @@ var
@define spriteLoc $3c80 @define spriteLoc $3c80
@define charSetCopyLoc $c000 @define charSetCopyLoc $c000
charsetCopyBlock : array[1024] of byte = buildtable("0") at @charSetCopyLoc;
@define spriteBank 0 @define spriteBank 0
spriteCopyBlock : array[63] of byte = buildtable("i") at @spriteLoc; spriteCopyBlock : array[63] of byte = buildtable("0") at @spriteLoc;
lookup3Dx : array[40] of integer = buildtable("300 * (i - 20) / 200"); lookup3Dx : array[40] of integer = buildtable("300 * (i - 20) / 200");
lookup3Dy : array[25] of integer = buildtable("300 * (i - 11) / 30"); lookup3Dy : array[25] of integer = buildtable("300 * (i - 11) / 30");
@ -261,9 +264,11 @@ text : string = (@cmoveto, 6,10,
mainPartBigFont:incbin("resources/charsets/broadway_xy.bin", @mainPartBigFontLoc); mainPartBigFont:incbin("resources/charsets/broadway_xy.bin", @mainPartBigFontLoc);
@define numMainTextPages 6 @define numMainTextPages 6
mainText : string = ( @cmoveto, 0, 3, " COMMODORELLA ", mainText : string = (
@cmoveto, 0, 3, " COMMODORELLA",
@cmoveto, 0, 4, " EDUSKUNTAAN", @cmoveto, 0, 4, " EDUSKUNTAAN",
@cmoveto, 0, 5, " 2023 ", @cmoveto, 0, 5, " ---------",
@cmoveto, 0, 6, " 2023",
@cpage, @cpage,
@cmoveto, 0, 2, " RADIKAALISTI", @cmoveto, 0, 2, " RADIKAALISTI",
@cmoveto, 0, 3, " AVOINTA", @cmoveto, 0, 3, " AVOINTA",
@ -274,24 +279,23 @@ text : string = (@cmoveto, 6,10,
@cpage, @cpage,
@cmoveto, 0, 2, " LOBBAUS NAKYVAKSI", @cmoveto, 0, 2, " LOBBAUS NAKYVAKSI",
@cmoveto, 0, 3, "LAAJA JULKISUUSLAKI", @cmoveto, 0, 3, "LAAJA JULKISUUSLAKI",
@cmoveto, 0, 4, "KANSANAANESTYSALOITE", @cmoveto, 0, 4, "KANSANAANESTYSALOI-",
@cmoveto, 0, 5, "TE PERUSOIKEUDET",
@cmoveto, 0, 6, "YKSITYISYYDENSUOJA",
@cmoveto, 0, 7, " YHDENVERTAISUUS",
@cpage,
@cmoveto, 0, 2, " KESTAVYYSSIIRTYMA",
@cmoveto, 0, 3, " VETYTALOUDEN",
@cmoveto, 0, 4, " TEKNOLOGIATUKI",
@cmoveto, 0, 5, " RAHANKERAYSLAIN", @cmoveto, 0, 5, " RAHANKERAYSLAIN",
@cmoveto, 0, 6, " UUDISTUS", @cmoveto, 0, 6, " UUDISTUS",
@cmoveto, 0, 7, " PERUSTULO", @cmoveto, 0, 7, " PERUSTULO",
@cpage, @cpage,
@cmoveto, 0, 2, " PERUSOIKEUDET ",
@cmoveto, 0, 3, " YKSITYISYYDENSUOJA ",
@cmoveto, 0, 4, " YHDENVERTAISUUS ",
@cmoveto, 0, 5, " KESTAVYYSSIIRTYMA ",
@cmoveto, 0, 6, " VETYTALOUDEN ",
@cmoveto, 0, 7, " TEKNOLOGIATUKI ",
@cpage,
@cmoveto, 0, 2, "HYVINVOINTIALUEIDEN", @cmoveto, 0, 2, "HYVINVOINTIALUEIDEN",
@cmoveto, 0, 3, " VERONKANTO-OIKEUS", @cmoveto, 0, 3, " VERONKANTO-OIKEUS",
@cmoveto, 0, 4, "PAIKALLISDEMOKRATIAN", @cmoveto, 0, 4, "PAIKALLISDEMOKRATIA",
@cmoveto, 0, 5, " VAHVISTAMINEN ", @cmoveto, 0, 5, " LUONTO MAANKAYTTO",
@cmoveto, 0, 6, " LUONTO MAANKAYTTO ", @cmoveto, 0, 6, " KESTAVYYS",
@cmoveto, 0, 7, " KESTAVYYS ",
@cpage, @cpage,
@cmoveto, 0, 3, " TIETOPOLITIIKAN", @cmoveto, 0, 3, " TIETOPOLITIIKAN",
@cmoveto, 0, 4, " VAKIINNUTTAMINEN", @cmoveto, 0, 4, " VAKIINNUTTAMINEN",
@ -634,7 +638,7 @@ begin
begin begin
if (tp[0] = @cmoveto) then if (tp[0] = @cmoveto) then
begin begin
x := tp[1] * 2; x := tp[1] * 2 + 1;
y := tp[2] * 3 - 1; y := tp[2] * 3 - 1;
sp := AddressTable(#mainPartAddressTable, x, y); sp := AddressTable(#mainPartAddressTable, x, y);
tp += 3; tp += 3;
@ -1133,6 +1137,8 @@ begin
numLinesPtr := #numLines2; numLinesPtr := #numLines2;
hideborderx(1); // avoid choppy scroll
InitMainPart(); InitMainPart();
end; end;
end; end;