Reply to post: Re: "My code is VERY EASY to identity..."

FYI: AI tools can unmask anonymous coders from their binary executables

StargateSg7

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!

POST COMMENT House rules

Not a member of The Register? Create a new account here.

  • Enter your comment

  • Add an icon

Anonymous cowards cannot choose their icon