AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

einen Kreis zu Fuß zeichen

Ein Thema von Christian18 · begonnen am 13. Sep 2004 · letzter Beitrag vom 7. Okt 2004
Antwort Antwort
Seite 1 von 3  1 23      
Christian18

Registriert seit: 9. Dez 2003
Ort: Hamburg
1.279 Beiträge
 
#1

einen Kreis zu Fuß zeichen

  Alt 13. Sep 2004, 21:36
Hallo,

ich möchte gerne einen Kreis zu Fuß zeichnen. Ich weiß aber nicht wie das geht. Ich glaube irgendwie mit sin und cos oder so. kann mir jemend einen Tip geben??? Achso der Kreis soll mir Canvas gezeichnet werden und es soll nicht mit ellipse gemacht werden.

Mit freundlichen Grüßen

Christian18
  Mit Zitat antworten Zitat
Benutzerbild von alcaeus
alcaeus

Registriert seit: 11. Aug 2003
Ort: München
6.537 Beiträge
 
#2

Re: einen Kreis zu Fuß zeichen

  Alt 13. Sep 2004, 21:41
Hi Christian,

du musst in einer Schleife den Winkel durchgehn und darin die Koordinaten ausrechnen:

Delphi-Quellcode:
function DegToRad(Deg: Real): Real;
begin
  return Deg*Pi/180;
end;

function ZeichneKreis(r: Real);
var
  i: Integer;
  x, y: Real;
begin
  for i := 0 to 359 do
  begin
    x := r*cos(DegToRad(i));
    y := r*sin(DegToRad(i));
//Pixel setzen
  end;
end;
Ich weiß jetzt auf die Schnelle aber nicht wie die Funktion heißt, um ein Pixel setzen zu können

Greetz
alcaeus
Andreas B.
Die Mutter der Dummen ist immer schwanger.
Ein Portal für Informatik-Studenten: www.infler.de
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#3

Re: einen Kreis zu Fuß zeichen

  Alt 13. Sep 2004, 21:42
Zitat von alcaeus:
Ich weiß jetzt auf die Schnelle aber nicht wie die Funktion heißt, um ein Pixel setzen zu können
Evtl meinst du

Canvas.Pixels[x, y] := clBlack;
  Mit Zitat antworten Zitat
Benutzerbild von alcaeus
alcaeus

Registriert seit: 11. Aug 2003
Ort: München
6.537 Beiträge
 
#4

Re: einen Kreis zu Fuß zeichen

  Alt 13. Sep 2004, 21:45
Hi Matthias,

um genau zu sein wäre es
Canvas.Pixels[Trunc(x), Trunc(y)] := clBlack; da x und y als Real deklariert sind.

Greetz
alcaeus
Andreas B.
Die Mutter der Dummen ist immer schwanger.
Ein Portal für Informatik-Studenten: www.infler.de
  Mit Zitat antworten Zitat
Benutzerbild von JasonDX
JasonDX
(CodeLib-Manager)

Registriert seit: 5. Aug 2004
Ort: München
1.062 Beiträge
 
#5

Re: einen Kreis zu Fuß zeichen

  Alt 13. Sep 2004, 21:46
vielleicht solltest du aber keine punkte zeichnen, sonder die punkte mit linien verbinden. Wenn der Kreis sonst zu groß wird kanns dir passieren, dass der kreis nicht richtig verbunden is!
Mike
Passion is no replacement for reason
  Mit Zitat antworten Zitat
Benutzerbild von alcaeus
alcaeus

Registriert seit: 11. Aug 2003
Ort: München
6.537 Beiträge
 
#6

Re: einen Kreis zu Fuß zeichen

  Alt 13. Sep 2004, 21:49
Hi Christian,

Chimaira hat Recht, das hab ich in meinem Code nicht berücksichtigt.
Hier eine Version die funktionieren (müsste)

Delphi-Quellcode:
function DegToRad(Deg: Real): Real;
begin
  return Deg*Pi/180;
end;

function ZeichneKreis(mx, my: Integer; r: Real);
var
  i: Integer;
  x, y: Real;
begin
  MoveTo(mx+r, my);
  for i := 1 to 359 do
  begin
    x := r*cos(DegToRad(i));
    y := r*sin(DegToRad(i));
    LineTo(mx+x,my-y);
  end;
  LineTo(mx+r, my);
end;
Greetz
alcaeus
Andreas B.
Die Mutter der Dummen ist immer schwanger.
Ein Portal für Informatik-Studenten: www.infler.de
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#7

Re: einen Kreis zu Fuß zeichen

  Alt 13. Sep 2004, 21:56
@Alc: Fehlt da nicht das MoveTo in der Schleife, so kommt's mir etwas spanisch vor.

Edit: Und vor das MoveTo / LineTo gehört evtl irgend ein Canvas.
  Mit Zitat antworten Zitat
Benutzerbild von JasonDX
JasonDX
(CodeLib-Manager)

Registriert seit: 5. Aug 2004
Ort: München
1.062 Beiträge
 
#8

Re: einen Kreis zu Fuß zeichen

  Alt 13. Sep 2004, 21:59
LineTo macht das selbe wie MoveTo, nur dass die Linie noch dazugezeichnet wird. Passt schon so!

[Edit]: Das könnt man einfach mit einem
with canvas do begin am anfang und einem end am ende der proc lösen


@Alcaeus: better
@supermuckl: wär das beste, aber das komplizierteste...
[/Edit]
Mike
Passion is no replacement for reason
  Mit Zitat antworten Zitat
Benutzerbild von Nikolas
Nikolas

Registriert seit: 28. Jul 2003
1.528 Beiträge
 
Delphi 2005 Personal
 
#9

Re: einen Kreis zu Fuß zeichen

  Alt 13. Sep 2004, 22:01
warum willst du denn ein MoveTo in der Schleife? Als erstes gehst du an den Startpunkt und dann zeichnest du ohne Abzusetzen die Kreislinie.
Erwarte das Beste und bereite dich auf das Schlimmste vor.
  Mit Zitat antworten Zitat
supermuckl

Registriert seit: 1. Feb 2003
1.340 Beiträge
 
FreePascal / Lazarus
 
#10

Re: einen Kreis zu Fuß zeichen

  Alt 13. Sep 2004, 22:02
ähm leute
anstatt da linien von winkel zu winkel zu zeichnen ( wird bei großen kreisen nich grad schön aussehen )
könntet ihr auch die halben winkel ( kommastellen oder auch winkelminuten genannt ) berechnen und somit einen echten kreis zeichnen via pixel setzen

ihr müsstet halt noch bisschen ausbaldovern wie ihr rausrechnen könnt wieviele kommastellen ihr minimal braucht um die auflösung für einen bestimmten radius raus zu rechnen.
Das echte Leben ist was für Leute...
... die im Internet keine Freunde finden!
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz