Нужно нарисовать гиперболический цилиндр и гиперболу без разниц делфи или паскаль ну и чтоб он крутился (вращался)

}except p:=1;end;end;

beginlockdrawing;setwindowheight(800);setwindowwidth(800);alpha := 0;while true dobeginclearwindow();draw(p, rgb(255, 0, 0), alpha);redraw;alpha := alpha - 0.03;delay(5);end;
end.