Transparent Image-Background won't work

Author

Message

DBProUser

15

Years of Service

User Offline

Joined: 28th Oct 2010

Location:

Posted: 15th Nov 2010 20:06

Link

Hello,

i hope i can explain my problem (it is very difficult for me, because my english is quite bad)

I have the following Code:

+ Code Snippet

    Repeat 
    rem CLS
    ApeMoveX = ApeMoveX + 10
    Paste Image 6, -10, -10
    Paste Image 5, ApeMoveX1, ApeMoveY-20, 1
    Paste Image 7, HumanMoveX, HumanMoveY
    
    If PictureFlag = 0
        Paste Image 9, ApeMoveX, ApeMoveY, 1
        PictureFlag = 1
        SYNC
    ENDIF
    
    If PictureFlag = 1
        Paste Image 10, ApeMoveX, ApeMoveY, 1
        PictureFlag = 2
        SYNC
    ENDIF
    
    If PictureFlag = 2
        Paste Image 11, ApeMoveX, ApeMoveY, 1
        PictureFlag = 3
        SYNC
    ENDIF
    
    If PictureFlag = 3
        Paste Image 8, ApeMoveX, ApeMoveY, 1
        PictureFlag = 0
        SYNC
    ENDIF
    
    SYNC
    Wait 20    
          
    UNTIL ApeMoveX >= HumanMoveX
    
    For i = 1 to 11
     if Image Exist(i) = 1 Then Delete Image i
     if Bitmap Exist(i) Then Delete Bitmap i
    NEXT i

Image 8-11 is a flying Banana. But when the Banana reach the Human, the Black Background of the Banana is drawed over the colored Human. Why won't the Transparancy work in this case (i have other examples, where the Black Background is not drawed

Like This One (The Sync-Command is in the Main Loop)

+ Code Snippet


Function DrawScreen()
   Dec WolkeX
   Paste Image 3, 0, 0, 1
   Paste Image 4, 30, 140, 1
   Paste Image 4, 160, 140, 1
   Paste Image 4, 290, 140, 1
   Paste Image 4, 420, 140, 1
   Paste Image 4, 560, 140, 1
   IF WolkeX < -120 Then WolkeX = 750
   Paste Image 2, WolkeX, WolkeY, 1
   Paste Image 2, WolkeX-123, WolkeY-40, 1

   If LifeLoseFlag = 1
   Ink RGB(255,0,0),0
   Set Text Size 40
   Center Text 320, 240, "Ugga, Ugga, Ugga!!!!"
   Sync
   Wait 1000
   Ink RGB(255,255,255),0
   LifeLoseFlag = 0
   Set Text Size 20
   EndIf

   Text 550, 10, "Life: " + Str$(Life)
   Text 10, 10, "Score: " + Str$(Score)

Endfunction

In this case, everything worked well, so why not in the Start-Screen.

Thanks for your help

Back to top

Profile PM

DBProUser

15

Years of Service

User Offline

Joined: 28th Oct 2010

Location:

Posted: 15th Nov 2010 22:07

Link

Ok. Never mind.

I used another way, to avoid that problem, although i didn't find a Answer myself yet. My Box-problem in the other thread is much more important.

But if you have the answer, i am very interested to Know, why i can see the Black Background ovet the other Image.

But as i already said. For the moment this is not so important like this damn Box.

Back to top

Profile PM

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 16th Nov 2010 14:36

Link

Quote: "Why won't the Transparancy work in this case"

Two things are required for pasting with transparency - first is the extra flag on the PASTE IMAGE command, which for the most part yu have included.

The second thing is that DBPro either has to be given an image that contains a transparency layer (eg PNG, TGA or DDS image types), or to be given a colour that it can use as transparent instead via the SET IMAGE COLORKEY command.

Utility plug-ins (26-JUL-2010)
I'm applying terms of use that require you to wear a red nose and honk a horn whenever you use the Internet

Back to top

Profile PM Email Website

DBProUser

15

Years of Service

User Offline

Joined: 28th Oct 2010

Location:

Posted: 17th Nov 2010 15:04 Edited at: 17th Nov 2010 15:12

Link

Hello IanM,

i already tried that out, but it won't work, so i changed some settings to see, whether it would change or not. But the effect was the same. As i know, DBPro have had a Standard-Colorkey of 0, so that it is not needed to declare the Image Colorkey as long as i use the Standard Background of Deep Black.

Maybe it is not possible in DBPro to load an Image with a Transparent Background, which is not especially formated (in programs like Gimp) with a transparent Background. I mean, Not with the "Load Image" Command, that i use in my first example that didn`t work)

But if i load the Image with Load Bitmap, and not with Load Image, and grasp an Image from the Bitmap (with the Get Image Command like i did in the second Code Snippet), then everything worked fine

If Pauseflag = 1
       Set Image Colorkey RGB(0,0,0),RGB(0,0,0),RGB(0,0,0)
       Load Bitmap "Graphics/PauseImage.png", 3
       Get Image 12, 0, 0, 99, 99, 1
       Set Current Bitmap 0
       Clear Entry Buffer
       bcolor = RGB(80,190,210)
       Set Text Font "Times New Roman"
       Set Text Size 14

Repeat 
        Clear entry Buffer
        CLS bcolor
        Paste Image 3, 0, 0, 1
        Paste Image 4, 30, 140, 1
        Paste Image 4, 160, 140, 1
        Paste Image 4, 290, 140, 1
        Paste Image 4, 420, 140, 1
        Paste Image 4, 560, 140, 1
        Paste Image 2, WolkeX, WolkeY, 1
        Paste Image 2, WolkeX-123, WolkeY-40, 1    
        Paste Image 12, 320, 390, 1
        Center Text 320, 240, "P A U S E"
        SYNC
        Wait 1000
        CLS bcolor
        Paste Image 3, 0, 0, 1
        Paste Image 4, 30, 140, 1
        Paste Image 4, 160, 140, 1
        Paste Image 4, 290, 140, 1
        Paste Image 4, 420, 140, 1
        Paste Image 4, 560, 140, 1
        Paste Image 2, WolkeX, WolkeY, 1
        Paste Image 2, WolkeX-123, WolkeY-40, 1    
        Paste Image 12, 320, 390, 1
        SYNC
        Wait 1000
    Until Inkey$() = "p" or Inkey$() = "P"
    ENDIF    
    Pauseflag = 0
    Set Text Font "System"

+ Code Snippet

If Pauseflag = 1
       Set Image Colorkey RGB(0,0,0),RGB(0,0,0),RGB(0,0,0)
       Load Bitmap "Graphics/PauseImage.png", 3
       Get Image 12, 0, 0, 99, 99, 1
       Set Current Bitmap 0
       Clear Entry Buffer
       bcolor = RGB(80,190,210)
       Set Text Font "Times New Roman"
       Set Text Size 14

    Repeat 
        Clear entry Buffer
        CLS bcolor
        Paste Image 3, 0, 0, 1
        Paste Image 4, 30, 140, 1
        Paste Image 4, 160, 140, 1
        Paste Image 4, 290, 140, 1
        Paste Image 4, 420, 140, 1
        Paste Image 4, 560, 140, 1
        Paste Image 2, WolkeX, WolkeY, 1
        Paste Image 2, WolkeX-123, WolkeY-40, 1    
        Paste Image 12, 320, 390, 1
        Center Text 320, 240, "P A U S E"
        SYNC
        Wait 1000
        CLS bcolor
        Paste Image 3, 0, 0, 1
        Paste Image 4, 30, 140, 1
        Paste Image 4, 160, 140, 1
        Paste Image 4, 290, 140, 1
        Paste Image 4, 420, 140, 1
        Paste Image 4, 560, 140, 1
        Paste Image 2, WolkeX, WolkeY, 1
        Paste Image 2, WolkeX-123, WolkeY-40, 1    
        Paste Image 12, 320, 390, 1
        SYNC
        Wait 1000
    Until Inkey$() = "p" or Inkey$() = "P"
    ENDIF    
    Pauseflag = 0
    Set Text Font "System"

Maybe i misconceive that, but if i change it like i said, than i get the result i wanted. So i was a little bit confused, because i thought, that the Load Image Command would work the same, like the Load Bitmap Command

But i have another question. My Pause-Function did not work as expected. The Pause-Screen appears, but with another Press on the P-Button it won't disappear, or it only disappears with hunderts of tries (and only if you push the button fast enough

)

Do you have a Solution for me?

Thanks!

Back to top

Profile PM

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 17th Nov 2010 15:48

Link

The colorkey and the additional flags for setting transparency ONLY work with formats that naturally don't support an alpha channel. If your images are PNG for example, you won't be able to set the transparent color in DBP, you'll have to edit it in a program. What you can do however is save your images in a BMP format, and then it will be possible to set transparency. That's exactly what you do with load bitmap and get image, you converted the file to a bitmap before proceeding.

TheComet

Back to top

Profile PM Email Website

DBProUser

15

Years of Service

User Offline

Joined: 28th Oct 2010

Location:

Posted: 17th Nov 2010 16:22 Edited at: 17th Nov 2010 16:24

Link

Thanks, i thought so.

As i found out, you are also experienced in programming with dbpro and all that stuff.

Can you tell me, how to make a pause-function (as i already told, my Pausefunction sucks somewhat and i dont want to open a new Thread)?

Back to top

Profile PM

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 17th Nov 2010 16:59

Link

I suppose you are referring to this?

If Pauseflag = 1
       Set Image Colorkey RGB(0,0,0),RGB(0,0,0),RGB(0,0,0)
       Load Bitmap "Graphics/PauseImage.png", 3
       Get Image 12, 0, 0, 99, 99, 1
       Set Current Bitmap 0
       Clear Entry Buffer
       bcolor = RGB(80,190,210)
       Set Text Font "Times New Roman"
       Set Text Size 14

Repeat 
        Clear entry Buffer
        CLS bcolor
        Paste Image 3, 0, 0, 1
        Paste Image 4, 30, 140, 1
        Paste Image 4, 160, 140, 1
        Paste Image 4, 290, 140, 1
        Paste Image 4, 420, 140, 1
        Paste Image 4, 560, 140, 1
        Paste Image 2, WolkeX, WolkeY, 1
        Paste Image 2, WolkeX-123, WolkeY-40, 1    
        Paste Image 12, 320, 390, 1
        Center Text 320, 240, "P A U S E"
        SYNC
        Wait 1000
        CLS bcolor
        Paste Image 3, 0, 0, 1
        Paste Image 4, 30, 140, 1
        Paste Image 4, 160, 140, 1
        Paste Image 4, 290, 140, 1
        Paste Image 4, 420, 140, 1
        Paste Image 4, 560, 140, 1
        Paste Image 2, WolkeX, WolkeY, 1
        Paste Image 2, WolkeX-123, WolkeY-40, 1    
        Paste Image 12, 320, 390, 1
        SYNC
        Wait 1000
    Until Inkey$() = "p" or Inkey$() = "P"
ENDIF    
Pauseflag = 0
Set Text Font "System"

+ Code Snippet

If Pauseflag = 1
       Set Image Colorkey RGB(0,0,0),RGB(0,0,0),RGB(0,0,0)
       Load Bitmap "Graphics/PauseImage.png", 3
       Get Image 12, 0, 0, 99, 99, 1
       Set Current Bitmap 0
       Clear Entry Buffer
       bcolor = RGB(80,190,210)
       Set Text Font "Times New Roman"
       Set Text Size 14

    Repeat 
        Clear entry Buffer
        CLS bcolor
        Paste Image 3, 0, 0, 1
        Paste Image 4, 30, 140, 1
        Paste Image 4, 160, 140, 1
        Paste Image 4, 290, 140, 1
        Paste Image 4, 420, 140, 1
        Paste Image 4, 560, 140, 1
        Paste Image 2, WolkeX, WolkeY, 1
        Paste Image 2, WolkeX-123, WolkeY-40, 1    
        Paste Image 12, 320, 390, 1
        Center Text 320, 240, "P A U S E"
        SYNC
        Wait 1000
        CLS bcolor
        Paste Image 3, 0, 0, 1
        Paste Image 4, 30, 140, 1
        Paste Image 4, 160, 140, 1
        Paste Image 4, 290, 140, 1
        Paste Image 4, 420, 140, 1
        Paste Image 4, 560, 140, 1
        Paste Image 2, WolkeX, WolkeY, 1
        Paste Image 2, WolkeX-123, WolkeY-40, 1    
        Paste Image 12, 320, 390, 1
        SYNC
        Wait 1000
    Until Inkey$() = "p" or Inkey$() = "P"
ENDIF    
Pauseflag = 0
Set Text Font "System"

It looks ok as it is, but you can make quite a few improvements. First of all, you have the exact same code twice. This means you can get rid of half of it:

+ Code Snippet

If Pauseflag = 1
    Set Image Colorkey RGB(0,0,0),RGB(0,0,0),RGB(0,0,0)
    Load Bitmap "Graphics/PauseImage.png", 3
    Get Image 12, 0, 0, 99, 99, 1
    Set Current Bitmap 0
    Clear Entry Buffer
    bcolor = RGB(80,190,210)
    Set Text Font "Times New Roman"
    Set Text Size 14

    Repeat 
        Clear entry Buffer
        CLS bcolor
        Paste Image 3, 0, 0, 1
        Paste Image 4, 30, 140, 1
        Paste Image 4, 160, 140, 1
        Paste Image 4, 290, 140, 1
        Paste Image 4, 420, 140, 1
        Paste Image 4, 560, 140, 1
        Paste Image 2, WolkeX, WolkeY, 1
        Paste Image 2, WolkeX-123, WolkeY-40, 1    
        Paste Image 12, 320, 390, 1
        Center Text 320, 240, "P A U S E"
        SYNC
        Wait 1000
    Until Inkey$() = "p" or Inkey$() = "P"
ENDIF    
Pauseflag = 0
Set Text Font "System"

You don't need the clear entry buffer command. This command will clear the buffer in which all of the entries from the keyboard are stored, but you never access that buffer:

+ Code Snippet

If Pauseflag = 1
    Set Image Colorkey RGB(0,0,0),RGB(0,0,0),RGB(0,0,0)
    Load Bitmap "Graphics/PauseImage.png", 3
    Get Image 12, 0, 0, 99, 99, 1
    Set Current Bitmap 0
    bcolor = RGB(80,190,210)
    Set Text Font "Times New Roman"
    Set Text Size 14

    Repeat 
        CLS bcolor
        Paste Image 3, 0, 0, 1
        Paste Image 4, 30, 140, 1
        Paste Image 4, 160, 140, 1
        Paste Image 4, 290, 140, 1
        Paste Image 4, 420, 140, 1
        Paste Image 4, 560, 140, 1
        Paste Image 2, WolkeX, WolkeY, 1
        Paste Image 2, WolkeX-123, WolkeY-40, 1    
        Paste Image 12, 320, 390, 1
        Center Text 320, 240, "P A U S E"
        SYNC
        Wait 1000
    Until Inkey$() = "p" or Inkey$() = "P"
ENDIF    
Pauseflag = 0
Set Text Font "System"

Also, why wait a second? Isn't that just keeping the player from unpausing?

+ Code Snippet

If Pauseflag = 1
    Set Image Colorkey RGB(0,0,0),RGB(0,0,0),RGB(0,0,0)
    Load Bitmap "Graphics/PauseImage.png", 3
    Get Image 12, 0, 0, 99, 99, 1
    Set Current Bitmap 0
    bcolor = RGB(80,190,210)
    Set Text Font "Times New Roman"
    Set Text Size 14

    Repeat 
        CLS bcolor
        Paste Image 3, 0, 0, 1
        Paste Image 4, 30, 140, 1
        Paste Image 4, 160, 140, 1
        Paste Image 4, 290, 140, 1
        Paste Image 4, 420, 140, 1
        Paste Image 4, 560, 140, 1
        Paste Image 2, WolkeX, WolkeY, 1
        Paste Image 2, WolkeX-123, WolkeY-40, 1    
        Paste Image 12, 320, 390, 1
        Center Text 320, 240, "P A U S E"
        SYNC
    Until Inkey$() = "p" or Inkey$() = "P"
ENDIF    
Pauseflag = 0
Set Text Font "System"

Instead of Until Inkey$() = "p" or Inkey$() = "P", you can use Until lower$(Inkey$())="p":

+ Code Snippet

If Pauseflag = 1
    Set Image Colorkey RGB(0,0,0),RGB(0,0,0),RGB(0,0,0)
    Load Bitmap "Graphics/PauseImage.png", 3
    Get Image 12, 0, 0, 99, 99, 1
    Set Current Bitmap 0
    bcolor = RGB(80,190,210)
    Set Text Font "Times New Roman"
    Set Text Size 14

    Repeat 
        CLS bcolor
        Paste Image 3, 0, 0, 1
        Paste Image 4, 30, 140, 1
        Paste Image 4, 160, 140, 1
        Paste Image 4, 290, 140, 1
        Paste Image 4, 420, 140, 1
        Paste Image 4, 560, 140, 1
        Paste Image 2, WolkeX, WolkeY, 1
        Paste Image 2, WolkeX-123, WolkeY-40, 1    
        Paste Image 12, 320, 390, 1
        Center Text 320, 240, "P A U S E"
        SYNC
    Until lower$(inkey$())="p"
ENDIF    
Pauseflag = 0
Set Text Font "System"

I bet you can put some of that into a for...next loop :

+ Code Snippet

If Pauseflag = 1
    Set Image Colorkey RGB(0,0,0),RGB(0,0,0),RGB(0,0,0)
    Load Bitmap "Graphics/PauseImage.png", 3
    Get Image 12, 0, 0, 99, 99, 1
    Set Current Bitmap 0
    bcolor = RGB(80,190,210)
    Set Text Font "Times New Roman"
    Set Text Size 14

    Repeat 
        CLS bcolor
        Paste Image 3, 0, 0, 1
        for t=0 to 3
            Paste Image 4, (t*130)+30, 140, 1
        next t
        Paste Image 2, WolkeX, WolkeY, 1
        Paste Image 2, WolkeX-123, WolkeY-40, 1    
        Paste Image 12, 320, 390, 1
        Center Text 320, 240, "P A U S E"
        SYNC
    Until lower$(inkey$())="p"
ENDIF    
Pauseflag = 0
Set Text Font "System"

And last, why load the image in the middle of the game? Shouldn't you load the pause image at the beginning? If you do want to load it in-game, you have to delete it after the pause loop.

+ Code Snippet

If Pauseflag = 1
    Set Image Colorkey RGB(0,0,0),RGB(0,0,0),RGB(0,0,0)
    Load Bitmap "Graphics/PauseImage.png", 3 : rem This here can go at beginning
    Get Image 12, 0, 0, 99, 99, 1
    Set Current Bitmap 0
    bcolor = RGB(80,190,210)
    Set Text Font "Times New Roman"
    Set Text Size 14

TheComet

Back to top

Profile PM Email Website

DBProUser

15

Years of Service

User Offline

Joined: 28th Oct 2010

Location:

Posted: 17th Nov 2010 17:50 Edited at: 17th Nov 2010 18:18

Link

First of all, Thanks a lot for the Optimizations

What i want to do is a blinking "Pause"-writing, so i need a Second wait-Command between the two status (visible and invisible "Pause")

If i delete the Wait-Commands than in fact the Pause-Function work, but not with the intention i had first (the blinking "Pause"-Letters).

The wait commands seems to block everything but i somehow need a delay between the two states, with the ability to scan inputs.

What i can do to avoid that is to change my one-press-function to a press and hold function (Press and hold r-button to resume, or so) than everything is fine, but that should be not the solution.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Transparent Image-Background won't work