XPSE

- Página 3 -

Das Tuve sí angeboten, aber Usted zwingst mich sí.

12.11.2009 ▲

Nico
Madysa

Yo? Yo dich zwingen? Yo de Hanswurst dich de großer Meister zwingen? Wer wäre Yo y wer podría Yo ser, si porque wäre, dass Yo dich zwünge? Wer wäre y wer podría, zwünge Yo dich y ändertest du, más que Hansens Wurt ser? Bötest du a y zwünge Yo todavía, lo wäre lächerlich, sí sonders gleichen! Um lo kurz a hacer: Mach, qué du willst.

Nico Madysa

12.11.2009 ▲

Relacionado con la Zwingen nimmste aber zurück!

13.11.2009 ▲

Nico
Madysa

Usted redetest doch zuerst de Zwängen!

Nico Madysa

Sí tener Yo de Franco.

Nico
Madysa

Posesiones soeben intenta, mi Mandelbrotmenge XPSE-konform a hacer.
Pluspunkt es ya veces klar, dass XProfan y APIs unterstützt voluntad. Sombrero mich primero echt beeindruckt.
Kompilieren Marca Separación

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, como Yo entonces kompilieren quería, kam entonces esta Fehlermeldung:

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

Dann nahm Yo, como así oft empfohlen, el Kompilerbefehl {$noerr} y -- schwupps! -- brach profcomp.exe de con: "Befehl unbekannt: __cfInit"

Como muss todavía gefeilt voluntad!

Nico Madysa

Nico
Madysa

Apéndice: Gerade eben Minimalbeispiel probiert: Kein con parámetros angegebener Valor es deklariert:
Kompilieren Marca Separación

 {$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 Usted sólo una vez el Ayuda durchlesen, entonces ginge Usted alles schwupps de los Fingern: [...]

Datentypen: LONG&, FLOAT!, STRING$

Lade de paso ahora grad una Actualización hoch, fehler en jmps Fijo - Por favor, necesariamente entonces aktualisieren.

Tip: Wenn lo correcto rápidamente voluntad se, entonces versuche rechnerisch en Floats a verzichten pero nutze sólo Largo porque dieser direkt en Register passt.

Zu el APIS: Auch todos el uno por Encabezamiento einbindet!

So gehts:
Kompilieren Marca Separación

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

y en Test(205,100) fehlt(e) el 3. Parámetro. Besonders fehlende/falsche Funktionsparameter dejar abstürzen como jede API. XPSE kontrolliert zwar TYP y Anzahl de Parametern en NProcs, muss aber ca. Kompatiblität manchmal el Klappe halten qué aber Fehler durchschlüpfen dejar kann - como feile Yo aber todavía.

Sehe ahora sólo, Usted wollst Rechtecke pixeln - había en SetPixel para Y aber falsche Variable - así gehts:
Kompilieren Marca Separación

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 Marca Separación

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

{nproc

    nproc Test

        parámetros data&
        declarar x&,y&,dummy&
        x& = 1
        declarar dy&
        var mcur&=dim(8)

        mientras 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& = &bucle

                whileloop x&,x& + 100

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

                EndWhile

            EndWhile

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

        wend

    ENDPROC

    proc Test_X

        parámetros x&,y&
        declarar dy&

        whileloop y&,y& + 100

            dy& = &bucle

            whileloop x&,x& + 100

                SetPixel &bucle,dy&,$FF00

            EndWhile

        EndWhile

    ENDPROC

    windowstyle 80
    cls
    showmax
    createThread(0,0,procAddr(test,1),%hWnd,0,0)
    waitinput
    end

Grundsätzlich solch Bildmanipulationen aber todavía viel viel más rápido via get- y SetPixels (Compatible.Inc).

Apéndice: Sehe grad, el Línea za! = za! - zb! macht todavía Problemas, Freizeichen antes el Minus en cierto Situationen, grad veces schauen... (sin Freizeichen gehts aber)

Nico
Madysa

Ohje, simplemente así el así bastante häufigsten Datentyp weggelassen? Das macht doch Umstellungsschwierigkeiten.

Yo weiß zwar no, como XPSE exakt arbeitet, aber qué Profaner querer, glaube Yo, zumindest prinzipiell a wissen; como umständlich/zeitaufwendig wäre lo porque, si XPSE en nprocs %-Integer automáticamente en Longs umwandelte?

Nico Madysa

Das dürfte no sooo schwierig voluntad, Yo tener aber todavía con nem otro Bug a kämpfen y schaue Actualización...