XPSE

proc test

    return 20

endproc

nproc test

    return 20

endproc

Inline-Assembler:

nproc test

    mov eax...//assembler

endproc

11.11.2009 ▲

- page 5 -

Nico
Madysa

aucun Changement. Sowie je qui Float()s aus dem Funktionsausruf entferne, wird alles jusqu'à sur qui Koordinatenachsen sais. (Exakt qui obige Blödsinn.)

Nico Madysa

mais exposition la fois:
Kompilieren Marque Séparation

 {$cle}
Gemerkt/Separiert von http://xprofan.com/thread.core?t=7915#bottom

{Farbe

    nproc Farbe

        parameters ca!,cb!
        var za! = 0.0 : var zb! = 0.0
        var n& = 0 : var tmp! = 0.0
        var itera&=0

        repeat

            itera&+
            n& = n& + 1
            tmp! = za!
            za! = Sqr(za!) - Sqr(zb!) + ca!
            zb! = 2.0*tmp!*zb!+cb!
            tmp! = Sqrt(Sqr(za!)+Sqr(zb!))

        until (n& >= 255) or (tmp! > 2.0)

        var f! = 255.0 * (1.0 - float(n&) / 255.0)
        var v&=int(f!)
        return RGB(v&,v&,v&)

    endproc

    proc Farbe2

        parameters ca!,cb!
        var za! = 0.0 : var zb! = 0.0
        var n& = 0 : var tmp! = 0.0
        var itera&=0

        repeat

            itera&+
            n& = n& + 1
            tmp! = za!
            za! = Sqr(za!) - Sqr(zb!) + ca!
            zb! = (2.0 * tmp! * zb!) + cb!
            tmp! = Sqrt(Sqr(za!) + Sqr(zb!))

        until (n& >= 255) or (tmp! > 2.0)

        var f& = int(255.0 * (1.0 - (n&) / 255.0))
        exitprocess(f&)
        return RGB(f&,f&,f&)

    endproc

    {Male

        proc Male

            parameters x1&,y1& , genau&
            declare xi&,yi&
            x1& = xi& + 2 * genau&
            y1& = yi& + genau&

            whileloop (0 - genau&),genau&

                yi& = &loop

                whileloop (0 - 2) * genau&,genau&

                    xi& = &loop
                    SetPixel(%hDC,x1& + xi&,y1& + yi&,Farbe(float(xi&) / float(genau&),float(yi&) / float(genau&)))
                    SetPixel x1& + xi&,y1& + yi&,Farbe(xi&/genau&,yi&/genau&)

                EndWhile

            EndWhile

        endproc

        proc Male2

            parameters x1&,y1& , genau&
            declare xi&,yi&
            x1& = xi& + 2 * genau&
            y1& = yi& + genau&

            whileloop (0 - genau&),genau&

                yi& = &loop

                whileloop (0 - 2) * genau&,genau&

                    xi& = &loop
                    SetPixel(%hDC,x1& + xi&,y1& + yi&,Farbe(float(xi&) / float(genau&),float(yi&) / float(genau&)))
                    SetPixel 200+x1& + xi&,y1& + yi&,Farbe2(xi&/genau&,yi&/genau&)

                EndWhile

            EndWhile

        endproc

        cls
        Male(200,200 , 50)
        Male2(200,200 , 50)
        waitinput
        end

Nico
Madysa

cela est, dass qui faute dans qui Proc Male liegt. Ist vous profan, so fonctionne alles comment gewünscht.

PS: quoi soll eigentlich cet itera& bewirken?

Nico Madysa

non exposition doch, qui Male ist normale proc. qui faute entsteht dans nproc la couleur - mais finde den erreur de calcul pas, s'il te plaît exposition einmal.

Nico
Madysa

je fasse mon Beobachtungen la fois zusammen:

une. Beide Male-Prozeduren sommes Profan. la couleur1 ist nativ, la couleur2 ist profan. Male1 et Male2 unterscheiden sich seul y, dass qui une la couleur 1, l'autre la couleur2 aufruft.

deux. Male1 zermatscht qui Figur, au cours de Male2 alles net (allerdings lente) zeichnet.

trois. fais je aus la couleur2 une native Funktion, so stürzt cela Programme ab. Ändere je ensuite (n&) dans float(n&) um, so passiert gar rien.

Irgendwie wirds toujours rätselhafter.

Nico Madysa

Nico
Madysa

iF, qui Punkt ist, dass qui native Funktion im opposition zur profanen Procédure toujours pas cela korrekte Ergebnis liefert, si wohl beide äquivalent son devrait.

Nico Madysa

oui, naturellement - tout autor gehts.

un Schritt plus, habe beide Male sur proc gesetzt - seulement la couleur comme nProc. je fand mais pas qui Stelle à qui qui erreur de calcul auftritt - funktioniert hats chez mir mais.

Drum qui Frage, si Du pas vlt. la fois regarder könntest, si Du qui Stelle findest, à qui un falsches Ergebnis berechnet wird.

Nico
Madysa

Aha! Dass on dir toujours alles aus qui nez tirer muss.

aujourd'hui wirds rien plus, demain muss je tôt raus. mais la fois voyons, immerhin ist mercredi unterrichtsfrei. Entweder fais je là XProfan ou bien je besetze une Hörsaal.

[...]

Nico Madysa

Hab là une faute trouvé, hat peut-être puis Einfluss - la fois beim prochain Update regarder.

iF, Beitrag=54995, Zeitpunkt=16.11.2009

hat peut-être puis Einfluss

définitif sogar, faute chez Floatzuweisung trouvé! la fois regarder, vlt. peux Je l' sogar aujourd'hui soir déjà beheben - viens mais seulement très spät wieder pour Berin rein.

20.11.2009 ▲

@Nico: faute im XPSE behoben, dankesehr et maintenant klappts aussi avec dem Brot!

Télécharger