XProfan

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

- Seite 2 -

Sagen wir einfach weil da etwas "geschludert" wurde.

(habe die Stellen im Code markiert)
Kompilieren Markieren Separieren

 {$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:
		Herunterladen

- Seite 1 -

Was macht ihr denn hier?! Alles viel einfacher!

Ein Rechteck: [...]

Auf hWnd zeichen einfach so:
Kompilieren Markieren Separieren

nProc test

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

endproc

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

Alle beschrieben und einfach aufzurufen: [...]

Danach geht ne Linie von 20,30 nach 100,100 so:
Kompilieren Markieren Separieren

nProc test

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

endproc

In nProcs stehen quasi alle APIs bereit -

da kann es einem ja an garnichts fehlen.

Einzelnes Pixel setzen?
Kompilieren Markieren Separieren

nProc test

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

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

Andreas
Koch

Das sieht jetzt so aus, als könnte ich das direkt benutzen. Schönen Dank schon mal.

Ich möchte aber wirklich nur sehr ungern auf dem Hauptfenster malen, eigentlich gar nicht. Kann man das nicht irgendwie umleiten? Ich habe da dieses hdc im Verdacht, weiß aber nicht wirklich etwas damit anzufangen, siehe erster Beitrag.

PS: Was bedeutet das DC eigentlich in lang?

DeviceContext ( [...]

)

Du kannst genau so gut auf einem "hPic" malen -

das ginge dann z.B. so:
Kompilieren Markieren Separieren

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

endproc

Nachtrag: Gib auch ne pixels.inc [...]

für Beispiele schneller Grafik- Effekte

und eine hPic.inc auch für fortgeschrittenes Rumbildereihen: [...]

und schau auch mal hier rein: [...]

- Seite 2 -

funkheld

Hmm.., was du meinst sind ja auch wieder die langsamen internen Grafik-Windowsbefehle(API):
MoveToEx(hDC,20,30,0)
LineTo(hDC,100,100)
Für ein flotte Grafik taugen die nichts.

Es geht doch direkt viel schneller mit (DirectX) und/oder mit XPIA(ASM) ohne diese fertigen langsamen Move und LineTo.

Gruss

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

) -

sind alles hochoptimierte Funktionen die Du wohl selbst (egal wo mit) nicht schneller

programmieren kannst. Natürlich kannst Du eine Linie auch per DX zeichnen aber das

ist ja eine komplett andere Nummer ähnlich wie als wenn Du eine Linie per OpenGL

zeichest. Bei letzteren beiden Beispielen wirst Du aber auch mindestens einmal eine

Linie anweisen müssen. Siehe hierzu die oglui [...]

samt oglhelper.inc.

Was nun performanter ist hängt streng genommen zu sehr vom jeweiligen Anwendungs/

Einzelfall ab und ganz pauschal kann man nicht sagen das man mit DX eine

Linie schneller auf den Schirm bekommt als mit der GDI alleine schon wegen

der enormen Vorbereitungsmassnahmen die für DX oder OGL notwendig sind

bevor man überhaupt was zeichnen kann.

Nachtrag: Mein nicht so schneller Computer zeichnet damit 100.000 Linien in weniger als 1 Sekunde (953ms) :
Kompilieren Markieren Separieren

 {$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

endproc

Was ich jetzt nicht unbedingt "langsame interne Grafik-Windowsbefehle(API)" nennen würde

aber Du hast schon Recht damit das es einen auch nicht "vom Hocker haut".

20120905-1943-19254.png	16 kB

Hochgeladen:	05.09.2012

Ladeanzahl:
		Herunterladen

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

Andreas
Koch

Das mit der pixels.inc und Anhang hatte ich schon rausgefunden und auch in meinem Beispielcode oben eingebaut. Wenn ich das richtig sehe, habe ich sogar die Umleitung mit createcompatibledc richtig gemacht. Trotzdem malt der nicht richtig.

PS: DirectX hört sich zwar auch cool an, aber hey Leute, vor einem Jahr hatte ich das Wort "Profan" noch nie gehört, so schnell bin ich nicht.
Wenn mir das was bringt, mache ich das aber auch noch.
Vorher wollte ich aber eigentlich noch OpenGL ausloten. Vielleicht reicht das für meine Bedürfnisse aus.

Ich weiß zwar nicht was genau Du vor hast aber zu "Trotzdem malt der nicht richtig."
kann ich nur sagen "Zeig mal her, der Fehler liegt wo anders...".

Andreas Koch (05.09.12)

aber hey Leute, vor einem Jahr hatte ich das Wort "Profan" noch nie gehört, so schnell bin ich nicht.

Willkommen!

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

Andreas
Koch

Ich hab in meinem ersten Beitrag einen Beispielcode, wo auf eine Bitmap eigentlich eine schwarze Linie gemalt werden sollte. Die vermiss ich irgendwie....