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 charSetCopyLoc $c000
charsetCopyBlock : array[1024] of byte = buildtable("0") at @charSetCopyLoc;
@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");
lookup3Dy : array[25] of integer = buildtable("300 * (i - 11) / 30");
@ -261,42 +264,43 @@ text : string = (@cmoveto, 6,10,
mainPartBigFont:incbin("resources/charsets/broadway_xy.bin", @mainPartBigFontLoc);
@define numMainTextPages 6
mainText : string = ( @cmoveto, 0, 3, " COMMODORELLA ",
@cmoveto, 0, 4, " EDUSKUNTAAN ",
@cmoveto, 0, 5, " 2023 ",
mainText : string = (
@cmoveto, 0, 3, " COMMODORELLA",
@cmoveto, 0, 4, " EDUSKUNTAAN",
@cmoveto, 0, 5, " ---------",
@cmoveto, 0, 6, " 2023",
@cpage,
@cmoveto, 0, 2, " RADIKAALISTI ",
@cmoveto, 0, 3, " AVOINTA ",
@cmoveto, 0, 4, " DEMOKRATIAA ",
@cmoveto, 0, 5, " VALTIONHALLINNON ",
@cmoveto, 0, 6, " LIVESTREAMAUS ",
@cmoveto, 0, 7, " LAHTOKOHTAISESTI ",
@cmoveto, 0, 2, " RADIKAALISTI",
@cmoveto, 0, 3, " AVOINTA",
@cmoveto, 0, 4, " DEMOKRATIAA",
@cmoveto, 0, 5, " VALTIONHALLINNON",
@cmoveto, 0, 6, " LIVESTREAMAUS",
@cmoveto, 0, 7, " LAHTOKOHTAISESTI",
@cpage,
@cmoveto, 0, 2, " LOBBAUS NAKYVAKSI ",
@cmoveto, 0, 3, " LAAJA JULKISUUSLAKI",
@cmoveto, 0, 4, "KANSANAANESTYSALOITE",
@cmoveto, 0, 5, " RAHANKERAYSLAIN ",
@cmoveto, 0, 6, " UUDISTUS ",
@cmoveto, 0, 7, " PERUSTULO ",
@cmoveto, 0, 2, " LOBBAUS NAKYVAKSI",
@cmoveto, 0, 3, "LAAJA JULKISUUSLAKI",
@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, 6, " UUDISTUS",
@cmoveto, 0, 7, " PERUSTULO",
@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 ",
@cmoveto, 0, 2, "HYVINVOINTIALUEIDEN",
@cmoveto, 0, 3, " VERONKANTO-OIKEUS",
@cmoveto, 0, 4, "PAIKALLISDEMOKRATIA",
@cmoveto, 0, 5, " LUONTO MAANKAYTTO",
@cmoveto, 0, 6, " KESTAVYYS",
@cpage,
@cmoveto, 0, 2, " HYVINVOINTIALUEIDEN",
@cmoveto, 0, 3, " VERONKANTO-OIKEUS ",
@cmoveto, 0, 4, "PAIKALLISDEMOKRATIAN",
@cmoveto, 0, 5, " VAHVISTAMINEN ",
@cmoveto, 0, 6, " LUONTO MAANKAYTTO ",
@cmoveto, 0, 7, " KESTAVYYS ",
@cpage,
@cmoveto, 0, 3, " TIETOPOLITIIKAN ",
@cmoveto, 0, 4, " VAKIINNUTTAMINEN ",
@cmoveto, 0, 5, " OSAKSI HALLINTO- ",
@cmoveto, 0, 6, " RAKENNETTA ",
@cmoveto, 0, 3, " TIETOPOLITIIKAN",
@cmoveto, 0, 4, " VAKIINNUTTAMINEN",
@cmoveto, 0, 5, " OSAKSI HALLINTO-",
@cmoveto, 0, 6, " RAKENNETTA",
@cpage, @cstop);
mainPartAddressTable : array[25] of integer;
@ -634,7 +638,7 @@ begin
begin
if (tp[0] = @cmoveto) then
begin
x := tp[1] * 2;
x := tp[1] * 2 + 1;
y := tp[2] * 3 - 1;
sp := AddressTable(#mainPartAddressTable, x, y);
tp += 3;
@ -1133,6 +1137,8 @@ begin
numLinesPtr := #numLines2;
hideborderx(1); // avoid choppy scroll
InitMainPart();
end;
end;