[Delphi] vykreslovanie drahy

vama · Napísal **vama**: 29.12.2010 10:58

Potreboval by som s takou vecou pomomoct a to je prave vykreslovanie drahy robota v DELPHI na nejaku graficku plochu. Ide o to, ze napr. pojde rovno, tak aj ciara bude smerovat kolmo po grafickej ploche, lenze otoci sa dany objekt pod urcitym uhlom (napr 45 st) tak uz aj ta vykreslovana ciara musi ist pod tym 45st vpred a prave toto ako by sa dalo naprogramovat v DELPHI? Este na upresnenie dodam, ta ciara sa vlastne bude vykreslovat po usekoch a to bud po 1 pixeli alebo po usekoch kratkych ciar.
Tento princip je vlastne obdobny ako u 2D hier s autami, ked je pohlad zhora a auto sa pohybuje po ploche.

napr. takto by vyzeral vystup
[Delphi] vykreslovanie drahy

coldak · Napísal **coldak**: 29.12.2010 18:05

kreslit mozes na componenty ktore obsahuju canvas , funkciami moveto lineto

vama · Napísal autor témy **vama**: 29.12.2010 22:03

no to viem

Ale mne ide o to, ze ked sa ten robot otoci o dani uhol, tak aj nech tu ciaru stale vykresluje o ten uhol. A toto je dost velky problem aspon pre mna naprogramovat. Pretoze ked ten robot pojde rovno alebo sa otoci o uhol 90, 180, 270 st. tak sa vlastne bude menit len jedna suradnica (x alebo y), ale ked sa otoci o 18st. tak uz sa budu naraz menit obe suradnice (sucastne x a y). Toto je ta vec, ktoru neviem ako mam naprogramovat, urcite na to treba znalosti z matematiky - vektory a podobne, lenze tam este v skole nie sme

Fico · Napísal **Fico**: 30.12.2010 19:54

Môžeš sa zatiaľ oprieť o toto ( na form si daj jeden TEdit a jeden TButton a do uses pridaj unit Math ):

Kód:

var
  OldPosition: TPoint;

const
  VECTORLENGTH = 50;
  rad = pi/180;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin

  Canvas.MoveTo( 300, 200 );
  OldPosition.X := 300;
  OldPosition.Y := 200;

end;


procedure TForm1.Button1Click(Sender: TObject);
var
  x, y, angle: integer;

begin

  angle := StrToInt( Edit1.Text );

  x := round( OldPosition.X + sin( angle * rad ) * VECTORLENGTH );
  y := round( OldPosition.Y + cos( angle * rad ) * VECTORLENGTH );

  Canvas.LineTo( x, y );
  OldPosition.X := x;
  OldPosition.Y := y;

end;

Do editu píš uhol, v akom sa pohybuje robot. Konštanta VECTORLENGTH je dĺžka, o koľko sa robot pohne po plátne.

vama · Napísal autor témy **vama**: 31.12.2010 11:36

Velka vdaka Fico , presne toto som myslel

Program si uz upravim aby mi vyhovaval na mieru a doprogramujem komunikaciu a potom Vam ukazem vysledok.
Len tak aby ste vedeli o co sa jedna, robot pojde po zemi a bude sa danym zariadenim ovladat, bud cez PC (klavesnica, joystick,..) alebo cez mobil, popripadne cez dialkovy ovladac. Kazdu sekundu (alebo aj castejsie) sa bude vysielat stav s rotacnich inkrementacnich enkoderoch (IRC) o pohybe kazdeho kolesa, nasledne sa tieto data v PC spracuvaju a pekne sa vykresli draha. Pri zatoceni sa len vyrata uhol a zas bude vykreslovat drahu danym smerom. Presnost tohoto vykreslovania, nebude moc velka, pretoze nedisponujem el. kompasom, ale dostacujuca pre mna.

Myslim nieco na tento system: http://projects.adamh.cz/robot2 , az na to, ze ja tam nemam el. kompas.

este raz velke diky Fico

vama · Napísal autor témy **vama**: 16.02.2011 10:52

Esta raz by som sa chcel vratit k tejto teme, potreboval by som o nieco vylepsit vykreslovanie.
Pri zmene uhla otocenia by sa nenakreslila lomena ciara, ale by sa vykreslil vysek kruznice, polomer kruznice by bol nastaveny konstantne.

Ako priklad uvediem, bola by vykreslovana ciara stale rovno, pri zmene uhla o 90° by sa vykreslila 1/4 kruznice do prislusnej strany a za nou by sa standartne vykreslovala ciara.

coldak · Napísal **coldak**: 16.02.2011 15:02

myslis nieco taketo ?

Kód:

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y, angle: integer;
  i,e : Integer;
  polomer : Integer;
  OldPosition: TPoint;
begin
   OldPosition.X := 200;
   OldPosition.Y := 230;
   Canvas.MoveTo( OldPosition.X, OldPosition.Y );
   OldPosition.X := 230;
   OldPosition.Y := 230;
   Canvas.LineTo( OldPosition.X, OldPosition.Y );
  polomer := 40;
  for i:= 1 to 90 do begin

  x :=  Round(sin(i*(pi/180))*polomer);
  y :=  Round(cos(i*(pi/180))*polomer);

  Canvas.LineTo( OldPosition.X+x, OldPosition.y+y-polomer );
  Sleep(10);
  Application.ProcessMessages;
 end;
 Canvas.LineTo( OldPosition.X+x, OldPosition.y+y-polomer-50 );
end;

vama · Napísal autor témy **vama**: 16.02.2011 16:52

Ano, nieco na tento system. diky.
Snad sa mi to podari este prerobit na moje uceli, ak nie ozvem sa :shock:

EDIT:
Este poradil by si mi, ako sa da najjednoduchsie zmenit smer zakrivenia kruznice (myslim tym nie zprava dolava, ale opacne zlava doprava)?

coldak · Napísal **coldak**: 16.02.2011 18:54

skusal si vymenit sin/cos ?

vama · Napísal autor témy **vama**: 16.02.2011 19:34

Ja som to trochu inak myslel, vykreslovat obraz v opacnom smere, ale v zrkadlovo otocenom.

Ten vlavo je povodny a ja to myslim vykreslit ako je na to na pravom obrazku:

[Delphi] vykreslovanie drahy

EDIT:
OK, Uz som na to prisiel, treba zmenit iba znamienka:

Kód:

  x :=  Round(sin(i*(pi/180))*polomer);
  y :=  - Round(cos(i*(pi/180))*polomer); 

  Canvas.LineTo( OldPosition.X+x, OldPosition.y+y+polomer );

[Delphi] vykreslovanie drahy

Podobné témy