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?!


Rck(Posted 2006) [#2]
Check out
What are the forum codes?

works for a friend on old 1.67, hasnt updated in a while


WolRon(Posted 2006) [#3]
Give your threads meaningful titles, not just "What?"
Use the forum tags for posting code.

Have you tried setting a different mode?
How about setting that mode like so:
Graphics3D 1024, 768, 0, 2

That will force it to run in a window.


Rob Farley(Posted 2006) [#4]
http://www.blitzbasic.com/Community/posts.php?topic=56240

Duplicate posting... Please don't do this.