OpenEuphoria

1. Image Not Appearing

• Posted by Lone_EverGreen_Ranger Dec 20, 2011
• 1974 views

Hello, I'm using Euphoria 4.0 and the most current version of the SDL wrapper. I am trying to blit an image to the screen, yet it is not showing on the screen. I have posted my code.

without warning 
without type_check 
 
include std/get.e 
include std/sort.e 
include std/rand.e 
include std/math.e 
include std/mathcons.e 
include std/eds.e 
include std/filesys.e 
include std/wildcard.e 
 
include Sdl_Wrap.ew 
include SDL_image.ew 
 
constant TRUE = 1 
constant FALSE = 0 
 
constant MAX_HEALTH = 100 
constant MAX_LIVES = 3 
constant ENEMY_LIVES = 1 
 
constant MAX_WIDTH = 800 
constant MAX_HEIGHT = 600 
constant MAX_DEPTH = 32 
 
atom dummy 
atom surface,buffer 
atom keyState,curKey,prevKey 
atom run 
atom title,logo --gfx 
atom ship,missle,enemy --gfx  
atom backdrop --gfx 
atom shiprect,misslerect,enemyrect --rects 
integer shipx,shipy,shipwidth,shipheight 
integer misslex,missley,misslewidth,missleheight 
integer enemyx,enemyy,enemywidth,enemyheight 
atom shipvelx,shipvely 
atom enemyvelx,enemyvely 
atom misslevelx,misslevely 
atom format 
 
integer Missle_Fired = FALSE 
 
atom health = MAX_HEALTH 
atom lives = MAX_LIVES 
 
atom score 
 
sequence sTitle = "4000 A.D. - Geek Punk Games" 
sequence sIcon = "" 
 
integer enemypoints 
integer ticks,last_tick 
atom deltatime 
 
sequence Screens = {"Logo","Title","Game"} 
atom screen 
 
procedure CalcRect(atom rect, integer sx, integer sy, integer tx, integer ty) 
 
	poke(rect,and_bits(sx,255)) 
	poke(rect+1,floor(sx/256)) 
	poke(rect+2,and_bits(sy,255)) 
	poke(rect+3,floor(sy/256)) 
	poke(rect+4,and_bits(tx,255)) 
	poke(rect+5,floor(tx/256)) 
	poke(rect+6,and_bits(ty,255)) 
	poke(rect+7,floor(ty/256)) 
	 
end procedure 
 
procedure Init() 
 
	dummy = SDL_Init(SDL_INIT_EVERYTHING) 
	 
	if dummy = -1 then 
		puts(1,"Could not init SDL") 
	end if 
	 
	surface = SDL_SetVideoMode(MAX_WIDTH,MAX_HEIGHT,MAX_DEPTH,SDL_HWSURFACE) 
	 
	SDL_WM_SetCaption(sTitle,sIcon) 
	 
	format = peek4u(surface+4) 
	 
	shiprect = allocate(16) 
	enemyrect = allocate(16) 
	misslerect = allocate(16) 
	 
	title = IMG_LoadJPG("Title.jpg") 
	logo = IMG_LoadJPG("Logo.jpg") 
	backdrop = IMG_LoadJPG("Backdrop.jpg") 
	ship = IMG_LoadJPG("Ship.jpg") 
	enemy = IMG_LoadJPG("Enemy.jpg") 
	missle = IMG_LoadJPG("Missle.jpg") 
	 
	--get rid of background color on image(the whitespace) 
	dummy = SDL_SetColorKey(ship,SDL_SRCCOLORKEY,SDL_MapRGB(format,255,255,255)) 
	if dummy = -1 then 
		puts(1,"Could not apply color key") 
	end if 
	 
	dummy = SDL_SetColorKey(enemy,SDL_SRCCOLORKEY,SDL_MapRGB(format,255,255,255)) 
	if dummy = -1 then 
		puts(1,"Could not apply color key") 
	end if 
	 
	dummy = SDL_SetColorKey(missle,SDL_SRCCOLORKEY,SDL_MapRGB(format,255,255,255)) 
	if dummy = -1 then 
		puts(1,"Could not apply color key") 
	end if 
	 
end procedure 
 
procedure Run() 
 
	run = 1 
	screen = Screens[1] 
	 
	while run = 1 do 
	 
		ticks = SDL_GetTicks() 
	 
		SDL_PumpEvents() 
		 
		keyState = SDL_GetKeyState(NULL) 
		if peek(keyState+SDLK_ESCAPE) > 0 then 
			run = 0 
		end if 
		 
		dummy = SDL_BlitSurface(logo,NULL,surface,NULL) 
		if dummy = -1 then 
			puts(1,"Could not blit surface") 
		end if 
		 
		if peek(keyState+SDLK_RETURN) > 0 and screen = Screens[1] then 
			screen = Screens[2] 
		end if 
		 
		if screen = Screens[2] then 
			dummy = SDL_BlitSurface(title,NULL,surface,NULL) 
			if dummy = -1 then 
				puts(1,"Could not blit surface") 
			end if 
		end if 
	 
	end while 
	 
end procedure 
 
procedure Quit() 
	 
	SDL_FreeSurface(ship) 
	SDL_FreeSurface(enemy) 
	SDL_FreeSurface(missle) 
	SDL_FreeSurface(title) 
	SDL_FreeSurface(logo) 
	SDL_FreeSurface(backdrop) 
	 
	free(shiprect) 
	free(enemyrect) 
	free(misslerect) 
 
	SDL_Quit() 
	 
end procedure 
 
Init() 
Run() 
Quit() 

3. Re: Image Not Appearing

• Posted by Lone_EverGreen_Ranger Dec 21, 2011
• 1907 views

without warning 
without type_check 
 

An error comes up. type_check failure, screen is {76, 111,103,111}. Called from line 170.

5. Re: Image Not Appearing

• Posted by Lone_EverGreen_Ranger Dec 21, 2011
• 1918 views

without warning 
without type_check 
 

So I should make the variable 'screen' be an object or a sequence?

EDIT: I made it an object, now I get the error, sequence lengths are not the same (4 != 5). What does that mean?

7. Re: Image Not Appearing

• Posted by Lone_EverGreen_Ranger Dec 21, 2011
• 1938 views

without warning 
without type_check 
 

I'm still a bit confused. Anyone able to show me what exactly I'm doing wrong with my code?

9. Re: Image Not Appearing

• Posted by Lone_EverGreen_Ranger Dec 21, 2011
• 1929 views

if screen = Screens[1] 

if equal(screen,Screens[1]) 

without warning 
without type_check 
 
include std/get.e 
include std/sort.e 
include std/rand.e 
include std/math.e 
include std/mathcons.e 
include std/eds.e 
include std/filesys.e 
include std/wildcard.e 
 
include Sdl_Wrap.ew 
include SDL_image.ew 
 
constant TRUE = 1 
constant FALSE = 0 
 
constant MAX_HEALTH = 100 
constant MAX_LIVES = 3 
constant ENEMY_LIVES = 1 
 
constant MAX_WIDTH = 800 
constant MAX_HEIGHT = 600 
constant MAX_DEPTH = 32 
 
atom dummy 
atom surface,buffer 
atom keyState,curKey,prevKey 
atom run 
atom title,logo --gfx 
atom ship,missle,enemy --gfx  
atom backdrop --gfx 
atom shiprect,misslerect,enemyrect --rects 
integer shipx,shipy,shipwidth,shipheight 
integer misslex,missley,misslewidth,missleheight 
integer enemyx,enemyy,enemywidth,enemyheight 
atom shipvelx,shipvely 
atom enemyvelx,enemyvely 
atom misslevelx,misslevely 
atom format 
 
integer Missle_Fired = FALSE 
 
atom health = MAX_HEALTH 
atom lives = MAX_LIVES 
 
atom score 
 
sequence sTitle = "4000 A.D. - Geek Punk Games" 
sequence sIcon = "" 
 
integer enemypoints 
integer ticks,last_tick 
atom deltatime 
 
sequence Screens = {"Logo","Title","Game"} 
object screen 
 
procedure CalcRect(atom rect, integer sx, integer sy, integer tx, integer ty) 
 
	poke(rect,and_bits(sx,255)) 
	poke(rect+1,floor(sx/256)) 
	poke(rect+2,and_bits(sy,255)) 
	poke(rect+3,floor(sy/256)) 
	poke(rect+4,and_bits(tx,255)) 
	poke(rect+5,floor(tx/256)) 
	poke(rect+6,and_bits(ty,255)) 
	poke(rect+7,floor(ty/256)) 
	 
end procedure 
 
procedure Init() 
 
	dummy = SDL_Init(SDL_INIT_EVERYTHING) 
	 
	if dummy = -1 then 
		puts(1,"Could not init SDL") 
	end if 
	 
	surface = SDL_SetVideoMode(MAX_WIDTH,MAX_HEIGHT,MAX_DEPTH,SDL_HWSURFACE) 
	 
	SDL_WM_SetCaption(sTitle,sIcon) 
	 
	format = peek4u(surface+4) 
	 
	shiprect = allocate(16) 
	enemyrect = allocate(16) 
	misslerect = allocate(16) 
	 
	title = IMG_LoadJPG("Title.jpg") 
	logo = IMG_LoadJPG("Logo.jpg") 
	backdrop = IMG_LoadJPG("Backdrop.jpg") 
	ship = IMG_LoadJPG("Ship.jpg") 
	enemy = IMG_LoadJPG("Enemy.jpg") 
	missle = IMG_LoadJPG("Missle.jpg") 
	 
	--get rid of background color on image(the whitespace) 
	dummy = SDL_SetColorKey(ship,SDL_SRCCOLORKEY,SDL_MapRGB(format,255,255,255)) 
	if dummy = -1 then 
		puts(1,"Could not apply color key") 
	end if 
	 
	dummy = SDL_SetColorKey(enemy,SDL_SRCCOLORKEY,SDL_MapRGB(format,255,255,255)) 
	if dummy = -1 then 
		puts(1,"Could not apply color key") 
	end if 
	 
	dummy = SDL_SetColorKey(missle,SDL_SRCCOLORKEY,SDL_MapRGB(format,255,255,255)) 
	if dummy = -1 then 
		puts(1,"Could not apply color key") 
	end if 
	 
end procedure 
 
procedure Run() 
 
	run = 1 
	screen = Screens[1] 
	 
	while run = 1 do 
	 
		ticks = SDL_GetTicks() 
	 
		SDL_PumpEvents() 
		 
		keyState = SDL_GetKeyState(NULL) 
		if peek(keyState+SDLK_ESCAPE) > 0 then 
			run = 0 
		end if 
		 
		dummy = SDL_BlitSurface(logo,NULL,surface,NULL) 
		if dummy = -1 then 
			puts(1,"Could not blit surface") 
		end if 
		 
		if peek(keyState+SDLK_RETURN) > 0 and equal(screen,Screens[1]) then 
			screen = Screens[2] 
		end if 
		 
		if equal(screen,Screens[2]) then 
			dummy = SDL_BlitSurface(title,NULL,surface,NULL) 
			if dummy = -1 then 
				puts(1,"Could not blit surface") 
			end if 
		end if 
	 
	end while 
	 
end procedure 
 
procedure Quit() 
	 
	SDL_FreeSurface(ship) 
	SDL_FreeSurface(enemy) 
	SDL_FreeSurface(missle) 
	SDL_FreeSurface(title) 
	SDL_FreeSurface(logo) 
	SDL_FreeSurface(backdrop) 
	 
	free(shiprect) 
	free(enemyrect) 
	free(misslerect) 
 
	SDL_Quit() 
	 
end procedure 
 
Init() 
Run() 
Quit() 

Alright, this is my modified code, still not showing the image.

11. Re: Image Not Appearing

• Posted by mattlewis (admin) Dec 21, 2011
• 1920 views

I don't know anything about SDL, but in order to debug this, you need to find out where the failure is occurring. I'd start by looking to answer a few questions:

• Does the blit code actually get called?
• Are the parameters correct?
• Does the image get loaded properly?
• Is everything initialized correctly inside of SDL

Also, you could simplify setting up the rectangle in memory:

procedure CalcRect(atom rect, integer sx, integer sy, integer tx, integer ty) 
    poke2( rect,  { sx, sy, tx, ty } ) 
end procedure 

13. Re: Image Not Appearing

• Posted by jimcbrown (admin) Dec 21, 2011
• 1798 views

procedure CalcRect(atom rect, integer sx, integer sy, integer tx, integer ty) 
    poke2( rect,  { sx, sy, tx, ty } ) 
end procedure 

You forgot to call SDL_Flip(surface) in your code. When I add that, it works.

See http://openeuphoria.org/pastey/105.wc

15. Re: Image Not Appearing

• Posted by Lone_EverGreen_Ranger Dec 21, 2011
• 1813 views

Success. I was missing SDL_Flip(), which is why it was not showing up on the screen. However not I am having a problem with keeping the ship stay on the screen. Here is the updated code.

without warning 
without type_check 
 
include std/get.e 
include std/sort.e 
include std/rand.e 
include std/math.e 
include std/mathcons.e 
include std/eds.e 
include std/filesys.e 
include std/wildcard.e 
 
include Sdl_Wrap.ew 
include SDL_image.ew 
 
constant TRUE = 1 
constant FALSE = 0 
 
constant MAX_HEALTH = 100 
constant MAX_LIVES = 3 
constant ENEMY_LIVES = 1 
 
constant MAX_WIDTH = 800 
constant MAX_HEIGHT = 600 
constant MAX_DEPTH = 32 
 
atom dummy 
atom surface,buffer 
atom keyState,curKey,prevKey 
atom run 
atom title,logo --gfx 
atom ship,missle,enemy --gfx  
atom backdrop --gfx 
atom shiprect,misslerect,enemyrect --rects 
integer shipx=10,shipy=300,shipwidth=64,shipheight=64 
integer misslex=0,missley=0,misslewidth=64,missleheight=64 
integer enemyx=0,enemyy=0,enemywidth=64,enemyheight=64 
atom shipvelx=0,shipvely=0 
atom enemyvelx=0,enemyvely=0 
atom misslevelx=0,misslevely=0 
atom format 
 
integer Missle_Fired = FALSE 
 
atom health = MAX_HEALTH 
atom lives = MAX_LIVES 
 
atom score 
 
sequence sTitle = "4000 A.D. - Geek Punk Games" 
sequence sIcon = "" 
 
integer enemypoints 
integer ticks,last_tick 
atom deltatime 
 
sequence Screens = {"Logo","Title","Game"} 
object screen 
 
procedure CalcRect(atom rect, integer sx, integer sy, integer tx, integer ty) 
 
	poke(rect,and_bits(sx,255)) 
	poke(rect+1,floor(sx/256)) 
	poke(rect+2,and_bits(sy,255)) 
	poke(rect+3,floor(sy/256)) 
	poke(rect+4,and_bits(tx,255)) 
	poke(rect+5,floor(tx/256)) 
	poke(rect+6,and_bits(ty,255)) 
	poke(rect+7,floor(ty/256)) 
	 
end procedure 
 
procedure Init() 
 
	dummy = SDL_Init(SDL_INIT_EVERYTHING) 
	 
	if dummy = -1 then 
		puts(1,"Could not init SDL") 
	end if 
	 
	surface = SDL_SetVideoMode(MAX_WIDTH,MAX_HEIGHT,MAX_DEPTH,SDL_HWSURFACE) 
	 
	SDL_WM_SetCaption(sTitle,sIcon) 
	 
	format = peek4u(surface+4) 
	 
	shiprect = allocate(16) 
	enemyrect = allocate(16) 
	misslerect = allocate(16) 
	 
	title = IMG_LoadJPG("Title.jpg") 
	logo = IMG_LoadJPG("Logo.jpg") 
	backdrop = IMG_LoadJPG("Backdrop.jpg") 
	ship = IMG_LoadJPG("Ship.jpg") 
	enemy = IMG_LoadJPG("Enemy.jpg") 
	missle = IMG_LoadJPG("Missle.jpg") 
	 
	--get rid of background color on image(the whitespace) 
	dummy = SDL_SetColorKey(ship,SDL_SRCCOLORKEY,SDL_MapRGB(format,255,255,255)) 
	if dummy = -1 then 
		puts(1,"Could not apply color key") 
	end if 
	 
	dummy = SDL_SetColorKey(enemy,SDL_SRCCOLORKEY,SDL_MapRGB(format,255,255,255)) 
	if dummy = -1 then 
		puts(1,"Could not apply color key") 
	end if 
	 
	dummy = SDL_SetColorKey(missle,SDL_SRCCOLORKEY,SDL_MapRGB(format,255,255,255)) 
	if dummy = -1 then 
		puts(1,"Could not apply color key") 
	end if 
	 
end procedure 
 
procedure Run() 
 
	run = 1 
	screen = Screens[1] 
	 
	while run = 1 do 
	 
		ticks = SDL_GetTicks() 
	 
		SDL_PumpEvents() 
		 
		keyState = SDL_GetKeyState(NULL) 
		if peek(keyState+SDLK_ESCAPE) > 0 then 
			run = 0 
		end if 
		 
		CalcRect(shiprect,shipx,shipy,shipwidth,shipheight) 
		 
		dummy = SDL_BlitSurface(logo,NULL,surface,NULL) 
		if dummy = -1 then 
			puts(1,"Could not blit surface") 
		end if 
		 
		if peek(keyState+SDLK_RETURN) > 0 and equal(screen,Screens[1]) then 
			screen = Screens[2] 
		end if 
		 
		if equal(screen,Screens[2]) then 
			dummy = SDL_BlitSurface(title,NULL,surface,NULL) 
			if dummy = -1 then 
				puts(1,"Could not blit surface") 
			end if 
		end if 
		 
		if peek(keyState+SDLK_SPACE) > 0 and equal(screen,Screens[2]) then 
			screen = Screens[3] 
		end if 
		 
		if equal(screen,Screens[3]) then 
			dummy = SDL_BlitSurface(backdrop,NULL,surface,NULL) 
			dummy = SDL_BlitSurface(ship,NULL,surface,shiprect) 
			if dummy = -1 then 
				puts(1,"Could not blit surface") 
			end if 
		end if 
		 
		if peek(keyState+SDLK_UP) > 0 then 
			shipy = shipy - 5 
		elsif peek(keyState+SDLK_DOWN) > 0 then 
			shipy = shipy + 5 
		elsif peek(keyState+SDLK_LEFT) > 0 then 
			shipx = shipx - 5 
		elsif peek(keyState+SDLK_RIGHT) > 0 then 
			shipx = shipx + 5 
		elsif shipx <= 1 then 
			shipx = shipx + 1 
		elsif shipx >= 586 then 
			shipx = shipx - 1 
		elsif shipy <= 780 then 
			shipy = shipy + 1 
		elsif shipy >= 0 then 
			shipy = shipy - 1 
		end if 
		 
		SDL_Flip(surface) 
	 
	end while 
	 
end procedure 
 
procedure Quit() 
	 
	SDL_FreeSurface(ship) 
	SDL_FreeSurface(enemy) 
	SDL_FreeSurface(missle) 
	SDL_FreeSurface(title) 
	SDL_FreeSurface(logo) 
	SDL_FreeSurface(backdrop) 
	 
	free(shiprect) 
	free(enemyrect) 
	free(misslerect) 
 
	SDL_Quit() 
	 
end procedure 
 
Init() 
Run() 
Quit() 
 

17. Re: Image Not Appearing

• Posted by Lone_EverGreen_Ranger Dec 21, 2011
• 1790 views

I see. I figured it would involve more complex steps. If anyone could give me a headstart, I'd greatly appericate it. I'm not tasking to write my game, just some help.

19. Re: Image Not Appearing

• Posted by Lone_EverGreen_Ranger Dec 21, 2011
• 1818 views

integer x 
integer y 
integer x_way 
integer y_way 
x = 1 
y = 1 
x_way = 1 
y_way = 1 
while 1 do 
	clear_screen() 
	position(x, y) 
	puts(1, "*") 
	x += x_way 
	y += y_way 
	if x >= 10 then 
		x_way = -1 
	elsif x < 2 then 
		x_way = 1 
	end if 
	if y >= 10 then 
		y_way = -1 
	elsif y < 2 then 
		y_way = 1 
	end if 
	machine_proc(64, 1) 
end while 

Thanks for the help.

21. Re: Image Not Appearing

• Posted by jimcbrown (admin) Dec 22, 2011
• 1710 views

Are you saying my code doesn't work?

23. Re: Image Not Appearing

• Posted by jimcbrown (admin) Dec 22, 2011
• 1666 views

That was a design compromise. A lower threshold was not possible without directly calling lower level OS functions (e.g. nanosleep()), busy-waiting, or depending on Euphoria 4.0 (as earlier versions busy-waited for fractional seconds).

In retrospect this was probably not the best design decision.

I can not find this definition or understanding in a dictionary. Perhaps you could point me to a better authoritive reference.

http://dictionary.reference.com/browse/work?db=%252A

The small screen size was another design decision, for those of us who use really small console windows (less than 80x25 in size). Why? One reason is to enable as many users to try out the code as possible. Another reason is because this is what I use.

I believe that these are excellent enhancements which are a lot closer to the original intention of the OP. Your version is incredibly useful and helpful, probably more so than mine.

I agree as well.

I didn't see it. There is a likely explaination, however:

I am still placing the nick useless and its derivatives under ignore, to protest your decision to use that name, in the same way that unkmar is protesting this by refusing to join the IRC channel at all. I'm not protesting your right to use that name, or any other name, just the reasoning behind the choice: that you are unable to make useful contributions. I think your posts on this thread show that this belief is false.

25. Re: Image Not Appearing

• Posted by useless_ Dec 22, 2011
• 1681 views

I did say "If". One could also say "If small horses flew with no visable means to do so, and had narwhale horns, we might call them unicorns".

My dosboxes are set to 80x25. I figured it was standard, so why not use the whole box.

Perhaps if we didn't open this discussion of code with a definition of "if", the same way some other words need discussing, i might agree. I might also agree if any code i have written in the last 12 years was deemed worthwhile. Some of my suggestions have been fought against extremely strongly by various people. Now just watch CK/euphoric jump on this paragraph.

I was not aware unkmar was staying out of the channel because of me. I shall now leave the channel.

useless

27. Re: Image Not Appearing

• Posted by useless_ Dec 22, 2011
• 1630 views

I thought the object of the game was to see the bounce. Each one second move of the asterisk added up to 10 seconds to get to the bounce. That got excessive before the second bounce was on the horizon. And if one is tracing the code to see how it works, sitting there for one second nine times to get to the bounce is just wasting time.

So you have a problem with the nick "useless", and "eukat" too? Gosh, i haven't used eukat on irc in 1 year, 17 weeks, 2 days, 6hours, it's remarkable you remember to be offended by it! Perhaps you could tell me a nick you and unkmar would approve of, so you would not have me on ignore despite my contributions being useful. It's sorta like you are making sure i am useless by ignoring me, which is sorta ironic.

I did not "sign" that post with that nick, i signed it with the most truely descriptive i have: useless. It's a nick well suited to one on your ignore list, isn't it? And by editing my post to change my signature, invalidating my decision to use that nick, you are making my decision useless.

useless

29. Re: Image Not Appearing

• Posted by jimcbrown (admin) Dec 22, 2011
• 1623 views

I suppose this makes sense, depending on each individual's own POV.

That was the result of an overaggressive spell checker. I've edited the previous post to fix that.

I don't have eukat on ignore. Only useless and its derivatives. Virtually any other nick would reach me. (I do have other nicks and ips in my ignore list, for reasons that I don't really want to go into.)

My decision to use the spell checker in this manner was done in reaction to this post:

http://openeuphoria.org/forum/m/116452.wc

Simply because Derek had used the auto-quoting in the previous post:

http://openeuphoria.org/forum/m/116451.wc

31. Re: Image Not Appearing

• Posted by jimcbrown (admin) Dec 22, 2011
• 1599 views

This (automated and accidental) editing only occured within my own posts, resulting in misquotes. I've corrected those. Your original posts are still in the thread, unmodified.

The only person with a higher authority than I on this website is euphoric, though several share an equal rank with me.

33. Re: Image Not Appearing

• Posted by jimcbrown (admin) Jan 19, 2012
• 1277 views

I had to think about this for a while. I almost removed that nick from my ignore list before I realized why this is not true.

When you are in the irc channel, you're able to talk with any other member there. Nothing is being taken away in that regard.

As virtually every on-topic issue discussed on IRC ends up on the forum, there's no loss to the community.

I won't be able to benefit from your comments and insights on things about life in general, so this will probably hurt me, but this only affects me and does not diminish your contributions here. That's a burden that I'm willing to bear.

Agreed. However, I continue to feel justified in doing so due to http://openeuphoria.org/forum/m/116452.wc and I also believe there is a huge difference between making one decision of yours less than moderately useful and stating that you are less than moderately useful.