You could make a table of RGB values along with a color index of the current pallet, and just choose the closest match.. Probally look like crap tho.

Sorry, Its not meant to be fully working engine, I just figure that someone might benefit from seeing how it was put together, etc. Its alot better than just never releasing the source for it. It started as a 256x224 window and then I applied the Scale2x algorithm to it, and added some minimaps, and...

Im releasing the source code to the metroid like engine I was working on. Its not nearly complete, but it demonstrates quite a few technics that work well together I am doing this because I need to re-write the entire thing to do what I was planning with it (Make a 2d engine base I can use for multi...

My code sample was more to prove how indenting your code properly, and using a structure makes it very easy to read and debug.

We could post our samples of the pyramid but that would be doing your homework for you :D which I would frown upon.

I havnt done an assignment like this in years.

I agree with vdecampo, I did my pyramid a little differenly, but the theory is sound Us an odd number of colums Buffer with space(s) before it. in order to center it. please indent your code blocks. eg: for blah = 0 to 10 for moreblah = 10 to 20 this = moreblah if this = 15 then print "THIS!&qu...

check this topic for more active discussion.

Ive written a few tips in it. (But i am not doing your homework for you)

http://www.freebasic.net/forum/viewtopi ... highlight=

I fixed the function so it doesnt create 0 byte files, plus did a little cleanup 'Create an Animated Sprite, from a folder of images Function sprite_add (Byref _folder As String) As Integer Dim As Integer image_total, image_which, f, quit Dim As String folder = _folder Dim as String filename If spri...

You routines are creating 0 byte files.

See your example.

You have sprites\redcircle\01 through 08.

Your routine creates 09 as 0 bytes.
A simple erase/kill would fix that, or just a len check maybe.

How about implimenting toggles for the keys instead of using 2 keys for each on/off combo? Something like this. dim MipMap_Toggle as byte do if multikey(fb.SC_F5) then if MipMap_Toggle = 0 then Set_MipMapping ON MipMap_Toggle = 1 else Set_MipMapping OFF MipMap_Toggle = 0 end if end if loop Not reall...

Yea, this is 100% software rendering. Im wondering if you could split the function Project_object into its seperate components so you can baseline them easyer. The screenbuffer is not slowing the program down at all, and the sin/cos calculations dont seem to affect it much either. Its just the clipp...

No problem with the loops, It just made me smile :D and on your threads idea, you could probally spawn your rotateobj as a thread. As long as it all completes before you draw the object. oh, and oddly enough if I dont Project_object floor I get a 8fps boost. Of all the objects, removing the floor is...

12fps 800-830 triangles Ati x1400 w/256mb T7200 Dual Core 1gb system ram. Looks good, but even at like 10 triangles, I only got 30fps. Have you tried to pregen your Sin and Cos tables? Oh and lol. I love the loops in the Generate Floor function. for i as integer = -1 to 1 if i=0 then i=1 for j as in...

Another good thing to think about is if you need to pad your strings, like with 0's or somthing. Here are a couple functions I wrote up just to do some padding. Its really good when you have to use lots of files that are numbered, and other fun things. Function PadRight(in As String, Length As integ...

Are you using assembly routines for the scaling and interpolation (which im assuming is a form of ScaleX/hqx routines?) 1280x1024 @ 14fps here also. Radeon 9600 Mobile Looks good. And for the linux guys, couldnt you just post a config for the scripts folder so they dont need to run the .net loader?

Thanks guys.

Just makes me rethink the order im doing things.