Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Poke vs Pset
| Uploader: |  Eternal_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