+sub add_interactivity {
+ my $self = shift;
+ my ($name, $values) = @_;
+ $self->_add_subsec("interactivities", $name, 1, $values);
+}
+
+sub add_taperscan {
+ my $self = shift;
+ my ($name, $values) = @_;
+ $self->_add_subsec("taperscans", $name, 1, $values);
+}
+