NewsForumsCodeLogsGallerySpecsSearch

What?

Blitz3D Forums/Blitz3D Beginners Area/What?

Little Olive(Posted 2006) [#1]
Look at this:

Graphics3D 1024,768
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Speed#=1

;wire=Not wire
;WireFrame wire

CamPivot=CreatePivot()
RotateEntity CamPivot,40,0,0

Camera=CreateCamera(CamPivot)
PositionEntity Camera,0,0,-10

cube=CreateSphere()
FitMesh cube,-250,-250,-250,500,500,500
FlipMesh cube
tex=CreateTexture( 64,64 )
ScaleTexture tex,.1,.1
SetBuffer TextureBuffer( tex )
Color 255,255,55:Rect 32,0,32,32:Rect 0,32,32,32
Color 255,55,55:Rect 0,0,32,32:Rect 32,32,32,32
SetBuffer BackBuffer()
Color 255,255,255
EntityTexture Cube,tex

Pivot1=CreatePivot()

Flier=CreateMesh(Pivot1)
Wing=CreateSurface(Flier)
AddVertex (Wing, 0, 2, 0, 1, 1)
AddVertex (Wing,-1, 0, 0, 1, 0)
AddVertex (Wing, 1, 0, 0, 0, 1)
AddTriangle (Wing,0,1,2)
AddTriangle (Wing,2,1,0)
Beam=CreateSurface(Flier)
AddVertex (Beam,0,0,.5)
AddVertex (Beam,0,0,0)
AddVertex (Beam,0,2,0)
AddTriangle (Beam,0,1,2)
AddTriangle (Beam,2,1,0)
tex=CreateTexture( 64,64 )
ScaleTexture tex,1,1
SetBuffer TextureBuffer( tex )
Color 255,255,255:Rect 32,0,32,32:Rect 0,32,32,32
Color 55,55,55:Rect 0,0,32,32:Rect 32,32,32,32
SetBuffer BackBuffer()
Color 255,255,255
EntityTexture Flier,tex
RotateEntity Flier,20,0,90
ScaleEntity Flier,.5,.5,.5
PositionEntity Flier,0,0,7

Pivot2=CreatePivot()
Flier2=CopyEntity(Flier,Pivot2)
RotateEntity Flier2,0,0,135
ScaleEntity Flier2,.5,.5,.5
PositionEntity Flier2,0,0,6.5

Pivot3=CreatePivot()
Flier3=CopyEntity(Flier,Pivot3)
RotateEntity Flier3,0,0,-45
ScaleEntity Flier3,.5,.5,.5
PositionEntity Flier3,0,0,6
RotateEntity Pivot3,0,0,90

Flier4=CopyEntity(Flier)
RotateEntity Flier4,0,0,90
PositionEntity Flier4,20,0,0

While Not KeyHit(1)

If KeyHit(17)
wire=Not wire
WireFrame wire
EndIf

If KeyDown(30) Then Speed=Speed+.1
If KeyDown(44) Then Speed=Speed-.1
TurnEntity CamPivot,0,Speed,0
If KeyDown(205) Then TurnEntity CamPivot,1,0,0


TurnEntity Pivot1,0,1*Speed,0
TurnEntity Pivot2,1*Speed,1*Speed,0
TurnEntity Pivot3,-1.5*Speed,-1.5*Speed,0
TurnEntity Flier4,0,4*Speed,0
MoveEntity Flier4,0,.2*Speed,0
P#=P+.2*Speed
If P#=>40
P=0
TurnEntity Flier4,0,0,180
EndIf

RenderWorld
Flip
Wend

End

Whenever I try to run it, it freaks out on me! It goes "Unable to set Graphics mode". What's frickin' up with that?!


Pongo(Posted 2006) [#2]
Runs fine here.

is it possible your display does not support 1024x768? That would be odd I guess, but possible on an older card.


Little Olive(Posted 2006) [#3]
Normally, 1024x768 works. This hasn't happened before.


Crazy4Code(Posted 2006) [#4]
Works fine on my computer too. :-/


Pongo(Posted 2006) [#5]
Try setting the screen bit depth as well,... or try it in a window.

graphics3d 1024,768,0,2 ;choose bit depth, run in a window

graphics3d 1024,768,16,1 ;run in 16 bit mode, fullscreen


Shambler(Posted 2006) [#6]
Right click on desktop, click properties, click settings.

You should now see a screen resolution setting, can you select 1024*768 resolution here?

If not then you could try downloading the latest drivers for your card, you may have old drivers or may not even be using the correct drivers for the card ( might be using some microsoft default drivers ).

Or as Pongo says your card may be so old it doesn't support this resolution.


jhocking(Posted 2006) [#7]
Use a more descriptive subject line next time.