[kroc] 01 Apr 2004 - mpeg2encode is an utility to encode mpeg video. It can be downloaded here: http://www.mpeg.org/MPEG/MSSG/ To build a mpeg with Tk and mpeg2encode follow this: Records each frame in a directory in ppm image format. You must use a common basename (video here) followed by _XXXX.ppm where XXXX is the frame number. All frames must have the same size (320x200 pixels here). Example: tkimagename write video_0001.ppm -format ppm As we will use 24 frames per second, you'll need to record a lot of ppm. Once all your frames are recorded, write a '''video.par_mpg''' in the same directory with this content: MPEG-1 stream 24 frames/sec /path/to/video_%04d /* name of source files */ - /* name of reconstructed images ("-": don't store) */ - /* name of intra quant matrix file ("-": default matrix) */ - /* name of non intra quant matrix file ("-": default matrix) */ - /* name of statistics file ("-": stdout ) */ 2 /* input picture file format: 0=*.Y,*.U,*.V, 1=*.yuv, 2=*.ppm */ 406 /* number of frames */ 1 /* number of first frame */ 00:00:00:00 /* timecode of first frame */ 12 /* N (# of frames in GOP) */ 3 /* M (I/P frame distance) */ 1 /* ISO/IEC 11172-2 stream */ 0 /* 0:frame pictures, 1:field pictures */ 320 /* horizontal_size */ 200 /* vertical_size */ 2 /* aspect_ratio_information 1=square pel, 2=4:3, 3=16:9, 4=2.11:1 */ 2 /* frame_rate_code 1=23.976, 2=24, 3=25, 4=29.97, 5=30 frames/sec. */ 3000000.0 /* bit_rate (bits/s) */ 112 /* vbv_buffer_size (in multiples of 16 kbit) */ 0 /* low_delay */ 0 /* constrained_parameters_flag */ 4 /* Profile ID: Simple = 5, Main = 4, SNR = 3, Spatial = 2, High = 1 */ 8 /* Level ID: Low = 10, Main = 8, High 1440 = 6, High = 4 */ 0 /* progressive_sequence */ 1 /* chroma_format: 1=4:2:0, 2=4:2:2, 3=4:4:4 */ 1 /* video_format: 0=comp., 1=PAL, 2=NTSC, 3=SECAM, 4=MAC, 5=unspec. */ 5 /* color_primaries */ 5 /* transfer_characteristics */ 5 /* matrix_coefficients */ 320 /* display_horizontal_size */ 200 /* display_vertical_size */ 0 /* intra_dc_precision (0: 8 bit, 1: 9 bit, 2: 10 bit, 3: 11 bit */ 1 /* top_field_first */ 0 0 0 /* frame_pred_frame_dct (I P B) */ 0 0 0 /* concealment_motion_vectors (I P B) */ 1 1 1 /* q_scale_type (I P B) */ 1 0 0 /* intra_vlc_format (I P B)*/ 0 0 0 /* alternate_scan (I P B) */ 0 /* repeat_first_field */ 0 /* progressive_frame */ 0 /* P distance between complete intra slice refresh */ 0 /* rate control: r (reaction parameter) */ 0 /* rate control: avg_act (initial average activity) */ 0 /* rate control: Xi (initial I frame global complexity measure) */ 0 /* rate control: Xp (initial P frame global complexity measure) */ 0 /* rate control: Xb (initial B frame global complexity measure) */ 0 /* rate control: d0i (initial I frame virtual buffer fullness) */ 0 /* rate control: d0p (initial P frame virtual buffer fullness) */ 0 /* rate control: d0b (initial B frame virtual buffer fullness) */ 2 2 11 11 /* P: forw_hor_f_code forw_vert_f_code search_width/height */ 1 1 3 3 /* B1: forw_hor_f_code forw_vert_f_code search_width/height */ 1 1 7 7 /* B1: back_hor_f_code back_vert_f_code search_width/height */ 1 1 7 7 /* B2: forw_hor_f_code forw_vert_f_code search_width/height */ 1 1 3 3 /* B2: back_hor_f_code back_vert_f_code search_width/height */ Finally, run mpeg2encode: exec mpeg2encode /path/to/video.par_mpg /path/to/video.mpg puts "mpeg2encode done." ---- [AM] With [TclMagick] I have been able to automate even more of this (I do not need to define a parameters file like the above - thereby I lose some control - but still). Here is the script I used: ====== # # Small script to make an MPEG file # package require TclMagick # # Get a list of suitable GIF files - all of them living in the current directory # set gifs [glob anim*.gif] # # Now create the magic wand that will do all the processing # set mw [magick create wand] foreach f $gifs { $mw read $f $mw next } # # Make an MPEG file # $mw WriteImages justatest.mpg yes # # Or if this suits you better, an animated GIF # #$mw WriteImages justatest.gif yes ====== ---- [tk3play] <> Multimedia