[xiph-cvs] cvs commit: dryice/codec_modules theora.c

[Arc]

arc         04/03/02 02:46:33

  Added:       codec_modules theora.c
  Log:
  This isn't working yet, need to tie everything together with core.c

Revision  Changes    Path
1.1                  dryice/codec_modules/theora.c

Index: theora.c
===================================================================
#include <stdio.h>
#include <unistd.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include <theora/theora.h>
#include "dryice/dryice.h"

/* I have no idea what this is used for */
#ifdef _WIN32
#include <fcntl.h>
#endif

typedef struct {

  int video_x=0;
  int video_y=0;
  int frame_x=0;
  int frame_y=0;
  int frame_x_offset=0;  
  int frame_y_offset=0;
  int video_raten=-1;
  int video_rated=-1;
  int video_an=-1;
  int video_ad=-1;

  int video_r=-1;
  int video_q=8;

  theora_state  td;
  ogg_packet packet_buff[4]; /* most packets we'll ever have to return */

  yuv_buffer    yuv;
  
} dryice_theora_state;

void *
dryice_theora_init(dryice_params *dp) {

  theora_info          ti;
  dryice_theora_state *dts;

  /* allocate module state and initialise video parameters */
  dts = malloc(sizeof(dryice_theora_state));
  dts->frame_x = dp->frame_width;
  dts->frame_y = dp->frame_height;
  dts->video_raten = dp->framerate_numerator;
  dts->video_rated = dp->framerate_denominator;
  dts->packet_buff = malloc(sizeof(void *)*4);

  /* Theora has a divisible-by-sixteen restriction for the encoded video size */
  /* scale the frame size up to the nearest /16 and calculate offsets */
  dts->video_x = ((dts->frame_x + 15) >>4)<<4;
  dts->video_y = ((dts->frame_y + 15) >>4)<<4;
  dts->frame_x_offset = (dts->video_x - dts->frame_x)/2;
  dts->frame_y_offset = (dts->video_y - dts->frame_y)/2;

  theora_info_init(&ti);
  ti.width = dts->video_x;
  ti.height = dts->video_y;
  ti.frame_width = dts->frame_x;
  ti.frame_height = dts->frame_y;
  ti.offset_x = dts->frame_x_offset;
  ti.offset_y = dts->frame_y_offset;
  ti.fps_numerator = dts->video_raten;
  ti.fps_denominator = dts->video_rated;
  ti.aspect_numerator = dts->video_an;
  ti.aspect_denominator = dts->video_ad;
  ti.colorspace = OC_CS_UNSPECIFIED;
  ti.target_bitrate = dts->video_r;
  ti.quality = dts->video_q;

  ti.dropframes_p = 0;
  ti.quick_p = 1;
  ti.keyframe_auto_p = 1;
  ti.keyframe_frequency = 64;
  ti.keyframe_frequency_force = 64;
  ti.keyframe_data_target_bitrate = dts->video_r*1.5;
  ti.keyframe_auto_threshold = 80;
  ti.keyframe_mindistance = 8;
  ti.noise_sensitivity = 1;

  theora_encode_init(&dts->td,&ti);
  theora_info_clear(&ti);

  return dts;
}

ogg_packet **
dryice_theora_encode_headers(dryice_theora_state *dts) {
  
  theora_comment tc;

  theora_encode_header(&dts->td, &dts->packet_buff[0]);
  theora_comment_init(&tc);
  theora_encode_comment(&tc, &dts->packet_buff[1]);
  theora_encode_tables(&dts->td, &dts->packet_buff[2]);
  &dts->packet_buff[3] = 0;  /* null-terminate the array */

  return dts->packet_buff;
}

ogg_packet **
dryice_theora_encode_frame(dryice_theora_state *dts,
                           char *yuvframe) {
  signed char        *line;
  int i, e;

  yuv.y_width = dts->video_x;
  yuv.y_height = dts->video_y;
  yuv.y_stride = dts->video_x;

  yuv.uv_width = dts->video_x / 2;
  yuv.uv_height = dts->video_y / 2;
  yuv.uv_stride = dts->video_x / 2;

  yuv.y = yuvframe;
  yuv.u = yuvframe + dts->video_x * dts->video_y;
  yuv.v = yuvframe + dts->video_x * dts->video_y * 5/4 ;
  
  theora_encode_YUVin(&dts->td, &yuv);
  theora_encode_packetout(&dts->td, 0, &dts->packet_buff[0]);
  &dts->packet_buff[1] = 0;
 
  return dts->packet_buff;
}

void
dryice_theora_clear(dryice_theora_state *dts) {
  free(dts->packet_buff);
  theora_clear(&dts->td);
  free(dts);
}

<p><p>--- >8 ----
List archives:  http://www.xiph.org/archives/
Ogg project homepage: http://www.xiph.org/ogg/
To unsubscribe from this list, send a message to 'cvs-request at xiph.org'
containing only the word 'unsubscribe' in the body.  No subject is needed.
Unsubscribe messages sent to the list will be ignored/filtered.