Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

procedure BeginPaint;

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

const mat1_dif:Array[0..2] of Single = (0.8,0.8,0.0);

const mat1_amb:Array[0..2] of Single = (0.2,0.2,0.2);

const mat1_spec:Array[0..2] of Single = (0.6,0.6,0.6);

const mat1_shininess = 0.5*128;

procedure DrawElement(A,b,R0,r1:Single);

procedure DrawFace(A,R:Single;Normal:Boolean);

implementation

procedure SetDCPixelFormat(dc:HDC);

var pfd:TPixelFormatDescriptor;

nPixelFormat:Integer;

begin

FillChar(pfd,SizeOf(pfd),0);

with pfd do

begin

nSize := sizeof(pfd);

nVersion := 1;

dwFlags := PFD_DRAW_TO_WINDOW or

PFD_SUPPORT_OPENGL or

Рекомендуем скачать другие рефераты по теме: реферат сила, культурология как наука.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата