Hadron Game Engine

[paul_nicholls]

Hi all,
I thought I'd let you know I have now joined forces with Jarrod so I can help him with the development of HGE!

I have a video to share of a new addition to HGE that I have added and should be available in the next version:



I have added to HGE the capability to do OpenGL-like graphics now using these routines:

RenderDevice_BeginPrimitive: procedure(aPrimitiveType: Integer; aRenderState: Integer; aTexture: Integer); stdcall;
RenderDevice_Color4f: procedure(r,g,b,a: Single); stdcall;
RenderDevice_Color4ub: procedure(r,g,b,a: Integer); stdcall;
RenderDevice_Texcoord2f: procedure(aX,aY: Single); stdcall;
RenderDevice_Vertex2f: procedure(aX,aY: Single); stdcall;
RenderDevice_EndPrimitive: procedure; stdcall;

It opens up the posibilites for neat effects using HGE

I have tested all but the Texturing part, but in theory that should work too

An example bit of code is here which draws 10 triangles with 2 random coloured vertices:

  if ExampleIndex = 4 then
  begin
    RenderDevice_BeginPrimitive(ptTriangleList,rsImage  ,0);

    for i := 1 to 10 do
    begin
      RenderDevice_Color4f(Random,Random,Random,Random);
      RenderDevice_Vertex2f(Random(w),Random(h));
      RenderDevice_Color4f(Random,Random,Random,1);
      RenderDevice_Vertex2f(Random(w),Random(h));
      RenderDevice_Vertex2f(Random(w),Random(h));
    end;

    RenderDevice_EndPrimitive;
  end

cheers,
Paul