Striche kontrolliert zeichnen lassen

[Matze33]

Hi,
ich möchte mit der Methode 3 bzw 5 (Test) kontrolliert Bilder verändern können, in diesen Fällen mit Strichen.
Und zwar will ich die Richtung (also Grad) der Striche bestimmen können. Ich scheitere aber wohl an der Mathematik.
Kann wer helfen?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ExtCtrls, jpg, StdCtrls, Buttons, ExtDlgs;

type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Neu1: TMenuItem;
    ffnen1: TMenuItem;
    Speichern1: TMenuItem;
    Beenden1: TMenuItem;
    Bearbeiten1: TMenuItem;
    Hilfe1: TMenuItem;
    SavePictureDialog1: TSavePictureDialog;
    Panel1: TPanel;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit1: TLabeledEdit;
    BitBtn1: TBitBtn;
    Image1: TImage;
    OpenPictureDialog1: TOpenPictureDialog;
    PopupMenu1: TPopupMenu;
    est11: TMenuItem;
    Kreise1: TMenuItem;
    Quadrate1: TMenuItem;
    Striche1: TMenuItem;
    Dreiecke1: TMenuItem;
    LabeledEdit3: TLabeledEdit;
    est1: TMenuItem;
    procedure Beenden1Click(Sender: TObject);
    procedure Speichern1Click(Sender: TObject);
    procedure ffnen1Click(Sender: TObject);
    procedure Veraendern;
    procedure BitBtn1Click(Sender: TObject);
    procedure Neu1Click(Sender: TObject);
    procedure Kreise1Click(Sender: TObject);
    procedure Quadrate1Click(Sender: TObject);
    procedure Striche1Click(Sender: TObject);
    procedure Dreiecke1Click(Sender: TObject);
    procedure Hilfe1Click(Sender: TObject);
    procedure est1Click(Sender: TObject);

  private
  method:integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  breite, hoehe,x,y:integer;

implementation

{$R *.dfm}

procedure TForm1.Beenden1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.Speichern1Click(Sender: TObject);
begin
  If SavePictureDialog1.execute then
  Image1.Picture.SaveToFile(SavepictureDialog1.FileName);
end;

procedure TForm1.ffnen1Click(Sender: TObject);
begin
  if Openpicturedialog1.Execute then
  begin
    loadpicture(openpicturedialog1.FileName,image1,breite,hoehe);
    Image1.Visible:=True;
  end;
end;


procedure TForm1.Veraendern;
var
  n,breite,hoehe,x,y,maxzahl,r,g:integer;
  farbe:Tcolor;
begin
  n:=0;
  r:=StrtoInt(LabeledEdit2.Text);
  g:=StrtoInt(LabeledEdit3.Text);
  g:=round(g/360*1.7321);
  maxzahl:=StrtoInt(LabeledEdit1.Text);
  breite:=Image1.Picture.Width;
  hoehe:=Image1.Picture.Height;
  repeat
    x:=random(breite);
    y:=random(hoehe);
    farbe:=Image1.Canvas.pixels[x,y];
    Image1.Canvas.pen.color:=farbe;
    Image1.Canvas.brush.color:=farbe;
    case method of
    1: Image1.Canvas.ellipse(x-r,y-r,x+r,y+r);
    2: Image1.Canvas.Rectangle(x-r,y-r,x+r,y+r);
    3: begin
       Image1.Canvas.Polygon([Point(x-r,y-r), Point(x+r*g,y+r*g)]);
       end;
    5:begin
      r:=STRTOINT(LabeledEdit2.Text);
      g:=STRTOINT(LabeledEdit3.text);
      Image1.Canvas.Polygon([Point(x,y) , point(x+(x*round((sin(g)/2*pi)/sin(g))),y-r)]) ;
      end;
    4: Image1.Canvas.Polygon([Point(x-r,y), Point(x+r,y), Point(x,y-2*r)]);
    end;
    inc(n);
  until n>=maxzahl;
  Image1.Refresh;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Veraendern;
end;

procedure TForm1.Neu1Click(Sender: TObject);
begin
  Image1.Visible:=False;
  LabeledEdit1.Text:='';
  LabeledEdit2.Text:='';
end;

procedure TForm1.Kreise1Click(Sender: TObject);
begin
  begin method:=1;
  LabeledEdit3.Visible:=False;
  BitBtn1.Left:=304;
  Kreise1.Checked:=True;
  end;
end;

procedure TForm1.Quadrate1Click(Sender: TObject);
begin
  begin method:=2;
  LabeledEdit3.Visible:=False;
  BitBtn1.Left:=304;
  Quadrate1.Checked:=True;
  end;
end;

procedure TForm1.Striche1Click(Sender: TObject);
begin
  begin method:=3;
  LabeledEdit3.Visible:=True;
  BitBtn1.Left:=424;
  Striche1.Checked:=True;
  end;
end;

procedure TForm1.Dreiecke1Click(Sender: TObject);
begin
  begin method:=4;
  LabeledEdit3.Visible:=False;
  BitBtn1.Left:=304;
  Dreiecke1.Checked:=True;
  end;
end;

procedure TForm1.Hilfe1Click(Sender: TObject);
begin
  showmessage('1. Bild öffnen, 2. Methode auswählen, 3. Werte für Radius, Wiederholungen und ggf. Grad bestimmen, 4. Button "Verändern" verwenden, 5. ggf. speichern');
end;

procedure TForm1.est1Click(Sender: TObject);
begin
  begin method:=5;
  LabeledEdit3.Visible:=True;
  BitBtn1.Left:=424;
  est1.Checked:=True;
  end;
end;

end.

[gammatester]

Welchen Sinn soll

Delphi-Quellcode:

round((sin(g)/2*pi)/sin(g))

haben? Der Ausdruck ist doch konstant = 2, oder crasht, wenn g=0 ist.

[Matze33]

Wie gesat... Mathematik :D
Ne das kommt von meinem Partner, der meinte das so ;)

[Aphton]

Zitat:

Zitat von Matze33 (Beitrag 1063691)

Wie gesat... Mathematik :D

Ich find das nicht zum :D
Viele eher zum =D
Ne, Blödsinn beiseite...

So berechnet man die neue Position eines Punktes der sich in Richtung Winkel-Alpha bewegt:

Code:

- dx = cos( alpha )
- dy = sin( alpha )
- neueXPosition = alteXPosition + dx * Geschwindigkeit
- neueYPosition = alteYPosition + dy * Geschwindigkeit

Delphi-Quellcode:

var
  dX, dY: Single;
begin
  dX := cos( Angle * PI/180 );
  dY := sin( Angle * PI/180 );
  Position := Point( Round(Position.X + dX*Speed), Round(Position.Y + dY*Speed) ); // var Position: TPoint; ...
end;

MfG

[Matze33]

Hat leider nicht funktioniert...

[alzaimar]

Aha. Lernt ihr eigentlich auch, euch auszudrücken?

[Matze33]

Nö, hab ich nämlich nicht nötig.
Wenn ich wüsste, warum es nicht geht, hätte ich das geschrieben oder selbst untersucht.
Denk mal nach, bevor du schreibst. Nur weil einige keine Delphi-Pros sind, heißt das nicht, dass sie generell keinen Plan haben - sondern manchmal genau andersrum...

[shmia]

Zitat:

Zitat von Matze33 (Beitrag 1064191)

Hat leider nicht funktioniert...

Bitte lesen: klick
Wenn du dann verstanden hast worum es geht, dann kannst du bestimmt bessere Antworten hier schreiben.