SDK and Delphi

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Lupin

Hello,
Using B3D SDK witch Delphi is very simple. Try this :


// DELPHI (any Win32 version) sample for B3D SDK
// Save as "Project1.dpr", compile and run

program Project1;

// some external functions from B3D.DLL
function  bbBeginBlitz3D:integer; cdecl; external 'B3D';
procedure bbEndBlitz3D; cdecl; external 'B3D';
procedure bbGraphics3D(Width:integer; Height:integer; Depth:integer=0; Mode:integer=0); cdecl; external 'B3D';
function  bbCreateLight(LightType:integer=0; Parent:integer=0):integer; cdecl; external 'B3D';
function  bbCreateCamera(Parent:integer=0):integer; cdecl; external 'B3D';
function  bbCreateCube(Parent:integer=0):integer; cdecl; external 'B3D';
procedure bbTurnEntity(Entity:integer; p:single; y:single; r:single; global:integer=1); cdecl; external 'B3D';
procedure bbPositionEntity(Entity:integer; x:single; y:single; z:single; global:integer=1); cdecl; external 'B3D';
procedure bbRenderWorld(Tween:single=1.0); cdecl; external 'B3D';
procedure bbFlip(VWait:integer=1); cdecl; external 'B3D';
function  bbKeyHit(NumKey:integer):integer; cdecl; external 'B3D';

// demo code ( cube rotation )
var cube : integer;
begin
  bbBeginBlitz3D;
  bbGraphics3D(800,600);
  bbCreateCamera;
  bbCreateLight;
  cube:=bbCreateCube;
  bbPositionEntity(cube,0,0,4);
  repeat
    bbTurnEntity(cube,1,2,3);
    bbRenderWorld;
    bbFlip;
  until bbKeyHit(1)=1; // esc
  bbEndBlitz3D;
end.