displaying an openGL gluSphere at specific X/Y coordinates

// One-off initialisation
  fillchar(pfd, SizeOf(pfd), 0);
  with pfd do begin
    nSize := SizeOf(pfd);
    nVersion := 1; {The current version of the desccriptor is 1}
    dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or            
                PFD_DOUBLEBUFFER;
    iPixelType := PFD_TYPE_RGBA;
    cColorBits := 24; {support 24-bit color}
    cDepthBits := 32; {depth of z-axis}
    iLayerType := PFD_MAIN_PLANE;
  end; {with} 
  glViewport(0, 0, FNPixX, FNPixY);
  glMatrixMode(GL_PROJECTION); 
  glLoadIdentity(); // Reset View
  glOrtho(0.0, FNPixX, FNPixY, 0, -1.0, 1.0);
  glMatrixMode(GL_MODELVIEW); // Return to the modelview matrix
  glLoadIdentity();
  FglDC := getDC(FInnerPanel_1.Handle); // get device context
  glEnable(GL_COLOR_MATERIAL);
  FSphereQuadratic := gluNewQuadric(); // get our quadratic
  glEnable(GL_BLEND);
  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
  glShadeModel(GL_FLAT); 
  // on each iteration
  // first do the lines
  glClearColor(0.0, 0.0, 0.0, 0.0); // black background
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glLineWidth(3.0);                 // set line width
  glBegin(GL_LINE_STRIP); 
  glColor3ub(197, 155, 58);
  while inLoop do
    .. 
    glVertex2i(xI, FTopY - ifInt + FCircleRadius);
  glEnd; 
  // now for the sphere
  glPushMatrix();
  glColor3ub (255, 128, 0);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity();
  glTranslatef(FCircleX, FTopY - FCircleY + FCircleRadius, 0);
  glPolygonMode( GL_FRONT_AND_BACK, GL_FILL );
  glMaterialfv(GL_FRONT, GL_AMBIENT, @no_mat);
  glMaterialfv(GL_FRONT, GL_DIFFUSE, @mat_diffuse);
  glMaterialfv(GL_FRONT, GL_SPECULAR, @no_mat);
  glMaterialf(GL_FRONT, GL_SHININESS, no_shininess);
  glMaterialfv(GL_FRONT, GL_EMISSION, @no_mat);
  gluSphere(FSphereQuadratic, FCircleRadius, 32, 32)
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

// One-off initialisation
  fillchar(pfd, SizeOf(pfd), 0);
  with pfd do begin
    nSize := SizeOf(pfd);
    nVersion := 1; {The current version of the desccriptor is 1}
    dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or            
                PFD_DOUBLEBUFFER;
    iPixelType := PFD_TYPE_RGBA;
    cColorBits := 24; {support 24-bit color}
    cDepthBits := 32; {depth of z-axis}
    iLayerType := PFD_MAIN_PLANE;
  end; {with} 
  
FglDC := getDC(FInnerPanel_1.Handle); // get device context
 
FSphereQuadratic := gluNewQuadric(); // get our quadratic
 
glDisable(GL_BLEND);
glDisable(GL_COLOR_MATERIAL);
glShadeModel(GL_FLAT); 
glPolygonMode(GL_FRONT_AND_BACK, GL_LINE);
 
glMatrixMode(GL_PROJECTION); 
glViewport(0, 0, FNPixX, FNPixY);
glLoadIdentity(); // Reset View
glOrtho(0.0, FNPixX, FNPixY, 0, -FCircleRadius * 100.0f, FCircleRadius * 100.0f);
 
// on each iteration
// first do the lines
glClearColor(0.0, 0.0, 0.0, 0.0); // black background
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
glMatrixMode(GL_MODELVIEW); // Return to the modelview matrix
glLoadIdentity();
    
glLineWidth(3.0);                 // set line width
glColor3ub(197, 155, 58);
glBegin(GL_LINE_STRIP); 
  while inLoop do
    .. 
    glVertex2i(xI, FTopY - ifInt + FCircleRadius);
glEnd; 
 
// now for the sphere
glLineWidth(1.0);                 // set line width
glColor3ub (255, 128, 0);
glPushMatrix();
  glTranslatef(FCircleX, FTopY - FCircleY + FCircleRadius, 0);
  gluSphere(FSphereQuadratic, FCircleRadius, 32, 32)
glPopMatrix();

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

// One-off initialisation
  fillchar(pfd, SizeOf(pfd), 0);
  with pfd do begin
    nSize := SizeOf(pfd);
    nVersion := 1; {The current version of the desccriptor is 1}
    dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or            
                PFD_DOUBLEBUFFER;
    iPixelType := PFD_TYPE_RGBA;
    cColorBits := 24; {support 24-bit color}
    cDepthBits := 32; {depth of z-axis}
    iLayerType := PFD_MAIN_PLANE;
  end; {with} 
  
FglDC := getDC(FInnerPanel_1.Handle); // get device context
 
FSphereQuadratic := gluNewQuadric(); // get our quadratic
 
glEnable(GL_COLOR_MATERIAL);
glDisable(GL_BLEND);
glShadeModel(GL_FLAT); 
glPolygonMode(GL_FRONT_AND_BACK, GL_FILL);
glEnable(GL_LIGHTING)
glEnable(GL_LIGHT0);
 
glMatrixMode(GL_PROJECTION); 
glViewport(0, 0, FNPixX, FNPixY);
glLoadIdentity(); // Reset View
glOrtho(0.0, FNPixX, FNPixY, 0, -FCircleRadius * 100.0f, FCircleRadius * 100.0f);
 
// on each iteration
// first do the lines
glClearColor(0.0, 0.0, 0.0, 0.0); // black background
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
glMatrixMode(GL_MODELVIEW); // Return to the modelview matrix
glLoadIdentity();
    
glLineWidth(3.0);                 // set line width
glColor3ub(197, 155, 58);
glBegin(GL_LINE_STRIP); 
  while inLoop do
    .. 
    glVertex2i(xI, FTopY - ifInt + FCircleRadius);
glEnd; 
 
// now for the sphere
glLineWidth(1.0);                 // set line width
glColor3ub (255, 128, 0);
glPushMatrix();
  glTranslatef(FCircleX, FTopY - FCircleY + FCircleRadius, 0);
  gluSphere(FSphereQuadratic, FCircleRadius, 32, 32)
glPopMatrix();

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52: