Bitmap hochauflösend verkleinern

Hi Runde!

Ich brauch hochauflösende Miniaturen einiger Vorlagen. Da StretchDraw nur die Ansicht verkleinert, hab ich mit ScanLine expirimentiert... das meint, ich wollte. Das Hilfe-Beispiel produziert aber bereits einen Fehler "Cannot convert viod* to unsignet char". Klar, hab einiges versucht, aber es will nicht. Kann jemand helfen? das Ziel ist nicht in erster Linie dieser Code sondern die Verlustarme Verkleinerung einer Bitmap. Ich arbeite mit 2 TImage, "Start" und "Ziel". In Start wird geladen, in Ziel verkleinert und dann gespeichert:

void __fastcall TResa::ButtonEnter(TObject *Sender) 
{ 
  Graphics::TBitmap *pBitmap = new Graphics::TBitmap(); 
  // Zeichnung direkt in das BitMap-Objekt ausgeben 
  Byte *ptr; 
  try 
  { 
    pBitmap->Assign(Start->Picture->Graphic); 
    for (int y = 0; y < pBitmap->Height; y++) 
    { 
      ptr = pBitmap->ScanLine[y]; // nach ptr: Cannot convert void* to unsigned char. 
      for (int x = 0; x < pBitmap->Width; x++) 

        ptr[x] = (Byte)y; 
    } 
    Ziel->Canvas->Draw(0,0,pBitmap); 
  } 
  catch (...) 
  { 
    ShowMessage("Bitmap konnte nicht geladen oder verändert werden"); 
  } 
  delete pBitmap; 
}

Jansen

Was genau ist dein Problem mit StretchDraw?

In meiner hilfe sieht das ScanLine-Beispiel übrigens so aus:

...
ptr = (Byte *)pBitmap->ScanLine[y];
...

Dank dir für die rasche Antwort, @Jansen. So klappt es. Hab den BCB3, da mußte ich schon an so manchem Beispiel schrauben, bis es lief. Und das Beispiel zeichnet erst mal nur eine schwarze Fläche. Da fehlt also noch etliches, bis es brauchbar ist.

Mein Prob mit StretchDraw ist, daß nur die Anzeige verkleinert wird. Beim Speichern bekomm ich wieder die Original-Bildgröße. Ich will aber eine Miniatur speichern. Hatte dafür eine Komponente gefunden (Resample). Leider enthält sie keine Methode, um die Pixel verkleinern zu können. Ich hab also hohe Qualitätsverluste.

Wie könnte ich das Problem sinnvoll angehen?

Jansen

Du musst ggf. einfach auf ein neues Objekt mit den gewünschten Abmessungen "strechdrawen" und dieses dann speichern.

Genau das mach ich doch. In Start wird das Bild geladen, dann nach Ziel gestretchdrawt. Von dort wird es gespeichert. Beim Öffnen hat es dann wieder die Originalgröße. Die Aktion war wirkungslos, genauso wie bei der Komponente. So wird das einfach nichts.

Ich muß an die Pixel. Selbst zeichnen kann ich jederzeit in Minipixeln. Aber stretchrawn ignoriert die PenWidth, die ich für die Canvas angeb. Es muß also gelingen, das Bild selbst zu bearbeiten.

etechniker

*g* Ein Pixel bleibt ein Pixel, der lässt sich nicht "verkleinern"...

"hochauflösend verkleinern" ist ein Wiederspruch in sich.

Das einzige was du machen kannst um ein Bild ohne Qualtitätsverlust zu verkleinern ist deine Bildschirmauflösung höher stellen

WebFritzi

Original erstellt von <Omega-X>:
Genau das mach ich doch. In Start wird das Bild geladen, dann nach Ziel gestretchdrawt. Von dort wird es gespeichert. Beim Öffnen hat es dann wieder die Originalgröße. Die Aktion war wirkungslos, genauso wie bei der Komponente. So wird das einfach nichts.

Dann hast du sicher was falsch gemacht:

Graphics::TBitmap* DestBmp = new Graphics::TBitmap;
DestBmp->Width = 100;
DestBmp->Height = 100;
RECT DestRect = Rect(0, 0, 100, 100);

Graphics::TBitmap* SrcBmp = new Graphics::TBitmap;
SrcBmp->Width = Width;
SrcBmp->Height = Height;

TCanvas* SrcCanvas = new TCanvas;
SrcCanvas->Handle = GetWindowDC(Handle);
RECT SrcRect = Rect(0, 0, Width, Height);
SrcBmp->Canvas->CopyRect(SrcRect, SrcCanvas, SrcRect);
delete SrcCanvas;

DestBmp->Canvas->StretchDraw(DestRect, SrcBmp);
delete SrcBmp;
DestBmp->SaveToFile("LittleForm.BMP");
delete DestBmp;

[ Dieser Beitrag wurde am 11.01.2003 um 21:06 Uhr von WebFritzi editiert. ]

Jansen

Genau. Aber warum der Umweg über SrcCanvas, du kannst doch direkt die Form abkopieren!?

SrcBmp->Canvas->CopyRect(ClientRect, Canvas, ClientRect);

WebFritzi

Original erstellt von Jansen:
**Genau. Aber warum der Umweg über SrcCanvas, du kannst doch direkt die Form abkopieren!?
SrcBmp->Canvas->CopyRect(ClientRect, Canvas, ClientRect);
**

Nö. Das ist nur das ClientRect und nicht die ganze Form.

[ Dieser Beitrag wurde am 12.01.2003 um 00:39 Uhr von WebFritzi editiert. ]

Jansen

Na gut, das können wir gerade so gelten lassen.

@etechniker, wenn ich mit PenWidth = 8 zeichne, bekomm ich eine grobpixelige Grafik. Pixel ist nichts weiter als ein definiertes Flächenmaß bezogen auf die ScreenAuflösung (sofern ich es nicht falsch verstanden hab). Die Dinger können auch viel kleiner sein als 1. Ich hab schon mit

PenWidth = 1 / 30;

und ähnlichem gearbeitet. Tatsächlich kann ich in einem Bitmap hochauflösend retuschieren. Sehr viele kleine Pixel in ein einziges normalgroßes Pixel. Hochauflösender Grafik begenet man auch in der Praxis. Teure Bildformate und auch einige moderne Spiele. In der Grafik-Engine (3D), zB. von acknex kann ich die Texturen skalieren. Beim Näherkommen sieht man keine verpixelten Grafiken, wie in den klassischen Spielen. Unser Burgenspezialist hat den Bogen schon so raus, daß man sich in den Räumen vorkommt wie in einer wirklichen Umgebung. Pixel verkleinern ist also technisch und vom Bedarf her völlig zeitgemäß.

Ole, und jetzt will ich als oller Storyteller und noch nicht sehr weit fortgeschrittener (eigentlich fast noch Starter) Coder Itemgrafiken vom Feinsten kreieren. Denn wir bauen ja nicht die gähnenede Langeweile nach sondern wenn schon, denn schon incl. komplexer Abenteuerstory - also nicht nur immer dieser selbst die Langeweile tötende Kampf bis zum Abwinken. - Aber das nur am Rande wegen dem Grund für mein skurilles Anliegen. :p

@WebFritzi, super Dank! Den Konstruct hatte ich erst NULL verstanden, bis ich das gespeicherte Ergebnis sah. Ein gewaltiger Fortschritt. Das Original-Schwert hatte zB. eine 20 Pixel breite Klinge, die 5-fache Verkleinerung immerhin 10. (Über Kopiertechniken schaff ich nur etwa 3 Pixel, halt das übliche lineare Vorgehen). Hier ist schon erstaunliches möglich, ohne überhaupt "geschraubt" zu haben. Den Code muß ich jetzt nur noch anpassen und die Aufgabe den Komponenten übertragen.

Ääähhh..., bin ich unverschämt? Ich bin unverschämt und ausdauernd, wenn es um Neugier Erreichnisse geht. Aber Neugier ist nun mal die Seele, wenngleich auch noch kein Plan besteht. Wenn irgendwie rankommbar, wollte ich es noch eine Stufe feiner haben. Ich seh in detailreichen Miniaturen noch die idealisierten Pixel, die Übergänge müßte man mühsam reinretuschieren. Aber mir fällt nichts ein, wie ich an die Pixel selbst drankommen könnte. Geht immer nur beim manuellen Zeichnen. Ich expirimentier natürlich weiter. Aber wenn jemand eine Idee hat, das wär *atomar*.

Also mit SrcCanvas bring ich einen Fehler rein. Auch wenn ich das Rect von "Start" angebe, wird der Bildausschnitt ab Top/Left der Form incl WindowLeiste genommen. Ohne diesen Zwischenpart klappt es UFB. Start übergibt nach dem Laden an SrcBmp, stretchdrawt nach DestBmp, von dort aus assigne ich es nach "Ziel".

Hab ziemlich expirimentiert aber keine Möglichkeit gefunden, Pen->Width zu integrieren. Geht wohl doch nur mit ScanLine? Ich bring da aber nichts zusammen, das Bild bleibt schwarz. Hier nochmal der Code, wie er bis jetzt aussieht:

void __fastcall TResa::ButtonEnter(TObject *Sender)
{
 Ziel->Width = StrToInt(EditX->Text);
 Ziel->Height = StrToInt(EditY->Text);

 Graphics::TBitmap* SrcBmp = new Graphics::TBitmap;
 SrcBmp->Width = Start->Width;
 SrcBmp->Height = Start->Height;
 SrcBmp->Canvas->Pen->Width = 30;
 SrcBmp->Assign(Start->Picture->Graphic);

 Graphics::TBitmap* DestBmp = new Graphics::TBitmap;
 DestBmp->Width = Ziel->Width;
 DestBmp->Height = Ziel->Height;
 RECT DestRect = Rect(0, 0, Ziel->Width, Ziel->Height);
 DestBmp->Canvas->Pen->Width = 30;
 DestBmp->Canvas->StretchDraw(DestRect, SrcBmp);
 Ziel->Picture->Assign(DestBmp);

 delete SrcBmp;
 SrcBmp = NULL;
 Ziel->Picture->SaveToFile("Check.BMP");
 delete DestBmp;
 DestBmp = NULL;
}

Also wenn jemand eine Idee hat, auf welche Art man die Auflösung noch feiner bekommen kann, :p

NachPS: Eigentlich bin ich angemeldet. Login oder Profil einsehen klappt allerdings nicht. Ich werd immer im Kreis geführt. - Aber ich fall ja durch fast jede Gesichtskontrolle durch.

etechniker

Original erstellt von <Omega-X>:
**@etechniker, wenn ich mit PenWidth = 8 zeichne, bekomm ich eine grobpixelige Grafik. Pixel ist nichts weiter als ein definiertes Flächenmaß bezogen auf die ScreenAuflösung (sofern ich es nicht falsch verstanden hab). Die Dinger können auch viel kleiner sein als 1. Ich hab schon mit

PenWidth = 1 / 30;

**

Pixel verkleinern ist Blödsin, du meintest ja dadurch Speicherplatz zu sparen.
Wenn du mit einer PenWidth von 1/30 arbeitest bedeutet das das du das auf einem
Monitor erst darstellen kannst wenn du mit 30-facher vergrößerung arbeitest.
Was aber immer gleich bleibt ist der Speicherplatz den du für einen Pixel
benötigtst. Und bei einer Penwidth von 1/30 und einer ungescaleten Grafik benötigtest du für jeden Bildschirmpixel 30*30 gespeicherte Pixel, also 900mal
so viele gespeicherte Pixel pro Bildschirmpixel ohne einen Qualitätsunterschied zu sehen.

Was hat das mit teuren ? Bildformaten zu tun, du kannst jedes beliebige Bildformat nehmen und einfach ein größeres Bild erstellen (z.B. 3000x2000) und es für die Darstellung auf dem Bildschirm entsprechend scalieren.

Naja, bevor ich zu den ganzen Kram antworte nochma zu deinem Hauptanliegen eine
Grafikdatei zu verkleinern indem du die Pixel verkleinerst... Das hat keinen Sinn weil die Datei auf der Platte für jeden Pixel, ob nun auf dem Bildschirm klein oder groß Dargestellt, dieselbe Information speichern muss.

[ Dieser Beitrag wurde am 12.01.2003 um 10:53 Uhr von etechniker editiert. ]

Ich werd mich bremsen können, den Testcode in der Praxis anzuwenden. Die fps gehen in den Keller, uzw. gnadenlos. Dein Beispiel mit den 900 Pixeln sagt da alles. Das war nur mal ein Wert, um sofort zu sehen, ob ein Effekt eintritt. Genauso hab ich Pen->Width = 30 eingesetzt. Erst, wenn ich überhaupt die Wirkung seh, kann ich an die Feinarbeit gehen.

Mir geht es also nicht um den Speicherplatz. Was in der Map längst unakzeptabel wäre, läuft aber mühelos noch in einem stehenden Itemschirm. Daß man in dem Bereich wirklich was für's Auge bieten kann, hab ich ua. schon in Manga-Spielen gesehen.

Mit etwa 1/4 würde ich durchaus mal experimentieren. Bei den etwa 1/2, die jetzt möglich sind, seh ich ja noch die Pixel aus der Distanz. Ist natürlich auch schon edel. Aber allzu detailreich dürfen die Grafiker da noch nicht aufbauen. Die verwenden ja hemmungslos die Bildschirmhöhe, um flüssig arbeiten zu können. Wischtechniken usw, das braucht Platz. Irgendwie muß man das dann auf die benötigten Größen trimmen.

Jansen

Was du, soweit ich das sehe, vorhast (die Grafiken zur Laufzeit skalieren) ist aus Performancegründen nicht sinnvoll. Nicht umsonst halten professionelle Spiele die Texturen in verschiedenen Auflösungen vor und laden bei Bedarf eine der Entfernung (und somit der Grösse) des Bildobjektes entsprechende Version aus dem Speicher oder von Platte.

Du solltest also deine Grafiker ihre tollen Bilder malen lassen und diese dann in verschiedenen Auflösungen bzw. Grössen abspeichern. Die Skalier-Algorithmen der Grafikprogramme liefern ohnehin eine viel bessere Qualität als du sie (mit vertretbarem Aufwand) jemals selbst programmieren könntest.

Skalieren zur Laufzeit war noch gar nicht im Gespräch. Aber Nachladen wär echt eine Überlegung wert. Dein Tip kann Gold wert sein. Auf die Entfernung reichen grobpixelige Texturen, das spart jede menge Speicher. Ein Übriges tut dann Nebel.

Hier ginge es aber nur um die Itemgrafiken. Bei denen ist die Distanz immer gleich. Für's Gelände reichen dann schlichte Models, hauptsache, sie sind erkennbar. In Truhe und Handel sind es ja die Sprites wie im Itemschirm.

Ja, für Freeware lohnen sich die leistungstarken Anwendungen nicht. Wer es nicht sowieso hat... Deswegen ist mittelmäßig skaliert auch besser als gar nichts. Was man teilweise so bewundern kann, das wird ein Traum bleiben. Allerdings... die Bauzeit ist eher langfristig. Da kann noch einiges geschehen. Die Crew wird ja noch eine Weile im Aufbau sein...

Jansen

Wenn du nicht zur Laufzeit skalieren willst dann brauchst du doch auch überhaupt kein StretchDraw oder vergleichbare Routinen!? Lade einfach die passende, vorgefertigte Grafik.

Ach, jetzt versteh ich deine Gedanken. Nein, das wird kein Feature fürs Spiel. Ich will nur ein Tool bauen, mit dem ich die meist zu groß geratenen Itemgrafiken auf die benötigte Größe bringen kann. Daß Details verloren gehen, ist klar. Aber es soll im Rahmen bleiben, so gut es geht.

Es fällt immer wieder auf, daß die Grafiker Probs haben, in den benotigten Größen was brauchbares hinzubekommen. Wenn ich nur an die tollen Ringe denk. Fast halb so hoch wie die Antwortform. Kleiner ging es wohl nicht bei der verwendeten Technik. Das Teilchen soll dann in ein 50 px hohes Feld reinpassen. Es geht, aber die investierte Kunst geht dabei ziemlich verloren. Das jetzt erreichte hilft kollossal. Nur noch ein klein wenig feiner, und es wär schon brillant. Wenn es gelingen will, will ich den Punkt natürlich anstreben.

Gregor

Warum mußt du dafür selbst ein Tool bauen? Geht das nicht mit GIMP, Paint oder so?

Jansen

Ganz meine Meinung. Wie ich schon sagte, an die Qualität der "Verkleinerungsfunktionen" von Grafikprogrammen wie Photoshop, Paintshop Pro usw. kommst du mit einem selbstgebauten Programm buchstäblich "nie im Leben" ran.