Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 240805 (2241)
  Suchen
 Zurück zur Übersicht
 AutorThema: Graustufen
Hans Lang
Datum:08.10.02 18:31 Antwortenals Email verschicken (HaHoLang@aol.com) 


Hallo ,
ich will einen Messwert als Graustufe darstellen , optimal wäre SetPixel x1,y1,@RGB(r,g,b) jedoch rgb als Graustufenwert
mit 12 Bit . Gibt es so etwas oder eine Möglichkeit Graustufen in rgb umzuwandeln ?
besten Dank für jede Antwort

Hans Lang


Eric Eggert
Datum:08.10.02 18:50 Antwortenals Email verschicken (mail@yatil.de) 


Hallo, beim Aufruf @RGB(r,g,b) bekommst du Graustufen, indem du r=g=b wählst:

cls
whileloop 0, 255
usepen 0,1,@rgb(&loop,&loop,&loop)
line 10,(&loop+10)-110,(&loop+10)
EndWhile
waitinput


MfG, Eric


Frank Abbing
Datum:08.10.02 19:42 Antwortenals Email verschicken  


Hi,

Aus Farbwert macht Grauwert =

R + G + B / 3

Gruß, Frank


Bernhard Künzel
Datum:08.10.02 22:20 Antwortenals Email verschicken (b.kuenzel@chello.at) 


Hallo Hans,
mit dieser Funktion,kannst Du die Grauwerte von weiss bis schwarz darstellen

Def GetGrauwert&(1) RGB(Div&(Mul(255,Sub(100,%(1))),100),Div&(Mul(255,Sub(100,%(1))),100),\
Div&(Mul(255,Sub(100,%(1))),100))
'Par1=von 0 bis 100% 0=weiß 100%=schwarz
'Ergebnis: Grauwertcode

'Beispiel:
Cls GetGrauwert&(0)
WaitInput
Cls GetGrauwert&(30)
WaitInput
Cls GetGrauwert&(50)
WaitInput

Gruß
Bernhard




Horst Horn
Datum:09.10.02 11:03 Antwortenals Email verschicken (info@web-treffpunkt.de) 


Hallo Bernhard
Deine Defination funktioniert aber erst, wenn vorher SETTRUECOLOR 1 angegeben wird. Danach klappt es prima
CU
horst



Bernhard Künzel
Datum: 09.10.02 20:52 Antwortenals Email verschicken (b.kuenzel@chello.at) 


Hallo Horst,
da hast Du vollkommen Recht, da bei mir immer in der ersten Zeile SETTRUECOLOR 1 steht, habe ich das Vergessen zu erwähnen.
Habe Angenommen, dass jeder mit der höheren Farbanzahl arbeitet.
Wer aber mit SETTRUECOLOR 0 arbeitet,der braucht nur in der Funktion die Zahlen mit 255 auf 31 austauschen, dann funktionierts auch bei der Nachbarin.

Gruß
Bernhard


 Zurück zur Übersicht