Ich habe es mal als PB-Version gekotet .. ää .. gecodet
Code: Alles auswählen
;getestet unter WinXP
UsePNGImageEncoder()
fa=CreateImage(#PB_Any,400,400,32|#PB_Image_Transparent )
StartDrawing(ImageOutput(fa))
DrawingMode(#PB_2DDrawing_Gradient|#PB_2DDrawing_AllChannels)
BackColor(RGBA(0,0,0,255))
FrontColor(RGBA(255,222,192,255))
CircularGradient(200, 0, 450)
Ellipse (120, 200, 100,120)
Ellipse (280, 200, 100,120)
Circle(200,50,120)
StopDrawing()
kawu=CreateImage(#PB_Any,50,100,32|#PB_Image_Transparent )
StartDrawing(ImageOutput(kawu))
DrawingMode(#PB_2DDrawing_Gradient|#PB_2DDrawing_AllChannels)
BackColor(RGBA(0,0,0,255))
FrontColor(RGBA(64,0,0,255))
CircularGradient(25, 0, 50)
Ellipse (25, 50, 10,25)
StopDrawing()
ka=CreateImage(#PB_Any,100,50,32|#PB_Image_Transparent )
StartDrawing(ImageOutput(ka))
DrawingMode(#PB_2DDrawing_Gradient|#PB_2DDrawing_AllChannels)
BackColor(RGBA(0,0,0,255))
FrontColor(RGBA(128,0,0,255))
CircularGradient(25, -25,100)
Ellipse (50, 25, 25,10)
StopDrawing()
ar=CreateImage(#PB_Any,400,400,32|#PB_Image_Transparent )
StartDrawing(ImageOutput(ar))
DrawingMode(#PB_2DDrawing_Gradient|#PB_2DDrawing_AllChannels)
BackColor(RGBA(128,128,255,255))
FrontColor(RGBA(222,222,255,255))
LinearGradient(0, 0, 0,400)
Box(0,0,400,400)
BackColor(RGBA(222,255,222,255))
FrontColor(RGBA(32,128,32,255))
For f=200 To 400 Step 50
LinearGradient(0, 400-f, 0,400)
For c=1 To 400 Step 5
Circle(c,f,Random(40))
Next c
Next f
DrawingMode(#PB_2DDrawing_AllChannels)
For h=1 To 35
hx=Random(150)+120
hy=Random(50)
Box(hx,250+hy,20,10,RGBA(255-h,255-h,255-h,32))
Box(hx,250+hy-5,20,5,RGBA(255,128,128,128))
Next h
StopDrawing()
;SaveImage(fa,"D:\1.png",#PB_ImagePlugin_PNG)
;SaveImage(kawu,"D:\2.png",#PB_ImagePlugin_PNG)
;SaveImage(ar,"D:\3.png",#PB_ImagePlugin_PNG)
;SaveImage(ka,"D:\4.png",#PB_ImagePlugin_PNG)
OpenWindow(0,0,0,400,400,"the incident on DEC 21 2012",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CanvasGadget(0,0,0,400,400)
AddWindowTimer(0,0,10)
ay=-400
Repeat
event=WaitWindowEvent(0)
StartDrawing(CanvasOutput(0))
If Event = #PB_Event_Timer And EventTimer() = 0
l+1
If l<200
ay+1
DrawingMode(#PB_2DDrawing_Default)
DrawImage(ImageID(ar),0,0)
DrawingMode(#PB_2DDrawing_AlphaBlend)
DrawImage(ImageID(fa),0,ay)
EndIf
If l<80
DrawingMode(#PB_2DDrawing_Transparent)
DrawText(0,0,"the near future")
EndIf
If l>80 And l<160
DrawingMode(#PB_2DDrawing_Transparent)
DrawText(0,0,"dec 21 2012")
EndIf
If l>200 And l<250
ay=-200+Random(20)/2-5
DrawingMode(#PB_2DDrawing_Default)
DrawImage(ImageID(ar),0,0)
DrawingMode(#PB_2DDrawing_AlphaBlend)
DrawImage(ImageID(fa),0,ay)
EndIf
If l>250 And l<260
ay=ay-1
DrawingMode(#PB_2DDrawing_Default)
DrawImage(ImageID(ar),0,0)
DrawingMode(#PB_2DDrawing_AlphaBlend)
DrawImage(ImageID(fa),0,ay)
EndIf
If l>280 And l<310
ay=ay+2
DrawingMode(#PB_2DDrawing_Default)
DrawImage(ImageID(ar),0,0)
DrawingMode(#PB_2DDrawing_AlphaBlend)
DrawImage(ImageID(fa),0,ay)
k.f=50
EndIf
If l>350
k=k+2
If k>Random(20)+240;+kn.f
kp=k
;kn.f=kn+0.25
kk=CopyImage(ka,#PB_Any)
xs+3
ky=kp+35+xs/4
kx=175-25+Random(xs)-(xs/2)
StopDrawing() ;interupt canvasdrawing
StartDrawing(ImageOutput(ar))
DrawingMode(#PB_2DDrawing_AlphaBlend)
DrawImage(ImageID(kk),kx,ky)
StopDrawing()
StartDrawing(CanvasOutput(0)) ;continue canvasdrawing
k=50
EndIf
DrawingMode(#PB_2DDrawing_Default)
DrawImage(ImageID(ar),0,0)
DrawingMode(#PB_2DDrawing_AlphaBlend)
DrawImage(ImageID(kawu),175,k)
DrawImage(ImageID(fa),0,ay)
EndIf
EndIf
StopDrawing()
If event=#PB_Event_CloseWindow
quit+1
EndIf
Until quit
End ; Das Ende der Welt :)
