korjaa ruudun tyhjennysrutiinit alussa
This commit is contained in:
parent
5c8c184b1e
commit
d8e86e0587
|
@ -240,7 +240,6 @@ text : string = (@cmoveto, 6,10,
|
||||||
naamatNumbers : string = ( "14 ", "15 ", "16 ", " 17", " 18", "19 ",
|
naamatNumbers : string = ( "14 ", "15 ", "16 ", " 17", " 18", "19 ",
|
||||||
"20 ", " 21", "353", "354", "356", "355", @cstop);
|
"20 ", " 21", "353", "354", "356", "355", @cstop);
|
||||||
|
|
||||||
|
|
||||||
tab320 : array[25] of integer = buildtable("i*320");
|
tab320 : array[25] of integer = buildtable("i*320");
|
||||||
tab40 : array[25] of integer = buildtable("i*40");
|
tab40 : array[25] of integer = buildtable("i*40");
|
||||||
|
|
||||||
|
@ -1388,7 +1387,8 @@ begin
|
||||||
begin
|
begin
|
||||||
fgColBefore := 0;
|
fgColBefore := 0;
|
||||||
Fill(screen_char_loc, KEY_SPACE, 255);
|
Fill(screen_char_loc, KEY_SPACE, 255);
|
||||||
FillFast(screen_char_loc + 256, KEY_SPACE, 127);
|
FillFast(screen_char_loc + 255, KEY_SPACE, 127);
|
||||||
|
Fill(^$06F8, KEY_SPACE, 240);
|
||||||
GoToPurpleBarRasterStart();
|
GoToPurpleBarRasterStart();
|
||||||
currentPartDone := true;
|
currentPartDone := true;
|
||||||
screen_fg_col := 0;
|
screen_fg_col := 0;
|
||||||
|
@ -1521,7 +1521,8 @@ begin
|
||||||
CreateAddressTable(#mainPartAddressTable, $4400, 40, 25);
|
CreateAddressTable(#mainPartAddressTable, $4400, 40, 25);
|
||||||
CreateAddressTable(#colorAddressTable, $d800, 40, 25);
|
CreateAddressTable(#colorAddressTable, $d800, 40, 25);
|
||||||
|
|
||||||
Fill(^$0528, KEY_SPACE, 240);
|
Fill(^$0518, KEY_SPACE, 240);
|
||||||
|
Fill(^$0608, KEY_SPACE, 80);
|
||||||
|
|
||||||
for i := 0 to 256 do fastPlasma[i] := textPlasmaLumi[textPlasmaX[i]];
|
for i := 0 to 256 do fastPlasma[i] := textPlasmaLumi[textPlasmaX[i]];
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue