ZwanzichZwanzich...
Verfasst: 31.12.2019 18:16
Kommt gut rein!
Code: Alles auswählen
;2019 2020
Global Window_0
Global Canvas_0
Window_0 = OpenWindow(#PB_Any, x, y, 600,400, "", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
Canvas_0 = CanvasGadget(#PB_Any, 0, 0, 600, 400)
x=15
fid=FontID(LoadFont(#PB_Any, "", 24))
Repeat
bg=RGB(128,128,255)
StartDrawing(CanvasOutput(Canvas_0))
Box(0,0,600,400,bg)
DrawingMode(#PB_2DDrawing_Outlined)
Circle(263,136,90,#Black)
DrawingMode(#PB_2DDrawing_Default)
For i=400 To 100 Step -1
Box(299-i,0,200,299-i,bg)
Next i
Line(0,0,200,200,#Black)
If x<225:yc.f=x-17:Circle(x,yc,10):Circle(x+10,yc-5,5):ElseIf x<489:aa.f=50:dd.f=50:yc=170+Cos((x+dd)/aa)*(aa)
Circle(x,yc,10):Circle(x+5,yc-10,5):ElseIf x>=490:x=490:yc+2:Circle(x,yc,10):Circle(x,yc-15,5)
EndIf
x+1
If yc>400:x=1:EndIf
Box(500,0,100,400,#Black)
DrawingMode(#PB_2DDrawing_Outlined)
DrawingFont(fid)
DrawRotatedText(540, 20, "2", Random(5)-3 ,#White)
DrawRotatedText(540, 80, "0", Random(5)-3 ,#White)
DrawRotatedText(540, 140, "2", Random(5)-3 ,#White)
DrawRotatedText(540, 200, "0", Random(5)-3 ,#White)
StopDrawing()
Until WaitWindowEvent(1)=#PB_Event_CloseWindow
End