forums.silverfrost.com

[stfark1]

Totally Frustrated, using Win 10 and Fortran to Opengl calls, output "crazy":
PROGRAM BASIC
INCLUDE <clearwin.ins>,nolist
INCLUDE <opengl.ins>,nolist
DIMENSION X(N),Y(N),Z(N)
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. N) 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

Note: N in above was 8, tried to submit and it entered a emoticon?
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

[PaulLaidler]

I have not tested your program but a quick glance shows %1w instead of %lw.

[stfark1]

John Silver: I left out 3 statements by mistake where I set the input values to 1.:
after the below which set the values all to zero for the complete arrays:
x=0.
y=0.
z=0.
should have been additional codes:

x(2)=1.
y(4)=1.
z(6)=1.
this should have drawn the x,y,z axes but after changing the 1 to l, still did not work! Sid

[stfark1]

So Frustrated with this system, cannot post a screen shot so have to type in every line of code and other statements whenever I want to ask question ! BOO bad system!

I finally got the above program to work but there appears to be a memory management problem with the Fortran to OpenGL callable system, the minute that I add more code to above, I get "crazy" output data from OpenGL, zig zag lines all over the place. I would suggest exploring this problem as is not good for the system to act this way, Sid kraft

[dgurok]

stfark1, did you look at the opengl examples in ftn95 documentation? (use ftn95 /help)