* Subtitle::SSA::Style : fix @FIELDS_SSA, add description of formats

lib/Subtitle/SSA/Style.pm

@@ -8,19 +8,23 @@ use overload => (
   '""' => \&to_string,
 );
 
-my @FIELDS_SSA = qw(name fontname fontsize primarycolour secondarycolour outlinecolour backcolour bold italic underline strikeout scalex scaley spacing angle borderstyle outline shadow alignment marginl marginr marginv encoding); # FIXME: copypaste
+my @FIELDS_SSA = qw(name fontname fontsize primarycolour secondarycolour tertiarycolour backcolour bold italic borderstyle outline shadow alignment marginl marginr marginv alphalevel encoding);
 my @FIELDS_ASS = qw(name fontname fontsize primarycolour secondarycolour outlinecolour backcolour bold italic underline strikeout scalex scaley spacing angle borderstyle outline shadow alignment marginl marginr marginv encoding);
 
+# formats:
+#  s - string, use as is
+#  d - decimal, no-zero pad
+#  b - boolean, 0 as false, -1 as true
+#  f - float, 6.01 or 6 if no fractional part
+#  x - hex-number, &H00AABBCC for ASS or decimal number for SSA
 my %FIELDS = (
-  # format: string
   name              => { type => 's', value => 'Default', name => 'Name' },
   fontname          => { type => 's', value => 'Arial'  , name => 'Fontname' },
-  # format: hex-string (&H00AABBCC) for ASS or decimal number for SSA
   primarycolour     => { type => 'x', value => 0x00FFFFFF, name => 'PrimaryColour' },
   secondarycolour   => { type => 'x', value => 0x00000000, name => 'SecondaryColour' },
   outlinecolour     => { type => 'x', value => 0x004E3873, name => 'OutlineColour' },
+  tertiarycolour    => { type => 'x', value => 0x004E3873, name => 'TertiaryColour' },
   backcolour        => { type => 'x', value => 0x96000000, name => 'BackColour' },
-  # format: decimal number
   fontsize          => { type => 'd', value =>  24, name => 'Fontsize' },
   bold              => { type => 'b', value =>   0, name => 'Bold' },
   italic            => { type => 'b', value =>   0, name => 'Italic' },
@@ -37,6 +41,7 @@ my %FIELDS = (
   marginl           => { type => 'd', value =>  10, name => 'MarginL' },
   marginr           => { type => 'd', value =>  10, name => 'MarginR' },
   marginv           => { type => 'd', value =>  10, name => 'MarginV' },
+  alphalevel        => { type => 'd', value =>   0, name => 'AlphaLevel' },
   encoding          => { type => 'd', value => 204, name => 'Encoding' },
 );