GS.Pixel32.Types.pas

unit GS.Pixel32.Types;

interface

uses
  GS.Geometry;

Type

  TP32 = int32;
  pTP32 = ^TP32;
  TP32Array = array of TP32;

  TP32Vertice = record
    x,y : TVecType; //Coord.
    rgba : vec4;      //vertice color.
    u,v : TVecType;   //UV Map (texture, ref., etc.)
  end;
  pTP32Vertice = ^TP32Vertice;
  TP32triVertices = Array of TP32Vertice;


  TP32QuadVertices = Array[0..3] of TP32Vertice;

  TP32Rec = packed record
  case int32 of
    0: (Blue: Byte; Green: Byte; Red: Byte; AlphaChannel: Byte);
    1: (Color: TP32);
    2: (Values: packed array[0..3] of Byte);
    3: (Valuef : single);
  end;
  pTP32Rec = ^TP32Rec;

  TSoftwareRasterizeOption = (roDirectMode, robasic, roBackBuffer);

const
  gspColorNone = $00000000;
  gspWhite = $FFFFFFFF;
  gspBlack = $FF000000;
  gspBlue = $FF0000FF;
  gspGreen = $FF008000;
  gspRed = $FFFF0000;
  gspOrange = $FFFF7F00;
  gspAqua = $FF00FFFF;
  gspNavy  = $FF000080;
  gspOlive = $FF7F7F00;
  gspYellow = $FFFFFF00;


function P32Vertice( const x : single = 0;
                    const y : single = 0;
                    u : single =0;
                    v : single =0;
                    r : single = 1;
                    g : single = 1;
                    b : single = 1;
                    a : single = 1) : TP32Vertice;
implementation



function P32Vertice( const x : single = 0;
                    const y : single = 0;
                    u : single =0;
                    v : single =0;
                    r : single = 1;
                    g : single = 1;
                    b : single = 1;
                    a : single = 1) : TP32Vertice;
begin
  result.x := x;
  result.y := y;
  result.u := u;
  result.v := v;
  result.rgba.r := r;
  result.rgba.g := g;
  result.rgba.b := b;
  result.rgba.a := a;
end;

end.