Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|715\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Extracting Frames
Page : 1 2 Next Prev
Sun, 24 Jun 2018, 02:32
spinal	is it possible to extract 8-bit frames from a video (using ffmpeg) and have each image use the same palette? -=-=- Check out my excellent homepage!
Sun, 24 Jun 2018, 02:32
Jayenkai	If you can find a decent gif converter, gif allows palettised frame/video Settings, with colour limits. (Eg, you can specify 32 colours, and have the 32 colour palette be per frame, or consistent through the entire gif) If you still have Jasc PaintshopPro 7,there should be an AnimShop exe in the folder, that can do a lot with it's optimise animation function. But you will need to get it from ffmpeg compatible to AnimShop compatible format, first. Export to full individual frames, then use AnimShop's import option..? Either that or find a tool that can do everything at once. But, either way, aim for .gif, as it has nice limitations. -=-=- ''Load, Next List!''
Sun, 24 Jun 2018, 03:19
spinal	Found it! The following batch file will first create a good fit palette for the whole video, then use that palette to extract 8bit frames in bmp format set start_time=0 set duration=60 set palette="palette.png" set filters="fps=15,scale=110:88:flags=lanczos" ffmpeg -v warning -ss %start_time% -i %1 -vf "%filters%,palettegen" -y %palette% set var1=%1 set var2=%var1:~0,-4% ffmpeg -v warning -ss %start_time% -i %1 -i %palette% -lavfi "%filters% [x]; [x][1:v] paletteuse" -y frames/%%03d.bmp --v -=-=- Check out my excellent homepage!
Sun, 24 Jun 2018, 03:26
Jayenkai	Ooh, a premade palette. Nice!
Sun, 24 Jun 2018, 03:38
spinal	I can't take credit for the code, but I did google it myself -=-=- Check out my excellent homepage!
Sun, 24 Jun 2018, 13:24
Dabz	but I did google it myself That give me a chuckle! I sorta do the same at work if someone drops a bollock, I'm like "Well, I'm not going to name names, nah, but me and Keith were there, and it wasnt me!" hehehe Dabz -=-=- Intel Core i5 6400 2.7GHz, NVIDIA GeForce GTX 1070 (8GB), 8Gig DDR4 RAM, 256GB SSD, 1TB HDD, Windows 10 64bit
Sun, 24 Jun 2018, 13:34
spinal	Its a long time since I've tried to blitz something, but this should work right? Graphics 640,480,0,2 frameNumber = 1 a$ = "D:\blitz\pokitto\frames\" outfile = WriteFile("movie.dat") .top If fileNumber < 1000 Then b$ = "" + frameNumber If fileNumber < 100 Then b$ = "0" + frameNumber If fileNumber < 10 Then b$ = "00" + frameNumber infile$ = a$ + b$ + ".bmp" Text 0,0,infile$ gfxr=LoadImage(infile$) DrawImage gfx,0,0 ; Draw the image! picture = OpenFile(infile$) If frameNumber = 1 Then ; if first file, grab the palette SeekFile(picture,54) ; pal = 4x256 For t=0 To 2564 temp = ReadByte(picture) WriteByte(outfile, temp) Next Else ; if not, skip it SeekFile(picture,54+(2564)) EndIf For t=0 To 112*88 temp = ReadByte(picture) WriteByte(outfile, temp) Next CloseFile picture frameNumber = frameNumber + 1 If frameNumber < 2842 Then Goto top CloseFile outfile --v ...it doesnt. -=-=- Check out my excellent homepage!
Sun, 24 Jun 2018, 13:48
Jayenkai	Any way of including the files, or is it a mega-sized file?! -=-=- ''Load, Next List!''
Sun, 24 Jun 2018, 14:14
spinal	It's a few thousand smallish files. Extracted from a video using the code higher up. But for test purposes any old 8bit bmp files should do. In fact any file with a size larger than a 110x88 bmp. -=-=- Check out my excellent homepage!
Sun, 24 Jun 2018, 15:17
Jayenkai	OK, I'll see what I can fathom! Meanwhile Quick tip : infile$=a$+Right$("000"+frameNumber,3)+".bmp" -=-=- ''Load, Next List!''
Sun, 24 Jun 2018, 15:37
Jayenkai	Issue 1. --- If fileNumber < 1000 Then b$ = "" + frameNumber fileNumber vs frameNumber Issue 2. --- gfxr=LoadImage(infile$) gfxr? -=-=- ''Load, Next List!''
Mon, 25 Jun 2018, 00:53
spinal	typo! dammit!
Mon, 25 Jun 2018, 14:08
spinal	current conversion progress... requirements - ffmpeg The first step is to rip the frames from whatever video we use. The following bat file will rip all o fthe files and a nice small size, all images using the same 256 colour palette, while flipping the image upside down (bmp files are saved upside down, we want them the correct way up). convert.bat mkdir frames set start_time=0 set duration=60 set palette="palette.png" set filters="vflip,fps=20,scale=110:88:flags=lanczos" ffmpeg -v warning -ss %start_time% -i %1 -vf "%filters%,palettegen" -y %palette% set var1=%1 set var2=%var1:~0,-4% ffmpeg -v warning -ss %start_time% -i %1 -i %palette% -lavfi "%filters% [x]; [x][1:v] paletteuse" -y frames/%%d.bmp --v Then the following blitzbasic code copies the first frames palette, then every other frames image data to a single file. movie_maker.bb Graphics 640,480,0,2 frameNumber = 1 Dim pal(3,256) a$ = "D:\blitz\pokitto\frames\" outfile = WriteFile("movie.dat") .top Cls Text 0,0,infile$ ;infile$=a$+Right$("000"+frameNumber,3)+".bmp" infile$=a$+frameNumber+".bmp" Text 0,12,infile$ picture = OpenFile(infile$) If picture Then gfx=LoadImage(infile$) DrawImage gfx,0,24 ; Draw the image! If frameNumber = 1 Then ; if first file, grab the palette SeekFile(picture,54) ; pal = 4x256 For t=0 To 255 pal(2,t) = ReadByte(picture) pal(1,t) = ReadByte(picture) pal(0,t) = ReadByte(picture) temp = ReadByte(picture) WriteByte(outfile, pal(2,t)) WriteByte(outfile, pal(1,t)) WriteByte(outfile, pal(0,t)) Next Else ; if not, skip it SeekFile(picture,54+(2564)) EndIf y=0 x=0 For t=1 To 11288 temp = ReadByte(picture) If(x<110) Then WriteByte(outfile, temp) ;Color pal(0,temp),pal(1,temp),pal(2,temp) ;Plot x+200,88-y End If x = x + 1 If x = 112 Then x = 0 y = y + 1 End If Next CloseFile picture frameNumber = frameNumber + 1 Goto top End If CloseFile outfile --v The video file can then be tested with the following code movie_player.bb Graphics 640,480,0,2 frameNumber = 1 infile$="movie.dat" Dim pal(3,256) stream = OpenFile(infile$) While Not Eof (stream) If frameNumber = 1 Then For t=0 To 255 pal(2,t) = ReadByte(stream) pal(1,t) = ReadByte(stream) pal(0,t) = ReadByte(stream) ;d = ReadByte(stream) Next EndIf x=0 y=0 For t=1 To 11088 temp = ReadByte(stream) Color pal(0,temp),pal(1,temp),pal(2,temp) Rect x5, (88-y)5, 5,5,1 ; Plot x,88-y x = x + 1 If x = 110 Then x = 0 y = y + 1 End If Next frameNumber = frameNumber + 1 ; Delay (1000/15) Wend CloseFile stream --v and finally, the pokitto code /* Mode 13 (110x88x256) by Spinal, a palette rotating plasma demo / #include "Pokitto.h" #include "SDFileSystem.h" SDFileSystem sd(/MOSI/P0_9, /MISO/P0_8, /SCK/P0_6, /CS/P0_7, /Mountpoint*/"sd"); Pokitto::Core game; unsigned short pal[256]; // assign a 256 entry array to hold the palette int main(){ game.begin(); game.display.persistence=1; game.setFrameRate(999); int temp; pokInitSD(); // Call init always. while (game.isRunning()) { uint32_t myFile = fileOpen("movie.dat", FILE_MODE_READONLY); if( !myFile ){ unsigned char col[3]; uint16_t tempPal[256]; for(temp=0; temp<256; temp++){ fileReadBytes(&col[0], 3); pal[temp] = (col[0]>>3) \| ((col[1] >> 2) << 5) \| ((col[2] >> 3) << 11); } game.display.load565Palette(&pal[0]); // load a palette the same way as any other palette in any other screen mode bool stillGoing=1; while(stillGoing==1){ if(game.update()){ if(!fileReadBytes(&game.display.screenbuffer[0], 9680))stillGoing=0; } } fileClose(); } // file open } return 1; } --v Here is is in action... https://twitter.com/i/status/1011335716746547202 -=-=- Check out my excellent homepage!
Mon, 25 Jun 2018, 14:47
Jayenkai	Thatâ€™s not Bill and Ted.. !!! Great work, though. Any specific purpose? -=-=- ''Load, Next List!''
Tue, 26 Jun 2018, 00:56
spinal	Other than wondering if it would work you mean?
Tue, 26 Jun 2018, 01:41
Jayenkai	LOL, ok
Tue, 26 Jun 2018, 04:49
rockford	That's really cool
Tue, 03 Jul 2018, 09:25
spinal	Here's a question... The following code is only getting through about 10% of my video file before simply closing (it's not supposed to close, but wait for esc key) Can anyone see anything wrong with it? Are there for example any limits to reading/writing files of a certain size in blitz3d? Graphics 640,480,0,2 frameNumber = 1 Dim pal(3,256) a$ = "D:\blitz\pokitto\frames\" outfile = WriteFile("movie.dat") framecount=1 While FileType(a$+framecount+".bmp") framecount=framecount+1 Wend framecount=framecount-1 ; remove the last frame cos it doesn't exist audiolength = FileSize("audio.wav") samplesize = Int(audiolength/framecount) ; framecount soundfile=ReadFile("audio.wav") ; the audio file ;-----[ file header ]--------- infile$=a$+"1.bmp" ; grab first frame gfx=LoadImage(infile$) format = 1 ; the first verson of the file format :P width# = ImageWidth(gfx) ; width of video height = ImageHeight(gfx) ; height of video WriteByte(outfile,format) WriteByte(outfile,Int(width)) WriteByte(outfile,height) WriteShort(outfile,samplesize) WriteInt(outfile,framecount) fw# = (width/4) fileWidth = Ceil(fw)4 Cls Print framecount ;.top While frameNumber < framecount Cls Color 255,255,255 Text 0,0,infile$ infile$=a$+frameNumber+".bmp" Text 0,24,framecount+":"+width+":"+height+":"+fileWidth picture = OpenFile(infile$) ;If picture Then gfx=LoadImage(infile$) DrawImage gfx,0,48 ; Draw the image! If frameNumber = 1 Then ; if first file, grab the palette SeekFile(picture,54) ; pal = 4x256 For t=0 To 255 pal(2,t) = ReadByte(picture) pal(1,t) = ReadByte(picture) pal(0,t) = ReadByte(picture) temp = ReadByte(picture) WriteByte(outfile, pal(2,t)) WriteByte(outfile, pal(1,t)) WriteByte(outfile, pal(0,t)) Next Else ; if not, skip it SeekFile(picture,54+(2564)) EndIf ;-------------[ Copy Audio from file ]---------------- For s=1 To samplesize bite=ReadByte(soundfile) WriteByte(outfile,bite) Next y=0 x=0 For t=1 To fileWidth*height temp = ReadByte(picture) If(x<width) Then WriteByte(outfile, temp) ;Color pal(0,temp),pal(1,temp),pal(2,temp) ;Plot x,y + 200 End If x = x + 1 If x = fileWidth Then x = 0 y = y + 1 End If Next CloseFile picture frameNumber = frameNumber + 1 Flip(0) Wend ;End If CloseFile outfile While Not KeyHit(1) Wend --v -=-=- Check out my excellent homepage!
Tue, 03 Jul 2018, 10:05
Jayenkai	I can't remember if Blitz2D/3D/Plus cleaned up when you LoadImage() over another image. Just in case, add a FreeImage(gfx) in there, and see if that helps. -=-=- ''Load, Next List!''
Tue, 03 Jul 2018, 10:09
spinal	Well spotted, added it and it seems to be working Thanks Jay! It's now at 29000 out of 77611 frames and counting -=-=- Check out my excellent homepage!
Tue, 03 Jul 2018, 10:53
spinal	Nope, it still doesn't make it to the end not far off though. -=-=- Check out my excellent homepage!
Tue, 03 Jul 2018, 12:30
Jayenkai	Is it crashing or exiting the loop? Stick a little flag/debug/something so that you can tell if it's exiting or crashing... (maybe a Writestring(outfile,"Closed Normally") before the closefile, then check in the file when it's done) That should help decide whether it's a "weird" issue that's closing the loop early, or whether it's another memory based issue. -=-=- ''Load, Next List!''
Tue, 03 Jul 2018, 13:11
spinal	It's freezing and becoming unresponsive at around frame 77598, give or take. Which puts the output file at around 614mb. -=-=- Check out my excellent homepage!
Tue, 03 Jul 2018, 13:26
Jayenkai	If you can get it to repeat the task, could you possibly make a second edition to start from the given frame, and continue the video?! -=-=- ''Load, Next List!''
Tue, 03 Jul 2018, 13:37
spinal	Good idea, I'll test now starting at frame 50000... \|edit\| Got to 77602. I wonder if its something to do with the 54.7mb audio file... [edit2] tried without seeking the audio file to the correct position, copying from the beginning instead, same result. I wonder if blitz, or even windows for that matter, has a problem with the number of files in a folder? Even starting at frame 76000 (out of 77611) it still gets to roughly the same point \|edit\| Even removing the image preview doesn't help. This is weird one. -=-=- Check out my excellent homepage!
Tue, 03 Jul 2018, 14:34
Jayenkai	obvious checks.. the specific image file is ok? The palette number's not somehow a non byte? If itâ€™s sticking specifically on that same number, Iâ€™d focus on that, not your code... -=-=- ''Load, Next List!''
Page : 1 2 Next Prev