stfark1
Joined: 02 Sep 2008 Posts: 224
|
Posted: Tue Jun 19, 2018 6:33 pm Post subject: Simple OpenGL Program |
|
|
Totally Frustrated, using Win 10 and Fortran to Opengl calls, output "crazy":
PROGRAM BASIC
INCLUDE <clearwin.ins>,nolist
INCLUDE <opengl.ins>,nolist
DIMENSION X(,Y(,Z(
INTEGER ctrl
X=0.
Y=0.
Z=0.
i=winio@('%es%ca[Simple Opengl Sample]&')
i=winio@('%sp%ww[no border]%og[static]%1w',
* 0, 0, 1000, 1000, ctrl)
CALL glBegin(GL_LINES)
CALL glRotatef(22.0,1.0,0.0,0.0)
CALL glRotatef(22.0,0.0,1.0,0.0)
CALL glRotatef(22.0,0.0,0.0,1.0)
INDX=0
DO 10 I=1,7
INDX=INDX+1
IF (INDX .EQ. GOTO 20
CALL glVertex3f(X(INDX),Y(INDX),Z(INDX))
CALL glVertex3f(X(INDX+1),Y(INDX+1),Z(INDX+1))
10 CONTINUE
20 CALL glEnd
END
No matter what I change the glRotate commands to, get the same thing, a vertical and a horizontal line on the output, no Z axis and had addition curve date yet did not plot the curve. Have this identical program in C++ works great???
How Simple can one get??? Anyone have ideas? Sid Kraft |
|