Question regarding spheres - GameCreators Forum

Author

Message

strykerm

14

Years of Service

User Offline

Joined: 25th Aug 2010

Location:

Posted: 12th Dec 2011 02:37

Link

Hi there ya'll. I've got a question regarding loading and using spheres. I'm working on a program that is using a sphere, and I've been able to get it to work fine. Figured out how to provide texture to the sphere, so its all good. I've even figured out how to make the sphere rotate slowly. The problem comes in when I try to load a bitmap and use it as a background. The picture loads, then the sphere rotates and it keeps switching back and forth. If I don't load the bitmap at all the sphere rotates smoothly. If I do, it keeps switching back and forth but never displaying both at the same time without flickering. How do I get the computer to display the sphere, allow it to keep rotating, and display the bitmap in the background at the same time? Here's the code I've been using so far to work from...

make object sphere 1,2
Position object 1,-1,.5,1
load image "\media\star.bmp",3
load image "\media\starflt_012.png",2
texture object 1,3
DO rem enters loop
XROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE X(1)+0.3)
paste image 2,0,0
position object 1,-1.5,1,1
YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)+0.01)
LOOP

Back to top

Profile PM Email

Hodgey

15

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 12th Dec 2011 10:10

Link

It's been a while since I've programmed anything 3D in DBP mixed with pasting images so I can't exactly remember how this is supposed to fold out but the first thing you could try is turning 'sync' on, setting a sync rate and then calling 'sync' in your loop. So like this:

+ Code Snippet

sync on : sync rate 60 : sync
make object sphere 1,2
Position object 1,-1,.5,1
load image "\media\star.bmp",3
load image "\media\starflt_012.png",2
texture object 1,3
DO rem enters loop
XROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE X(1)+0.3)
paste image 2,0,0
position object 1,-1.5,1,1
YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)+0.01)
sync
LOOP

Back to top

Profile PM Email

strykerm

14

Years of Service

User Offline

Joined: 25th Aug 2010

Location:

Posted: 12th Dec 2011 11:16

Link

I tried the code but it will display the bitmap but not the sphere

Back to top

Profile PM Email

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 12th Dec 2011 16:06

Link

Not tested, but you need to set up the screen first.

sync on will enable the sync command. If you turn it off, it will sync after every command. If it's turned on, it'll only sync when you tell it to.

backdrop on will enable the backdrop. If you turn it off, everything will smear itself into the backdrop. If it's on, it won't.

draw to back will make sure all 2D operations are drawn behind 3D objects. The opposite of that command is draw to front.

+ Code Snippet

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem enable drawing behind objects (so the background image won't cover the sphere)
draw to back

rem make the sphere
make object sphere 1,2
Position object 1,-1,.5,1

rem load images 
load image "\media\star.bmp",3
load image "\media\starflt_012.png",2

rem texture the sphere
texture object 1,3

rem main loop
DO

   rem slowly rotate the sphere
   position object 1,-1.5,1,1
   XROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE X(1)+0.3)
   YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)+0.01)

   rem paste the background image to the screen
   paste image 2,0,0

   rem refresh screen
   sync

rem end of main loop
LOOP 

rem end
end

TheComet

Back to top

Profile PM Email Website

strykerm

14

Years of Service

User Offline

Joined: 25th Aug 2010

Location:

Posted: 12th Dec 2011 21:49

Link

I just tested the code. As it was, the sphere would rotate on a solid black background. the bitmap image wouldn't display. But I changed one line.
I changed "BACKDROP ON" to "BACKDROP OFF" , just because I've never messed with using that code before, and it worked. the bitmap loads, and the sphere loads in the correct position, and rotates just like it should. Thanks ya'll for the help

Back to top

Profile PM Email

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 13th Dec 2011 02:28

Link

Hi there. We can instead of loading a bitmap, load an image and texture backdrop. Here's an example.

+ Code Snippet

`backdrop texture
darkblue=rgb(0,0,50)
blue=rgb(0,0,100)
skyblue=rgb(60,60,155)
box 0,0,200,150,skyblue,darkblue,skyblue,blue
ink rgb(255,255,255),0
for i= 1 to 40
col=100+rnd(100)
ink rgb(col,col,0),0
dot rnd(200),rnd(150)
next i
get image 1,0,0,200,150,1
texture backdrop 1
`----------------------------------------------
autocam off
sync on
make object sphere 1,2,40,40
texture object 1,1
set light mapping on 1,1

position camera -2,1,-3
point camera 0,0,0

do
r#=r#+0.1
rotate object 1,r#,r#,0
sync
loop

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

nonZero

13

Years of Service

User Offline

Joined: 10th Jul 2011

Location: Dark Empire HQ, Otherworld, Silent Hill

Posted: 13th Dec 2011 08:31

Link

@chafari: The command TEXTURE BACKDROP doesn't compile on versions of DBPro that consider it "Obselete" (like mine). Crazy, huh? (and annoying, that command looked very useful when I started on DBPro. I never had the chance to use it *sulks*). Well I 'spose backwards compatibility in the world of microsoft-based PCs has never been much of a requirement, lol. (It's a conspiracy to push old-school coders out of the scene!)

@strykerm: If your compiler rejects chafari's code(I hope it won't), remove the line "TEXTURE BACKDROP 1" and place the following above MAKE OBJECT SPHERE:

+ Code Snippet

MAKE OBJECT PLAIN 999, 30, 20
TEXTURE OBJECT 999, 1
POSITION OBJECT 999, 2, 3, 5
ROTATE OBJECT 999, 30, 20, 0

Note, I rotated the backdrop (Object 999) to match it with the camera position. If your camera was at 0,0,[any number > 1) facing 0,0,0 you wouldn't rotate it. There are different ways to texture an object (see SET OBJECT TEXTURE). This technique will only work for environments where no rotation takes place. For a fully-3D "world" where you can freely move the camera, you may have to look into sky spheres or get really clever with primitives.

Back to top

Profile PM Email Website

Hodgey

15

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 13th Dec 2011 09:24

Link

Quote: "The command TEXTURE BACKDROP doesn't compile on versions of DBPro that consider it "Obselete" (like mine)."

Which version are you using? It runs on mine which is U77RC7.

Quote: "For a fully-3D "world" where you can freely move the camera, you may have to look into sky spheres or get really clever with primitives."

I think you can actually create a sphere with a negative number like -10000 and then texture that. The texture will appear on the inside instead of the outside and so you've made yourself a nice quick skysphere.

Back to top

Profile PM Email

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 13th Dec 2011 14:26

Link

Hi there guys!

Quote: "@chafari: The command TEXTURE BACKDROP doesn't compile on versions of DBPro that consider it "Obselete" (like mine). "

It was just an answer in how to put a background...I normally use an sphere like in this example.

ink rgb(255,255,0),1
print
print " nonZero you have to up-"
print " date your  version  be-"
print " cause is to old   ^-^  "
print " last update is U77RC7  "
print " as Hodgey say !"
hide mouse

get image 40,0,0,220,100
make object plain 3000,5,6
texture object 3000,40
set object 3000,1,1,0
position camera 0,2,-5
point camera 0,0,0
xrotate object 3000,-90
do
p#=p#+0.002
position object 3000,0,0,-5+p#
color backdrop rgb(0,0,0)
if p#>7 then goto comienzo

sync
loop

comienzo:
cls
for i= 1 to 80
ink rgb(50,50,50),1
a=rnd(40)
a2=rnd(40)
box a,a2,a+8,a2+8
ink rgb(130,130,130),1
box a,a2,a+6,a2+6
next i
get image 180,0,0,50,50,1
cls
rem ============================================================================================================

ink rgb(255,255,255),1:for i= 1 to 250:dot rnd(100),rnd(100):next i:get image 2,0,0,100,100,1
autocam off:sync on:ink rgb(0,130,210),1:box 0,0,50,50:ink rgb(0,70,100),1:box 10,10,40,40:ink rgb(0,30,40),1:box 2,2,10,10
get image 1,0,0,50,50,1
make object sphere 777,2000:texture object 777,2:set object cull 777,0:scale object texture 777,15,15:ghost object on 777
make object sphere 778,1900:texture object 778,2:set object cull 778,0:scale object texture 778,2,2:ghost object on 778
for i= 1 to 360 step 3:make object box i,10,10,10:rotate object i,i,0,0:offset limb i,0,0,260,0:next i
for i= 2 to 359 step 3:make object box i,10,15+rnd(6),10:rotate object i,i,0,0:offset limb i,0,8,265,0:next i
for i= 3 to 359 step 3:make object box i,10,15+rnd(6),10:rotate object i,i,0,0:offset limb i,0,-8,265,0:next i
for i= 1 to 360:if object exist(i):texture object i,180:endif:next i
set object emissive 777,111111111111111
set object emissive 778,111111111111111
make object sphere 1000,3
position object 1000,0,270,-15
scale object 1000,30,30,300
make mesh from object 1,1000
add limb 1000,1,1:rotate limb 1000,1,90,0,90:texture object 1000,1
set ambient light 0:make light 1:position light 1,0,250,0
position camera -0,270,10
point camera 0,270,0
do
color backdrop rgb(0,10,30)
g#=g#+0.07
rotate object 777,g#/2,0,0
rotate object 778,g#/2,0,5
r=r+1
if r<200 then inc su#,0.06
if r>200 then dec su#,0.06
if r>400 then r=0
position camera -1+su#/7,266+su#/8,10
position object 1000,0,267+su#/8,-15
rotate object 1000,0,0,-15+su#*2
for i= 1 to 360 step 3
rotate object i,i+g#,0,0
next i
zrotate object 1000,-40+rnd(90)
for i= 2 to 359 step 3
rotate object i,i+g#,0,0
next i

for i= 3 to 359 step 3
rotate object i,i+g#,0,0
next i

sync
loop

+ Code Snippet

ink rgb(255,255,0),1
print
print " nonZero you have to up-"
print " date your  version  be-"
print " cause is to old   ^-^  "
print " last update is U77RC7  "
print " as Hodgey say !"
hide mouse

get image 40,0,0,220,100
make object plain 3000,5,6
texture object 3000,40
set object 3000,1,1,0
position camera 0,2,-5
point camera 0,0,0
xrotate object 3000,-90
do
p#=p#+0.002
position object 3000,0,0,-5+p#
color backdrop rgb(0,0,0)
if p#>7 then goto comienzo

sync
loop


comienzo:
cls
for i= 1 to 80
ink rgb(50,50,50),1
a=rnd(40)
a2=rnd(40)
box a,a2,a+8,a2+8
ink rgb(130,130,130),1
box a,a2,a+6,a2+6
next i
get image 180,0,0,50,50,1
cls
rem ============================================================================================================

ink rgb(255,255,255),1:for i= 1 to 250:dot rnd(100),rnd(100):next i:get image 2,0,0,100,100,1
autocam off:sync on:ink rgb(0,130,210),1:box 0,0,50,50:ink rgb(0,70,100),1:box 10,10,40,40:ink rgb(0,30,40),1:box 2,2,10,10
get image 1,0,0,50,50,1
make object sphere 777,2000:texture object 777,2:set object cull 777,0:scale object texture 777,15,15:ghost object on 777
make object sphere 778,1900:texture object 778,2:set object cull 778,0:scale object texture 778,2,2:ghost object on 778
for i= 1 to 360 step 3:make object box i,10,10,10:rotate object i,i,0,0:offset limb i,0,0,260,0:next i
for i= 2 to 359 step 3:make object box i,10,15+rnd(6),10:rotate object i,i,0,0:offset limb i,0,8,265,0:next i
for i= 3 to 359 step 3:make object box i,10,15+rnd(6),10:rotate object i,i,0,0:offset limb i,0,-8,265,0:next i
for i= 1 to 360:if object exist(i):texture object i,180:endif:next i
set object emissive 777,111111111111111
set object emissive 778,111111111111111
make object sphere 1000,3
position object 1000,0,270,-15
scale object 1000,30,30,300
make mesh from object 1,1000
add limb 1000,1,1:rotate limb 1000,1,90,0,90:texture object 1000,1
set ambient light 0:make light 1:position light 1,0,250,0
position camera -0,270,10
point camera 0,270,0
do
color backdrop rgb(0,10,30)
g#=g#+0.07
rotate object 777,g#/2,0,0
rotate object 778,g#/2,0,5
r=r+1
if r<200 then inc su#,0.06
if r>200 then dec su#,0.06
if r>400 then r=0
position camera -1+su#/7,266+su#/8,10
position object 1000,0,267+su#/8,-15
rotate object 1000,0,0,-15+su#*2
for i= 1 to 360 step 3
rotate object i,i+g#,0,0
next i
zrotate object 1000,-40+rnd(90)
for i= 2 to 359 step 3
rotate object i,i+g#,0,0
next i

for i= 3 to 359 step 3
rotate object i,i+g#,0,0
next i


sync
loop

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

nonZero

13

Years of Service

User Offline

Joined: 10th Jul 2011

Location: Dark Empire HQ, Otherworld, Silent Hill

Posted: 13th Dec 2011 17:50 Edited at: 13th Dec 2011 17:51

Link

Quote: " Which version are you using? It runs on mine which is U77RC7. "

The editor says its "Version 1.068", according to the file properties the compiler is v1.5. I have no idea how old that is but it must be more than a year as it was about October last year when a friend traded me his laptop and an external hdd for my desktop (I'm in the [lengthy] process of emigrating) and this DBPro was already installed. This brings me to my next point: I cannot update because I only had a cellular phone for internet back then. Since moving in with my relatives (It's sort of a halfway point. The story is very long) I have had internet access but very limited access. ISPs in South Africa are evil and intent on *expletive*ing you over. My relatives are on package number 1 with these people: http://www.saol.com/adsl1.php (a Cap is a monthly bandwidth limit btw)... I would love to upgrade my DBPro since the version I use requires me to use external dll calls just to get the user's native desktop res

*Sighs* I'll be in the UK by the year's end (papers are finally sorted) and then I'll have infinite bandwidth and it'll all be over. Yatta!

@Hodgey:

Quote: "I think you can actually create a sphere with a negative number like -10000 and then texture that. The texture will appear on the inside instead of the outside and so you've made yourself a nice quick skysphere. "

Just tried that. It does work. It would definitely be fine for the same type of scenario as texturing the backdrop. Nice quick-fix, "two thumbs up"!! (I'm sure that phrase is copyrighted, lol)

@chafari:
Nice theme, pretty skysphere! About the scrolling text, or more specifically the contents of said text... Uh,

... I pwomises evewy wone I will be upgwading befaw anyfing ewlse wen I getz toow UK...

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 13th Dec 2011 19:42

Link

Quote: "The editor says its "Version 1.068"

Hi nonZero. That's an old version ...three year or four, and TGC had decide to add this command again time ago

. Nobody knows when can we find a command useful.

Quote: "
Nice theme, pretty skysphere! About the scrolling text, or more specifically the contents of said text... Uh, "

Don't wrorry...

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Question regarding spheres