Graphics 1024,768,16,1


AutoMidHandle True

Dim Array_Rad(72)


 Gr=LoadImage("bild.bmp")
MaskImage Gr,0,0,0
For n=0 To 71
   Array_Rad(n)=CopyImage(Gr):   RotateImage Array_Rad(n),n*5
Next

h= ImageWidth(Gr)

SetBuffer BackBuffer()

ClsColor 0,0,0:Cls

For n= 0 To  8:DrawImage Array_Rad(n),h/2+ n    *h,0.5*h:Next
For n= 9 To 17:DrawImage Array_Rad(n),h/2+(n- 9)*h,1.5*h:Next
For n=18 To 26:DrawImage Array_Rad(n),h/2+(n-18)*h,2.5*h:Next
For n=27 To 35:DrawImage Array_Rad(n),h/2+(n-27)*h,3.5*h:Next
For n=36 To 44:DrawImage Array_Rad(n),h/2+(n-36)*h,4.5*h:Next
For n=45 To 53:DrawImage Array_Rad(n),h/2+(n-45)*h,5.5*h:Next
For n=54 To 62:DrawImage Array_Rad(n),h/2+(n-54)*h,6.5*h:Next
For n=63 To 71:DrawImage Array_Rad(n),h/2+(n-63)*h,7.5*h:Next

Flip

Delay 5000

   If KeyHit(88) Then SaveBuffer(FrontBuffer(),"schnappschuss.bmp")