XProfan

[/quote:1f06939008]
erkläre me de tiempo más bien con worten qué du como a berechnen versuchst oder genauer una listing wo Yo sehe...

- Página 5 -

Hubert
Binnewies

[quote:1f06939008=iF]Also doppelt así rápidamente como mein Ergebnis es ungefähr el Yo me vorstellte

Geht esta Función ähnlich umzustellen?
Kompilieren Marca Separación

proc GETCIRCP

    PARAMETERS XP!,YP!,R!,W!
    COS_OUTPX!=((((R!*SIN(((-1*(((-1+W!)*3.1415926535897932384626433832795)+3.1415926535897932384626433832795))/180))))*-1)+XP!)
    COS_OUTPY!=((((R!*COS(((-1*(((-1+W!)*3.1415926535897932384626433832795)+3.1415926535897932384626433832795))/180))))*-1)+YP!)

endp

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

Klar - uno übergibt X y Y y una Radius y una Winkel y erhält el neuen XY Koords.

@Franco: ¿Puede Usted todavía el iTüpfelchen draufsetzen y esta Proc después de ASM portieren? (Achtung - necesario Floats ser!)
Kompilieren Marca Separación

proc WNK2

    PARAMETERS X!,Y!,XX!,YY!
    var DX!=XX!-X!
    var DY!=YY!-Y!

    IF DX!>0

        IF DY!>0

            RETURN (90*(DY!))/SQRT((DX!)^2 + (DY!)^2)

        ELSEIF DY!<0

            RETURN 180-((90*((DY!)*-1))/SQRT((DX!)^2 + ((DY!)*-1)^2))+180

        ELSE

            RETURN 0

        ENDIF

    ELSEIF DX!<0

        IF DY!>0

            RETURN 90-((90*(DY!))/SQRT(((DX!)*-1)^2 + (DY!)^2))+90

        ELSEIF DY!<0

            RETURN 180+((90*((DY!)*-1))/SQRT(((DX!)*-1)^2 + ((DY!)*-1)^2))

        ELSE

            RETURN 180

        ENDIF

    ELSE

        IF DY!>0

            RETURN 90

        ELSEIF DY!<0

            RETURN 270

        ELSE

            RETURN 0

        ENDIF

    ENDIF

    RETURN T!

/../funktionsreferenzen/XProfan/ENDPROC/'>ENDPROC

Damit Ihr seht worum lo eigendlich va:

Kollision gegen Wände - egal si schräg oder grade - algo como alles funzt ya.

Lo voluntad el XML-Maps verarbeitet el el MapEditor ausspuckt.

Clipboard01.jpg	65 kB

Hochgeladen:	06.12.2006

Ladeanzahl:
		Descargar

Frank
Abbing

[quote:141851c2a4]@Franco: ¿Puede Usted todavía el iTüpfelchen draufsetzen y esta Proc después de ASM portieren? [/quote:141851c2a4]
Hab desafortunadamente wenig Tiempo y Geduld dazu. Falls Yo dazu komme, dauert lo aber.

Hubert
Binnewies

[quote:60edca93c6=iF]Klar - uno übergibt X y Y y una Radius y una Winkel y erhält el neuen XY Koords.[/quote:60edca93c6]
Darf Yo el así verstehen:
X y Y son una Punkt en el Fläche ausgehend de el lenken oberen Ecke.
Der Radius Es el Entfernung de X,Y a XX,Y.
entonces kommt el Winkel dazu de el se entonces el neue XX,YY Punkt errechnet el entonces con el Ursprung ( X,Y ) a uno Linie verbunden se y hier el Entfernung Radius besitzt?

Dann Yo ya ne Idea como....
(auch otra vez einfacher como du lo umgesetzt hast)

Hubert

Apéndice: Es el Ursprungslinie una Wagerechte, Senkrechte oder irgendeine Linie?

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

Kompilieren Marca Separación

Schau veces tal vez dieser Source a Veranschaulichung:
Kompilieren Marca Separación

const myPI=3.1415926535897932384626433832795
cls
float cos_outpx,cos_outpy

whileloop 0,359

    getcircp(100,100,50,loop)
    setpixel cos_outpx,cos_outpy,0
    getcircp(300,100,loop/10,loop*3)
    setpixel cos_outpx,cos_outpy,0

wend

waitkey
end

proc getcircp(float xp,yp,r,w)

    cos_outpx:=((((r*sin(((-1*(((-1+w)*myPI)+myPI))/180))))*-1)+xp)
    cos_outpy:=((((r*cos(((-1*(((-1+w)*myPI)+myPI))/180))))*-1)+yp)

ENDPROC

CLS
var COS_OUTPX!=0
var COS_OUTPY!=0

WHILELOOP 0,359

    GETCIRCP(100,100,50,&LOOP)
    SETPIXEL COS_OUTPX!,COS_OUTPY!,0
    GETCIRCP(300,100,&LOOP/10,&LOOP*3)
    SETPIXEL COS_OUTPX!,COS_OUTPY!,0

ENDWHILE

WAITKEY
FIN

proc GETCIRCP

    PARAMETERS XP!,YP!,R!,W!
    COS_OUTPX!=((((R!*SIN(((-1*(((-1+W!)*3.1415926535897932384626433832795)+3.1415926535897932384626433832795))/180))))*-1)+XP!)
    COS_OUTPY!=((((R!*COS(((-1*(((-1+W!)*3.1415926535897932384626433832795)+3.1415926535897932384626433832795))/180))))*-1)+YP!)

ENDPROC

Hubert
Binnewies

PFFFFFFFFFFF.......
Schwerer Tobak.....

el lässt se en el Principio a 90 Grad auch encima una rechtwinkliges Dreieck lösen...
Einfacher wäre una gleichschenkliges, aber entonces hay Problemas beim Bestimmen des Endpunktes.

MOM......

Ein gleichschenkliges Dreieck en el hc berechnet se, womit uno una rechtwinkliges erhält encima el uno el Endpunkt bestimmen kann.....

Yo überlege me de tiempo ne Gleichung...
Kann aber qué dauern...
Is una Hirnwindungsverknoter....

Hubert

Apéndice: Yo glaube pero no el lo entonces schnelle va, porque en deiner Rutina gilt lo sólo una Sinus y una Cosinus a sustituir, dafür voluntad Yo aber mindestens 2 veces Wurzel drinhaben....y yo habe ni idea si el el Rutina beschleunigt....

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

Hey es doch OK! Wenn DU ya sagst lo lohnt no... entonces bleibts como es!

Hubert
Binnewies

Aber Yo finde denoch: Ein Intento es wert....

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

Hubert
Binnewies

Yo bin todavía dran.....
Yo glaube Yo vengo con uno Wurzel y ansonsten Grundrechenarten hin....
Damit dürfte mi Formel más rápido ser como Sinus y Cosinus....
mehr Morgen....
Como Yo con Sicherheit una Formel y Wahrscheinlich una Rutina el IF con Sicherheit tierisch bien optimiert.... (Yo glaube Yo debería Ihm el listings meiner Proggis geben... él macht ellos más rápido y mejor...)

Hubert

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"