Detekce kolize – Pascal – Fórum – Programujte.com

Ahoj, hraju si v pascalu s grafikou a potřebuju poradit s detekcí kolize. Zatím mají všechny objekty, i ty kruhové, pro detekce kolize model obdélníka, a občas to ne úplně lícuje. Tak se chci zeptat, jestli se dá nějak zjišťovat kolize s kruhem?

To nieje az take tazke. Povedzme ze mas 2 kruhy zo stredmy S1, S2 a polomermi r1, r1.
S1(x1, y1)
S2(x2, y2)
Potom kolizia nastane ked |S1S2|<=(r1+r2) , z toho :
sqr((x1-x2)^2+(y1-y2)^2)<=(r1+r2)

To Tomass: Jo, Pythagorova věta a poloměry... vidíš, to mě ani nenapadlo... díky moc. Zmíním tě v Credits :)
A jak by to vypadalo pro kolizi kruhu a obdélníka? (sorry, jsem dneska nějakej natvrdlej...)
//nebo obecně kruhu a bodu?
///už jsem na to asi přišel... prostě jako že poloměr 0 :D

Tak jsem zkusil kolizi dvou kruhů (taky se mi hodí) jak jsi napsal, ale hází mi to Arithmetic overflow... co je špatně?

  repeat

    {saucer}

    if sqrt(sqr(h-mx[z])+sqr(v-my[z]))<(size+25) then sracka:=true;

    inc(z);

  until sracka or (z>cycles);

Napiš nám jak vypadají deklarace proměnných, ať víme, jakého jsou typu.

To Laaca: Asi vím, kam tím míříš a napadlo mě to taky... všichni zúčastnění jsou integer, jenom z a size jsou byte a sracka je samozřejmě boolean.

Ten Tomassův postup jsem zkoušel v samostatném programu a očividně funguje tak jak má, ale jakmile to zabuduju kamkoliv do svého programu, vyhodí to ten overflow... nevím, co tomu může vadit...

Tak nakonec pomohlo vyměnit integer u mx a my za longint nebo word... ale to mi teda někdo vysvětlete, proč...

Protože při mocnění došlo k překročení rozsahu integeru. Uvědom si, že "sqr(h-mx[z]" přeteče, když H je třeba 0 a mx[z]=300
0-300=-300 a -300 na druhou = 90000, což je podstatně víc, než obsáhne integer.

No já jsem nepočítal s tím že on ty výpočty bude dělat v těch proměnných...

Když se počítá hodnota nějakého výrazu, uloží se do dočasné proměnné, která je toho "největšího" typu ze všech proměnných a konstant použitých ve výrazu. Když mám třeba sqr((i*l) div b), kde i je integer, l longint a b byte, tak výsledná hodnota, která se předá jako parametr sqr, bude longint. Kdybych tam měl místo longintu integer, byl by výsledek taky integer.

Btw., přeteklý integer = záporné číslo. Potom pozor na odmocniny.

Pravda. S Overflow checking ON nastane chyba už při tom mocnění a s OFF teprve při odmocňování :-)

Nevíte někdo, jak udělat kolizi obdélníka a kruhu?

To už je trošku složitější, budeš muset řešit několik případů.
Předpokládám, že máš kruh o středu kx,ky a poloměru r a obdélník s levým horním rohem lhx,lhy a pravým dolním pdx,pdy.

1) (kx>=lhx)and(kx<=pdx): pak je kruh buď nad obdélníkem nebo pod ním a nebo aspoň částečně v něm. If (ky+r>=lhy)or(ky-r<=pdy) then kolize ano.
2) (ky>=lhy)and(ky<=pdy): je buď vlevo nebo vpravo nebo v něm - to samé pro vodorovný směr: If (kx+r>=lhx)or(kx-r<=pdx) then kolize ano.
3) ostatní případy, tj. střed kruhu je někde šikmo, ale není ani nad, ani pod, ani vodorovně stranou od obdélníka. Potom: if (vzdalenost(kx,ky,lhx,lhy)<=r)or(vzdalenost(kx,ky,lhx,pdy)<=r)or(vzdalenost(kx,ky,pdx,lhy)<=r)or(vzdalenost(kx,ky,pdx,pdy)<=r) then kolize ano (prostě testuju, jestli kružnice přesahuje nějaký roh). Funkce Vzdalenost(a,b,c,d) počítá vzdálenost bodu a,b od c,d, to už určitě zvládneš.

Dík, nemusels to psát takhle do detailů. Stačilo říct, že přímo to nejde, ale musí se přes body. Ale v normální analytický geometrii tohle jde docela jednoduše: když mám rovnici kružnice a parametrické rovnice úsečky, řeší se to jako soustava dvou rovnic nebo v tomhle případě by to šlo i snad sloučit do jedný rovnice... zamyslel bych se nad tím, ale momentálně mě trápí úplně jiný problém, a pokud ho nevyřeším, tak je mi detekce kolize k ničemu... snad nebude vadit když se zeptám tady.

    for b:=0 to e do begin

      if (mx+25>h) and (mx-25<h) then begin {disruptors}

        dx:=mx;

        dy:=my;

        disruptor:=true;

     end;

(...)

    for c:=0 to e do if disruptor[c] then begin {disruptory - grafika}

      setcolor(0);

      line(dx[c],dy[c],dx[c],dy[c]-5);

      line(dx[c]-1,dy[c]-1,dx[c]+1,dy[c]-1);

      line(dx[c]-1,dy[c]-3,dx[c]+1,dy[c]-3);

      dy[c]:=dy[c]+2;

      setcolor(10);

      line(dx[c],dy[c],dx[c],dy[c]-5);

      line(dx[c]-1,dy[c]-1,dx[c]+1,dy[c]-1);

      line(dx[c]-1,dy[c]-3,dx[c]+1,dy[c]-3);

    end;