- procedure fxBillboardBegin;
- var x,y : byte;
- Matrix : array[0..15] of single;
- begin
- //save original Matrix
- glPushMatrix;
- glGetFloatv(GL_MODELVIEW_MATRIX, @Matrix);
- for x := 0 to 2 do
- for y := 0 to 2 do
- if x=y then Matrix[x*4+y] := 1 else Matrix[x*4+y] := 0;
- glLoadMatrixf(@Matrix);
- end;
- procedure fxBillboardEnd;
- begin
- //restore original Matrix
- glPopMatrix;
- end;