well i am trying to make it for dbpro with memblocks etc ofc
sync on
backdrop off
hide mouse
set display mode 640,480,32,1
// LOAD THE IMAGES
load image "1.png",1,1
load image "2.png",2,1
// SPRITES PASTE TO GRAB FOR MEMBLOCK
sprite 1,100,100,1
sprite 2,100,200,2
set sprite priority 1,1
set sprite priority 2,1
paste sprite 1,100,100
paste sprite 2,200,100
// MEMBLOCK I STORE ALL VALUES IN ARRAYS TO PRINT AND COMPARE
make memblock from image 1, 1
width = memblock dword(1, 0)
height = memblock dword(1, 4)
dim arraylocation(width,height)
dim arrayrgbB(width,height)
dim arrayrgbG(width,height)
dim arrayrgbR(width,height)
for x = 1 to width
for y = 1 to height
location = ((y-1)*width + x - 1)*4 + 12
arraylocation(x,y)=location
B = memblock byte(1,location)
arrayrgbB(x,y)=b
G = memblock byte(1,location+1)
arrayrgbG(x,y)=g
R = memblock byte(1,location+2)
arrayrgbR(x,y)=R
REM set each pixel in the image to a random color
//write memblock dword 1, location, rgb(rnd(255),rnd(255),rnd(255))
next y
next x
REM create a new image from the memblock data
make image from memblock 100, 1
DELETE MEMBLOCK 1
draw sprites first
do
paste image 100,250,100
set cursor 10,10
print height
set cursor 30,10
print width
print arraylocation(2,1)
print arrayrgbB(2,1)
get image 2,250,200,340,291
if memblock exist(2) then delete memblock 2
make memblock from image 2, 2
REM get the image's width and height
width = memblock dword(2,0)
height = memblock dword(2,4)
for x = 1 to 1000
temp=rnd(89)+1
temp2=rnd(90)+1
location = arraylocation(temp,temp2)
write memblock dword 2, location, rgb(arrayrgbR(temp,temp2),arrayrgbG(temp,temp2),arrayrgbb(temp,temp2))
next x
REM create a new image from the memblock data
make image from memblock 101, 2
paste image 101,250,200
sync
loop
end
this takes a photo to amemblock stores all values in arrays and random takes 500dots and paints them with a good tranparent image u can make a ghostly effect...
well next step is the rnd dot to be checked if already been used and then rnd another dot till all dots all painted so the cross fade effect will occur...
is there a way without memblocks, do a miss any command that will make it happen easier?
all os break