Graphics 800,600,16,2
SeedRnd MilliSecs()
SetBuffer BackBuffer()

gw=GraphicsWidth()
gh=GraphicsHeight()

g2w=gw/2
g2h=gh/2

Type tunnellinie
   Field Pos
End Type

Repeat
   ;Cls
   
   Color Rand(255),Rand(255),Rand(255)
   
   For Tunnel.tunnellinie = Each tunnellinie
      Pos = (tunnel\pos * tunnel\pos)/20.0
      Oval g2w-pos,g2h-pos,pos*2,pos*2,0
      tunnel\pos = tunnel\pos+1
      If pos > g2w Then Delete tunnel
   Next

   If Not(Rand(0,5)) Then
      ;Stop
      Tunnel.tunnellinie = New tunnellinie
      tunnel\pos=0
   EndIf
   
   

   Flip 0
Until KeyHit(1)
end

Graphics 800,600,16,2
SeedRnd MilliSecs()
SetBuffer BackBuffer()

gw=GraphicsWidth()
gh=GraphicsHeight()

g2w=gw/2
g2h=gh/2

Type tunnellinie
   Field Pos
   Field R,G,B
End Type

Repeat
   
   For Tunnel.tunnellinie = Each tunnellinie
      Pos = (tunnel\pos * tunnel\pos)/50.0
      Color tunnel\R,Tunnel\G,Tunnel\b
      Oval g2w-pos,g2h-pos,pos*2,pos*2,0
      tunnel\pos = tunnel\pos+1
      If pos > g2w*1.5 Then Delete tunnel
   Next

   If Not(Rand(0,25)) Then
      Tunnel.tunnellinie = New tunnellinie
      tunnel\pos=0
      tunnel\r=Rand(255)
      tunnel\g=Rand(255)
      tunnel\b=Rand(255)
   EndIf

   Flip 0
Until KeyHit(1)
End

;Graphics
Const grw=640,grh=480
Graphics grw,grh,16,1
SetBuffer BackBuffer()
;Geschwindigkeit
Const g=13
;Die Punkte
Const punkteanz=1950
Dim a#(punkteanz,3)
Dim punktbild(35)
For gr=1 To 35
  punktbild(gr)=CreateImage(gr Shl 1,gr Shl 1)
  SetBuffer ImageBuffer(punktbild(gr))
  Color 0,0,255-gr*7
  Oval 0,0,gr*1.9,gr*1.9,0
Next
;Steps
steps=40
SetBuffer BackBuffer()


Repeat

  Cls

  ;Mitte drehen
  dr=(dr+2)Mod 360
  nr=nr+1
  If nr=1 Then
    nr=0
    For b=0 To steps
      a(x,0)=grw Shr 1
      a(x,1)=grh Shr 1
      a(x,2)=dr+b*(360/steps)
      a(x,3)=0
      x=(x+1)Mod(punkteanz+1)
    Next
  EndIf


  ;Punkte durchgehen
  For b=0 To punkteanz
    If a(b,1)<>0 Then
      a(b,0)=a(b,0)+Cos(a(b,2))*g*a(b,3)/15
      a(b,1)=a(b,1)+Sin(a(b,2))*g*a(b,3)/15
      a(b,3)=a(b,3)+1
      bi=punktbild(a(b,3)Shr 1+1)
      DrawImage bi,a(b,0),a(b,1)
    EndIf
  Next

  Flip

Until KeyHit(1)
End

; Sternenfeld v2.0
; Copyright (C) Dez 2003, Daniel Nobis

Global StartX, StartY

ResX = 1024  ; Horizontale Auflösung
ResY = 768   ; Vertikale Auflösung
StartX = 512 ; Startpunkt X der Sterne
StartY = 384 ; Startpunkt Y der Sterne

Mouse = 0    ; Maussteuerung 1/0
MaxSpeed = 5 ; Maximale Geschwindigkeit
n = 1000      ; Anzahl der Sterne

Dim x#(n)
Dim y#(n)
Dim Winkel(n)
Dim Speed#(n), AktuellSpeed#(n)
Dim AbstandWert#(n)
Dim Farbe(n)


Graphics ResX, ResY, GraphicsDepth, 1
SetBuffer BackBuffer()


; Allen Sternen Werte zuweisen
SeedRnd MilliSecs()
For i = 1 To n
 CreateStern(i)
Next


Repeat

 Cls

  If Mouse = 1 Then StartX = MouseX(): StartY = MouseY()
 
  For i = 1 To n
 
   AbstandWert#(i) = Abstand(x#(i), y#(i), StartX, StartY)   
   
   Farbe(i) = AbstandWert#(i) * .9   
   If Farbe(i) > 255 Then Farbe(i) = 255

   Color Farbe(i), Farbe(i), Farbe(i)
   Plot x(i), y(i)
 
   x#(i) = x#(i) + Cos(Winkel(i)) * AktuellSpeed#(i)
   y#(i) = y#(i) + Sin(Winkel(i)) * AktuellSpeed#(i)

   AktuellSpeed#(i) = AbstandWert#(i) / 30 * Speed#(i) + .4

   If x#(i) > ResX Or x#(i) < 0 Then CreateStern(i) ; Sterne außerhalb des Bildschirmes zurücksetzen
   If y#(i) > ResY Or y#(i) < 0 Then CreateStern(i)
 
  Next       
 
 Flip

Until KeyHit(1) Or MouseHit(1)
End


Function Abstand#(x1#,y1#,x2#,y2#)
xhypo# = x1# - x2#
yhypo# = y1# - y2#

Abstand# = Abs(Sqr((xhypo# ^ 2) + (yhypo# ^2)))
Return abstand#
End Function

Function CreateStern(i)
 x#(i) = StartX:
 y#(i) = StartY:
 Winkel(i) = Rnd(0, 359):
 Speed#(i) = Rnd(1, MaxSpeed)
End Function

in 3D, ja aber nciht in 2D