2008-05-01から1ヶ月間の記事一覧
ACM Fortran Forum の最新号の記事に面白いものがありました。"Note on array-valued functions" by Arjen Markus http://portal.acm.org/citation.cfm?id=1373277.1373278&coll=portal&dl=ACM&idx=J286&part=newsletter&WantType=Newsletters&title=ACM%20S…
Fortranへの移植。 MODULE m_callback USE opengl_gl USE opengl_glu USE opengl_glut IMPLICIT NONE REAL(GLdouble), PARAMETER :: pi = 3.141592653589793238_GLdouble REAL(GLdouble), PARAMETER :: G = 9.80665_GLdouble REAL(GLdouble), PARAMETER :: T…
Fortranへの移植。 MODULE m_callback USE opengl_gl USE opengl_glu USE opengl_glut IMPLICIT NONE REAL(GLdouble), PARAMETER :: pi = 3.141592653589793238_GLdouble REAL(GLdouble), PARAMETER :: G = 9.80665_GLdouble REAL(GLdouble), PARAMETER :: T…
Fortranへの移植。 MODULE m_callback USE opengl_gl USE opengl_glu USE opengl_glut IMPLICIT NONE REAL(GLdouble), PARAMETER :: pi = 3.141592653589793238_GLdouble REAL(GLdouble), PARAMETER :: G = 9.80665_GLdouble REAL(GLdouble), PARAMETER :: T…
Fortranへの移植。 MODULE m_callback USE opengl_gl USE opengl_glu USE opengl_glut IMPLICIT NONE REAL(GLdouble), PARAMETER :: pi = 3.141592653589793238_GLdouble REAL(GLdouble), PARAMETER :: G = 9.80665_GLdouble REAL(GLdouble), PARAMETER :: T…
Fortranへの移植。 MODULE m_callback USE opengl_gl USE opengl_glu USE opengl_glut IMPLICIT NONE REAL(GLdouble), PARAMETER :: pi = 3.141592653589793238_GLdouble REAL(GLdouble), PARAMETER :: G = 9.80665_GLdouble REAL(GLdouble), PARAMETER :: T…
Fortran の C ルーチン呼び出しと、Win32 の呼び出し規約の問題があるため、問題がある可能性が高いです。Fortran2003 の C 言語との互換機能を使って、Win32 のルーチンを呼ぶ。 コンソール窓のハンドルを得る関数 GetConsoleWindow へのインターフェースを…
Fortranへの移植。 MODULE m_callback USE opengl_gl USE opengl_glu USE opengl_glut IMPLICIT NONE INTEGER(GLint), PARAMETER :: KEY_ESC = 27 INTEGER(GLint), PARAMETER :: imageHeight = 64, imageWidth = 64 INTEGER(GLint) :: ixBegin = 0, iyBegin …
Fortranへの移植。 MODULE m_callback USE opengl_gl USE opengl_glu USE opengl_glut IMPLICIT NONE INTEGER(GLint), PARAMETER :: KEY_ESC = 27 INTEGER(GLint) :: ixBegin = 0, iyBegin = 0 INTEGER(GLint) :: mButton REAL(GLfloat) :: distance, twist,…
Fortranへの移植。 MODULE m_callback MODULE m_callback USE opengl_gl USE opengl_glu USE opengl_glut IMPLICIT NONE INTEGER(GLint), PARAMETER :: KEY_ESC = 27 INTEGER(GLint) :: ixBegin = 0, iyBegin = 0 INTEGER(GLint) :: mButton REAL(GLfloat) :…
Fortranへの移植。 MODULE m_callback USE opengl_gl USE opengl_glu USE opengl_glut IMPLICIT NONE INTEGER(GLint), PARAMETER :: KEY_ESC = 27 INTEGER(GLint) :: ixBegin = 0, iyBegin = 0 INTEGER(GLint) :: mButton REAL(GLfloat) :: distance, twist,…
MODULE m_bitmap IMPLICIT NONE INTEGER, PARAMETER :: DWORD = 4, LONG = 4, WORD = 2, kBYTE = 1 TYPE :: T_BITMAPINFOHEADER SEQUENCE integer(DWORD) biSize ! knowns DWORD integer(LONG) biWidth ! knowns LONG integer(LONG) biHeight ! knowns LONG …
OpenGLによる3次元CGプログラミング 作者: 林武文, 加藤清敬 出版社/メーカー: コロナ社 MODULE m_bitmap IMPLICIT NONE INTEGER, PARAMETER :: DWORD = 4, LONG = 4, WORD = 2, kBYTE = 1 TYPE :: T_BITMAPINFOHEADER SEQUENCE integer(DWORD) biSize ! kno…
Fortran での C ルーチン呼び出し規約と Win32 での呼び出し規約が異なっているようで、問題が生じる可能性があるようです。Window 表示のミニマル。 Fortran2003 の C との互換命令を用いて、！DECのコンパイラ拡張を使用しない書き方。 参照 http://d.hate…
メモリーリークがあったので少し修正。とりあえず、ARToolKit 中のサンプルプログラム SimpleTest を Intel Visual Fortran で書き直すことが出来ました。Intel Visual Fortran (Ver.10.1.021) は、Fortran2003 の規格を一部先取りしていて、C 言語との相互…
