source: branches/templates/Devices/FrameBuffer.pas

unit FrameBuffer;

interface

uses
  Classes, SysUtils, AddrChannel, Memory;

type
  {$MACRO ON}
  TScreenMode = (smText, smGraphic1, smGraphic8, smGraphic16, smGraphic32, smGraphic64);

  {$DEFINE TGFrameBuffer := TFrameBuffer8}
  {$DEFINE TGFrameBufferData := Byte}
  {$DEFINE TGFrameBufferAddrChannel := TAddrChannel8}
  {$DEFINE TGFrameBufferMemory := TMemory8}
  {$DEFINE TGFrameBufferWidth := 8}
  {$DEFINE INTERFACE}
  {$I 'FrameBuffer.inc'}

  {$DEFINE TGFrameBuffer := TFrameBuffer16}
  {$DEFINE TGFrameBufferData := Word}
  {$DEFINE TGFrameBufferAddrChannel := TAddrChannel16}
  {$DEFINE TGFrameBufferMemory := TMemory16}
  {$DEFINE TGFrameBufferWidth := 16}
  {$DEFINE INTERFACE}
  {$I 'FrameBuffer.inc'}

  {$DEFINE TGFrameBuffer := TFrameBuffer32}
  {$DEFINE TGFrameBufferData := DWord}
  {$DEFINE TGFrameBufferAddrChannel := TAddrChannel32}
  {$DEFINE TGFrameBufferMemory := TMemory32}
  {$DEFINE TGFrameBufferWidth := 32}
  {$DEFINE INTERFACE}
  {$I 'FrameBuffer.inc'}

  {$DEFINE TGFrameBuffer := TFrameBuffer64}
  {$DEFINE TGFrameBufferData := QWord}
  {$DEFINE TGFrameBufferAddrChannel := TAddrChannel64}
  {$DEFINE TGFrameBufferMemory := TMemory64}
  {$DEFINE TGFrameBufferWidth := 64}
  {$DEFINE INTERFACE}
  {$I 'FrameBuffer.inc'}

  { TFrameBuffer }

  TFrameBuffer = class
  private
    FFrameBuffer16: TFrameBuffer16;
    FFrameBuffer32: TFrameBuffer32;
    FFrameBuffer64: TFrameBuffer64;
    FFrameBuffer8: TFrameBuffer8;
    FWidth: TBitWidth;
    procedure SetWidth(AValue: TBitWidth);
  public
    procedure SetDataBus(Channel: TAddrChannel);
    constructor Create;
    property Width: TBitWidth read FWidth write SetWidth;
    property FrameBuffer8: TFrameBuffer8 read FFrameBuffer8;
    property FrameBuffer16: TFrameBuffer16 read FFrameBuffer16;
    property FrameBuffer32: TFrameBuffer32 read FFrameBuffer32;
    property FrameBuffer64: TFrameBuffer64 read FFrameBuffer64;
  end;

implementation

{ TFrameBuffer }

procedure TFrameBuffer.SetWidth(AValue: TBitWidth);
begin
  if FWidth = AValue then Exit;
  case FWidth of
    bw8: FreeAndNil(FFrameBuffer8);
    bw16: FreeAndNil(FFrameBuffer16);
    bw32: FreeAndNil(FFrameBuffer32);
    bw64: FreeAndNil(FFrameBuffer64);
  end;
  FWidth := AValue;
  case FWidth of
    bw8: FFrameBuffer8 := TFrameBuffer8.Create;
    bw16: FFrameBuffer16 := TFrameBuffer16.Create;
    bw32: FFrameBuffer32 := TFrameBuffer32.Create;
    bw64: FFrameBuffer64 := TFrameBuffer64.Create;
  end;
end;

procedure TFrameBuffer.SetDataBus(Channel: TAddrChannel);
begin
  if Width <> Channel.Width then raise Exception.Create('Bit width mismatch.');
  case Width of
    bw8: FrameBuffer8.SetDataBus(Channel.AddrChannel8);
    bw16: FrameBuffer16.SetDataBus(Channel.AddrChannel16);
    bw32: FrameBuffer32.SetDataBus(Channel.AddrChannel32);
    bw64: FrameBuffer64.SetDataBus(Channel.AddrChannel64);
  end;
end;

constructor TFrameBuffer.Create;
begin
  FFrameBuffer8 := TFrameBuffer8.Create;
end;

{$DEFINE TGFrameBuffer := TFrameBuffer8}
{$DEFINE TGFrameBufferData := Byte}
{$DEFINE TGFrameBufferAddrChannel := TAddrChannel8}
{$DEFINE TGFrameBufferMemory := TMemory8}
{$DEFINE TGFrameBufferWidth := 8}
{$DEFINE IMPLEMENTATION}
{$I 'FrameBuffer.inc'}

{$DEFINE TGFrameBuffer := TFrameBuffer16}
{$DEFINE TGFrameBufferData := Word}
{$DEFINE TGFrameBufferAddrChannel := TAddrChannel16}
{$DEFINE TGFrameBufferMemory := TMemory16}
{$DEFINE TGFrameBufferWidth := 16}
{$DEFINE IMPLEMENTATION}
{$I 'FrameBuffer.inc'}

{$DEFINE TGFrameBuffer := TFrameBuffer32}
{$DEFINE TGFrameBufferData := DWord}
{$DEFINE TGFrameBufferAddrChannel := TAddrChannel32}
{$DEFINE TGFrameBufferMemory := TMemory32}
{$DEFINE TGFrameBufferWidth := 32}
{$DEFINE IMPLEMENTATION}
{$I 'FrameBuffer.inc'}

{$DEFINE TGFrameBuffer := TFrameBuffer64}
{$DEFINE TGFrameBufferData := QWord}
{$DEFINE TGFrameBufferAddrChannel := TAddrChannel64}
{$DEFINE TGFrameBufferMemory := TMemory64}
{$DEFINE TGFrameBufferWidth := 64}
{$DEFINE IMPLEMENTATION}
{$I 'FrameBuffer.inc'}

end.