Thema: Delphi Farbbereiche & ScanLine

Einzelnen Beitrag anzeigen

xy124

Registriert seit: 3. Dez 2007
146 Beiträge
 
Delphi 7 Personal
 
#14

Re: Farbbereiche & ScanLine

  Alt 23. Dez 2007, 12:22
hat euch eigentlich schonmal jemand gesagt, das ihr genial seid?

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...)
Miniaturansicht angehängter Grafiken
bild_132.jpg  
Angehängte Dateien
Dateityp: exe project1_190.exe (422,0 KB, 12x aufgerufen)
  Mit Zitat antworten Zitat