[oldDmoFX] was rundes.

[benny]

PB Variante von einem alten dmo-fx.

[EDIT]Interessante FX enthält man mit den verschiedenen DrawingModes !
Siehe modifizierten Code[/EDIT]

Code: Alles auswählen

; was rundes.
; a conversion of an old demoFX (author unknown)
; by benny|weltenkonstrukteur.de
; o8.o6.o5

winTitle.s  = "was rundes."
#LOOPTIME   = 1000/14  ; 14 frames per 1000ms (1second) 

hwnd.l = OpenWindow(0, 0,0, 320, 240, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, winTitle.s)
If hwnd
  If InitSprite()
    If OpenWindowedScreen(hwnd, 0, 0, 320, 240, 0, 0, 0) 
      
        Dim px.f(15)
        Dim py.f(15)
        
        Repeat   
          
          Select WindowEvent() 
            Case #PB_Event_CloseWindow
              Quit = #True
          EndSelect 
          
          FlipBuffers()
          If IsScreenActive()  
                ClearScreen(0,0,0) 
                StartDrawing(ScreenOutput())  
                DrawingMode(2) ; Play around with this 
                px(0) = 160+8*Cos(a.f)
                py(0) = 120+8*Sin(a.f)
                For i=1 To 14
                  px(i-1) = px (i)
                  py(i-1) = py (i)
                  px(i) = 160+8*Cos (a.f * (1+i*0.1))
                  py(i) = 120+8*Sin (a.f * (1+i*0.1))
                  Circle(px(i-1), py(i-1), 100-i*8, RGB(0,0,0))
                  Circle(px(i), py(i), 110-i*8, RGB(255,255,255)) 
                Next i
                a + 0.4
                StopDrawing() 
          EndIf
          
          ; Run Program at a constant rate  
          While ( ElapsedMilliseconds()-LoopTimer )<#LOOPTIME : Delay(1) : Wend  
          LoopTimer = ElapsedMilliseconds()
        Until Quit = #True
        
    EndIf
  EndIf
EndIf
End