da brauchen wir nochwas zum wieder runterkommen:
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()
