frame bild creator

Übersicht

BlitzBasic

Beginners-Corner

	da_poller Betreff: frame bild creator	Mi, Jan 28, 2009 18:57 Antworten mit Zitat
soo.. ich versuch heut nen kleinen frame bild creator zu erstellen nur wenn ich das von folgender funktion zurückgegebene bild speichere bekomme ich nur 1 frame(im gespeicherten bild. -.- ps: der code is total bescheiden (sauberkeit) weil ich eben seit geraumer zeit rumbastel.. hier der Code: [AUSKLAPPEN] [EINKLAPPEN] Function createimg(r,g,b,x,y) bild=CreateImage(x,y,360) breit=x/2 hoch=y/2 Color r,g,b For w=0 To 359 SetBuffer ImageBuffer(bild,w) Oval 0,0,x,y,1 Next Color 0,0,0 For ww=0 To 359 SetBuffer ImageBuffer(bild,ww) dy=Sin(ww)breit dx=Cos(ww)hoch Line breit,hoch,breit+dx,hoch+dy Next SetBuffer BackBuffer() Return bild End Function

da_poller

Betreff: frame bild creator

Mi, Jan 28, 2009 18:57
Antworten mit Zitat

soo..

ich versuch heut nen kleinen frame bild creator zu erstellen nur wenn ich das von folgender funktion zurückgegebene bild speichere bekomme ich nur 1 frame(im gespeicherten bild. -.-

ps: der code is total bescheiden (sauberkeit) weil ich eben seit geraumer zeit rumbastel..

hier der Code: [AUSKLAPPEN]

Function createimg(r,g,b,x,y)

bild=CreateImage(x,y,360)

breit=x/2
hoch=y/2

Color r,g,b

For w=0 To 359
   SetBuffer ImageBuffer(bild,w)
   Oval 0,0,x,y,1
Next

Color 0,0,0

For ww=0 To 359
   SetBuffer ImageBuffer(bild,ww)
   dy=Sin(ww)*breit
   dx=Cos(ww)*hoch

   Line breit,hoch,breit+dx,hoch+dy

Next

SetBuffer BackBuffer()
Return bild

End Function

	Xeres Moderator	Mi, Jan 28, 2009 19:12 Antworten mit Zitat
Bei sowas bitte einrn funktionierenden Testcode beilegen, vll. sieht man dann auch weshalb etwas nicht funktioniert... kleiner tipp: An der Createimg Funktion liegt es nicht Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800, 600, 0, 2 SetBuffer BackBuffer() Local timer = CreateTimer(10) Local img = createimg(0,255,0,400,300) Local frame Repeat frame = (frame + 1) Mod 360 DrawImage(img,0,0, frame) Flip 0 WaitTimer(timer) Cls Until KeyHit(1) End Function createimg(r,g,b,x,y) bild=CreateImage(x,y,360) breit=x/2 hoch=y/2 Color r,g,b For w=0 To 359 SetBuffer ImageBuffer(bild,w) Oval 0,0,x,y,1 Next Color 0,0,0 For ww=0 To 359 SetBuffer ImageBuffer(bild,ww) dy=Sin(ww)breit dx=Cos(ww)hoch Line breit,hoch,breit+dx,hoch+dy Next SetBuffer BackBuffer() Return bild End Function
Win10 Prof.(x64)/Ubuntu 16.04\|CPU 4x3Ghz (Intel i5-4590S)\|RAM 8 GB\|GeForce GTX 960 Wie man Fragen richtig stellt \|\| "Es geht nicht" \|\| Video-Tutorial: Sinus & Cosinus THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

Xeres

Moderator

Mi, Jan 28, 2009 19:12
Antworten mit Zitat

Bei sowas bitte einrn funktionierenden Testcode beilegen, vll. sieht man dann auch weshalb etwas nicht funktioniert... kleiner tipp: An der Createimg Funktion liegt es nicht Wink

Code: [AUSKLAPPEN]

Graphics 800, 600, 0, 2
SetBuffer BackBuffer()
Local timer = CreateTimer(10)
Local img = createimg(0,255,0,400,300)
Local frame
Repeat
frame = (frame + 1) Mod 360
DrawImage(img,0,0, frame)
Flip 0
WaitTimer(timer)
Cls
Until KeyHit(1)
End
Function createimg(r,g,b,x,y)

bild=CreateImage(x,y,360)

breit=x/2
hoch=y/2

Color r,g,b

For w=0 To 359
   SetBuffer ImageBuffer(bild,w)
   Oval 0,0,x,y,1
Next

Color 0,0,0

For ww=0 To 359
   SetBuffer ImageBuffer(bild,ww)
   dy=Sin(ww)*breit
   dx=Cos(ww)*hoch

   Line breit,hoch,breit+dx,hoch+dy

Next

SetBuffer BackBuffer()
Return bild

End Function

Win10 Prof.(x64)/Ubuntu 16.04|CPU 4x3Ghz (Intel i5-4590S)|RAM 8 GB|GeForce GTX 960
Wie man Fragen richtig stellt || "Es geht nicht" || Video-Tutorial: Sinus & Cosinus
THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)