Re: "My code is VERY EASY to identity..."
Ya Got Me! --- I'm ONE AND THE SAME!!!! and YES my CODEC will be released very soon now. I do have a day job and my employer needs my expertise in video production and coding (everyone does everything.at this company - i.e. Multi-tasking!) so I can only work on it in my off-hours.
Here is the basic outline of the code which is MOST READABLE AND UNDERSTANDABLE
quite unlike my colleague from years ago:
Threadsafe_Global_Variables:
Final_Video_Output_Filename : Character_String_Type;
Frame_Buffer_Images,
Processed_Output_Images : Array[ ONE..Maximum_Frame_Group_Length ] Bitmap_Image_Type;
Threadsafe_Global_Constants:
Maximum_Frame_Group_Length = 120;
Program_Begin
Show_Destination_Output_File_Dialog( Final_Video_Output_Filename );
Call_High_Resolution_Interrupt_Timer( ONE_HUNDRED_TWENTY_TIMES_PER_SECOND );
End_Program;
Define_CODEC_Procedures_and_Functions:
Procedure Interrupt_Timer_Event_Handler( Number_Of_Frames_In_Group: Signed_Integer_Type );
Var
x, y,
Frame_Number : Signed_Integer_Type;
Destination_Video_File : File of Compressed_Video_Frame_Type;
Begin
Try
Keep_Within_Limits( Number_Of_Frames_In_Group, ONE, Maximum_Frame_Group_Length );
for Frame_Number := ONE to Number_Of_Frames_In_Group do
Begin
Ingest_Current_Frame_From_Camera_Buffer( Frame_Buffer_Images[ i ] );
for y := ONE to Height_Of_Image do
for x := ONE to Width_Of_Image do
Begin
Process_Current_And_Neighbouring_Pixels( Frame_Buffer_Images[ i ],
x, y, Frame_Number,
Processed_Output_Images[ i ] );
End;
if Frame_Number = Number_Of_Frames_In_Group then
Save_Group_of_Frames( Final_Video_Output_Filename, Number_Of_Frames_In_Group );
Stop_And_Exit_Compression_Program_Whenever_Main_Window_Is_Closed;
Except
Handle_Overflow_UnderFlow_NAN_Exceptions;
End;
End;
Procedure Save_Group_of_Frames( Output_Filename: Character_String_Type;
Number_Of_Frames_In_Group: Signed_Integer_Type );
Begin
Try
Open_File( Destination_Video_File, Output_Filename, APPEND_TO_END_OF_FILE );
for Frame_Number := ONE to Number_Of_Frames_In_Group do
Save_Compressed_Video_Frame_To_File( Processed_Output_Images[ i ] );
Close_File( Destination_Video_File );
Except
Handle_File_Exceptions_Here;
End;
End;
Soooooooooo........Can you read and understand this????? If you can then I did my job!