DGL • Thema anzeigen - GLScene 3ds ?????????

GLScene 3ds ?????????

Moderator: DGL-Team

Seite 2 von 2

[ 19 Beiträge ]

Gehe zu Seite Vorherige 1, 2

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Flash

Betreff des Beitrags:

Verfasst: Do Mai 12, 2005 22:31

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Oder der, wie hieß er gleich..., QueryPerformanceCounter glaub ich. Der is nochn bisl genauer. (Wobei 30 eigentlich gehen sollte. :roll:

)

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

bernd29bln

Betreff des Beitrags:

Verfasst: Fr Mai 13, 2005 07:46

DGL Member

Registriert: Mi Mai 11, 2005 19:31
Beiträge: 8
Wohnort: Berlin

Hier mal der code.

Code:

 
implementation
 
{$R *.dfm}
 
uses Jpeg;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
 SetCurrentDir(ExtractFilePath(Application.ExeName)+'data');
 
    if GLSMBASS1.Active and (bStream=0) then begin
      bStream:=BASS_StreamCreateFile(false, PChar('Star.mp3'), 0, 0,
      BASS_STREAM_AUTOFREE);
      BASS_StreamPlay(bStream, false, 0);
      GlFreeform1.LoadFromFile('Meine.3ds');
 
  
   end;
end;
 
procedure TForm1.ViewerMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   mx:=x; my:=y;
end;
 
procedure TForm1.ViewerMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Shift=[ssLeft] then begin
      dmx:=dmx+(mx-x);
      dmy:=dmy+(my-y);
   end else if Shift=[ssRight] then
 
   mx:=x; my:=y;
 
 end;
 
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
 
  const stepsize = -0.001;
 
 
function Min(a,b:integer):integer;
  begin
    if a<b then Result:=a
    else Result:=b;
  end;
 
  begin
 
   glfreeform1.Position.Y:= Glfreeform1.Position.Y + stepsize;
end;
 
end.
 

Wie gesagt ohne Texturen läufts super , nur nicht mit.

MfG

_________________
Es ist keine Schande, nichts zu wissen, wohl aber, nichts lernen zu wollen.
Sokrates

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Fr Mai 13, 2005 13:24

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Öhm...Wo zeichnest du die Szene? (Oder bin ich gerade blind?)

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

bernd29bln

Betreff des Beitrags:

Verfasst: Fr Mai 13, 2005 18:31

DGL Member

Registriert: Mi Mai 11, 2005 19:31
Beiträge: 8
Wohnort: Berlin

bei glscene gibt es doch kompos dafür

MfG

_________________
Es ist keine Schande, nichts zu wissen, wohl aber, nichts lernen zu wollen.
Sokrates

Nach oben

Seite 2 von 2

[ 19 Beiträge ]

Gehe zu Seite Vorherige 1, 2

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.