9 lines
342 B
ObjectPascal
9 lines
342 B
ObjectPascal
uses Graph3D;
|
|
|
|
begin
|
|
//Sphere(0,0,0,2,Materials.Diffuse(Colors.Green)+Materials.Specular(128));
|
|
var m := DiffuseMaterial(Colors.Green) + SpecularMaterial(128,30) + EmissiveMaterial(RGB(0,64,0));
|
|
Sphere(4,0,0,2,m);
|
|
Cube(8,0,0,4,RainbowMaterial);
|
|
Cube(0,0,0,4,DiffuseMaterial(Colors.Green) + ImageMaterial('dog.jpg',0.5,0.5));
|
|
end. |