Code:
procedure InitializeObjects(Created:Boolean)
const Colors : array [1..6] of TGLColor = (clrCoral, clrScarlet, clrSeagreen, clrSlateBlue, clrTurquise, clrCornFlowerBlue);
var i : integer;
begin
for i:= 1 to 6 do begin
If not Created then
GLShape[i] := GLScene1.Objects.AddNewChild(TGLDodecahedron)
GLShape[i].Position.X := -7 + i*2;
GLShape[i].Position.Y := 4;
GLShape[i].Material.FrontProperties.Diffuse := Colors[i];
end;
end;
First error: My colors code... How can I get that to work?
[Error] Unit2.pas(83): Incompatible types: 'TGLColor' and 'TVector4f'
Second: I assume I am doing something wrong when creating the shapes...
[Error] Unit2.pas(8: Incompatible types: 'TGLDodecahedron' and 'TGLBaseSceneObject'
Help!
I got the addnewchild code from the caperaven.co.za site (South African :! but it doesn't seem to work right.
Thanks in advance.
Bookmarks