GS.Core/GS.Soft3D.PipeLine.RasterOperation.pas at master · VincentGsell/GS.Core · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
unit GS.Soft3D.PipeLine.RasterOperation;

interface


uses Classes,
     SysUtils,
     GS.Common.Monitoring,
     GS.Geometry,
     GS.Soft3d.Types,
     GS.Soft3d.MeshTools,
     GS.Soft3d.PipeLine.Types,
     GS.Soft3d.PipeLine.FragmentShader;
Type

  TS3DRasterOperation = class(TS3DPipeLineStep)
  private
  protected
    FClearRaster: boolean;
    FFullWireFrame: boolean;
    FEnableRasterEngine: boolean;
  public
    FragControl : TS3DFragmentShaderControl;

    //Must be implemented into surface enabled techno descendant (such as Pixel32)
    function Run : boolean; virtual; abstract;
    //Resisze pixel buffer.
    procedure Resize(_width, _height : Uint32); Virtual; abstract;

    Constructor Create(Owner : TObject; _in : TS3DInputData3D; _wo : TS3DPipeLineData); Override;
    Destructor Destroy; Override;

    property EnableClearRaster : boolean read FClearRaster write FClearRaster;
    property EnableFullWireFrame : boolean read FFullWireFrame write FFullWireFrame;
    property EnableRasterEngine : boolean read FEnableRasterEngine write FEnableRasterEngine;
  end;


implementation

{ TS3DRasterOperation }

constructor TS3DRasterOperation.Create(Owner: TObject; _in: TS3DInputData3D;
  _wo: TS3DPipeLineData);
begin
  inherited;
  FragControl :=  TS3DFragmentShaderControl.Create(Owner,_in,_wo);
  FClearRaster:=true;
  FFullWireFrame:=false;
  FEnableRasterEngine:=true;
end;

destructor TS3DRasterOperation.Destroy;
begin
  FreeAndNil(FragControl);
  inherited;
end;

end.