Airbrush mit Sperkeln bzw. Airbrush von Microsoft Paint

[bolygon]

Hallo an alle!

Ich möchte gerne wissen, wie man einen Airbrush mit Sperkeln bzw. Airbrush von Microsoft Paint mit Delphi 6 erstellen kann.
Ich weiß, dass herkömmlicher Pinsel ist: Canvas.LineTo(x,y) und es gibt verschiedene Moden für den Pinsel, die durch Canvas.Pen.Mode bestimmt werden.

Gibt es vielleicht einen Modus fürs Airbrusch mit Sperkeln?

Danke im voraus!

[mumu]

nee, da gibt es glaub ich keine methode für.

aber die kannst du dir doch leicht selbst schreiben. die mauskoordinaten beim click bekommst du ja und dann mal du einfach von deiner mauskoordinate aus in alle richtungen punkte und umso weiter du von deiner mauskoordinate weg kommst, umso weniger pixel zeichnest du...

[MisterNiceGuy]

Genau, einfach einen bestimmten Bereich um die Mausposition festlegen und dann mit Random ein paar pixel einfärben

ber nicht vergessen der Bereich bei jedem Mousemove neu zu setzen

[Alibi]

Ich würd das in etwa so machen:
- Dort, wohin geklickt wurde, da sollen in einem bestimmten Radius ja zufällig Pixel gemalt werden (Oder auch nicht).
- Also alle Pixel dieses Kreises durchgehen zufällig den momentanen Pixel füllen oder halt nicht. Je nachdem, wie dicht gesprüht werden soll, gestaltest du den Faktor zufällig, der bestimmt, ob ein Pixel gesetzt werden soll oder nicht. Also meinetwegen if random(100) < sprühfaktor then malPixel;

[StefanDP]

hi
ich hab mich jetzt mal hingesetzt und einen code ausgearbeitet:

die paintbox hat den namen "PaintBox1" und sollte schon so 400x400 pixel groß sein fürs beispiel

aaalso:
8)

Code:

uses
  ...Math...      // braucht man für Power

procedure TForm1.Button1Click(Sender: TObject);
var
  x_,y_ : Integer;
  x,y: Integer;
  r: Integer;
  abstand: Integer;
  gewichtung: Integer;
begin
  r := 50;      // "Radius"

  x := 150;     //aktuelle Position
  y := 100;
  gewichtung := 100;  // wie sehr mit einem "klick" gezeichnet werden soll
  
  Randomize;
  with PaintBox1.Canvas do
    for x_ := -r to r do     // jedes Pixel des Quadrates durchgehen
      for y_ := -r to r do
        // der abstand von mittelpunkt und punkt im kreis ist:
        // round(Power(Sqr(x_)+Sqr(y_),1/2))
        // Satz des Pythagoras!!! (hoch 1/2) = 2te wurzel
        if round(Power(Sqr(x_)+Sqr(y_),1/2)) <= r then
          if random(gewichtung) = 0 then
            Pixels[x_+x,y_+y] := clBlue;
end;

*ganz stolz auf lauter schleifen ohne begin/end...*

mfg
stefan

[StefanDP]

hab es noch ein bisschen optimiert!
beispiel siehe anhang


mfg
stefan