XPSE

- Página 4 -

Nico
Madysa

Richtig:
An dieser Línea:
Kompilieren Marca Separación

whileloop (0 - 2 * genau&),genau

re>

verschluckt se el Kompiler todavía.
Diese beiden hier klappen hingegen
Kompilieren Marca Separación

whileloop (0 - 2) * genau&,genau& Leere vor und nach dem Minus

    whileloop (0-2 * genau&,genau& 0-2; keine Leerzeichen<

/pre>

Nico Madysa

Nico
Madysa

Lo kläppt simplemente, simplemente no.

Mit XPSE kam Mist fuera. Dann änderte Yo NProc en proc, Machte de el API SetPixel el profane Procedimiento y el Ganze wurde no sólo 100-veces langsamer, pero antes allen Dingen korrekt.

Mandel.PNG	15 kB

Kurzbeschreibung:	Mi Mandeln

Hochgeladen:	14.11.2009

Ladeanzahl:
		Descargar

Nico Madysa

Exactamente, grad eben Bugfix hochlade - Por favor, probiere veces esta neuen - Yo poste igual.

So, Por favor, veces neue Versión invitar: [...]

Bedenke aber auch, es una Alphaversion!

Was Yo gesehen habe a Deinem Mandelbrot, dass Usted überall de uno automatischen Konvertierung el Variablentypen Float y Largo ausgehst - aber bastante en el gegenteil! Usted puede no x!=&getTickCount, musst x!=float(&getTickCount), kannst auch no test(1,2,3) en parámetros a!,b!,c! pero musst test(1.0,2.0,3.0) escribir!

Un autom.Konvertierung zwischen Largo y Float y zurück Tuve oben aber ya angedacht, Yo denke wäre hilfreich!

Jedenfalls, si algo no funktioniert, entonces wäre Yo dankbar si el postest, así Yo Fehler en el XPSE ausschliessen kann.

Nico Madysa, Beitrag=54947, Zeitpunkt=14.11.2009

Richtig:
An dieser Línea:
Kompilieren Marca Separación

whileloop (0 - 2 * genau&),genau

re>

verschluckt se el Kompiler todavía.

Ah! Noch una versteckter Minusbug! Juhu, se siempre fehlerfreier.

Nico
Madysa

Wird hecho!

Que el Typumwandlung wusste Yo no. Yo voluntad una vez más alles durchsehen y dir Rapport erstatten.

Nico Madysa

Nico
Madysa

Posesiones ahora el Typenumwandlung casi posible instalado.
Jetzt sieht el Bild ya después de Apfelmännchen de -- aber así correcto äquivalent son el Bilder siempre todavía no. :/
Kompilieren Marca Separación

 {$cleq}

{Farbe

    nproc Farbe

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

        repeat

            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& = n& int(255.0 * (1.0 - float(n&) / 255.0))
        return RGB(f&,f&,f&)

    endproc

    {Male

        nproc 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(float(xi&) / float(genau&),float(yi&) / float(genau&))

                EndWhile

            EndWhile

        endproc

        cls
        Male(200,200 , 100)
        waitinput
        ./../funzione-riferimenti/XProfan/end/'>end

PS: Wenn Yo fehlerhafterweise escribir:
Kompilieren Marca Separación

var n& = 0.0

giebt XPSE witzigerweise de, Yo habehe intenta, String y Float z verknüpfen.

Mandel.PNG	13 kB

Kurzbeschreibung:	Mandelkrebs

Hochgeladen:	14.11.2009

Ladeanzahl:
		Descargar

Nico Madysa

Yo sehe como en jedenfall todavía una Bug en Freizeichen antes Minuszeichen, bin en!

Nico
Madysa

Herrje, siempre dieses Geschmeiß!

Nico Madysa

Mit aktueller Versión [...]

Por favor, otra vez testen.

Übrigens: Farbe(float(xi&) / float(genau&),float(yi&) / float(genau&)) de uno proc heraus garnicht nötig, el Parámetro de proc a nproc voluntad automáticamente siempre en el richtigen Typ gebracht como con Parámetros en el nProc deklariert. Farbe(xi&/genau&,yi&/genau&) reicht.

Bedenke aber, Float- y Stringparameter son en una Vielfaches langsamer como Largo, schnellstes Mandelbrot sólo Largo.