)Die Bilder werden von mal zu mal dunkler.... warum ? Ich finde es nicht !
Code: Alles auswählen
UseJPEGImageDecoder()
InitSprite()
InitKeyboard()
fx.f
fy.f
tb=1
ax=1104
ay=848
Dim name$(1000)
faktor.f
Verzeichnis$="d:\Auto\"
dat=0
ExamineDirectory(0,Verzeichnis$,"*.jpg")
Repeat
FileType=NextDirectoryEntry()
If FileType=1
dat+1
name$(dat)=Verzeichnis$+DirectoryEntryName()
EndIf
Until FileType=0
OpenScreen(1024,768,32,"Vollbild")
vollbild:
schritt=1
R=Random(3)
blend=0
CreateSprite(1,1104,848,0)
StartDrawing(SpriteOutput(1))
tb+1
LoadImage(100,name$(tb))
x=ImageWidth()
y=ImageHeight()
fx=ay/y
bx=x*fx
by=y*fx
ResizeImage(100,bx,by)
DrawImage(UseImage(100),(ax/2)-(bx/2),(ay/2)-(by/2))
StopDrawing()
Select R
Case 0
dx=-80
dy=-80
Case 1
dx=-80
dy=0
Case 2
dx=0
dy=0
Case 3
dx=0
dy=-80
EndSelect
Repeat
ClearScreen(0,0,0)
DisplaySprite(1,dx,dy)
ChangeGamma(blend,blend,blend, 0)
FlipBuffers()
If schritt<=25
blend+10
ElseIf schritt>25 And schritt<55
blend=255
ChangeGamma(0,0,0,1)
ElseIf schritt>=55
blend-10
EndIf
Select R
Case 0
dx+1
dy+1
Case 1
dx+1
dy-1
Case 2
dx-1
dy-1
Case 3
dx-1
dy+1
EndSelect
Delay(50)
If schritt=>80
tb+1
If tb>dat
tb=1
EndIf
Goto vollbild
EndIf
schritt+1
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)
CloseScreen()