XProfan

« this Posting watts as Solution marked. »

- Page 2 -

say we simply because there something "geschludert" watts.

(have The to put in the code markiert)
Compile Mark Separation

 {$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:	09/05/12

Downloadcounter:
		Download

line or Kurven desired? then simply lines or Kurvenfunktionen benefit!

- Page 1 -

what power your because here?! everything plenty plainer!

One rectangle: [...]

On hWnd characters simply so:
Compile Mark Separation

nProc test

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

endpro

any described and simply aufzurufen: [...]

thereafter goes ne line of 20,30 to 100,100 so:
Compile Mark Separation

nProc Test

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

endproc

In nProcs stand quasi any APIs ready -

there can it one Yes on garnichts are missing.

Einzelnes Pixel settle?
Compile Mark Separation

nProc Test

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

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

Andreas
Koch

the sees now so from, as could I the directly using. lovely Thanks already time.

i want but really only very ungern on the Mainwindow malen, really none. Can not somehow redirecting? I have there this hdc in the suspicion, white but not really something so to begin, see first Posting.

PS: what means the DC really in long?

DeviceContext ( [...]

)

You can very so well on one "HPIC" malen -

the went then z.B. so:
Compile Mark Separation

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 too ne pixels.inc [...]

for Examples faster graphic- effects

and a hPic.inc too for fortgeschrittenes Rumbildereihen: [...]

and look too time here mere: [...]

- Page 2 -

funkheld

Hmm.., what you mean are so again The slow internen graphic-Windowsbefehle(API):
MoveToEx(hDC,20,30,0)
LineTo(hDC,100,100)
for a slippy graphic taugen The nothing.

It's all right still directly plenty faster with (DirectX) and/or with XPIA(ASM) without these finished slow Move and LineTo.

greeting

LineTo etc. is everything GDI ( [...]

) -

are everything hochoptimierte functions The You well self (alike where with) not faster

program can. naturally can You a line too by DX draw but the

is Yes a complete others number like as if You a line by OpenGL

zeichest. with letzteren both Examples become You but too at least once a

line indicate must. look at The oglui [...]

velvet oglhelper.inc.

what now performant is depends severe taken To very of jeweiligen Anwendungs/

individual case ex and integrally blanket can not say the one with DX a

line faster on the screen get as with the GDI on my own already because of

the enormous Vorbereitungsmassnahmen The for DX or OGL necessary are

before one at all what draw can.

Nachtrag: my not so faster computer draw so 100.000 lines in less than 1 second (953ms) :
Compile Mark Separation

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



what I now not absolutely "langsame interne graphic-Windowsbefehle(API)" name would

but you have already right so the it a neither "vom stool haut".

20120905-1943-19254.png	16 kB

Hochgeladen:	09/05/12

Downloadcounter:
		Download

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

Andreas
Koch

That the pixels.inc and attachment I had already rausgefunden and in my Beispielcode supra installed. If I the right see, have I even The detour with createcompatibledc correctly. made. nevertheless malt the not correctly..

PS: DirectX hears itself of course too calm on, but hey people, to one year I had the word "Profan" yet never heard, so quick be I do not.
If me the what bring, make I the but too yet.
before wished I but really yet OpenGL ausloten. Perhaps reicht the for my needs from.

i know of course not what very You to have but To "Trotzdem malt the not correctly.."
can I only say "Zeig time since, the Error lying where differently...".

Andreas cook (05.09.12)

but hey people, to one year I had the word "Profan" yet never heard, so quick be I do not.

Welcome!

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

Andreas
Koch

I Have in my first Posting a Beispielcode, where on a Bitmap really a black line painted go ought to. The vermiss I somehow....