fortran66のブログ

fortran について書きます。

2008-04-01から1ヶ月間の記事一覧

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

ARToolKit 中のサンプル SimpleTest の方がより基本的なプログラムのようなので、こちらをいじることにします。mainLoop 中での描画ルーチン draw を Fortran で記述したルーチンに置き換えます。 サンプルを少し書き換えて、立方体の上にワイヤーフレームの…

Intel Visual Fortran と ARToolKit を LINK 出来ました。とりあえず、最も簡単な方法として、Fortran 側は OpenGL での図形描画のみを行うこととして、描画サブルーチンを C 側のメインルーチンから呼ぶことにします。Fortran のサブルーチン。 SUBROUTINE …

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

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

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

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

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

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

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

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

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

OpenGLによる3次元CGプログラミング 作者: 林武文, 加藤清敬 出版社/メーカー: コロナ社 MODULE m_myShape USE opengl_gl USE opengl_glu IMPLICIT NONE REAL(gldouble) :: pi2 = 2.0_gldouble * 3.14159265358979_gldouble ! 4.0d0 * ATAN(1.0d0) CONTAINS …

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

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

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

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

OpenGLによる3次元CGプログラミング 作者: 林武文, 加藤清敬 出版社/メーカー: コロナ社 ロケット形状の定義ファイル。 MyShape.f90 MODULE m_myShape USE opengl_gl USE opengl_glu IMPLICIT NONE REAL(gldouble) :: pi2 = 2.0_gldouble * 3.14159265358979…

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…

ジャネット・リン と イデオンからミア

Janet Lynn Mia from Ideon でもムサッシを応援します(><!

やるお!

___ ム i 「 ヒ_i〉 ゝ 〈 ト ノ iニ(() i { ____ | ヽ i i /__, , ‐-\ i } | i /(●) ( ● )\ {、 λ ト−┤. / (__人__) \ ,ノ  ̄ ,! i ゝ、_ | ´ ̄` | ,. '´ハ ,! . ヽ、 `` 、,__\ /" \ ヽ/ \ノ ノ ハ ̄r/:::r―--―/::7 ノ / ヽ. ヽ::〈; . '::. :'…

マニュアル27ページの階乗の接尾演算子の定義例。File "aniki.fss" component aniki export Executable opr(n:ZZ32)! = PROD[i run(args) = println 3! end 3! = 6 が実行されています。

四月馬鹿の日に、Sun からのメールで Fortress が、正式に Ver.1 になりましたと通知があったのですが、Windows では中々動いてくれませんでした。動かせるようにするために2,3環境設定が必要ですので、ここにメモしておきます。Fortress というのは、ア…