XPSE

- page 3 -

cela J'ai eu oui angeboten, mais Du zwingst mich oui.

12.11.2009 ▲

Nico
Madysa

je? je toi zwingen? je de Hanswurst toi de großer Meister zwingen? qui wäre je et qui pourrait je son, si es car wäre, dass je toi zwünge? qui wäre et qui pourrait, zwünge je toi et ändertest du, plus que Hansens Wurt son? Bötest du à et zwünge je toutefois, es wäre lächerlich, oui sonders gleichen! Um es kurz trop faire: Mach, quoi tu veux.

Nico Madysa

12.11.2009 ▲

Relatif à la Zwingen nimmste mais zurück!

13.11.2009 ▲

Nico
Madysa

Du redetest doch d'abord de Zwängen!

Nico Madysa

oui hab je de Frank.

Nico
Madysa

Habe soeben versucht, mon Mandelbrotmenge XPSE-konform trop faire.
Pluspunkt ist déjà la fois bien sûr, dass XProfan et APIs soutenu volonté. Hat mich zunächst vraie beeindruckt.
Kompilieren Marque Séparation

Mandelbrotmenge zeichnen
 {$cleq}

{nproc Farbe

    nproc Farbe

        parameters a!,b!
        var za! = 0
        var zb! = 0
        var zr! = 0
        var i% = 0

        repeat

            za! = a! + sqr(za!) - sqr(zb!)
            zb! = b! + 2 * za! * zb!
            zr! = Sqrt(Sqr(za!) + Sqr(zb!))
            i%++
            Sleep(1)

        until (i% >= 255) or (zr! > 2)

        var farbe% = $FF * (1 - i% / 255)
        return RGB(farbe%,farbe%,farbe%)

    endproc

    {nproc MaleAus

        nproc MaleAus

            parameters hDC%, posx% , posy% , genau%
            declare y%,x%
            var my% = -1 * genau%
            var mx% = -2 * genau%
            var abbruch% = 0

            whileloop my%, 0 - my%

                y% = &loop

                whileloop mx%, 0 - (mx%  2)

                    x% = &loop
                    SetPixel(hDC%,(posx% + x%),(posy% - y%),Farbe(x% / genau%,y% / genau%))
                    Sleep(0)
                    case GetASyncKeyState(27) : abbruch% = 1
                    case abbruch% : break

                EndWhile

                case abbruch% : break

            EndWhile

        endproc

        cls
        MaleAus(%hDC, 300,200 , 100)
        waitinput
        ref='./../../funzione-riferimenti/XProfan/end/'>end

Doch, comme je ensuite kompilieren voulais, kam ensuite cet Fehlermeldung:

avertissement: undeklariert: GENAU%
Naehe: ~22m VAR __xeL_MY%=-1 * GENAU%

ensuite nahm je, comment so souvent empfohlen, den Kompilerbefehl {$noerr} et -- schwupps! -- brach profcomp.exe ab avec: "Befehl inconnu: __cfInit"

là muss encore gefeilt volonté!

Nico Madysa

Nico
Madysa

Nachtrag: justement plan Minimalbeispiel probiert: ne...aucune avec parameters angegebener Wert ist deklariert:
Kompilieren Marque Séparation

 {$cleq}

{nproc

    nproc Test

        parameters x%,y%,dummy%
        x% = 1
        declare dy%

        whileloop y%,y% + 100

            dy% = &loop

            whileloop x%,x% + 100

                SetPixel(%hDC,&loop,y%,$FF)

            EndWhile

        EndWhile

    endproc

    proc Test_X

        parameters x%,y%
        declare dy%

        whileloop y%,y% + 100

            dy% = &loop

            whileloop x%,x% + 100

                SetPixel &loop,y%,$FF00

            EndWhile

        EndWhile

    endproc

    cls
    Test_X(100,100)
    Test(205,100)
    waitinput
    end

Nico Madysa

Würdest Du seulement einmal qui Aider durchlesen, ensuite ginge Dir alles schwupps de den Fingern: [...]

Datentypen: LONG&, FLOAT!, STRING$

Lade incidemment maintenant grad un Update hoch, faute chez jmps behoben - s'il te plaît absolument ensuite aktualisieren.

Tip: si es richtig vite volonté soll, ensuite versuche rechnerisch sur Floats trop verzichten mais nutze seulement Long weil cette direct dans Register passt.

trop den APIS: aussi alle qui on per En-tête einbindet!

So gehts:
Kompilieren Marque Séparation

Gemerkt/Separiert von http://xprofan.com/thread.core?p=54931#54931
 {$cleq}

{nproc

    nproc Test

        parameters x&,y&,dummy&
        x& = 1
        declare dy&

        whileloop y&,y& + 100

            dy& = &loop

            whileloop x&,x& + 100

                SetPixel(%hDC,&loop,y&,$FF)

            EndWhile

        EndWhile

    endproc

    proc Test_X

        parameters x&,y&
        declare dy&

        whileloop y&,y& + 100

            dy& = &loop

            whileloop x&,x& + 100

                SetPixel &loop,y&,$FF00

            EndWhile

        EndWhile

    endproc

    cls
    Test_X(100,100)
    Test(205,100,0)
    waitinput
    end

et chez Test(205,100) fehlt(e) qui 3. paramètre. Besonders fehlende/falsche Funktionsparameter laisser abstürzen aussi chacun API. XPSE kontrolliert zwar TYP et Anzahl de Parametern chez NProcs, muss mais GT. Kompatiblität quelquefois qui Klappe tenir quoi mais faute durchschlüpfen laisser peux - là lime je mais encore.

vois maintenant seulement, Du wollst Rechtecke pixeln - hattest chez SetPixel pour Y mais falsche Variable - so gehts:
Kompilieren Marque Séparation

Gemerkt/Separiert von http://xprofan.com/thread.core?p=54931#54931
 {$cleq}

{nproc

    nproc Test

        parameters x&,y&,dummy&
        x& = 1
        declare dy&

        whileloop y&,y& + 100

            dy& = &loop

            whileloop x&,x& + 100

                SetPixel(%hDC,&loop,dy&,$FF)

            EndWhile

        EndWhile

    endproc

    proc Test_X

        parameters x&,y&
        declare dy&

        whileloop y&,y& + 100

            dy& = &loop

            whileloop x&,x& + 100

                SetPixel &loop,dy&,$FF00

            EndWhile

        EndWhile

    endproc

    cls
    Test(205,100,0)
    Test_X(100,100)
    waitinput
    end

Spielerei: ^ ^
Kompilieren Marque Séparation

Gemerkt/Separiert de http://XProfan.com/thread.core?p=54931#54931
 {$cle}

{nproc

    nproc Test

        parameters data&
        declare x&,y&,dummy&
        x& = 1
        declare dy&
        var mcur&=dim(8)

        tandis que 1

            getCursorPos(mCur&)
            x&=int(sin(float(&getTickCount)*0.01)*100)+long(mCur&,0)
            y&=int(cos(float(&getTickCount)*0.01)*100)+long(mCur&,4)

            whileloop y&,y& + 100

                dy& = &loop

                whileloop x&,x& + 100

                    SetPixel(%hDC2,&loop,dy&,rnd(2)*getTickCount)

                Endwhile

            Endwhile

            invalidaterect(hWnd,0,0)
            updateWindow(hWnd)

        Wend

    endproc

    proc Test_X

        parameters x&,y&
        declare dy&

        whileloop y&,y& + 100

            dy& = &loop

            whileloop x&,x& + 100

                SetPixel &loop,dy&,$FF00

            Endwhile

        Endwhile

    endproc

    style de fenêtre 80
    cls
    showmax
    createThread(0,0,procAddr(test,1),%hWnd,0,0)
    waitinput
    end

Grundsätzlich solch Bildmanipulationen mais encore viel viel plus rapide via get- et SetPixels (Compatible.Inc).

Nachtrag: vois grad, qui la ligne za! = za! - zb! pouvoir encore Probleme, Freizeichen avant dem Minus dans certain Situationen, grad la fois regarder... (sans Freizeichen gehts mais)

Nico
Madysa

Ohje, simple so den so assez häufigsten Datentyp weggelassen? cela fait doch Umstellungsschwierigkeiten.

je sais zwar pas, comment XPSE exakt arbeitet, mais quoi Profaner voulons, glaube je, zumindest prinzipiell trop wissen; comment compliqué/qui prend du temps wäre es car, si XPSE dans nprocs %-Integer automatisch dans Longs umwandelte?

Nico Madysa

cela pourrait pas sooo schwierig volonté, je hab mais encore avec nem anderen Bug trop kämpfen et schaue Update...