Trouble with get image() - GameCreators Forum

Author

Message

Monsieur Mort

19

Years of Service

User Offline

Joined: 12th Feb 2005

Location:

Posted: 19th Feb 2005 23:09

Link

I'm trying to make some text I've stored as a .bmp wobble in a sine wave, just because it'd look cool as a title to stick on the front of the pong game I'm making as practise, but I've having trouble. I can't for the life of me see what's wrong with the code, but it seems that get image() is returning blank images - perhaps capturing from the screen instead of the bitmap?

+ Code Snippet

sync on

load bitmap "image.bmp",1

for n=1 to bitmap width(1)

   get image n,n-1,0,n,bitmap height(1)

next n

do

   inc i

   for n=1 to bitmap width(1)

      paste image n,(320-bitmap width(1)/2),(240-bitmap height(1)/2)+sin((360/bitmap width(1))*(n+i))*40

   next n

   sync
   cls

loop

Why do you sink I ave zees outRAGEOUS accente?!

Back to top

Profile PM

Gil Galvanti

19

Years of Service

User Offline

Joined: 22nd Dec 2004

Location: Texas, United States

Posted: 20th Feb 2005 02:54

Link

try "load image" instead of "load bitmap"

Video games…they can take you places unreachable, impossible, unfeasible. They put you in the book...they put you in the movie...they put you in a world, a world that before could only be imagined.

Back to top

Profile PM Website

Monsieur Mort

19

Years of Service

User Offline

Joined: 12th Feb 2005

Location:

Posted: 20th Feb 2005 03:53

Link

Doesn't help. But then it shouldn't, because GET IMAGE is supposed to take an image from the current bitmap, and if I've loaded an image it can't very well do that.

Why do you sink I ave zees outRAGEOUS accente?!

Back to top

Profile PM

Dodo

20

Years of Service

User Offline

Joined: 8th Aug 2004

Location: eating lunch

Posted: 20th Feb 2005 04:50

Link

get image is not returning blank images - you just aren't drawing to the screen

. Try puuting set current bitmap 0 before the main loop, like this:

+ Code Snippet

sync on

load bitmap "image.bmp",1

for n=1 to bitmap width(1)

   get image n,n-1,0,n,bitmap height(1)

next n

set current bitmap 0

do

   inc i

   for n=1 to bitmap width(1)

      paste image n,(320-bitmap width(1)/2),(240-bitmap height(1)/2)+sin((360/bitmap width(1))*(n+i))*40

   next n

   sync
   cls

loop

Part of solving the problem is actually noticing that the problem is there in the first place

Back to top

Profile PM Email Website

Monsieur Mort

19

Years of Service

User Offline

Joined: 12th Feb 2005

Location:

Posted: 20th Feb 2005 05:03

Link

Lol! Can't believe I didn't see that. That didn't help either though - I was really hoping it would but it doesn't seem. Does the code work for you if you use your own image?

Why do you sink I ave zees outRAGEOUS accente?!

Back to top

Profile PM

wmf

19

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 21st Feb 2005 02:57

Link

try this. moved the sync command and changed the x value because it was printing in the same position. '320-bitmap width(1)/2)+n'

+ Code Snippet

set current bitmap 0
do

   inc i

   for n=1 to bitmap width(1)

      paste image n,(320-bitmap width(1)/2)+n,(240-bitmap height(1)/2)+sin((360/bitmap width(1))*(n+i))*40
      sync
   next n

   cls

loop

Back to top

Profile PM

Monsieur Mort

19

Years of Service

User Offline

Joined: 12th Feb 2005

Location:

Posted: 21st Feb 2005 04:04

Link

Moving the sync didn't command, but I'm glad you spotted the missing +n. It's now pasting the image but not waving it. I'll keep trying

Why do you sink I ave zees outRAGEOUS accente?!

Back to top

Profile PM

Monsieur Mort

19

Years of Service

User Offline

Joined: 12th Feb 2005

Location:

Posted: 21st Feb 2005 04:18

Link

Ok here's a quick update - I've got it doing some precalc to speed things up, and I've decided the (n+i) bit shouldn't have been in brackets. Now the hole image is bouncing up and down as if that y value is the same for every value of n. I don't understand it at all.

+ Code Snippet

val1=320-bitmap width(1)/2
val2=240-bitmap height(1)/2
val3=360/bitmap width(1)

do

   inc i,10

   for n=1 to bitmap width(1)

      paste image n,val1+n,val2+40*sin(val3*n+i)

   next n

   sync
   cls

loop

Why do you sink I ave zees outRAGEOUS accente?!

Back to top

Profile PM

wmf

19

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 21st Feb 2005 13:04 Edited at: 21st Feb 2005 21:54

Link

this works but the size of the image changes the speed so play around with the values. there is probably a better way of doing it tho.

+ Code Snippet

sync on
sync rate 0
load bitmap "name.bmp",1

for n=1 to bitmap width(1)

   get image n,n-1,0,n,bitmap height(1)

next n

set current bitmap 0
val3 as float
val1=screen width()/2-bitmap width(1)/2
val2=screen height()/2-bitmap height(1)/2
val3=bitmap width(1)/val1
if val3 < 1 then val3 = 1

do

   for i = 1 to 360

   for n=1 to bitmap width(1)

      `paste image n,val1+n,val2+40*sin(val3*n+i)
      paste image n,val1+n,val2+20*sin(val3*i+n)

   next n
   sync
   cls
   next i

loop

edit: changed val3 so speed stays the same with screen size changes.

Back to top

Profile PM

Monsieur Mort

19

Years of Service

User Offline

Joined: 12th Feb 2005

Location:

Posted: 21st Feb 2005 22:49

Link

Yeh, you don't need that for i=1 to 360 loop, just use inc i,10, and use my original paste image line, with 20* or 40* according to preference. I don't understand though, why did you change val3 like that, and why does it work? The weird thing is that I had based my latest version on the following titles screen for a retro pong game I'm making (display mode 320,200,32 for best effect). The titles work fine, but the code's got the same as my version of val3, not yours.

+ Code Snippet

rem      --~~==>>   TITLES   <<==~~--

rem Get bitmap
load bitmap "pong.bmp",1

rem Cut bitmap into slices
for n=1 to bitmap width(1)
   get image n,n-1,0,n,bitmap height(1)
next n

n=0

rem Make images paste to screen
set current bitmap 0

rem Do some titles precalc
Val1=150-bitmap width(1)/2
Val2=80-bitmap height(1)/2
Val3=500/bitmap width(1)

rem Set text for menu options
set text size 20
set text font "impossibilium brk"

rem Title loop
do

   cls

   rem Draw screen
   drawBorder(g)
   drawBat(g,p1x,p1y)
   drawBat(g,p2x,p2y)
   ink y,0

   rem Sine wave the text
   inc n,10
   for i=1 to bitmap width(1)
       paste image i,Val1+i,Val2+10*sin(Val3*i+n)
   next i

   rem Draw menu
   center text 150,130,"START <> 1"
   center text 150,150,"QUIT   <> 2"

   rem Exit to main on keypress
   if inkey$()="1" then exit
   if inkey$()="2" or escapekey() then end

   sync

loop

Why do you sink I ave zees outRAGEOUS accente?!

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Trouble with get image()