mein bug ?

Übersicht

BlitzBasic

Blitz3D

	Plasma(alt) Betreff: mein bug ?	So, März 21, 2004 12:11 Antworten mit Zitat
und zwar geht es darum das ich ein entity immer um einen meter bzw eine blitzunit verschiebe ab 7 meter wird komisch ? woran liegts ? und was kann ich dagegen machen ? Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics3D 800,600,16,2 light = CreateLight() cam = CreateCamera() PositionEntity cam,0,3,-5 Dim tp(10) For r= 1 To 10 tp(r) = CreateCube() ScaleEntity tp(r),.01,.01,.01 PositionEntity tp(r),0,0,r Next cube = CreateCube() ScaleEntity cube,.2,.2,.2 PositionEntity cube,0,0,-.1 SetBuffer BackBuffer() While Not KeyHit(1) RenderWorld() xx#= EntityX(cube) yy#= EntityY(cube) zz#= EntityZ(cube) Text 10,0 ,"klick"+klick Text 10,20,"x : "+xx# Text 10,40,"y : "+yy# Text 10,60,"z : "+zz#+" "+(zz#+.1) If MouseHit(1) Then klick=klick+1 For r= 1 To 10 TranslateEntity cube ,0,0,.1,1 RenderWorld() Flip(1) Next End If Flip(0) Wend
DIV is dead !

Plasma(alt)

Betreff: mein bug ?

So, März 21, 2004 12:11
Antworten mit Zitat

und zwar geht es darum das ich ein entity immer um einen meter
bzw eine blitzunit verschiebe

ab 7 meter wird komisch ? woran liegts ? und was kann ich dagegen machen ?
Code: [AUSKLAPPEN]

Graphics3D 800,600,16,2
light = CreateLight()
cam = CreateCamera()
PositionEntity cam,0,3,-5
Dim tp(10)
For r= 1 To 10
tp(r) = CreateCube()
ScaleEntity tp(r),.01,.01,.01
PositionEntity tp(r),0,0,r
Next
cube = CreateCube()
ScaleEntity cube,.2,.2,.2
PositionEntity cube,0,0,-.1
SetBuffer BackBuffer()

While Not KeyHit(1)
RenderWorld()
xx#= EntityX(cube)
yy#= EntityY(cube)
zz#= EntityZ(cube)
Text 10,0 ,"klick"+klick
Text 10,20,"x : "+xx#
Text 10,40,"y : "+yy#
Text 10,60,"z : "+zz#+" "+(zz#+.1)
If MouseHit(1) Then
klick=klick+1

For r= 1 To 10
   TranslateEntity cube ,0,0,.1,1
   RenderWorld()
   Flip(1)
Next
End If

Flip(0)

Wend

DIV is dead !