sub simple_properties {
  my %properties = %{ shift() };
  my ($emissive, $diffuse, $shininess, $specular, $transp);
  foreach my $property (keys %properties) {
    if ($property eq "emissive") {
      $emissive = "emissiveColor  @{$properties{ $property }} ";
    }
    elsif ($property eq "diffuse") {
      $diffuse = "diffuseColor  @{$properties{ $property }} ";
    }
    elsif ($property eq "shininess") {
      $shininess = "shininess  @{$properties{ $property }} ";
    }
    elsif ($property eq "specular") {
      $specular = "specularColor  @{$properties{ $property }} ";
    }
    elsif ($property eq "transparency") {
      $transp = "transparency  @{$properties{ $property }} ";
    }
  }
  return <<"EOR";
appearance Appearance {
  material Material {
    $emissive
    $diffuse
    $shininess
    $specular
    $transp
  }
}
EOR
}

##</code><code>##

sub directional_light {
  my ($amb_intensity, $color_r, $direction_r, $intensity, $on) = (@_);
  my @color = @{ $color_r };
  my @direction = @{ $direction_r };
  $on = etf( $on );

  return <<"EOR";
DirectionalLight {
  ambientIntensity $amb_intensity
  color @color
  direction @direction
  intensity $intensity
  on $on
}
EOR
}

##</code><code>##

my (@array, @other_array) = (@{$_[0]}, @{$_[1]});