MultipleTexture Loader

[Aurelius]

http://de.wikipedia.org/wiki/Demoszene

Da muss ich auch immer wieder stauen was mit doch begrenzten technischen Mitteln möglich ist

Sieht auf jeden Fall interssant aus

[EWeiss]

Zitat von Aurelius:

http://de.wikipedia.org/wiki/Demoszene

Da muss ich auch immer wieder stauen was mit doch begrenzten technischen Mitteln möglich ist

Sieht auf jeden Fall interssant aus

Ahh das ist was er meint .. nö kannte ich bisher nicht
Na ja wenn es euch weiter bringt
Viel spass damit

gruss

[newbe]

@EWeis,

Mit EQ meinte den Rainbow Spectrum Analyzer am unteren Bildrand.

mfG newbe

[EWeiss]

Zitat von newbe:

@EWeis,

Mit EQ meinte den Rainbow Spectrum Analyzer am unteren Bildrand.

mfG newbe

Ah so
Hab mich schon gewundert

[idefix2]

Eine Kleinigkeit:

Delphi-Quellcode:

if copy(Uppercase(sImgName), length(sImgName) - 3, 4) = '.JPEG' then
        ImageType := '.JPEG';

ist vielleicht nicht so gut? Detto für .tiff

[Bummi]

...
Uppercase(ExtractFileExt....
...

[EWeiss]

Zitat von Bummi:

...
Uppercase(ExtractFileExt....
...

Ja natürlich geht ebenfalls
Wer es denn haben will ändert alles nach
if Uppercase(ExtractFileExt(sImgName)) = '.PNG' then um

Obwohl diese Funktion letztendlich genau das gleiche tut

gruss

[EWeiss]

Hier noch ein anderer EQ (Spectrum)
Das Spectrum kann beliebig anhand von Paletten geändert werden.
Für die Leute die es interessiert.

gruss

[mleyen]

Zitat von EWeiss:

Zitat von Bummi:

...
Uppercase(ExtractFileExt....
...

Ja natürlich geht ebenfalls
Wer es denn haben will ändert alles nach
if Uppercase(ExtractFileExt(sImgName)) = '.PNG' then um

Obwohl diese Funktion letztendlich genau das gleiche tut

gruss

Das Problem ist weniger die eine Zeile, eher der (doppelte) Code an sich. ZB hab ich schon ewig keine 2XX LOC-Methode gesehen. Dabei wurd hier doch immer Clean Code usw für heilig gesprochen.

Hier beispielsweise wird immer wieder copy(), Uppercase(), length(), ...copy() Uppercase(), ... aufgerufen.
Dabei könnte man daraus einen kleinen Einzeiler machen, welcher sicherlich performanter und dynamischer ist:

Delphi-Quellcode:

const
  SupportedImageTypes: array[0..8] of string = (
    '.BMP', '.DIB', '.GIF', '.ICO', '.JPEG', '.JPG', '.PNG', '.TIF', '.TIFF');

function GetImageType(const AImgName: string; out ImageType: string): Boolean;
begin
  ImageType := ExtractFileExt(AImgName);
  Result := StrUtils.IndexText(ImageType, SupportedImageTypes) > 0;
end;

// Und in der seitenlangen Methode dann nur noch:
  if GetImageType(sImgName, ImageType) then

[EWeiss]

Zitat von idefix2:

Eine Kleinigkeit:

Delphi-Quellcode:

if copy(Uppercase(sImgName), length(sImgName) - 3, 4) = '.JPEG' then
        ImageType := '.JPEG';

ist vielleicht nicht so gut? Detto für .tiff

Vollkommen richtig
Danke.

gruss