Code: Select all
dim as integer pixel_color
dim as uinteger ptr image = allocate (640*480*sizeof(uinteger))
print image
dim as uinteger ptr pixel_ptr = image
for x as integer = 0 to 639
pixel_color+=1
for y as integer = 0 to 479
pixel_color xor=y
*pixel_ptr=pixel_color
pixel_ptr+=1
next
next
screenres 640,480,32
pixel_ptr = image
for x as integer = 0 to 639
for y as integer = 0 to 479
pset (x,y),*pixel_ptr
pixel_ptr+=1
next
next
deallocate(image)
sleep