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…