| 1 | use nihav_core::codecs::*; |
| 2 | use nihav_core::io::byteio::*; |
| 3 | use nihav_core::io::bitwriter::*; |
| 4 | |
| 5 | const TMRT_DELTA_TAB: [&[i16]; 3] = [ |
| 6 | &[ 5, -7, 36, -36 ], |
| 7 | &[ 2, -3, 8, -8, 18, -18, 36, -36 ], |
| 8 | &[ 1, -1, 2, -3, 8, -8, 18, -18, 36, -36, 54, -54, 96, -96, 144, -144 ] |
| 9 | ]; |
| 10 | |
| 11 | const FIRST_NODE: u8 = 255; |
| 12 | const ERR_MAX: u32 = std::u32::MAX; |
| 13 | |
| 14 | #[derive(Clone, Copy, Default)] |
| 15 | struct TrellisNode { |
| 16 | err: u32, |
| 17 | hpred: i16, |
| 18 | idx: u8, |
| 19 | } |
| 20 | |
| 21 | struct TMRTEncoder { |
| 22 | stream: Option<NAStreamRef>, |
| 23 | pkt: Option<NAPacket>, |
| 24 | dbits: u8, |
| 25 | hscale: bool, |
| 26 | do_trellis: bool, |
| 27 | top_line: Vec<u8>, |
| 28 | trellis: Vec<TrellisNode>, |
| 29 | indices: Vec<u8>, |
| 30 | } |
| 31 | |
| 32 | fn find_delta(cur_delta: i16, delta_tab: &[i16]) -> (i16, usize) { |
| 33 | let mut idx = 0; |
| 34 | let mut best_diff = 512; |
| 35 | let mut ndelta = delta_tab[0]; |
| 36 | for (i, &delta) in delta_tab.iter().enumerate() { |
| 37 | let ddiff = (delta - cur_delta).abs(); |
| 38 | if ddiff < best_diff { |
| 39 | idx = i; |
| 40 | best_diff = ddiff; |
| 41 | ndelta = delta; |
| 42 | } |
| 43 | } |
| 44 | (ndelta, idx) |
| 45 | } |
| 46 | |
| 47 | impl TMRTEncoder { |
| 48 | fn new() -> Self { |
| 49 | Self { |
| 50 | stream: None, |
| 51 | pkt: None, |
| 52 | dbits: 4, |
| 53 | hscale: false, |
| 54 | do_trellis: false, |
| 55 | top_line: Vec::new(), |
| 56 | trellis: Vec::new(), |
| 57 | indices: Vec::new(), |
| 58 | } |
| 59 | } |
| 60 | fn encode_plane(&mut self, bw: &mut BitWriter, in_frm: &NAVideoBuffer<u8>, plane_no: usize) -> EncoderResult<()> { |
| 61 | let (width, height) = in_frm.get_dimensions(plane_no); |
| 62 | |
| 63 | let stride = in_frm.get_stride(plane_no); |
| 64 | let offset = in_frm.get_offset(plane_no); |
| 65 | let src = in_frm.get_data(); |
| 66 | |
| 67 | let delta_tab = TMRT_DELTA_TAB[(self.dbits - 2) as usize]; |
| 68 | self.top_line.clear(); |
| 69 | self.top_line.resize(width, if plane_no == 0 { 0 } else { 0x80 }); |
| 70 | |
| 71 | let step = if self.hscale { 2 } else { 1 }; |
| 72 | for line in src[offset..].chunks(stride).take(height) { |
| 73 | let mut hor_pred = 0; |
| 74 | for (&cur, pred) in line[..width].iter().zip(self.top_line.iter_mut()).step_by(step) { |
| 75 | let cur = i16::from(cur); |
| 76 | let cur_delta = cur - i16::from(*pred) - hor_pred; |
| 77 | |
| 78 | let (ndelta, idx) = find_delta(cur_delta, delta_tab); |
| 79 | |
| 80 | bw.write(idx as u32, self.dbits); |
| 81 | hor_pred += ndelta; |
| 82 | *pred = (i16::from(*pred) + hor_pred).max(0).min(255) as u8; |
| 83 | } |
| 84 | } |
| 85 | |
| 86 | Ok(()) |
| 87 | } |
| 88 | |
| 89 | fn encode_plane_trellis(&mut self, bw: &mut BitWriter, in_frm: &NAVideoBuffer<u8>, plane_no: usize) -> EncoderResult<()> { |
| 90 | let (width, height) = in_frm.get_dimensions(plane_no); |
| 91 | |
| 92 | let stride = in_frm.get_stride(plane_no); |
| 93 | let offset = in_frm.get_offset(plane_no); |
| 94 | let src = in_frm.get_data(); |
| 95 | |
| 96 | let delta_tab = TMRT_DELTA_TAB[(self.dbits - 2) as usize]; |
| 97 | self.top_line.clear(); |
| 98 | self.top_line.resize(width, if plane_no == 0 { 0 } else { 0x80 }); |
| 99 | |
| 100 | let trellis_size = delta_tab.len(); |
| 101 | self.trellis.resize(trellis_size * (width + 1), TrellisNode::default()); |
| 102 | self.indices.resize(width, 0); |
| 103 | for node in self.trellis[..trellis_size].iter_mut() { |
| 104 | node.idx = FIRST_NODE; |
| 105 | } |
| 106 | |
| 107 | let step = if self.hscale { 2 } else { 1 }; |
| 108 | for line in src[offset..].chunks(stride).take(height) { |
| 109 | let mut tsplit = trellis_size; |
| 110 | for (&cur, &pred) in line[..width].iter().zip(self.top_line.iter()).step_by(step) { |
| 111 | let (tprev, tcur) = self.trellis.split_at_mut(tsplit); |
| 112 | let hist = &tprev[tprev.len() - trellis_size..]; |
| 113 | |
| 114 | let pix_val = i32::from(cur); |
| 115 | let top_val = i16::from(pred); |
| 116 | for (dst, &delta) in tcur.iter_mut().zip(delta_tab.iter()) { |
| 117 | dst.err = ERR_MAX; |
| 118 | for (idx, src) in hist.iter().enumerate() { |
| 119 | if src.err == ERR_MAX { |
| 120 | continue; |
| 121 | } |
| 122 | let nval = i32::from((top_val + src.hpred + delta).max(0).min(255)); |
| 123 | let new_err = src.err + (((nval - pix_val) * (nval - pix_val)) as u32); |
| 124 | if new_err < dst.err { |
| 125 | dst.err = new_err; |
| 126 | dst.idx = idx as u8; |
| 127 | dst.hpred = src.hpred + delta; |
| 128 | } |
| 129 | } |
| 130 | } |
| 131 | |
| 132 | tsplit += trellis_size; |
| 133 | } |
| 134 | |
| 135 | tsplit -= trellis_size; |
| 136 | let mut best_idx = 0; |
| 137 | let mut best_err = self.trellis[tsplit].err; |
| 138 | |
| 139 | for (idx, node) in self.trellis[tsplit..].iter().take(trellis_size).enumerate() { |
| 140 | if node.err < best_err { |
| 141 | best_idx = idx as u8; |
| 142 | best_err = node.err; |
| 143 | } |
| 144 | } |
| 145 | |
| 146 | let mut cur_idx = best_idx; |
| 147 | for dst in self.indices[..width / step].iter_mut().rev() { |
| 148 | *dst = cur_idx; |
| 149 | cur_idx = self.trellis[tsplit + (cur_idx as usize)].idx; |
| 150 | tsplit -= trellis_size; |
| 151 | } |
| 152 | |
| 153 | let mut hor_pred = 0; |
| 154 | for (pred, &idx) in self.top_line.iter_mut().step_by(step).zip(self.indices.iter()) { |
| 155 | bw.write(u32::from(idx), self.dbits); |
| 156 | hor_pred += delta_tab[usize::from(idx)]; |
| 157 | *pred = (i16::from(*pred) + hor_pred).max(0).min(255) as u8; |
| 158 | } |
| 159 | } |
| 160 | |
| 161 | Ok(()) |
| 162 | } |
| 163 | } |
| 164 | |
| 165 | impl NAEncoder for TMRTEncoder { |
| 166 | fn negotiate_format(&self, encinfo: &EncodeParameters) -> EncoderResult<EncodeParameters> { |
| 167 | match encinfo.format { |
| 168 | NACodecTypeInfo::None => { |
| 169 | Ok(EncodeParameters { |
| 170 | format: NACodecTypeInfo::Video(NAVideoInfo::new(0, 0, true, YUV410_FORMAT)), |
| 171 | ..Default::default() |
| 172 | }) |
| 173 | }, |
| 174 | NACodecTypeInfo::Audio(_) => Err(EncoderError::FormatError), |
| 175 | NACodecTypeInfo::Video(vinfo) => { |
| 176 | let pix_fmt = YUV410_FORMAT; |
| 177 | let outinfo = NAVideoInfo::new((vinfo.width + 3) & !3, (vinfo.height + 3) & !3, false, pix_fmt); |
| 178 | let mut ofmt = *encinfo; |
| 179 | ofmt.format = NACodecTypeInfo::Video(outinfo); |
| 180 | Ok(ofmt) |
| 181 | } |
| 182 | } |
| 183 | } |
| 184 | fn init(&mut self, stream_id: u32, encinfo: EncodeParameters) -> EncoderResult<NAStreamRef> { |
| 185 | match encinfo.format { |
| 186 | NACodecTypeInfo::None => Err(EncoderError::FormatError), |
| 187 | NACodecTypeInfo::Audio(_) => Err(EncoderError::FormatError), |
| 188 | NACodecTypeInfo::Video(vinfo) => { |
| 189 | if vinfo.format != YUV410_FORMAT { |
| 190 | return Err(EncoderError::FormatError); |
| 191 | } |
| 192 | if ((vinfo.width | vinfo.height) & 3) != 0 { |
| 193 | return Err(EncoderError::FormatError); |
| 194 | } |
| 195 | if (vinfo.width | vinfo.height) >= (1 << 10) { |
| 196 | return Err(EncoderError::FormatError); |
| 197 | } |
| 198 | |
| 199 | let out_info = NAVideoInfo::new(vinfo.width, vinfo.height, false, vinfo.format); |
| 200 | let info = NACodecInfo::new("truemotionrt", NACodecTypeInfo::Video(out_info), None); |
| 201 | let mut stream = NAStream::new(StreamType::Video, stream_id, info, encinfo.tb_num, encinfo.tb_den, 0); |
| 202 | stream.set_num(stream_id as usize); |
| 203 | let stream = stream.into_ref(); |
| 204 | |
| 205 | self.stream = Some(stream.clone()); |
| 206 | |
| 207 | Ok(stream) |
| 208 | }, |
| 209 | } |
| 210 | } |
| 211 | fn encode(&mut self, frm: &NAFrame) -> EncoderResult<()> { |
| 212 | let buf = frm.get_buffer(); |
| 213 | if let Some(ref vbuf) = buf.get_vbuf() { |
| 214 | let mut dbuf = Vec::with_capacity(4); |
| 215 | let mut gw = GrowableMemoryWriter::new_write(&mut dbuf); |
| 216 | let mut bw = ByteWriter::new(&mut gw); |
| 217 | |
| 218 | bw.write_byte(0)?; // header size |
| 219 | bw.write_byte(17)?; |
| 220 | bw.write_byte(self.dbits)?; |
| 221 | bw.write_byte(5)?; |
| 222 | bw.write_byte(self.hscale as u8)?; |
| 223 | bw.write_byte(0)?; // pad |
| 224 | let (width, height) = vbuf.get_dimensions(0); |
| 225 | bw.write_u16le(height as u16)?; |
| 226 | bw.write_u16le(width as u16)?; |
| 227 | bw.write_u16le(0)?; // pad |
| 228 | bw.write_u32le(0)?; // full frame_size |
| 229 | bw.write_u16le(0)?; // pad |
| 230 | |
| 231 | let hdr_size = bw.tell() as usize; |
| 232 | |
| 233 | bw.write_u32le(0)?; // data size |
| 234 | |
| 235 | let mut bw = BitWriter::new(dbuf, BitWriterMode::LE); |
| 236 | if !self.do_trellis { |
| 237 | for plane in 0..3 { |
| 238 | self.encode_plane(&mut bw, vbuf, plane)?; |
| 239 | } |
| 240 | } else { |
| 241 | for plane in 0..3 { |
| 242 | self.encode_plane_trellis(&mut bw, vbuf, plane)?; |
| 243 | } |
| 244 | } |
| 245 | dbuf = bw.end(); |
| 246 | |
| 247 | let frame_size = dbuf.len() as u32; |
| 248 | write_u32le(&mut dbuf[12..], frame_size)?; |
| 249 | write_u32le(&mut dbuf[hdr_size..], frame_size - (hdr_size as u32) - 4)?; |
| 250 | |
| 251 | dbuf[0] = ((hdr_size | 0x80) as u8).rotate_right(3); |
| 252 | for i in (1..hdr_size).rev() { |
| 253 | dbuf[i] ^= dbuf[i + 1]; |
| 254 | } |
| 255 | |
| 256 | self.pkt = Some(NAPacket::new(self.stream.clone().unwrap(), frm.ts, true, dbuf)); |
| 257 | Ok(()) |
| 258 | } else { |
| 259 | Err(EncoderError::InvalidParameters) |
| 260 | } |
| 261 | } |
| 262 | fn get_packet(&mut self) -> EncoderResult<Option<NAPacket>> { |
| 263 | let mut npkt = None; |
| 264 | std::mem::swap(&mut self.pkt, &mut npkt); |
| 265 | Ok(npkt) |
| 266 | } |
| 267 | fn flush(&mut self) -> EncoderResult<()> { |
| 268 | Ok(()) |
| 269 | } |
| 270 | } |
| 271 | |
| 272 | const ENCODER_OPTS: &[NAOptionDefinition] = &[ |
| 273 | NAOptionDefinition { |
| 274 | name: "bits", description: "Bits per delta", |
| 275 | opt_type: NAOptionDefinitionType::Int(Some(2), Some(4)) }, |
| 276 | NAOptionDefinition { |
| 277 | name: "hscale", description: "Horizontal scaling mode", |
| 278 | opt_type: NAOptionDefinitionType::Bool }, |
| 279 | NAOptionDefinition { |
| 280 | name: "trellis", description: "Trellis search for optimal deltas", |
| 281 | opt_type: NAOptionDefinitionType::Bool }, |
| 282 | ]; |
| 283 | |
| 284 | impl NAOptionHandler for TMRTEncoder { |
| 285 | fn get_supported_options(&self) -> &[NAOptionDefinition] { ENCODER_OPTS } |
| 286 | fn set_options(&mut self, options: &[NAOption]) { |
| 287 | for option in options.iter() { |
| 288 | for opt_def in ENCODER_OPTS.iter() { |
| 289 | if opt_def.check(option).is_ok() { |
| 290 | match option.name { |
| 291 | "bits" => { |
| 292 | if let NAValue::Int(val) = option.value { |
| 293 | self.dbits = val as u8; |
| 294 | } |
| 295 | }, |
| 296 | "hscale" => { |
| 297 | if let NAValue::Bool(val) = option.value { |
| 298 | self.hscale = val; |
| 299 | } |
| 300 | }, |
| 301 | "trellis" => { |
| 302 | if let NAValue::Bool(val) = option.value { |
| 303 | self.do_trellis = val; |
| 304 | } |
| 305 | }, |
| 306 | _ => {}, |
| 307 | }; |
| 308 | } |
| 309 | } |
| 310 | } |
| 311 | } |
| 312 | fn query_option_value(&self, name: &str) -> Option<NAValue> { |
| 313 | match name { |
| 314 | "bits" => Some(NAValue::Int(i64::from(self.dbits))), |
| 315 | "hscale" => Some(NAValue::Bool(self.hscale)), |
| 316 | "trellis" => Some(NAValue::Bool(self.do_trellis)), |
| 317 | _ => None, |
| 318 | } |
| 319 | } |
| 320 | } |
| 321 | |
| 322 | pub fn get_encoder() -> Box<dyn NAEncoder + Send> { |
| 323 | Box::new(TMRTEncoder::new()) |
| 324 | } |
| 325 | |
| 326 | #[cfg(test)] |
| 327 | mod test { |
| 328 | use nihav_core::codecs::*; |
| 329 | use nihav_core::demuxers::*; |
| 330 | use nihav_core::muxers::*; |
| 331 | use crate::*; |
| 332 | use nihav_commonfmt::*; |
| 333 | use nihav_codec_support::test::enc_video::*; |
| 334 | |
| 335 | fn encode_test(name: &'static str, enc_options: &[NAOption], hash: &[u32; 4]) { |
| 336 | let mut dmx_reg = RegisteredDemuxers::new(); |
| 337 | generic_register_all_demuxers(&mut dmx_reg); |
| 338 | let mut dec_reg = RegisteredDecoders::new(); |
| 339 | duck_register_all_decoders(&mut dec_reg); |
| 340 | let mut mux_reg = RegisteredMuxers::new(); |
| 341 | generic_register_all_muxers(&mut mux_reg); |
| 342 | let mut enc_reg = RegisteredEncoders::new(); |
| 343 | duck_register_all_encoders(&mut enc_reg); |
| 344 | |
| 345 | // sample from private collection |
| 346 | let dec_config = DecoderTestParams { |
| 347 | demuxer: "avi", |
| 348 | in_name: "assets/Duck/tr20_low.avi", |
| 349 | stream_type: StreamType::Video, |
| 350 | limit: Some(1), |
| 351 | dmx_reg, dec_reg, |
| 352 | }; |
| 353 | let enc_config = EncoderTestParams { |
| 354 | muxer: "avi", |
| 355 | enc_name: "truemotionrt", |
| 356 | out_name: name, |
| 357 | mux_reg, enc_reg, |
| 358 | }; |
| 359 | let dst_vinfo = NAVideoInfo { |
| 360 | width: 0, |
| 361 | height: 0, |
| 362 | format: YUV410_FORMAT, |
| 363 | flipped: false, |
| 364 | bits: 9, |
| 365 | }; |
| 366 | let enc_params = EncodeParameters { |
| 367 | format: NACodecTypeInfo::Video(dst_vinfo), |
| 368 | quality: 0, |
| 369 | bitrate: 0, |
| 370 | tb_num: 0, |
| 371 | tb_den: 0, |
| 372 | flags: 0, |
| 373 | }; |
| 374 | //test_encoding_to_file(&dec_config, &enc_config, enc_params, enc_options); |
| 375 | test_encoding_md5(&dec_config, &enc_config, enc_params, enc_options, hash); |
| 376 | } |
| 377 | #[test] |
| 378 | fn test_truemotionrt_encoder_2bit() { |
| 379 | let enc_options = &[ |
| 380 | NAOption { name: "bits", value: NAValue::Int(2) }, |
| 381 | ]; |
| 382 | encode_test("tmrt-2bit.avi", enc_options, &[0x2c2a5ae3, 0xde1646e4, 0xf76bb219, 0xd09602fa]); |
| 383 | } |
| 384 | #[test] |
| 385 | fn test_truemotionrt_encoder_3bit() { |
| 386 | let enc_options = &[ |
| 387 | NAOption { name: "bits", value: NAValue::Int(3) }, |
| 388 | ]; |
| 389 | encode_test("tmrt-3bit.avi", enc_options, &[0x36cf8f48, 0x3e8ff2ce, 0x6f3822cf, 0xf7fbf19d]); |
| 390 | } |
| 391 | #[test] |
| 392 | fn test_truemotionrt_encoder_4bit() { |
| 393 | let enc_options = &[ |
| 394 | NAOption { name: "bits", value: NAValue::Int(4) }, |
| 395 | ]; |
| 396 | encode_test("tmrt-4bit.avi", enc_options, &[0xa5a7fbe3, 0x7bac0b2b, 0x2af6f97f, 0xa65cd1fc]); |
| 397 | } |
| 398 | #[test] |
| 399 | fn test_truemotionrt_encoder_hscale() { |
| 400 | let enc_options = &[ |
| 401 | NAOption { name: "bits", value: NAValue::Int(3) }, |
| 402 | NAOption { name: "hscale", value: NAValue::Bool(true) }, |
| 403 | ]; |
| 404 | encode_test("tmrt-hscale.avi", enc_options, &[0xc17afa21, 0x5bdf49c9, 0x57997840, 0xfc2f17b6]); |
| 405 | } |
| 406 | #[test] |
| 407 | fn test_truemotionrt_encoder_trellis() { |
| 408 | let enc_options = &[ |
| 409 | NAOption { name: "bits", value: NAValue::Int(3) }, |
| 410 | NAOption { name: "hscale", value: NAValue::Bool(true) }, |
| 411 | NAOption { name: "trellis", value: NAValue::Bool(true) }, |
| 412 | ]; |
| 413 | encode_test("tmrt-trellis.avi", enc_options, &[0x3586b450, 0x6ea1ed31, 0xe14c0c7d, 0x0886bc4f]); |
| 414 | } |
| 415 | } |