XProfan

« cette Beitrag wurde comme Solution gekennzeichnet. »

- page 2 -

dire wir simple weil là quelque chose "geschludert" wurde.

(habe qui se mettre im Code markiert)
Kompilieren Marque Séparation

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

Downloadcounter:
		Download

ligne number ou bien Kurven gewünscht? ensuite simple Linien ou bien Kurvenfunktionen nutzen!

- page 1 -

quoi pouvoir son car ici?! Alles viel einfacher!

un Rechteck: [...]

sur hWnd marque simple so:
Kompilieren Marque Séparation

nProc test

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

endpro

Alle beschrieben et simple aufzurufen: [...]

après allez ne ligne number de 20,30 pour 100,100 so:
Kompilieren Marque Séparation

nProc test

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

endproc

dans nProcs stehen quasi alle APIs bereit -

là peux es einem oui à garnichts manquer.

Einzelnes Pixel mettons?
Kompilieren Marque Séparation

nProc test

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

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

Andreas
Koch

cela sieht maintenant so aus, comme pourrait je cela direct benutzen. Schönen Dank déjà la fois.

je voudrais mais wirklich seulement très ungern sur dem Hauptfenster malen, eigentlich gar pas. peux on cela pas irgendwie détourner? j'ai là cet hdc im le doute, sais mais pas wirklich quelque chose avec cela anzufangen, siehe erster Beitrag.

PS: quoi bedeutet cela DC eigentlich dans long?

DeviceContext ( [...]

)

tu peux oui c'est ca si bien sur einem «PCSI» malen -

cela ginge ensuite z.B. so:
Kompilieren Marque Séparation

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

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

pour Beispiele plus rapide Grafik- Effekte

et une hPic.inc aussi pour fortgeschrittenes Rumbildereihen: [...]

et exposition aussi la fois ici rein: [...]

- page 2 -

funkheld

Hmm.., quoi du meinst sommes oui aussi wieder qui langsamen internen Grafik-Windowsbefehle(API):
MoveToEx(hDC,20,30,0)
LineTo(hDC,100,100)
Pour un flotte Grafik valoir qui rien.

und dir doch direct viel plus rapide avec (DirectX) et/ou bien avec XPIA(ASM) sans cet fertigen langsamen Move et LineTo.

Gruss

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

) -

sommes alles hochoptimierte Funktionen qui Du wohl selbst (égal wohin avec) pas plus rapide

programmieren peux. Bien sûr peux Vous ligne number aussi per DX zeichnen mais cela

ist oui une komplett autre numéro ähnlich comment comme si Vous ligne number per OpenGL

zeichest. chez letzteren beiden Beispielen wirst Du mais aussi mindestens einmal une

ligne number anweisen doit. Siehe hierzu qui oglui [...]

velours oglhelper.inc.

quoi eh bien performant ist hängt streng pris trop vom jeweiligen Anwendungs/

Einzelfall ab et entier forfaitaire peux on pas dire cela on avec DX une

ligne number plus rapide sur den Schirm bekommt comme avec qui GDI alleine déjà à cause de

qui enormen Vorbereitungsmassnahmen qui pour DX ou bien OGL notwendig sommes

bevor on überhaupt quoi zeichnen peux.

Nachtrag: mon pas so plus rapide ordinateur zeichnet avec cela 100.000 Linien dans moins comme 1 seconde (953ms) :
Kompilieren Marque Séparation

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



quoi je maintenant pas absolument "langsame interne Grafik-Windowsbefehle(API)" appeler serait

mais tu as déjà droite avec cela cela es une aussi pas "vom Hocker haut".

20120905-1943-19254.png	16 kB

Hochgeladen:	05.09.2012

Downloadcounter:
		Download

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

Andreas
Koch

Que le pixels.inc et Anhang J'ai eu déjà rausgefunden et dans mon Beispielcode dessus incorporé. si je cela richtig vois, habe je sogar qui la déviation avec createcompatibledc richtig gemacht. quand même malt qui pas richtig.

PS: DirectX hört sich zwar aussi cool à, mais hey gens, avant einem l'an J'ai eu cela mot "Profan" encore nie est, so vite suis je pas.
si mir cela quoi bringt, fais je cela mais aussi encore.
auparavant voulais je mais eigentlich encore OpenGL ausloten. peut-être reicht cela pour mon Bedürfnisse aus.

je sais zwar pas quoi oui c'est ca Du avant la hâte mais trop "Trotzdem malt qui pas richtig."
peux je seulement dire "Zeig la fois her, qui faute liegt wohin anders...".

Andreas Koch (05.09.12)

mais hey gens, avant einem l'an J'ai eu cela mot "Profan" encore nie est, so vite suis je pas.

Willkommen!

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

Andreas
Koch

je hab dans mon ersten Beitrag une Beispielcode, wohin sur une Bitmap eigentlich une schwarze ligne number gemalt volonté sollte. qui vermiss je irgendwie....