Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Farbbereiche & ScanLine (https://www.delphipraxis.net/105470-farbbereiche-scanline.html)

rawsoul 23. Dez 2007 01:15

Re: Farbbereiche & ScanLine
 
Mal ein kürzerer Vorschlag:
Delphi-Quellcode:
procedure rotton(col:tcolor);
begin
  if (getrvalue(col)>getgvalue(col)) and (getrvalue(col)>getbvalue(col)) then
    showmessage('Rotton') else showmessage('kein Rotton');
end;
Oder habe ich die Frage missverstanden?

//Edit: Oh man, es ist echt zu spät für mich...

xy124 23. Dez 2007 08:20

Re: Farbbereiche & ScanLine
 
danke rawsoul... dein text ist viel kürzer und den rechnet delphi bestimmt auch schneller aus, sodass ich schneller den Roten Punkt auf meinem Bild erkenne!!!!!!!1
:-D :hello:

xaromz 23. Dez 2007 08:38

Re: Farbbereiche & ScanLine
 
Hallo,

@rawsoul: Dieser Text ist in einer Farbe (#A0961E), die laut Deinem Vergleich rot ist. Bist Du da sicher?

Gruß
xaromz

xy124 23. Dez 2007 11:22

Re: Farbbereiche & ScanLine
 
Liste der Anhänge anzeigen (Anzahl: 2)
hat euch eigentlich schonmal jemand gesagt, das ihr genial seid?
:coder2: :xmas:
für rot geht das hier am besten:
if (getrvalue(col)>getgvalue(col)) and (getrvalue(col)>getbvalue(col)) and (getgvalue(col)<50) and (getbvalue(col)<50)then
aber meine Laserpointerfarbanalyse zeigte, das für die laserfarben(rot) das hier geeeignet ist(bei tag):
if (getrvalue(col)>getgvalue(col)) and (getrvalue(col)>getbvalue(col)) and (getrvalue(col)>245)then ...

rausgekommen ist bis jetzt dieser "LAsererkenner"- (funzt nur mit webcam)vielleicht wirds mal nen "starwarssimmulator" wenigstens kann ich schon meine maus per laser steuern...

mit button1 macht ihr aus dem bild nen bitmap
der andere Knopf sucht dann den laser und markiert ihn wenn er drin ist...
leider dauerts nen bissl also wenn euch was schnelleres als image1.canvas.pixels[x,y] einfällt sagt's mir bitte
die shapes warn mal für andere Test's ggedacht haben aber keinen Nutzen(bin zu faul sie zu löschen...)

inherited 23. Dez 2007 12:21

Re: Farbbereiche & ScanLine
 
Zitat:

Zitat von xy124
leider dauerts nen bissl also wenn euch was schnelleres als image1.canvas.pixels[x,y] einfällt sagt's mir bitte

Zitat:

Zitat von Der_Unwissende
Was die Arbeit mit Scanline angeht, so solltest Du einfach mal die Forensuche benutzen, da gibt es ganz sicher schon mehr als einen Eintrag, der das behandelt!

:wink:

rawsoul 23. Dez 2007 13:05

Re: Farbbereiche & ScanLine
 
Zitat:

Zitat von xaromz
@rawsoul: Dieser Text ist in einer Farbe (#A0961E), die laut Deinem Vergleich rot ist. Bist Du da sicher?

Getestet habe ich ihn nicht, jedoch klang es bezüglich der Farblehre für mich logisch. Ist der Rotanteil einer Farbe größer als die restlichen beiden, so ist sie in einem Rotton anzusiedeln. Man könnte durch Faktoren oder Farbbereiche sicherlich genauer arbeiten.

Zitat:

Zitat von xy124
danke rawsoul... dein text ist viel kürzer und den rechnet delphi bestimmt auch schneller aus, sodass ich schneller den Roten Punkt auf meinem Bild erkenne!!!!!!!1
:-D :hello:

Nur, weil der Quelltext kürzer ist, heißt es nicht, dass dieser schneller vom Prozessor verarbeitet wird!!!111einseinseins! :zwinker:


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:18 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz