OpenGL в Delphi
Команды библиотеки glu позволяют строить невыпуклые многоугольники
Для хранения точек на границе вырезаемой области - звездочки - введен массив:
trim: Array [Q..2Q, 0..1] of GLfloat;
Массив заполняется координатами точек, лежащих поочередно на двух вложенных окружностях:
procedure InitTrim;
var
i: Integer;
begin
For i := 0 to 20 do
If Odd(i) then begin // нечетные точки - на внешней окружности
trim [i, 0] := 0.5 " cos (i * Pi / 10) + 0.5;
trim [i, 1] := 0.5 * sin (i * Pi / 10) + 0.5;
end
else begin // четные точки - на внутренней окружности
trim (if 0] := 0.25 * cos (i * Pi / 10) + 0.5;
trim [i, 1] := 0.25 * sin (i * Pi / 10) + 0.5;
end;
end;
Внутри операторных скобок построения NURBS-поверхности вслед за командой gluNurbsSurface задаем область вырезки:
gluBeginTrim (theNurb) ;
gluPwlCurve (theNurb, 21, Qtnm, 2, GLU_MAP1_TRIM__21 ;
gluEndTrim (theNurb);
При задании области вырезки используются опять-таки специальные командные скобки, собственно область вырезки задается командой gluPwlCurve. Команда задает замкнутую кусочно-линейную кривую, часть NURBS-поверхности, не вошедшая внутрь этой области, не воспроизводится. Второй аргумент - количество точек границы, третий - адрес массива этих точек, четвертым параметром является символьная константа, задающая тип вырезки.
В примере при каждом нажатии пробела вызывается процедура инициализации поверхности, так что вид звездочки каждый раз получается разным,
случайным.
Следующий пример (подкаталог Ех53) также иллюстрирует вырезку NURBS-поверхности (Рисунок 3 32).
