Оберон-клуб «ВЄДАsoft»

PROCEDURE DrawChar (x, y: SHORTINT; VAR gfx: SYSTEM.BYTE);
 
...
 
(* User level code: *)
VAR
  char: ARRAY 8 OF SYSTEM.BYTE;
BEGIN
  char[0] := 0FFX; char[1] := 081X; char[2] := 081X; char[3] := 081X;
  char[4] := 081X; char[5] := 081X; char[6] := 081X; char[7] := 0FFX;
  DrawChar(10, 10, char); (* Probably it works *)

DEFINITION GrTiles;
 
TYPE
  Tile* = INTEGER; (* OR SYSTEM.CARDINAL, no matter, but size = 2 bytes *)
  Coords* = SHORTINT;
 
PROCEDURE DrawTile* (x, y: Coords; tile: Tile); (* Draw a color tile 8x8 pixels. *)
PROCEDURE GetTileByNum* (num: SHORTINT): Tile; (* Get a tile address by its number. *)
  (* SHORTINT will be enough for <=127 tiles *)
 
END GrTiles.

MODULE BasicLoader;
IMPORT SYSTEM, Basic;
CONST
  Color = 51H;
VAR
  title, attr: SYSTEM.CARDINAL; count, bit: SHORTINT; byte: SET;
BEGIN
  Basic.DEFDATAREL(title, 96 - 12 - 6);
  Basic.DATA12(0FH,000H,018H,002H,1FH,0C0H,030H,004H,21H,0C0H,020H,004H);
  Basic.DATA12(0CH,0E0H,020H,004H,0CH,0E0H,078H,0CDH,18H,0C9H,07DH,0EDH);
  Basic.DATA12(18H,0D9H,04DH,02EH,19H,0D3H,04DH,06CH,31H,096H,04DH,06EH);
  Basic.DATA12(33H,0BEH,0D9H,0EFH,33H,03EH,0F1H,0ADH,26H,006H,0C0H,000H);
  Basic.DATA12(0CH,00CH,080H,000H,78H,00DH,080H,000H,00H,019H,080H,000H);
  Basic.DATA12(06H,071H,080H,000H,03H,0E3H,000H,000H,00H,003H,000H,000H);
  Basic.DATA6 (00H,007H,000H,000H,00H,00EH);
  attr := 22624;
  FOR count := 96 - 12 - 6 TO 1 BY -1 DO
    byte := SYSTEM.VAL(SET, Basic.READ(title));
    FOR bit := 7 TO 0 BY -1 DO
      IF bit IN byte THEN Basic.POKE(attr, Color) END; INC(attr);
    END;
  END;
  Basic.PAUSE(Basic.WaitAKey); (* To see the fullscreen. *)
END BasicLoader.

Basic.PRINT(MAX(SET));

set := {0, 1, 2, 3, 4, 5, 6, 7}; (* Full set. *)

set := {}; (* Empty set. *)

IF 3 IN set THEN ... (* It checks is the third bit = 1. *)
(* In C, it looks: if (set & 8) ... /* dec 8 is bin 1000, which corresponds to the third bit. */ *)

    DEFINITION GrTiles;
 
    TYPE
    Tile* = INTEGER; (* OR SYSTEM.CARDINAL, no matter, but size = 2 bytes *)
    Coords* = SHORTINT;
   BackgroundColor=INTEGER;
 
    PROCEDURE DrawTile* (x, y: Coords; tile: Tile); (* Draw a color tile 8x8 pixels. *)
    PROCEDURE GetTileByNum* (num: SHORTINT): Tile; (* Get a tile address by its number. *)
    (* SHORTINT will be enough for <=127 tiles *)
    PROCEDURE ClearTile* (INTEGER x;INTEGER y);(*simply paints pixels over the tile in BackgroundColor*)
   PROCEDURE GetTile* (INTEGER x;INTEGER y):Array of SHORTINT;(* grabs tile info from screen to be able to make a sprite move across a tile and replace the tile*)
   PROCEDURE DrawGottenTile* (INTEGER x;INTEGER y:Array of SHORTINT;)(* draws grabbed tile info back to screen*)
   END GrTiles.

DEFINITION GrTiles;
 
  CONST (** Colors - skipped. *)
 
  TYPE
    Colors = INTEGER;
    Coords = INTEGER;
    Tile = INTEGER;
 
  PROCEDURE DrawMonoTile (x: INTEGER; y: INTEGER; tile: INTEGER);
  PROCEDURE DrawMonoTile8x8 (x: INTEGER; y: INTEGER; tile: INTEGER);
  PROCEDURE DrawTile (x: INTEGER; y: INTEGER; tile: INTEGER);
  PROCEDURE DrawTile8x8 (x: INTEGER; y: INTEGER; tile: INTEGER);
  PROCEDURE SetColors (attr: INTEGER);
 
END GrTiles.

MODULE DemoTiles;
IMPORT Til := GrTiles, B := Basic;
 
VAR
  i: SHORTINT; square: Til.Tile;
BEGIN (*$MAIN*)
  B.Init; B.BORDER(B.Red);
  B.DEFDATAREL(square, 8 + 1);
  (*Pixels:*) B.DATA8(0FFH, 81H, 81H, 81H, 81H, 81H, 81H, 0FFH);
  (*Attrib:*) B.DATA1(Til.BlueOnOlive);
  FOR i := 0 TO 23 DO Til.DrawTile(i, i, square) END;
  FOR i := 24 TO 31 DO Til.DrawTile(i, 23, square) END;
  Til.SetColors(Til.WhiteOnBlack);
  FOR i :=  8 TO 23 DO Til.DrawMonoTile(i, 1, square) END;
  Til.SetColors(Til.CyanOnBlue);
  FOR i := 10 TO 21 DO Til.DrawMonoTile(i, 3, square) END;
  Til.SetColors(Til.BlackOnWhite);
  FOR i := 12 TO 19 DO Til.DrawMonoTile(i, 5, square) END;
  Til.SetColors(Til.GreenOnMagenta);
  FOR i := 14 TO 17 DO Til.DrawMonoTile(i, 7, square) END;
  B.PAUSE(B.WaitAKey);
  B.Quit;
END DemoTiles.