Memblock from Bitmap - Bitmap from memblock question

Author

Message

Daryn Alsup

16

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 7th Sep 2008 08:28

Link

I've been working on a tid-bit of code from a game I am calling "Deity." Upon selecting "New game," the user is then taken to the darkness of space where he/she can create a sun, planet(s) and moon(s). The bit of trouble I run into is designing the climate aspect of each planet.
Currently the process I am trying to use goes as follows: I first design my planet (bitmaps, width, height and so on) then I design the climate maps. (Climate maps are basically gray scale height maps in color) Climate maps are constantly changing based on the suns location from the planet, the current time of day and time of year AND the # of and size of land masses.
I then make a new bitmap and color it black. It is the same size as the climate map. I then make a memblock from the climate map. I call the BYTE value for the RED color. If RED is greater then 128 then that particular pixel is colored RGB 255, 255, 255 on the secondary bitmap. if it is lower then 128 it is painted black. The blue value is also called. and the same is done to it. The trouble is I cannot figure out how to do the entire bitmap. I can only color one pixel. Can some one please show me how this would be done?

Jack and Jill went up a hill to fetch a pale of water... but Jill got tired of his s#%& so she shot him.

Back to top

Profile PM Email Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 7th Sep 2008 10:46

Link

Take a look at the 2 memblock tutorials linked from this page:

http://members.thegamecreators.com/tutorialcity/html/newsletter.html

Back to top

Profile PM Email

Daryn Alsup

16

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 7th Sep 2008 12:18 Edited at: 7th Sep 2008 13:30

Link

I got it!!! or atleast a simple version of what I want but thank you for the links

it is greatly appreciated. And since I know there will be many others who will want to use it... here you go

(Note that a small picture with as many pixels as there are segments w/in your sphere object takes a bit of time... five or six seconds)

+ Code Snippet

Set Display Mode 1280,1024,32
Load Image "HeatMap.bmp",1
Load Image "Blackmap.bmp",2
Make memblock from image 1,1
B=Memblock Byte (1,12)
G=Memblock Byte (1,13)
R=Memblock Byte (1,14)
Width=Memblock Dword (1,0)
Height=Memblock Dword (1,4)
D=Memblock Dword (1,8)

make memblock from image 2,2


for x = 1 to width : for y=1 to height
location = ((y-1)*width + x - 1)*4 + 12
B = memblock byte(1,location)
G = memblock byte(1,location+1)
R = memblock byte(1,location+2)
A = memblock byte(1, location+3)

If R=<128
R=0
G=0
B=0
endif
If R>128
R=255
G=255
B=255
endif

Write memblock byte 2,location,B
Write Memblock Byte 2,location+1,G
Write Memblock byte 2,location+2,R
Write memblock byte 2,Location+3,A
Dot (X),(Y),RGB(R,G,B)
next x : next y
Make image from memblock 2,2
Set Current Bitmap 0

wait key

-Daryn

[Please remember to use code tags - IanM]

Jack and Jill went up a hill to fetch a pale of water... but Jill got tired of his s#%& so she shot him.

Back to top

Profile PM Email Website

Daryn Alsup

16

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 9th Sep 2008 13:00

Link

Okay, now I have another question: Is there a way to use the file commands to store the location of pixels? The reason I ask comes from applying the make memblock from image - make image from memblock commands (in the above post) and then loading the image as a texture for a ghosted object. It takes SOOOOOO much time to process even the smallest image and then apply it as a texture when using memblocks that I need to know. Is there such a way to use files? For example:

Set display mode 1280,1024,32
Randomize timer()

`Ready the file for writing
Open to write 1,"WeatherW.Stm"
Open to write 2,"WeatherH.Stm"

`Random storm pixel starters
REPEAT
INK RGB(255,255,255),0
For Storm=1 to 100
A=RND(1280)
B=RND(1024)
DOT A,B,RGB(255,255,255)
(((!!!HERE IS WHERE WE WOULD STORE THE A AND B VALUES BEFORE THEY CHANGE. We would need to store as a DWORD and position it w/ the storm value!!!)))

FILE OPERATION 1,(Storm), A
File operation 2,(Storm), B

(((!!!Now that we have the location of the first pixel, we can create it's brother and sister pixels... IE: give the cloud map some form.!!!)))

For Pixel=1 to 50
For FILEs=1 to 100
FILE OPERATION 1,(FILEs),A
FILE OPERATION 2,(FILEs),B
DOT A+RND(5),B+RND(5),RGB(255,255,255)
Next FILEs
Next Pixel
Next Storm

(((!!!Now we need to let the storms decay and die... but how? We have the location of every starting pixel in the screen... so reverting the ink color to black (INK RGB(0,0,0,),0) would result in a decaying storm. We'll have to place more pixels randomly so all of the white pixels are destroyed!!!)))

INK RGB(0,0,0),0
FOR DECAY=1 to 100
FOR ANTIPIX=1 to 100
FILE OPERATION 1,(FILEs),A
FILE OPERATION 2,(FILEs),B
Dot A+RND(5),B+RND(5),(IF YOU DO THE COLOR THING HERE it's 0,0,0,)
NEXT ANTIPIX
NEXT DECAY
UNTIL ESCAPEKEY()=1

+ Code Snippet

Set display mode 1280,1024,32
Randomize timer()

`Ready the file for writing
Open to write 1,"WeatherW.Stm"
Open to write 2,"WeatherH.Stm"

`Random storm pixel starters
REPEAT
INK RGB(255,255,255),0
For Storm=1 to 100
A=RND(1280)
B=RND(1024)
DOT A,B,RGB(255,255,255)
(((!!!HERE IS WHERE WE WOULD STORE THE A AND B VALUES BEFORE THEY CHANGE. We would need to store as a DWORD and position it w/ the storm value!!!)))

FILE OPERATION 1,(Storm), A
File operation 2,(Storm), B

(((!!!Now that we have the location of the first pixel, we can create it's brother and sister pixels... IE: give the cloud map some form.!!!)))

For Pixel=1 to 50
For FILEs=1 to 100
FILE OPERATION 1,(FILEs),A
FILE OPERATION 2,(FILEs),B
DOT A+RND(5),B+RND(5),RGB(255,255,255)
Next FILEs
Next Pixel
Next Storm

(((!!!Now we need to let the storms decay and die... but how? We have the location of every starting pixel in the screen... so reverting the ink color to black (INK RGB(0,0,0,),0) would result in a decaying storm. We'll have to place more pixels randomly so all of the white pixels are destroyed!!!)))

INK RGB(0,0,0),0
FOR DECAY=1 to 100
FOR ANTIPIX=1 to 100
FILE OPERATION 1,(FILEs),A
FILE OPERATION 2,(FILEs),B
Dot A+RND(5),B+RND(5),(IF YOU DO THE COLOR THING HERE it's 0,0,0,)
NEXT ANTIPIX
NEXT DECAY
UNTIL ESCAPEKEY()=1

Now I suppose your wondering about how we'll address the issue of the storms movement. By adding and subtracting values from the width and height (A and B in the above code), movement is achieved. Still, I need to know the correct way to use the file commands... as the above illustration does not work when correctly imputed into DBPro

Jack and Jill went up a hill to fetch a pale of water... but Jill got tired of his s#%& so she shot him.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Memblock from Bitmap - Bitmap from memblock question