Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
Chroma Mode:     UV_CFL_PRED
CFL:     5
Chroma Angle:    0
  2. or download this
    if ($line =~ /\s*APP>\sIntraAngleDelta\s:\s(\d+)\s(\d+)/i) {
   print "Luma Angle : $1\n"
...
if ($line =~ /\s*APP>\sIntraAngleDelta\s:\s(\d+)\s(\d+)/i) {
   print "Chroma Angle : $2\n"
}
  3. or download this
    if ($line =~ /\s*APP>\sIntraAngleDelta\s:\s(\d+)\s(\d+)/i) {
   $values{'Luma Angle'} = $1;
   $values{'Chroma Angle'} = $2;
}