| kleiner kitschiger 3D Weltraum effekt (B3D) von ??? |
| [code:1:1d7ed8a921] Graphics3D 800,600,32,2 cam = CreateCamera() MoveEntity cam, 0,0,-200 light = CreateLight(1,cam) LightColor light, 200,200,200 Const entity = 300 Type point Field entity Field angle_x# Field angle_y# End Type Local n.point SeedRnd(MilliSecs()) For i=1 To entity n = New point nentity = CreateSphere(10) angle# = Rnd(0,360) nangle_x = angle nangle_y = angle EntityColor nentity, Rand(100,255), Rand(100,255), Rand(100,255) Next add# = -0.5 angle# = 360 size# = 1 While Not KeyHit(1) For n = Each point px# = Sin(nangle_x) * pos_x py# = Cos(nangle_y) * pos_y PositionEntity nentity, px, py, 0 ScaleEntity nentity, size,size,size nangle_x = (nangle_x + add) Mod angle nangle_y = (nangle_y + add) Mod angle pos_x = nangle_x /1.5 pos_y = nangle_y /1.5 size = Abs(nangle_x) / 70 Next RenderWorld() Flip Wend End [/code:1:1d7ed8a921] |