StarsFields

[Keph_]

Just 2 littles progs:

http://103683.free.fr/purebasic/stars3d.exe (64 Kb)

http://103683.free.fr/purebasic/tunnel.exe (108 Kb)

Keph

[Passant]

nice work

[PB]

> http://103683.free.fr/purebasic/stars3d.exe (64 Kb)

Can't run this one on W2K Pro... I get an error saying "Impossible de lire
la police".

[starax]

Twinkle twinkle.


;More stars
#scrw = 1600
#scrh = 1200

#centerofscrw = #scrw/2
#centerofscrh = #scrh/2

#scrd = 16

SSum.w = 8000 ; Amount of Stars


Cspeed.f=1
CameraZ.f=0

Gosub InitStarField

;-------- Init all needed Stuff --------
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
MessageBox_ (0,"Can't open DirectX 7 or later", "blahhhh", #MB_ICONINFORMATION|#MB_OK)
End
EndIf

If OpenScreen(#scrw,#scrh,#scrd,"benny's code") = 0
MessageBox_ (0,"Could not open screen", "blahhh blaa", #MB_ICONINFORMATION|#MB_OK)
End
EndIf

SetFrameRate(90)


;-------- MainLoop --------
Repeat
ClearScreen(0,0,0)
StartDrawing(ScreenOutput())
DrawingMode(1)
Gosub DrawStarField
Gosub MoveCamera
StopDrawing()
FlipBuffers()
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)
End


;--------- Procs / Subs -------------


; #### INITSTARFIELD ####
InitStarField:
; Structure of a star ...
Structure 3DStar
x.f ; X-Coordinate
y.f ; Y-Coordinate
z.f ; Z-Coordinate
EndStructure

; Init Starfield ...
Dim Stars.3DStar(SSum)
For dummy = 0 To SSum-1
Stars(dummy)\x = Random(10000)-5000
Stars(dummy)\y = Random(10000)-5000
Stars(dummy)\z = 100 + Random(1000)
Next dummy
Return


; ### Move Camera ###
MoveCamera:
If CameraZ>1000
Direction=-1
ElseIf CameraZ<-1000
Direction=1
EndIf
If Direction=1 And Cspeed<10
Cspeed=Cspeed+0.01
ElseIf Direction=-1 And Cspeed>-10
Cspeed=Cspeed-0.01
EndIf
CameraZ=CameraZ+Cspeed
Return



; #### Draw StarField ####
DrawStarField:
For dummy = 0 To SSum-1
If Stars(dummy)\z<CameraZ
Stars(dummy)\z=CameraZ+1000
ElseIf Stars(dummy)\z>(CameraZ+1000)
Stars(dummy)\z=CameraZ
EndIf

SX = Stars(dummy)\x / (Stars(dummy)\z-CameraZ)*100+#centerofscrw
SY = Stars(dummy)\y / (Stars(dummy)\z-CameraZ)*100+#centerofscrh

If SX<#scrw And SY<#scrh And SX>0 And SY>0
b.f = 255-(((Stars(dummy)\z)-CameraZ)*(255./1000.))
c=Int(b)
Plot ( SX, SY, RGB(c,c,c))
EndIf

Next dummy
Return

[TronDoc]

Twinkle twinkle.


;More stars
#scrw = 1600
#scrh = 1200

I had to do this for my "poor" PC:

Code: Select all

;More stars
; #scrw = 1600
; #scrh = 1200
#scrw = 800
#scrh = 600

Joe

[TronDoc]

Just 2 littles progs:
http://103683.free.fr/purebasic/stars3d.exe (64 Kb)
http://103683.free.fr/purebasic/tunnel.exe (108 Kb)
Keph

cool!
after staring at the tunnel and then switching back
to a normal screen it took awhile for it to stop moving! LOL Joe

[Denis]

Salut Keph_,

Run without problem under Win98SE.
Nice work.



Denis