Berechnung von 2 vierecken, die sich überschneiden.

[profanfan]

Wie kann man 2 Vierecke abfragen die sich überlappen mit den Überlappungspunkten in der Fläche?

mfg

[Frabbing]

Wenn du wissen willst, ob sich zwei Rechtecke überschneiden, kannst du die API UnionRect() benutzen.

[RGH]

Du kannst dir natürlich auch erst mal die XProfan-Funktionen @Intersect() und @Between (beide ab XProfan 11) anschauen.

Gruß
Roland

[profanfan]

Jup, danke.

mfg

[Frabbing]

Zitat von RGH

Du kannst dir natürlich auch erst mal die XProfan-Funktionen @Intersect() und @Between (beide ab XProfan 11) anschauen.

Gruß
Roland

Richtig, hatte ich ja selber noch angeregt...

[profanfan]

Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Declare Function IntersectRect Lib "user32" Alias "IntersectRect" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Long
An die IntersectRect-Funktion werden als Argumente drei Rechtecke (RECT) übergeben. Sie kontrolliert eine überlappung des zweiten und dritten Arguments und speichert das daraus resultierende übereinstimmung in das erste Argument. Außerdem gibt die Funktion den Wert "1" zurück, wenn es eine überschneidung gibt, und den Wert "0", wenn es keine übereinstimmung gibt.




Wie kann man das oben in Profan umsetzen?

Welche Struct wird da jetzt von Profan benutzt?




mfg

[profanfan]

@Intersect() und @Between

Ich benutze kein Opengl, sondern den normalen 2d-Modus.
kann das dann auch anwenden?
Gibt es dafür ein Beispielß

mfg

[profanfan]

Ist diese Structur so richtig für den API-Aufruf?

declare rechteck1#,rechteck2#,rechteck3#,colli&

STRUCT rect1 = x&,y&,w&,h&
DIM rechteck1#, rect1
STRUCT rect2= x&,y&,w&,h&
DIM rechteck2#, rect2
STRUCT rect3 = x&,y&,w&,h&
DIM rechteck3#, rect3

colli&=~IntersectRect(rechteck1#,rechteck2#,rechteck3#)

[RGH]

Zitat von profanfan

@Intersect() und @Between

Ich benutze kein Opengl, sondern den normalen 2d-Modus.
kann das dann auch anwenden?
Gibt es dafür ein Beispiel?

mfg

Ja, man kann es auch für den ganz normalen 2d-Modus verwenden. Hier ein Beispiel (befindet sich auch in der Hilfe):

var r1# = new(xpRect)
var r2# = new(xpRect)
r1#.posx! = 0
r1#.posy! = 0
r1#.x! = 10
r1#.y! = 10
r2#.posx! = 10
r2#.posy! = 10
r2#.x! = 10
r2#.y! = 10
print intersect("r", r1#, r2#)
waitinput


Gruß
Roland

[profanfan]

Habe hier mal auch von der API gestestet.
Funktioniert aber nicht.
Zumindest müsste es doch rechnerisch hinhauen.
Es wird immer "0" ausgegeben.
Und beim verlassen des Programms, ein Absturz.

$H Windows.ph
$H Messages.ph

Window 20,20-700,600

declare rechteck1#,rechteck2#,rechteck3#,colli%

STRUCT rect1 = x1%,y1%,w1%,h1%
DIM rechteck1#, rect1
STRUCT rect2= x2%,y2%,w2%,h2%
DIM rechteck2#, rect2
STRUCT rect3 = x3%,y3%,w3%,h3%
DIM rechteck3#, rect3

var hWin% = @Create("Window", %hWnd, "auto", 250,50, 500,500)

var bild_auto%=Create("hPic",-1,"auto.bmp")

declare x1%,y1%,xx1%,yy1%

x1%=50
y1%=50
xx1%=200
yy1%=200

var ende% = 0

StartPaint hwin%
   DrawPic bild_auto%,xx1%,yy1%;0
EndPaint

WhileNot ende%

  sleep 1
  
  if isKey(65)
    ende% = 1
  endif
  
  if isKey(69)
    x1%=x1%+1
    StartPaint hwin%
      DrawPic bild_auto%,x1%,y1%;-1
    EndPaint
    cls
    With rechteck1#
      .x1%=0
      .y1%=0
      .w1%=0
      .h1%=0
    EndWith
    With rechteck2#
      .x2%=x1%
      .y2%=y1%
      .w2%=64
      .h2%=64
    EndWith
    With rechteck3#
      .x3%=200
      .y3%=200
      .w3%=64
      .h3%=64
    EndWith
    colli%=~IntersectRect(rechteck1#,rechteck2#,rechteck3#)
    print colli%
  endif
  
  if isKey(81)
    x1%=x1%-1
    StartPaint hwin%
      DrawPic bild_auto%,x1%,y1%;-1
    EndPaint
    cls
    With rechteck1#
      .x1%=0
      .y1%=0
      .w1%=0
      .h1%=0
    EndWith
    With rechteck2#
      .x2%=x1%
      .y2%=y1%
      .w2%=64
      .h2%=64
    EndWith
    With rechteck3#
      .x3%=200
      .y3%=200
      .w3%=64
      .h3%=64
    EndWith
    colli%=~IntersectRect(rechteck1#,rechteck2#,rechteck3#)
    print colli%
  endif
  
  if isKey(83)
    y1%=y1%+1
    StartPaint hwin%
      DrawPic bild_auto%,x1%,y1%;-1
    EndPaint
    cls
    With rechteck1#
      .x1%=0
      .y1%=0
      .w1%=0
      .h1%=0
    EndWith
    With rechteck2#
      .x2%=x1%
      .y2%=y1%
      .w2%=64
      .h2%=64
    EndWith
    With rechteck3#
      .x3%=200
      .y3%=200
      .w3%=64
      .h3%=64
    EndWith
    colli%=~IntersectRect(rechteck1#,rechteck2#,rechteck3#)
    print colli%
  endif
  
  if isKey(87)
    y1%=y1%-1
    StartPaint hwin%
      DrawPic bild_auto%,x1%,y1%;-1
    EndPaint
    cls
    With rechteck1#
      .x1%=0
      .y1%=0
      .w1%=0
      .h1%=0
    EndWith
    With rechteck2#
      .x2%=x1%
      .y2%=y1%
      .w2%=64
      .h2%=64
    EndWith
    With rechteck3#
      .x3%=200
      .y3%=200
      .w3%=64
      .h3%=64
    EndWith
    colli%=~IntersectRect(rechteck1#,rechteck2#,rechteck3#)
    print colli%
  endif
  
EndWhile

End

[RGH]

Hallo,

die Elemente der RECT-Struktur sind Longints, also muss hier das & verwendet werden. (Bei Strukturen gibt es einen Unterschied zwischen % (2 Byte) und & (4 Byte)!).

Außerdem muß die Struktur nur einmal definiert werden und kann dann auf die drei Bereiche angewandt werden:

STRUCT rect = x&,y&,w&,h&
DIM rechteck1#, rect
DIM rechteck2#, rect
DIM rechteck3#, rect

Weiter unten dann:

    With rechteck1#
      .x& = 0
      .y& = 0
      .w& = 0
      .h& = 0
    EndWith
    With rechteck2#
      .x& = x1%
      .y& = y1%
      .w& = 64
      .h& = 64
    EndWith
    With rechteck3#
      .x& = 200
      .y& = 200
      .w& = 64
      .h& = 64
    EndWith

[profanfan]

Jup, jetzt werden alle 5 werte richtig ausgegeben.
Das überschneidende Rechteck ist eine tolle Sache mit dem Maßen.

Kannst du noch einmal, nach dem Ogl-Speicher-Bild schauen? im anderern Thread.

danke.

mfg

[profanfan]

Mal eine kleine Demo mit 2 Quadraten, davon wird das eine mit den Tasten "q,w,e,s" gesteuert.
Die überschneidenden Werte werden im Fenster ausgegeben.
Interessant sind die Daten, von der Fläche der beiden sich überschneidenden Quadrate. Damit kann man eigentlich eine schnelle präzise Punktauswerung herstellen, die dann mit XPIA und/oder Profan2Cpp beschleunigt wird.

$H Windows.ph
$H Messages.ph

proc collison
  StartPaint hwin&
      DrawPic hintergr&,0,0;0
      DrawPic bild_block&,xx1&,yy1&;0
      DrawPic bild_auto&,x1&,y1&;0
    EndPaint
  With rechteck1#
      .x& = 0
      .y& = 0
      .w& = 0
      .h& = 0
    EndWith
    With rechteck2#
      .x& = x1&
      .y& = y1&
      .w& = x1&+64
      .h& = y1&+64
    EndWith
    With rechteck3#
      .x& = 200
      .y& = 200
      .w& = 264
      .h& = 264
    EndWith
    cls
    colli&=~IntersectRect(rechteck1#,rechteck2#,rechteck3#)
    print colli&
    print rechteck1#.x&;" ";rechteck1#.y&;" ";rechteck1#.w&;" ";rechteck1#.h&
endproc
    

Window 20,20-200,100

declare rechteck1#,rechteck2#,rechteck3#
declare x1&,y1&,xx1&,yy1&,colli&
declare hWin&,bild_auto&,bild_block&,hintergr&,ende& 

STRUCT rect = x&,y&,w&,h&
DIM rechteck1#, rect
DIM rechteck2#, rect
DIM rechteck3#, rect

hWin& = @Create("Window", %hWnd, "auto", 250,50, 500,500)

bild_auto&=Create("hnewpic",64,64,$0000ff)
bild_block&=Create("hnewpic",64,64,$ff0000)
hintergr&=create("hnewpic",500,500,$00ffff)
ende& = 0

x1&=50
y1&=50
xx1&=200
yy1&=200

WhileNot ende&
  sleep 1
  
  if isKey(65)
    ende& = 1
  endif
  
  if isKey(69)
    x1&=x1&+1
    collison
  endif
  
  if isKey(81)
    x1&=x1&-1
    collison
  endif
  
  if isKey(83)
    y1&=y1&+1
    collison
  endif
  
  if isKey(87)
    y1&=y1&-1
    collison
  endif
  
EndWhile

End

[Frabbing]

Interessant sind die Daten, von der Fläche der beiden sich überschneidenden Quadrate. Damit kann man eigentlich eine schnelle präzise Punktauswerung herstellen, die dann mit XPIA und/oder Profan2Cpp beschleunigt wird.

Ich benutze das in ähnlicher Form schon lange zu solchen Zwecken, u.a. in der ProSpeed.dll.

[profanfan]

Und warum wird damit nicht mal rausgerückt...hääää...

Ist in der Prosspeed aber als dll verkappselt....nicht reconstruierbar...oder?

Hätte doch unser Profanconstructeur gut als Befehl mit einbauen können.

mfg