XProfan

[/quote:1f06939008]
comment me time rather with worten what You there To to charge attempt or accurate one listing where I it see...

- Page 5 -

Hubert
Binnewies

[quote:1f06939008=iF]means twice so quick How my Result is about the I me vorstellte

goes these function similar umzustellen?
Compile Mark Separation

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!"

clear - one commit X and Y and a radius and a Winkel and sustain The new XY Koords.

@Frank: can You yet the iTüpfelchen draufsetzen and these Proc to ASM portieren? (deference - must Floats his!)
Compile Mark Separation

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!

/../Function-References/XProfan/endproc/'>endproc

so your see what it eigendlich goes:

Kollision against walls - alike whether slanting or grade - something like everything working already.

it go The XML-Maps processing The the MapEditor ausspuckt.

Clipboard01.jpg	65 kB

Hochgeladen:	12/06/06

Downloadcounter:
		Download

Frank
Abbing

[quote:141851c2a4]@Frank: can You yet the iTüpfelchen draufsetzen and these Proc to ASM portieren? [/quote:141851c2a4]
Have unfortunately little Time and patience moreover. if I moreover come, lasts But.

Hubert
Binnewies

[quote:60edca93c6=iF]clear - one commit X and Y and a radius and a Winkel and sustain The new XY Koords.[/quote:60edca93c6]
can I,may I the so understand:
X and Y are a point in the expanse ausgehend from the lenken oberen corner.
The radius is the distance of X,Y To XX,Y.
then comes the Winkel moreover from the itself then the new XX,YY point errechnet the then with the origin ( X,Y ) to a line joined and is here The distance radius own?

then have I already ne Idea How....
(again plainer How You it umgesetzt have)

Hubert

Nachtrag: is the Ursprungslinie a Wagerechte, Senkrechte or irgendeine line?

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!"

look time Perhaps this Source to explanation:
Compile Mark Separation

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

Compile Mark Separation

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
END

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.....

the can itself in the principle To 90 strain too over one rechtwinkliges Dreieck solve...
plainer would one gleichschenkliges, but then there are problems in determining the Endpunktes.

MOM......

One gleichschenkliges Dreieck in the hc accounts becomes, with which one one rechtwinkliges sustain over the one whom Endpunkt to determine can.....

I consider me time ne Gleichung...
can but what last...
Is one Hirnwindungsverknoter....

Hubert

Nachtrag: I faith but not the it then speedy goes, because in your routine counts it only a Sinus and a Cosinus To supplant, for I will but at least 2 time root drinhaben....what about me have no idea whether the The routine speed....

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 is still OK! If DU already say it rewards not... then bleibts what's it like!

Hubert
Binnewies

but I find denoch: One attempt is it worth....

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

i'm yet dran.....
I faith I come with of/ one root and otherwise Grundrechenarten there....
so might my Formel faster his as Sinus and Cosinus....
More tommorrow....
there have I with safety a Formel and probably a routine The IF with safety tierisch well optimiert.... (I faith I ought to it The listings of my Proggis give... it power tappt im dunkeln faster and rather...)

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!"