Библиотека для работы с 3D графикой

// ---------------------------------------------------------------------------
 
#ifndef UnitBlitzClearVCLH
#define UnitBlitzClearVCLH
// ---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
 
// ---------------------------------------------------------------------------
class TForm1 : public TForm {
__published: // IDE-managed Components
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
    void __fastcall FormDestroy(TObject *Sender);
 
private: // User declarations
    void __fastcall OnTimerFPSTimer(TObject *Sender);
 
    void __fastcall OnTimerRendererTimer(TObject *Sender);
 
    void __fastcall OnCheckEngineClick(TObject *Sender);
 
    void __fastcall StartEngine();
 
public: // User declarations
    __fastcall TForm1(TComponent* Owner);
};
 
// ---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
// ---------------------------------------------------------------------------
#endif

// ---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "UnitBlitzClearVCL.h"
#include "blitz3dsdk.h"
#include "blitz3dsdkexamples.h"
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
struct TWorld3D {
    TWorld3D() {
        my_cam_xr = 0.0;
        my_cam_yr = 0.0;
        my_cam_zr = 0.0;
 
        my_cam_x = 0.0;
        my_cam_y = 0.0;
        my_cam_z = 0.0;
 
        iStat = 0;
 
        sOutputText = "";
    };
 
    // параметры камыре
    float my_cam_xr;
    float my_cam_yr;
    float my_cam_zr;
 
    float my_cam_x;
    float my_cam_y;
    float my_cam_z;
 
    // величина fps
    int iStat;
 
    // главная камера сцены
    BBCamera my_camera;
 
    // 3д объект - Дракон
    BBMD2Model my_dragon;
 
    // динамические компоненты, которые добавятся на форму
    TCheckBox *CheckBoxEngine;
    TTimer *TimerRenderer;
    TTimer *TimerFPS;
 
    // строка, показывающая ФПС
    AnsiString sOutputText;
 
    void ClearDynamicComponents() {
        if (CheckBoxEngine) {
            delete CheckBoxEngine;
        }
        if (TimerRenderer) {
            delete TimerRenderer;
        }
        if (TimerFPS) {
            delete TimerFPS;
        }
    }
 
};
 
TWorld3D World3D;
 
// ---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {
 
}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender) {
    // будет останавливать-запускать движок
    World3D.CheckBoxEngine = new TCheckBox(this);
    World3D.CheckBoxEngine->Parent = this;
    World3D.CheckBoxEngine->Top = 3;
    World3D.CheckBoxEngine->Left = 3;
    World3D.CheckBoxEngine->Width = 200;
    World3D.CheckBoxEngine->OnClick = &OnCheckEngineClick;
    World3D.CheckBoxEngine->Caption = "Запуск (остановка) движка";
    // таймер, который будет рендерить кадры
    World3D.TimerRenderer = new TTimer(this);
    World3D.TimerRenderer->Enabled = false;
    World3D.TimerRenderer->Interval = 16;
    World3D.TimerRenderer->OnTimer = &OnTimerRendererTimer;
    // таймер, который будет считать FPS
    World3D.TimerFPS = new TTimer(this);
    World3D.TimerFPS->Enabled = false;
    World3D.TimerFPS->Interval = 1000;
    World3D.TimerFPS->OnTimer = &OnTimerFPSTimer;
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender) {
    World3D.ClearDynamicComponents();
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose) {
    if (World3D.CheckBoxEngine->Checked) {
        ShowMessage("Остановите работу с движком!");
        CanClose = false;
    }
}
 
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::OnCheckEngineClick(TObject *Sender) {
    if (World3D.CheckBoxEngine) {
        if (World3D.CheckBoxEngine->Checked) {
            // запускаем движок
            StartEngine();
            // запускаем рендер
            World3D.TimerRenderer->Enabled = true;
            // считаем fps
            World3D.TimerFPS->Enabled = true;
        }
        else {
            // останавливаем рендер
            World3D.TimerRenderer->Enabled = false;
            // остановка подсчёта fps
            World3D.TimerFPS->Enabled = false;
            // закрываем работу с движком
            bbEndBlitz3D();
        }
    }
}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::OnTimerRendererTimer(TObject *Sender) {
    if (bbKeyDown(KEY_LEFT))
        World3D.my_cam_yr -= 2.0;
    if (bbKeyDown(KEY_RIGHT))
        World3D.my_cam_yr += 2.0;
 
    if (bbKeyDown(KEY_UP)) {
        World3D.my_cam_xr += 2;
        if (World3D.my_cam_xr > 90)
            World3D.my_cam_xr = 90;
    }
    if (bbKeyDown(KEY_DOWN)) {
        World3D.my_cam_xr -= 2;
        if (World3D.my_cam_xr < 5)
            World3D.my_cam_xr = 5;
    }
    if (bbKeyDown(KEY_LEFTBRACKET))
        World3D.my_cam_zr += 2.0;
    if (bbKeyDown(KEY_RIGHTBRACKET))
        World3D.my_cam_zr -= 2.0;
 
    if (bbKeyDown(KEY_W)) {
        World3D.my_cam_z += 1.0;
        if (World3D.my_cam_z > -10)
            World3D.my_cam_z = -10;
    }
    if (bbKeyDown(KEY_S)) {
        World3D.my_cam_z -= 1.0;
        if (World3D.my_cam_z < -180)
            World3D.my_cam_z = -180;
    }
    if (bbKeyDown(KEY_A)) {
        World3D.my_cam_x -= 1;
        // if(cam_z>-10)cam_z=-10;
    }
    if (bbKeyDown(KEY_D)) {
        World3D.my_cam_x += 1;
        // if(cam_z<-180)cam_z=-180;
    }
 
    bbPositionEntity(World3D.my_camera, 0, 0, 0);
    bbRotateEntity(World3D.my_camera, World3D.my_cam_xr, World3D.my_cam_yr,
        World3D.my_cam_zr);
    bbMoveEntity(World3D.my_camera, World3D.my_cam_x, World3D.my_cam_y, World3D.my_cam_z);
 
    // считаем FPS
    World3D.iStat++;
 
    bbUpdateWorld();
    bbRenderWorld();
 
    bbText(100, 100, World3D.sOutputText.c_str());
 
    bbFlip();
}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::OnTimerFPSTimer(TObject *Sender) {
    World3D.sOutputText = "Привет всем ! FPS: " + AnsiString(World3D.iStat);
    World3D.iStat = 0;
}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::StartEngine() {
    bbBeginBlitz3D();
 
    // размеры 3Д окна
    bbGraphics3D(800, 600, 32, 2);
 
    /*
    ;0,40  : idle
    ;40,46 : run
    ;46,54 : attack
    ;54,58 : paina
    ;58,62 : painb
    ;62,66 : painc
    ;66,72 : jump
    ;72,84 : flip
     */
 
    // environment cube
    BBMeshModel cube = bbCreateCube();
    bbFitMesh(cube, -250, 0, -250, 500, 500, 500);
    bbFlipMesh(cube);
    BBTexture tex = bbLoadTexture("media/dragon/chorme-2.bmp");
    bbScaleTexture(tex, 1.0 / 3, 1.0 / 3);
    bbEntityTexture(cube, tex);
    bbEntityAlpha(cube, .4);
    bbEntityFX(cube, 1);
 
    BBMirror m = bbCreateMirror();
 
    // simple light
    BBLight light = bbCreateLight();
    bbTurnEntity(light, 45, 45, 0);
 
    // camera
 
    World3D.my_camera = bbCreateCamera();
 
    World3D.my_cam_xr = 30;
    World3D.my_cam_yr = 0;
    World3D.my_cam_zr = 0;
 
    World3D.my_cam_x = 0;
    World3D.my_cam_y = 0;
    World3D.my_cam_z = -100;
 
    // cool dragon model!
 
    BBTexture tex2 = bbLoadTexture("media/dragon/dragon.bmp");
    World3D.my_dragon = bbLoadMD2("media/dragon/dragon.md2");
 
    bbEntityTexture(World3D.my_dragon, tex2);
    bbPositionEntity(World3D.my_dragon, 0, 25, 0);
    bbTurnEntity(World3D.my_dragon, 0, 150, 0);
 
    bbAnimateMD2(World3D.my_dragon, 1, .05, 40, 46);
}
 
// ---------------------------------------------------------------------------