Курсовая работа: Построение трехмерной модели вазы

{ Private declarations }

public

{ Public declarations }

end;

T3DPoint=record

x,y,z:extended

end;

TPolygon=record

A,B,C,D:word;

clr:TColor;

end;

const

step=30;//количество точек на одной параллели

nPOINT=step*10+1;

nPOLYGON=step*10+step;

col1=255+255*$100+204*$10000; //цвет стенок(полигонов) вазы

col2=209+154*$100+65*$10000; //цвет дна вазы

var

Form1:TForm1;

Buf,Blinc_Buf:TBitMap;

polygons:array[1..nPolygon] of Tpolygon;

w,v1:array[1..nPOINT] of T3DPoint;//мировые (world),видовые (view) координаты вершин

v:array[1..nPOINT] of TPoint;//экранные (screen) координаты вершин

S:array[1..nPOLYGON] of extended;

n:array[1..nPOLYGON] of T3DPoint; //массив нормалей

teta,phi,d,ro,r:real;

implementation

{$R *.dfm}

function tone(clr:TColor;nz:extended):TColor; //плоскость цвета