Position Cubes - GameCreators Forum

Author

Message

kordman916

17

Years of Service

User Offline

Joined: 5th Oct 2007

Location:

Posted: 25th Aug 2009 17:38

Link

Whew 2 posts back to back! But more to the point When I use this code

+ Code Snippet

Rem Project: Menu
Rem Created: Tuesday, August 25, 2009

Rem ***** Main Source File *****
sync
sync rate 60
sync on

for M=1 to 3
`Make object
make object cube M,5
Position object M,object position x(M),object position y(M) - 10,Object position Z(M)
color object M,rgb(rnd(255),rnd(255),rnd(255))
next M

do
control camera using arrowkeys 0,1,1
sync
loop

All I get is a blank screen How do I get it to display 3 cubes atop one another.

Dell Optiplex GX280,3.4 GHZ Pentium 4 processor
1 Gig DDR2 ram,Geforce 8500 GT 512mb

Back to top

Profile PM Email

bobbel

15

Years of Service

User Offline

Joined: 5th Jan 2009

Location: In my DBPro case xD

Posted: 25th Aug 2009 18:17

Link

you mean like this:

+ Code Snippet

Rem Project: Menu
Rem Created: Tuesday, August 25, 2009

Rem ***** Main Source File *****
sync on
sync rate 60

for M=1 to 3
`Make object
make object cube M,5
Position object M,object position x(M),M*5-5,Object position Z(M)
color object M,rgb(rnd(255),rnd(255),rnd(255))
next M

do
control camera using arrowkeys 0,1,1
sync
loop

Back to top

Profile PM Website

kordman916

17

Years of Service

User Offline

Joined: 5th Oct 2007

Location:

Posted: 25th Aug 2009 19:16

Link

Thanks that worked perfectly. But how would I texture each cube individually?

Dell Optiplex GX280,3.4 GHZ Pentium 4 processor
1 Gig DDR2 ram,Geforce 8500 GT 512mb

Back to top

Profile PM Email

bobbel

15

Years of Service

User Offline

Joined: 5th Jan 2009

Location: In my DBPro case xD

Posted: 25th Aug 2009 19:32

Link

Like this:

+ Code Snippet

Rem Project: Menu
Rem Created: Tuesday, August 25, 2009

Rem ***** Main Source File *****
sync on
sync rate 60

For M = 1 to 3
MakeRandomTexture(M, 5, 5)
Next M

for M=1 to 3
`Make object
make object cube M,5
Position object M,object position x(M),M*5-5,Object position Z(M)
Texture Object M, M
next M

do
control camera using arrowkeys 0,1,1
sync
loop

Function MakeRandomTexture(M, XW, YW)
	For X = 1 to XW
		For Y = 1 To YW
			Dot X, Y, RGB(RND(255), RND(255), RND(255))
		Next Y
	Next X
	
	Get Image M, 1, 1, XW, YW
EndFunction

Or this, with an array:

+ Code Snippet

Rem Project: Menu
Rem Created: Tuesday, August 25, 2009

Rem ***** Main Source File *****
sync on
sync rate 60

Dim Images(3)

For X = 1 to 3
	Y = FindFreeImage(1, 1000)
	MakeRandomTexture(Y, 10, 10)
	Images(X) = Y 
Next X

for M=1 to 3
`Make object
make object cube M,5
Position object M,object position x(M),M*5-5,Object position Z(M)
Texture Object M, Images(M)
next M

do
control camera using arrowkeys 0,1,1
sync
loop

Function FindFreeImage(SR, ER)
	For X = SR to ER
		If Image Exist(X) = 0 Then ExitFunction X
	Next X
EndFunction 0

Function MakeRandomTexture(M, XW, YW)
	For X = 1 to XW
		For Y = 1 To YW
			Dot X, Y, RGB(RND(255), RND(255), RND(255))
		Next Y
	Next X
	
	Get Image M, 1, 1, XW, YW
EndFunction

Back to top

Profile PM Website

kordman916

17

Years of Service

User Offline

Joined: 5th Oct 2007

Location:

Posted: 25th Aug 2009 20:18

Link

I'm not following you.

Dell Optiplex GX280,3.4 GHZ Pentium 4 processor
1 Gig DDR2 ram,Geforce 8500 GT 512mb

Back to top

Profile PM Email

bobbel

15

Years of Service

User Offline

Joined: 5th Jan 2009

Location: In my DBPro case xD

Posted: 25th Aug 2009 21:52

Link

Well, my first option is is that you make for each object a corresponding image, and texture it with that. My second option is better. it works like this: you make an array which contains 3 items (since you have 3 objects) and then you texture each object with the number in the array. OR even better:

+ Code Snippet

texture object 1, imagenum1
texture object 2, imagenum2
texture object 3, imagenum3

Back to top

Profile PM Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Position Cubes