PureBoard

Code: Alles auswählen

InitSprite()
InitKeyboard()
InitMouse()

;hWin=OpenWindow(0, 50,50,400,400, "",#PB_Window_BorderLess)
;OpenWindowedScreen( hWin, 0,0,400,400, 1,0,0)

ExamineDesktops()
sw=DesktopWidth(0)
sh=DesktopHeight(0)
OpenScreen(sw,sh,32,"atomic")
centerx=sw/2
centery=sh/2



n.d
c.d
size.f=1
ChangeGamma(0,0,0,1)
Repeat
  n+0.1



  ClearScreen(0)
  StartDrawing( ScreenOutput() )
    If size > 0.9
      For i=1 To 15
        Circle(centerx, centery-3, (15-i), RGB(i*2,0,i*3*(#PI+Sin(n))) )
      Next
    Else
      For i=1 To 20
        Circle(centerx, centery-3, 1.3*(50-i)/(size), RGB(i*1.5/(size*1.5),i*1.5/(size*1.5),i*0.8*(#PI+Sin(n))/(size*1.5) ))
      Next
;     For i=0 To 200
;       LineXY(centerx,centery,Random(sw),Random(sh),RGB(Random(0),Random(20),Random(30)) )
;     Next
    EndIf
    For i=0 To 10
      c = n +i/10.0
      For round=1 To 10
        round_r.f=((10-round)/7.0)
        round_c.f=(round/10.0)
        Circle(centerx+ size*120*Sin(c),    centery+size*20*Cos(c),    round_r*size*(5+1.2*Cos(c    )-5/i/2), Int( round_c*( (15+5*Cos(c    ))*i ) )       +0   )
        Circle(centerx+ size* 50*Sin(c+1.1),centery+size*50*Cos(c+1.1),round_r*size*(5+1.2*Cos(c+1.1)-5/i/2), Int( round_c*( (12+5*Cos(c+1.1))*i ) )<< 8        )
        Circle(centerx+ size* 30*Sin(c+3.0),centery+size*80*Cos(c+3.0),round_r*size*(5+1.2*Cos(c-3.0)-5/i/2), Int( round_c*( (15+5*Cos(c+3.0))*i ) )<<16        )
      Next
    Next
;     For i=0 To 30
;       LineXY(200,200,Random(100)+150,Random(100)+150,RGB(Random(50),Random(80),Random(50)) )
;     Next
  StopDrawing()
  FlipBuffers()
  If size>0.9
    Delay(40)
  EndIf
  ExamineKeyboard()
  ExamineMouse()
  If KeyboardReleased(#PB_Key_F2)
    GrabSprite(0, 0,0, sw,sh)
    SaveSprite(0,"atomic.bmp")
  EndIf
  If KeyboardReleased(#PB_Key_All) Or MouseDeltaX()>50 Or MouseDeltaY()>50

    finish=1
  EndIf
  If finish
    size*0.96
  EndIf
  ;WindowEvent()
Until size<0.2
ClearScreen(0)
FlipBuffers()