Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Poke vs Pset

Uploader:MitgliedEternal_Pain
Datum/Zeit:18.06.2007 22:35:29

screen 19,32

Dim xx as ubyte ptr

xx=imagecreate(100,100)


Dim XTime as double

sleep 100,1

XTime=Timer
dim adr as any ptr
dim pitch as uinteger
pitch=peek(uinteger,xx+16)

    for y as integer=0 to 99
    for x as integer=0 to 99
        adr=xx+32+(x*4)+(y*pitch)
        poke uinteger,adr,&hFFFF0000
    next x
    next y
put (100,100),xx,pset
?Timer-Xtime

sleep 100,1

XTime=Timer

    for y as integer=0 to 99
    for x as integer=0 to 99
        pset xx,(x,y),&hFFFFFF00
    next x
    next y
put (100,100),xx,pset
?Timer-Xtime


sleep