Cross-dissolve / cross-fade - GameCreators Forum

Author

Message

Ocean Runner

22

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 6th Jun 2005 08:11

Link

I want to dissolve or fade two images into each other, having one fade out while the other fades in. However, I do not think the bitmap fade command can do this. Does anyone know any way that I can? A function that would replace random pixels of one image with random pixels of the other image until it is faded would work too, but can DarkBASIC Classic [Enchanced] do it fast enough?

"Computers in the future may weigh no more then
1.5 tons. - Popular Mechanics, 1949

Back to top

Profile PM

Slayer93

20

Years of Service

User Offline

Joined: 5th Aug 2004

Location: I wish I knew

Posted: 6th Jun 2005 10:02

Link

you could use fade bitmap command
to do the cross fade thing use this

+ Code Snippet

`sync
sync on
sync rate 30

`get 2 bitmaps
ink rgb(0,0,100),0
box 0,0,400,400
create bitmap 1,400,400

ink rgb(100,0,0),0
box 0,0,400,400
create bitmap 2,400,400

`varibles
b1=0
b2=100

`fade 1 bitmap
fade bitmap 1,b1

`loop
do

`fade bitmap out and in if 1 is 100 and 2 is 0 switch and vis versa
if b1 < 0 or b1 = 0 then inc b1 : dec b2
if b1 > 0 or b1 = 0 then dec b1 : inc b2
fade bitmap 1,b1
fade bitmap 2,b2
sync
loop

not tested don't blame me

NARUTO IS THE NINJA.......not really

Back to top

Profile PM Email Website

NanoBrain

20

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Portland, OR

Posted: 6th Jun 2005 12:06

Link

Ocean Runner,

I wanted to write up the code for you, but I unfortunately do not have the time right now. The method I would go about this is to grab the pixel data, by using the point(x,y) command, of each image into a couple of arrays. Let's say you have two images that are 100 X 100 pixels in size. Then, you arrays would need to be 200 slots in size.

Now, with each pixel color saved into their given arrays, compare the pixel data of the first image(the image being faded from), and compare it to the second image(the image being faded into). If the first image's pixel is less than the second, then increase the first's pixel color by 1. If greater, then vice-versa. After each change, then use a couple of for next loops to draw the first image to the screen(the updated pixel data of the fading from image).

+NanoBrain+

Back to top

Profile PM Email

Sven B

20

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 10th Jun 2005 03:46

Link

Are you sure? The point(x,y) command is very slow...

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

BatVink

Moderator

22

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 10th Jun 2005 04:38 Edited at: 10th Jun 2005 04:38

Link

If you have enhanced, you could do it in memblocks. I assume image memblocks in DBC are the same as Pro:

3 double words - width, height, bit-depth
for 32 bit images, which you will need for the alpha channel, you then have 4 bytes per pixel: blue, green, red, alpha.

So you can manipulate them in memblocks (MAKE MEMBLOCK FROM IMAGE), the fastest way to do a lot of things in DB, then MAKE IMAGE FROM MEMBLOCK.

BatVink

Back to top

Profile PM Email

Jake Blues

20

Years of Service

User Offline

Joined: 19th Jun 2004

Location: United States

Posted: 10th Jun 2005 07:11

Link

My program ImageTrans can do exactly what you want to do. Done with memblocks, like BatVink said.

Forum page:
http://forum.thegamecreators.com/?m=forum_view&t=55419&b=5

Download off my site:
http://www.freewebs.com/neodragon64

---->http://www.freewebs.com/neodragon64<----

Back to top

Profile PM Email Website

Ocean Runner

22

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 12th Jun 2005 02:09

Link

Sorry for not responding any sooner, but thanks for your help. Neodragon, when I tried to unzip ImageTrans, it said that there were no files to unzip.

I am going to attempt to code the fade function myself, but I have not any experience with memblocks.

"Computers in the future may weigh no more then
1.5 tons. - Popular Mechanics, 1949

Back to top

Profile PM

Ocean Runner

22

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 12th Jun 2005 04:10

Link

Okay, I have coded a program that looks like it should work, but it tells me that I am trying to access the memblock out of range. The weird thing is that when I replace the variable name with the number that the variable stores, it works! I have checked for misspellings, but have not found any. Can anyone help me?

sync on

dim pixel_1(500,300)
dim pixel_2(500,300)
dim r_1(500,300)
dim g_1(500,300)
dim b_1(500,300)
dim r_2(500,300)
dim g_2(500,300)
dim b_2(500,300)

load image "1.jpg",1
load image "2.jpg",2

make memblock from image 1,1
make memblock from image 2,2

width = 500
speed = 1
current_read=12
current_write=12

delete image 1

do
   not = 1

for y = 1 to 300
      for x = 1 to 500
         pixel_1(x,y) = memblock word(1,current_read)
         pixel_2(x,y) = memblock word(2,current_read)

r_1(x,y)=((pixel_1(x,y)/2048)&31)*8
         g_1(x,y)=((pixel_1(x,y)/32)&63)*4
         b_1(x,y)=(pixel_1(x,y)&31)*8

r_2(x,y)=((pixel_2(x,y)/2048)&31)*8
         g_2(x,y)=((pixel_2(x,y)/32)&63)*4
         b_2(x,y)=(pixel_2(x,y)&31)*8

current_read = current_read + 2
      next x
   next y

for y = 1 to 300
      for x = 1 to 500
         if r_1(x,y) > g_2(x,y) then r_1(x,y) = r_1(x,y)-speed ; not = 0
         if r_1(x,y) < g_2(x,y) then r_1(x,y) = r_1(x,y)+speed ; not = 0

if g_1(x,y) > g_2(x,y) then g_1(x,y) = g_1(x,y)-speed ; not = 0
         if g_1(x,y) < g_2(x,y) then g_1(x,y) = g_1(x,y)+speed ; not = 0

if b_1 > b_2(x,y) then b_1(x,y) = b_1(x,y)-speed ; not = 0
         if b_1(x,y) < b_2(x,y) then b_1(x,y) = b_1(x,y)+speed ; not = 0

pixel_1(x,y)=((r_1(x,y)&248)*256)+((g_1(x,y)&252)*8)+((b_1(x,y)/8))

write memblock word 1,current_write,pixel_1(x,y)
         current_write = current_write + 2

next y
   next x

if not = 1 then exit

make image from memblock 3,1

paste image 3,0,0

sync
loop

paste image 2,0,0

+ Code Snippet

sync on

dim pixel_1(500,300)
dim pixel_2(500,300)
dim r_1(500,300)
dim g_1(500,300)
dim b_1(500,300)
dim r_2(500,300)
dim g_2(500,300)
dim b_2(500,300)

load image "1.jpg",1
load image "2.jpg",2

make memblock from image 1,1
make memblock from image 2,2

width = 500
speed = 1
current_read=12
current_write=12

delete image 1

do
   not = 1

   for y = 1 to 300
      for x = 1 to 500
         pixel_1(x,y) = memblock word(1,current_read)
         pixel_2(x,y) = memblock word(2,current_read)

         r_1(x,y)=((pixel_1(x,y)/2048)&31)*8
         g_1(x,y)=((pixel_1(x,y)/32)&63)*4
         b_1(x,y)=(pixel_1(x,y)&31)*8

         r_2(x,y)=((pixel_2(x,y)/2048)&31)*8
         g_2(x,y)=((pixel_2(x,y)/32)&63)*4
         b_2(x,y)=(pixel_2(x,y)&31)*8

         current_read = current_read + 2
      next x
   next y

   for y = 1 to 300
      for x = 1 to 500
         if r_1(x,y) > g_2(x,y) then r_1(x,y) = r_1(x,y)-speed ; not = 0
         if r_1(x,y) < g_2(x,y) then r_1(x,y) = r_1(x,y)+speed ; not = 0

         if g_1(x,y) > g_2(x,y) then g_1(x,y) = g_1(x,y)-speed ; not = 0
         if g_1(x,y) < g_2(x,y) then g_1(x,y) = g_1(x,y)+speed ; not = 0

         if b_1 > b_2(x,y) then b_1(x,y) = b_1(x,y)-speed ; not = 0
         if b_1(x,y) < b_2(x,y) then b_1(x,y) = b_1(x,y)+speed ; not = 0

         pixel_1(x,y)=((r_1(x,y)&248)*256)+((g_1(x,y)&252)*8)+((b_1(x,y)/8))

         write memblock word 1,current_write,pixel_1(x,y)
         current_write = current_write + 2

      next y
   next x

   if not = 1 then exit

   make image from memblock 3,1

   paste image 3,0,0

sync
loop

paste image 2,0,0

The code needs two images name 1.jpg and 2.jpg, both 500x300 to work.

"Computers in the future may weigh no more then
1.5 tons. - Popular Mechanics, 1949

Back to top

Profile PM

Ocean Runner

22

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 12th Jun 2005 13:07 Edited at: 12th Jun 2005 13:09

Link

Sorry for the triple post, but I havem an update. I have fixed it, but it runs e...x...t...r...e...m...e...l...y slowly. Does anyone have any ideas on how I can fix that? Also, in the images that I am using [attached], I get this red noise at the bottom. Any ideas?

EDIT: Heh, forgot to attach the code:

sync on

dim pixel_1(500,300)
dim pixel_2(500,300)
dim r_1(500,300)
dim g_1(500,300)
dim b_1(500,300)
dim r_2(500,300)
dim g_2(500,300)
dim b_2(500,300)

load image "test_1.jpg",1
load image "test_2.jpg",2

make memblock from image 1,1
make memblock from image 2,2

width = 500
speed = 1

delete image 1

do
   not = 1
   current_read=12
   current_write=12

for y = 1 to 300
      for x = 1 to 500
         pixel_1(x,y) = memblock word(1,current_read)
         pixel_2(x,y) = memblock word(2,current_read)

r_1(x,y)=((pixel_1(x,y)/2048)&31)*8
         g_1(x,y)=((pixel_1(x,y)/32)&63)*4
         b_1(x,y)=(pixel_1(x,y)&31)*8

r_2(x,y)=((pixel_2(x,y)/2048)&31)*8
         g_2(x,y)=((pixel_2(x,y)/32)&63)*4
         b_2(x,y)=(pixel_2(x,y)&31)*8

current_read = current_read + 2
      next x
   next y

for y = 1 to 300
      for x = 1 to 500
         if r_1(x,y) > r_2(x,y) then r_1(x,y) = r_1(x,y)-1 ; not = 0
         if r_1(x,y) < r_2(x,y) then r_1(x,y) = r_1(x,y)+1 ; not = 0

if g_1(x,y) > g_2(x,y) then g_1(x,y) = g_1(x,y)-1 ; not = 0
         if g_1(x,y) < g_2(x,y) then g_1(x,y) = g_1(x,y)+1 ; not = 0

if b_1(x,y) > b_2(x,y) then b_1(x,y) = b_1(x,y)-1 ; not = 0
         if b_1(x,y) < b_2(x,y) then b_1(x,y) = b_1(x,y)+1 ; not = 0

pixel_1(x,y)=((r_1(x,y)&248)*256)+((g_1(x,y)&252)*8)+((b_1(x,y)/8))

write memblock word 1,current_write,pixel_1(x,y)
         current_write = current_write + 2

next y
   next x

`if not = 1 then exit

make image from memblock 1,1
   paste image 1,0,0

text 0,0,str$(r_1(1,1))+" "+str$(g_1(1,1))+" "+str$(b_1(1,1))

`wait 10

sync
   cls
loop

paste image 2,0,0

+ Code Snippet

sync on

dim pixel_1(500,300)
dim pixel_2(500,300)
dim r_1(500,300)
dim g_1(500,300)
dim b_1(500,300)
dim r_2(500,300)
dim g_2(500,300)
dim b_2(500,300)

load image "test_1.jpg",1
load image "test_2.jpg",2

make memblock from image 1,1
make memblock from image 2,2

width = 500
speed = 1

delete image 1

do
   not = 1
   current_read=12
   current_write=12

   for y = 1 to 300
      for x = 1 to 500
         pixel_1(x,y) = memblock word(1,current_read)
         pixel_2(x,y) = memblock word(2,current_read)

         r_1(x,y)=((pixel_1(x,y)/2048)&31)*8
         g_1(x,y)=((pixel_1(x,y)/32)&63)*4
         b_1(x,y)=(pixel_1(x,y)&31)*8

         r_2(x,y)=((pixel_2(x,y)/2048)&31)*8
         g_2(x,y)=((pixel_2(x,y)/32)&63)*4
         b_2(x,y)=(pixel_2(x,y)&31)*8

         current_read = current_read + 2
      next x
   next y

   for y = 1 to 300
      for x = 1 to 500
         if r_1(x,y) > r_2(x,y) then r_1(x,y) = r_1(x,y)-1 ; not = 0
         if r_1(x,y) < r_2(x,y) then r_1(x,y) = r_1(x,y)+1 ; not = 0

         if g_1(x,y) > g_2(x,y) then g_1(x,y) = g_1(x,y)-1 ; not = 0
         if g_1(x,y) < g_2(x,y) then g_1(x,y) = g_1(x,y)+1 ; not = 0

         if b_1(x,y) > b_2(x,y) then b_1(x,y) = b_1(x,y)-1 ; not = 0
         if b_1(x,y) < b_2(x,y) then b_1(x,y) = b_1(x,y)+1 ; not = 0

         pixel_1(x,y)=((r_1(x,y)&248)*256)+((g_1(x,y)&252)*8)+((b_1(x,y)/8))

         write memblock word 1,current_write,pixel_1(x,y)
         current_write = current_write + 2

      next y
   next x

   `if not = 1 then exit

   make image from memblock 1,1
   paste image 1,0,0

   text 0,0,str$(r_1(1,1))+" "+str$(g_1(1,1))+" "+str$(b_1(1,1))

   `wait 10

   sync
   cls
loop

paste image 2,0,0

"Computers in the future may weigh no more then
1.5 tons. - Popular Mechanics, 1949

Attachments

Login to view attachments

Back to top

Profile PM

blanky

20

Years of Service

User Offline

Joined: 3rd Aug 2004

Location: ./

Posted: 19th Jun 2005 18:11

Link

It's faster than the point() command, but at the end of the day DarkBASIC Classic is an interpreted language. DarkBASIC needs to translate every single freaking command into machine code.

THIS is the kind of stuff where you would just pass the memblock pointer to some DLL somebody nice made for you, and claim the results.

I'd do it, but...unh...

How's my typing? Phone 0800-GO-TO-HELL

Back to top

Profile PM Email Website

Ocean Runner

22

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 22nd Jun 2005 01:35

Link

Well, thanks for everyones help, but it appears that the cross fade is not going to work. So, I am attempting to code a cross-dissolve program, where it replaces random pixels with the pixel it is fading into. The only problem with my code is that for some reason, it exits halfway through it, before it is done, without an error message or anything! Can anyone help?

+ Code Snippet

sync on

dim pixel_1(500,300)
dim pixel_2(500,300)

load image "1.jpg",1
load image "2.jpg",2

make memblock from image 1,1
make memblock from image 2,2

width = 500
speed = 500

delete image 1
current_read=12

for y = 1 to 300
    for x = 1 to 500
      pixel_1(x,y) = memblock word(1,current_read)
      pixel_2(x,y) = memblock word(2,current_read)

      current_read = current_read + 2
    next x
next y

do
   for temp = 1 to speed
         randx=rnd(499)+1
         randy=rnd(299)+1
         pixel_1(randx,randy)=pixel_2(randx,randy)

         write memblock word 1,(((randy-1)*500)+randx)*2,pixel_1(randx,randy)
   next temp

   make image from memblock 1,1
   paste image 1,0,0

   sync
   cls
loop

paste image 2,0,0

"Computers in the future may weigh no more then
1.5 tons. - Popular Mechanics, 1949

Back to top

Profile PM

Ocean Runner

22

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 1st Jul 2005 10:19

Link

Hmm. It appears that after 7,500 operations of the write memblock command, the program crashes. Anyone know why this is or how I can fix it?

"Computers in the future may weigh no more then
1.5 tons. - Popular Mechanics, 1949

Back to top

Profile PM

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 1st Jul 2005 20:05

Link

Use memblocks and liner interpolate between the two images.

PETA - People for the Eating of Tasty Animals

Back to top

Profile PM Email Website

shadow sliver

20

Years of Service

User Offline

Joined: 28th Nov 2004

Location:

Posted: 2nd Jul 2005 01:07

Link

I'm afraid that I don't understand. What do you mean, and how would I go about doing it?

Back to top

Profile PM

Ocean Runner

22

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 2nd Jul 2005 01:08

Link

I'm afraid that I don't understand. What does that mean, and how would I go about doing this?

"Computers in the future may weigh no more then
1.5 tons. - Popular Mechanics, 1949

Back to top

Profile PM

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 2nd Jul 2005 01:53

Link

From your code above, it looks like you already know how to get the pixel colors in the images from a memblock.

Interpolate the two images. Match each pixel from image A with image B, like (1,1) or (17,84), then:

New "faded" image = A + (B-A)*k

Where A and B is the color of the pixel at point (x,y) from image A and B. And "k" is between 0 and 1. 0 means you see image A completely. A value of 1 means you seen image B completely. 0.5 would fade half way between the two images.

This link might also help:
http://www.dannywartnaby.co.uk/rgt/index.php?board=4;action=display;threadid=3582

PETA - People for the Eating of Tasty Animals

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / Cross-dissolve / cross-fade

Attachments