/* material_1.txt */

object $obj;
material $mat;

$obj = project.curObject;

$mat = $obj.NewMaterial("my-material" + "-a");
$mat.LockAmbiantDiffuse = 0;
$mat.SetAmbiantColor((0.5, 0.7, 0.3));
$mat.Ka = 0.4;

$mat = $obj.NewMaterial("my-material-d");
$mat.SetDiffuseColor((0.3, 0.5, 0.7));
$mat.Ks = 0.7;

$mat = $obj.NewMaterial("my-material-s");
$mat.SetSpecularColor((0.7, 0.3, 0.5));
$mat.Kd = 0.3;

$mat = $obj.NewMaterial("my-material-e");
$mat.SetEmissiveColor((0.3, 0.5, 0.7));
$mat.Ke = 0.1;
$mat.Ke = 0.6 - $mat.Ke;

$mat = $obj.NewMaterial("xyzzy");
$mat.SetDiffuseColor((0.95, 0, 0));
$mat.Ks = 0.7;
$mat.roughness = 44;
$mat.brilliance = 1.8;
$mat.name = "Robin Red";

$mat = $obj.NewMaterial("transparent");
$mat.SetDiffuseColor((0.2, 0.7, 0.4));
$mat.Ks = 0.9;
$mat.alpha = 0.1;