void Stozekniesciety(double R, double h, double N, double poz)
{
    double dAlfa, x, y, Rp, rp;
    int i, j;

    dAlfa = 360 / N;
    glColor3f(1.0, 0.0, 1.0);
    glBegin(GL_TRIANGLE_FAN);
    glVertex3f(0.0, 0.0, 0.0);
    for (i = 0; i * dAlfa <= 360.0; i++)
    {
        glVertex3f(R * cos(DEG2RAD(i * dAlfa)), 0.0, R * sin(DEG2RAD(i * dAlfa)));
    }
    glEnd();

    glColor3f(1.0, 0.0, 0.0);
    for (j = 0; j < poz; j++)
    {
        x = R * ((j * (double)(h / poz)) / h);
        y = R * (((j * (double)(h / poz)) + (h / poz)) / h);
        Rp = R - x;
        rp = R - y;
        glBegin(GL_QUADS);
        for (i = 0; i <= N; i++)
        {
            glVertex3f(Rp * cos(DEG2RAD(i * dAlfa)), (j * (double)(h / poz)), Rp * sin(DEG2RAD(i * dAlfa)));
            glVertex3f(rp * cos(DEG2RAD(i * dAlfa)), (j * (double)(h / poz)) + (h / poz), rp * sin(DEG2RAD(i * dAlfa)));
            glVertex3f(rp * cos(DEG2RAD((i + 1) * dAlfa)), (j * (double)(h / poz)) + (h / poz), rp * sin(DEG2RAD((i + 1) * dAlfa)));
            glVertex3f(Rp * cos(DEG2RAD((i + 1) * dAlfa)), (j * (double)(h / poz)), Rp * sin(DEG2RAD((i + 1) * dAlfa)));
        }
        glEnd();
    }
}