- procedure DrawObject(pType : TObjectType; pAlpha : Singl);
- var
- ...
- begin
- for i := 0 to High(Vertex) do
- with Vertex[i] do
- begin
- glColor4f(R, G, B, pAlpha);
- glVertex3fv(@Position);
- ...
- end;
- ...
Blending mir fremder Farbe / AlphaModerator: DGL-Team
|