Sie sind nicht angemeldet.
Donnerstag, 1. Juli 2010, 18:08
|
Quellcode |
1 2 3 4 5 6 7 8 9 |
unit MainFm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, AsphyreDef, AsphyreTimers, AsphyreFonts, AsphyreDevices, AsphyreImages, AsphyreCanvas, AsphyreDb, Asphyre2D, AsphyreSubsc; |
|
|
Quellcode |
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 |
{
Read 3DS File and view object...
}
unit Unit1;
interface
uses
Windows, SysUtils, Classes, Controls, Forms,
GLMisc, GLScene, GLVectorFileObjects, GLObjects, GLWin32Viewer;
type
TForm1 = class(TForm)
GLSceneViewer1: TGLSceneViewer;
GLScene1: TGLScene;
GLCamera1: TGLCamera;
GLLightSource1: TGLLightSource;
DummyCube1: TDummyCube;
FreeForm1: TFreeForm;
GLCamera2: TGLCamera;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses Geometry;
procedure TForm1.FormCreate(Sender: TObject);
begin
// Read 3DS File...
FreeForm1.LoadFromFile('.\media\tree10.3ds');
end;
end.
|
|
|
Quellcode |
1 2 3 4 5 |
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, AsphyreDef, AsphyreTimers, AsphyreFonts, AsphyreDevices, AsphyreImages, AsphyreCanvas, AsphyreDb, Asphyre2D, AsphyreSubsc, GLMisc, GLScene, GLVectorFileObjects, GLObjects, GLWin32Viewer; |
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von »colombus« (1. Juli 2010, 18:21)
Donnerstag, 1. Juli 2010, 21:45
|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
unit MyMesh;
interface
uses
AsphyreMeshes, AsphyreColors;
type
TMyMesh = class(TAsphyreMeshX)
private
FColor: TAsphyreColor;
published
public
property Color: TAsphyreColor read FColor write FColor;
end;
implementation
end.
|
Freitag, 2. Juli 2010, 00:53
Zitat
Originally posted by drkohler
Das führt zu gar nichts. Du kannst nicht Asphyre (Grafiksystem auf DX9 aufbauend) und OpenGL Befehle (Grafiksystem aufbauend auf Open GL) vermischen und hoffen, dass dabei etwas Vernünftiges herauskommt.
Um einen 1404/1701 Inseleditor zu bauen, musst du
a) Das isd-Format von Anno entschlüsseln und die Daten Mundgerecht abspeichern
b) Ein Programmiersystem finden, dass alle 3D-Befehle unterstützt
c) Hoffen, das irgend jemand schon einen Landscape Editor gebaut hat mit diesem Programmiersystem, der so umgebaut werden kann, dass er die Mundgerechten Annodaten verwursteln kann (mindestens die Heightmap und das Multitexturing muss er können) und die Resultate wieder Mundgerecht abspeichern kann.
d) Wenn nicht, selber einen Landscape bauen, der Heightmaps und Multitexturing kann und das Resultat Mundgerecht abspeichern kann.
e) Mit dem Landscape die Inseln umbauen/neue Inseln bauen
f) Die neuen Daten wieder in ein isd-Format für Anno verschlüsseln.
Viel Glück, vor 1-2 Jahren gab es weder a) noch b) noch c) noch d) noch e) noch f), deshalb hatte ich aufgehört mit Inseleditor basteln. Vor Allem habe ich keine Ahnung von 3D-Programmierung, was die Sache auch nicht grad vereinfacht (Anno macht jetzt Alles mit Shadern, nicht mehr bloss Tiles aneinanderhängen wie 1503).
Freitag, 2. Juli 2010, 01:36
|
|
Quellcode |
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 |
//---------------------------------------------------------------------------
procedure TMainForm.DeviceInitialize(Sender: TObject; var Success: Boolean);
var
Model: TAsphyreModel;
begin
// Create and initialize 3D lights.
InitLights();
// This material has default properties and ID 0
Materials.Add();
// This texture has ID 0
Success:= Textures.AddTexture('material1.jpg', aqHigh, alNone);
// Update 3D States.
DevState.Update();
Model:= Models.Add(); // <- add model to the list
// Configure the texturing & material parameters *before* loading model!
Model.Texturing.Include(0); // use Texture ID 0
Model.Material:= 0; // use Material ID 0
Model.Lighting:= True; // enable lighting for this model
// Load the model now that all parameters are set.
if (Success) then
Success:= Model.LoadFromFile('cube.mesh');
Timer.Enabled:= Success;
end;
|
Samstag, 3. Juli 2010, 05:30
|
|
Quellcode |
1 2 3 |
AE F1 3A 44 40 48 93 42 7D C5 BD 44 |
|
|
Quellcode |
1 2 3 |
10101110111100010011101001000100 01000000010010001001001101000010 01111101110001011011110101000100 |
|
|
Quellcode |
1 2 3 |
X -0,0427105203270912 h 0,18777684867382 Y 0,0619561560451984 |
Samstag, 3. Juli 2010, 15:04
decimal integer. The value must be between -2147483648 and 2147483647 for 32-bit integers
Freitag, 9. Juli 2010, 01:21
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »colombus« (9. Juli 2010, 01:25)
Samstag, 24. Juli 2010, 14:03
Freitag, 30. Juli 2010, 05:50
|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 |
%b = '10100111101010011010101101' %c = 'A' %d = '43951789' %e = '4.39518e+7' %u = '43951789' %u = '4251015507' %f = '43951789.000000' %o = '247523255' %s = '43951789' %x = '29ea6ad' %X = '29EA6AD' %+d = '+43951789' %+d = '-43951789' |
