Forum: Multimedia
Delphi
by Cyberstorm,
27. Jan 2008
vielen dank! aber der spass mit dem einfärben ist leider nicht wirklich zeitfressend.
optimiert lieber die hauptschleife hier :-) (die braucht über ne stunde für alle 160.000 bilder trotz 4x3Ghz) :P.
also allgemein geht es darum, dass ich ein mosaikbild errechne. dafür habe ich testpunkte, die ich mit teilen des originalbildes vergleiche. das ganze passiert in 4 threads --> 4 kataloge, weil...
Forum: Multimedia
Delphi
by Cyberstorm,
25. Jan 2008
fall noch jemand eine copy & paste lösung braucht:
type
TRGB = record
Blue: Byte;
Green: Byte;
Red: Byte;
end;
Forum: Multimedia
Delphi
by Cyberstorm,
25. Jan 2008
Danke! :-).
macht genau das, was photoshop macht - was ich will :-)
Forum: Multimedia
Delphi
by Cyberstorm,
24. Jan 2008
ich verzweifle langsam :-/.
also habe das jetzt folgendermaßen abgeändert:
procedure TfrmMain.Calculate;
var
Prozent: Real;
x, y, r, g, b, t: Integer;
P: PRGB;
begin
Forum: Multimedia
Delphi
by Cyberstorm,
24. Jan 2008
also ich habe gerade mal in der berechnung das "+" durch "*" ersetzt:
vorher:
(p.Blue / 255) + ((SbBlau.Position / 255)
nachher:
(p.Blue / 255) * ((SbBlau.Position / 255)
für Rot und Grün natürlich ebenso.
Forum: Multimedia
Delphi
by Cyberstorm,
24. Jan 2008
hmm also ersteinmal machen beide funktionen von euch (omata & corpsman) das selbe aber noch nicht ganz, was ich will :-).
zumindest wird bei 100% nicht komplett überblendet aber das ergebnis ist nicht wie ich will (siehe bilder).
habe dein programm mal gekürzt und das einlesen der komponente überlassen:
die scroll boxen haben als onchange ereignis FormCreate...
procedure...
Forum: Multimedia
Delphi
by Cyberstorm,
24. Jan 2008
danke euch beiden!
werde ich gleich mal ausprobieren...
Forum: Multimedia
Delphi
by Cyberstorm,
23. Jan 2008
hi.
du hast einen raytracer programmiert?
sehr interessant! (ich studiere 3d animation) :-).
vielen dank, werde ich morgen mal ausprobieren, bin jetzt leider nicht mehr zuhause.
im ersten fall kommen doch immer werte über 256 raus (außer bei 0, 0). wie ist das dann zu verstehen?
also wenn da was weis ich 430 herauskommt?
das hat mich auch verwirrt und davon abgehalten die farben...
Forum: Multimedia
Delphi
by Cyberstorm,
23. Jan 2008
sieh dir doch mal die beiden bilder an (normal und multiplizieren) dann enddeckst du sicherlich auch einen unterschied...
Forum: Multimedia
Delphi
by Cyberstorm,
23. Jan 2008
Hallo.
ich möchte ein bild (tbitmap) mit einer farbe einfärben.
ich möchte sie aber nicht überblenden, sondern mit einem variablen faktor "multiplizieren".
also in diversen bildbearbeitungsprogrammen gibt es ja verschiedene modi, um bilder "übereinanderzupacken".
wie funktioniert rechnerisch multiplizieren bei einem bild?