This is Main Display Call Code
call glutinit()
call glutinitdisplaymode(ior(GLUT_SINGLE,GLUT_RGB))
call glClearColor(1.0,1.0,1.0,1.0)
! Calling Profile Curve
call glutInitWindowSize(width_p,height_p)
call glClearColor(1.0,1.0,1.0,1.0)
wind = glutCreateWindow(“Profile Curve”)
CALL glutPositionWindow(50,50)
! Clear the Screen and Depth Buffer
call glutDisplayFunc(glDraw)
call glutReshapeFunc(myReshape)
! Calling Mean Curve
windm = glutCreateWindow(“Mean Curve”)
CALL glutPositionWindow(50+width_m,50)
call glClearColor(1.0,1.0,1.0,1.0)
call glutDisplayFunc(glDrawMean)
call glutReshapeFunc(myReshapeMean)
CALL glPushMatrix()
CALL glFlush()
call glutMainLoop()
The Draw Subrotuine is
call glLoadIdentity()
call glColor3f(1.0,1.0,0.0)
call glBegin(GL_LINE_STRIP)
DO i=1,201
CALL glvertex3f(crv(i,1),crv(i,2),crv(i,3))
END DO
call glEnd()
The Reshape Subroutine is
CALL glViewport(10, 10, (width_p-10),( height_p-10))
CALL glMatrixMode(GL_PROJECTION)
call glortho(xmin,xmax,ymin,ymax, -1.0_gldouble, 1.0_gldouble)
CALL glClear(GL_COLOR_BUFFER_BIT)
CALL glMatrixMode(GL_MODELVIEW)
CALL glLoadIdentity()
Hope this is part of code you where looking for