XProfan

« Dieser Contribución wurde como Solución gekennzeichnet. »

- Página 2 -

Sagen wir simplemente porque como algo "geschludert" wurde.

(habe el Stellen en el Code markiert)
Kompilieren Marca Separación

 {$cleq}
Window 0,0 - %Maxx, %Maxy
var hPic&=create("hNewPic",400,400,$FF)
StartPaint hPic&
UseFont "Arial",30,0,1,0,0
textcolor $FFFF,-1
drawtext 5,0,"XProfan.Com"
textcolor $AA,-1
drawtext 5,0,"XProfan"
EndPaint
DrawPic hPic&,0,0;0// <-- statt DrawPic hPic&,0,0,0
Test(hPic&)
DrawPic hPic&,500,0;0// <-- statt DrawPic hPic&,500,0,0
WaitInput

nproc Test

    Parameters hPic&
    long hDCBits=CreateCompatibleDC(hDC)
    selectObject(hDCBits, hPic&)

    WhileLoop 50

        SetPixel(hDCBits,50+&loop,50,0)

    EndWhile

    deleteDC(hDCBits)// <-- vergessen, eigentlicher Knackpunkt

ENDPROC

20120905-2036-14627.png	5 kB

Hochgeladen:	05.09.2012

Ladeanzahl:
		Descargar

Linie oder Kurven gewünscht? Dann simplemente Linien oder Kurvenfunktionen nutzen!

- Página 1 -

Was macht ihr porque hier?! Alles viel einfacher!

Ein Rechteck: [...]

Auf hWnd zeichen simplemente así:
Kompilieren Marca Separación

nProc test

    rectangle(hDC,10,10,100,100)

endpro

Alle beschrieben y simplemente aufzurufen: [...]

Danach va ne Linie de 20,30 después de 100,100 así:
Kompilieren Marca Separación

nProc test

    MoveToEx(hDC,20,30,0)
    LineTo(hDC,100,100)

ENDPROC

In nProcs posición quasi todos APIs bereit -

como kann lo una sí a garnichts fehlen.

Einzelnes Pixel conjunto?
Kompilieren Marca Separación

nProc test

    setPixel(hDC,10,20,rgb(50,60,70))
    ...

XProfan X2
Win7 Enterprise, SP1, Xeon X5670 @ 2.93GHz

Andreas
Koch

Das sieht ahora así de, como podría Yo el direkt benutzen. Schönen Dank ya veces.

Yo möchte aber wirklich sólo muy ungern en el Ventana principal malen, eigentlich nada. Kann al no irgendwie umleiten? Yo habe como dieses hdc en el Verdacht, weiß pero no wirklich algo así anzufangen, siehe erster Contribución.

PS: Was bedeutet el DC eigentlich en lang?

DeviceContext ( [...]

)

Usted puede genau tan bueno en una "HPIC" malen -

el ginge entonces z.B. así:
Kompilieren Marca Separación

nProc test

    parameters aufDiesemHPic&//siehe create("hNewPic",... in XProfan-Hilfe
    var dc&=createCompatibleDC(hDC)// hDC ist von XProfan, siehe XProfan-Hilfe
    selectObject(dc&, aufDiesemHPic&)
    //rummalen

    whileLoop 1000

        setPixel(dc&,rnd(100),rnd(100),rnd($FFFFFF))

    wend

    //dc wieder entfernen da nicht mehr notwendig
    deleteDC(dc&)
    //fertig auf hPic rumgemalt

Apéndice: Gib auch ne pixels.inc [...]

para Beispiele más rápido Grafik- Effekte

y una hPic.inc auch para fortgeschrittenes Rumbildereihen: [...]

y mostrar auch veces hier rein: [...]

- Página 2 -

funkheld

Hmm.., qué du media son tan auch otra vez el langsamen internen Grafik-Windowsbefehle(API):
MoveToEx(hDC,20,30,0)
LineTo(hDC,100,100)
Für una flotte Grafik taugen el nichts.

Lo va doch direkt viel más rápido con (DirectX) y/oder con XPIA(ASM) sin esta fertigen langsamen Move y LineTo.

Gruss

LineTo etc. es alles GDI ( [...]

) -

son alles hochoptimierte Características el Usted wohl incluso (egal wo con) no más rápido

programa kannst. Natürlich kannst Es usted un Linie auch por DX dibujar aber el

es sí una komplett otro Nummer ähnlich como como si una Linie por OpenGL

zeichest. En letzteren beiden Beispielen wirst Usted aber auch mindestens una vez una

Linie anweisen necesario. Siehe hierzu el oglui [...]

samt oglhelper.inc.

Was nun performant es hängt streng genommen a muy vom jeweiligen Anwendungs/

Einzelfall de y bastante pauschal puede ser no sagen el uno con DX una

Linie más rápido en el Schirm bekommt como con el GDI alleine ya wegen

el enormen Vorbereitungsmassnahmen el para DX oder OGL notwendig son

bevor uno überhaupt qué dibujar kann.

Apéndice: Mein no así más rápido Computer características así 100.000 Linien en weniger como 1 Sekunde (953ms) :
Kompilieren Marca Separación

 {$cleq}
cls
long tme=getTickCount
test()
print getTickCount-tme
waitinput
end

nProc test

    whileloop 100000

        movetoEx(hDC,10,10,0)
        lineTo(hDC,200,100)

    wend



Was Yo ahora no necesariamente "langsame interne Grafik-Windowsbefehle(API)" nennen sería

aber Usted hast ya Recht así el lo una auch no "vom Hocker haut".

20120905-1943-19254.png	16 kB

Hochgeladen:	05.09.2012

Ladeanzahl:
		Descargar

XProfan X2
Win7 Enterprise, SP1, Xeon X5670 @ 2.93GHz

Andreas
Koch

Que el pixels.inc y Anhang Tuve ya rausgefunden y en mi Beispielcode oben instalado. Wenn Yo el correcto sehe, Yo incluso el Umleitung con createcompatibledc correcto gemacht. Trotzdem malt el no correcto.

PS: DirectX hört se zwar auch fresco a, aber hey Personas, antes una Jahr Tuve el Wort "Profan" todavía nie gehört, así rápidamente bin Yo no.
Wenn me qué bringt, mache pero yo auch todavía.
Vorher Yo quería aber eigentlich todavía OpenGL ausloten. Tal vez reicht el para mi Bedürfnisse de.

Yo weiß zwar no ¿qué es exactamente Usted antes hast aber a "Trotzdem malt el no correcto."
kann Yo sólo sagen "Zeig veces her, el Fehler liegt wo anders...".

Andreas Koch (05.09.12)

aber hey Personas, antes una Jahr Tuve el Wort "Profan" todavía nie gehört, así rápidamente bin Yo no.

Willkommen!

XProfan X2
Win7 Enterprise, SP1, Xeon X5670 @ 2.93GHz

Andreas
Koch

Yo en mi ersten Contribución una Beispielcode, wo en una Mapa de bits eigentlich una schwarze Linie gemalt voluntad debería. El vermiss Yo irgendwie....