fortran66のブログ

fortran について書きます。

f90glut

OpenGLによる3次元CGプログラミング 作者: 林武文, 加藤清敬 出版社/メーカー: コロナ社 MODULE m_callback USE opengl_gl USE opengl_glu USE opengl_glut IMPLICIT NONE INTEGER(GLCINT), PARAMETER :: KEY_ESC = 27 CONTAINS !--------------------------…

MODULE m_callback USE opengl_gl USE opengl_glut IMPLICIT NONE INTEGER(GLCINT), PARAMETER :: KEY_ESC = 27 CONTAINS !--------------------------- SUBROUTINE display() IMPLICIT NONE CALL glClear( GL_COLOR_BUFFER_BIT ) CALL glPushMatrix() CALL …

OpenGLによる3次元CGプログラミング 作者: 林武文, 加藤清敬 出版社/メーカー: コロナ社 1.5 課題 メインプログラムを WinMain にすることで、DOS 窓抜きで Window を開く。Linker の SYSTEM オプションの SUBSYSTEM を Windows にする必要あり。 MODULE m_c…

色付き四角

MODULE m_callback USE opengl_gl USE opengl_glut IMPLICIT NONE INTEGER(GLCINT), PARAMETER :: KEY_ESC = 27 CONTAINS !--------------------------- SUBROUTINE display() IMPLICIT NONE CALL glClear( GL_COLOR_BUFFER_BIT ) CALL glBegin( GL_POLYGON …

五角形

MODULE m_callback USE opengl_gl USE opengl_glut IMPLICIT NONE INTEGER(GLCINT), PARAMETER :: KEY_ESC = 27 CONTAINS !--------------------------- SUBROUTINE display() IMPLICIT NONE CALL glClear( GL_COLOR_BUFFER_BIT ) CALL glLineWidth( 2.0_glf…

とりあえず、この本の C のサンプルを Fortran に移植してみる。 用いたのは、f90gl-1.2.13。 例題1 窓が開かれて何もしない。ESCで終了。 MODULE m_callback USE opengl_gl USE opengl_glut IMPLICIT NONE INTEGER(glcint), PARAMETER :: KEY_ESC = 27 CON…