XProfan

- Página 5 -

Bitte en Test! Stürzen esta Programas de?

threads.exe

347 kB

Hochgeladen:

19.10.2009

threads2.exe

348 kB

Hochgeladen:

19.10.2009

19.10.2009 ▲

- Página 6 -

Jörg
Sellmeyer

Beide laufen en me problemlos - sowohl einzeln como auch parallel.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Gracias Jörg.

Rolf
Koch

Auch en me einwandfrei en BEIDEN Fällen.

Ok, dass lässt doch hoffen! ^ ^

Kompilieren Marca Separación

Echtzeit-Bildmanipulation Spielerei

Descargar
externer Descargar

 $I compatible.inc
cls
long hpic=create("hnewPic",256,256,0)
startPaint hPic
useFont Arial,26,0,0,0,0
textcolor $FFFFFF,0
drawText 10,10,"Hallo Welt"
endPaint
drawPic hPic,0,0;0

mientras que 1

    filterTest(hPic,%bmpx,%bmpy)
    drawSizedPic hPic,0,0 - width(%hWnd),height(%hWnd);0
    startPaint hPic
    useFont Arial,26,0,0,0,0
    textcolor $FFFFFF,-1
    drawText sin(getTickCount*0.001)*75+75,sin(getTickCount*0.00077777)*110+110,"Hallo Welt"
    textcolor $0000FF,-1
    drawText -sin(getTickCount*0.001)*75+75,sin(getTickCount*0.00088887)*110+110,"Hallo Welt"
    textcolor $FF0000,-1
    drawText -sin(getTickCount*0.0013)*75+75,-sin(getTickCount*0.00088887)*110+110,"Hallo Welt"
    textcolor $00FF00,-1
    drawText sin(getTickCount*0.0023)*75+75,-sin(getTickCount*0.00022222)*110+110,"Hallo Welt"
    endpaint
    waitinput 10

wend

//mcopysizedbmp 0,0 - 767,255 > 0,0 - width(hWnd),height(hWnd);0
waitinput
end

nProc filterTest

    Parámetros h&,_width&,_height&
    var a&=GetPixels(h&,_width&,_height&)
    filter.dith(a&,_width&,_height&)
    filter.blur(a&,_width&,_height&)
    SetPixels(h&,a&,_width&,_height&)
    disponer(a&)

ENDPROC

nProc filter.dith

    parámetros a&,_width&,_height&
    var x&=0
    var y&=0
    var c&=0
    var p&=0
    var ww4&=_width&*4

    whileLoop _height&-1,0

        y&=&bucle*ww4&

        whileLoop 0,ww4&-4,4

            p&=y&+&bucle
            c&=long(a&,p&)

            ifnot rnd(10)

                c&=rgb.mix(c&,rnd($FFFFFF))

            endif

            long a&,p&=c&

        wend

    wend

ENDPROC

nProc filter.blur

    parámetros a&,_width&,_height&
    var x&=0
    var y&=0
    var c&=0
    var c2&=0
    var p&=0
    var p1&=0
    var p2&=0
    var p3&=0
    var p4&=0
    var p6&=0
    var p7&=0
    var p8&=0
    var p9&=0
    var r&=0
    var g&=0
    var b&=0
    var ww4&=_width&*4

    whileLoop _height&-1,0

        y&=&bucle*ww4&

        whileLoop 0,ww4&-4,4

            p&=y&+&bucle
            c&=long(a&,p&)
            c&=rgb.mix(rgb.mix(rgb.mix(rgb.mix(long(a&,p&-4),long(a&,p&+4)),long(a&,p&)),long(a&,p&-ww4&)),long(a&,p&+ww4&))
            p1&=long(a&,p&+ww4&-4)
            p2&=long(a&,p&+ww4&+4)
            p3&=long(a&,p&+ww4&)
            p4&=long(a&,p&-4)
            p6&=long(a&,p&+4)
            p7&=long(a&,p&-ww4&-4)
            p8&=long(a&,p&-ww4&+4)
            p9&=long(a&,p&-ww4&)
            r&=getRValue(p1&)+getRValue(p2&)+getRValue(p3&)+getRValue(p4&)+getRValue(c&)+getRValue(p6&)+getRValue(p7&)+getRValue(p8&)+getRValue(p9&)
            g&=getGValue(p1&)+getGValue(p2&)+getGValue(p3&)+getGValue(p4&)+getGValue(c&)+getGValue(p6&)+getGValue(p7&)+getGValue(p8&)+getGValue(p9&)
            b&=getBValue(p1&)+getBValue(p2&)+getBValue(p3&)+getBValue(p4&)+getBValue(c&)+getBValue(p6&)+getBValue(p7&)+getBValue(p8&)+getBValue(p9&)
            div r&,9
            div g&,9
            div b&,9
            long a&,p&=bgr(r&,g&,b&)

        wend

    wend

ENDPROC

nproc rgb.mix

    parámetros c1&,c2&
    var r&=getRValue(c1&)+getRValue(c2&)
    div r&,2
    var g&=getGValue(c1&)+getGValue(c2&)
    div g&,2
    var b&=getBValue(c1&)+getBValue(c2&)
    div b&,2
    volver rgb(r&,g&,b&)

ENDPROC

Apéndice: Speicherleck gefixt.

Zwischenablage01.png Prevista

162 kB

Hochgeladen:

30.10.2009

test2.exe

357 kB

Hochgeladen:

31.10.2009

30.10.2009 ▲

E.T.

Funzt !! Sehr schöne Spielerei.
Nur muy "schlechter Empfang" (como früher beim West-Fernsehen

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

31.10.2009 ▲

Exactamente, lo zeigt sólo una Pseudozufallrauschen. ^ ^

efx_sand.exe

386 kB

Hochgeladen:

25.11.2009

efx_sinus.exe

381 kB

Hochgeladen:

25.11.2009

31.10.2009 ▲

In uno Tiempo, wo todos "Timer" querer, geraten Sanduhren desafortunadamente en el Hintergrund.

Descargar
externer Descargar

sanduhr.jpg Prevista

6 kB

Hochgeladen:

27.11.2009

efx_sand.exe

427 kB

Hochgeladen:

27.11.2009

27.11.2009 ▲

Jörg
Sellmeyer

Wow! Como kommt uno porque en algo como? Was para Berchnungen Usted necesita porque dafür? Klasse!

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

27.11.2009 ▲

Nix Berechnungen, el es alles Mittagspausenschnullistuff [...]

. ^ ^

27.11.2009 ▲

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

En diesem Ejemplo:

Descargar
externer Descargar

finde Yo interessant el lo en mi neuen Computer quasi no

Rechenzeit para el Pixelberechnung benötigt aber dafür en así länger para

el Anzeige por GDI o. para el BitBlt Yo bien daran erkenne dass

el Ejemplo langsam se ejecuta si yo el Ventana maximiere en HD-

Auflösung. Como restos a überlegen para algo como generell OGL como Display

a nutzen besonders auch para 2D.

En diesem Ejemplo:

Descargar
externer Descargar

es el ebenso, Geschwindigkeitsverlust liegt also a drawSizedPic o.

mCopySizedBMP.

23.02.2013 ▲