Контрольная работа: Адитивна кольорова модель RGB

If Key = VK_RIGHT then begin

ry := ry - 2.0;

InvalidateRect(Handle, nil, False);

end;

If Key = VK_UP then begin

tx := tx - 0.1;

InvalidateRect(Handle, nil, False);

end;

If Key = VK_DOWN then begin

tx := tx + 0.1;

InvalidateRect(Handle, nil, False);

end;

If Key = 49 then begin

Inc (mode);

If mode > High (mode) then mode := Low (mode);

InvalidateRect(Handle, nil, False);

end;

If Key = 50 then begin

Inc (gluobj);

If gluobj > High (gluobj) then gluobj := Low (gluobj);

InvalidateRect(Handle, nil, False);

end;

If Key = 51 then begin

If orientation = INSIDE

then orientation := OUTSIDE

else orientation := INSIDE;

InvalidateRect(Handle, nil, False);

end;

If Key = 52 then begin