fortran66のブログ

fortran について書きます。

OpenGL

F2003 BIND(C...)

James Van Buskirk氏のサイトに、Fortran2003の機能でOpenGLを呼び出すプログラム例があります。同様のものに f03gl がありますが、それとは別系統のものです。 http://home.comcast.net/~kmbtib/Fortran_stuff/ 一番下の所にある Lesson シリーズがそれです…

VBO 頂点バッファオブジェクト

ここを参考に Fortran で頂点バッファオブジェクトを使ってみます。本体はほぼ移植です。F03GLを利用。(F90GLにはインプリメントされていない命令がある?) メモ帳 Libs::opengl_glext_c.lib glew64.lib glut64.lib opengl32.lib glu32.lib LibPath::C:\Fo…

三次元ライフゲーム

コンウェイのライフゲームというものがあります。昔、マイコン上でよく遊ばれていたものです。あれは2次元でのものでしたが、OpenGL があるのでせっかくだから三次元でやってみることにしました。結論から言うと、生命発生・維持・死亡のバランスが難しく、…

ARToolKit で影をつける。その2

以前の結果が間違っていたので訂正します。 http://d.hatena.ne.jp/fortran66/20090214 glutSolidCube を用いると、座標原点が動かされるのか、影を作る射影行列が正しく働かないようです。 そこで glVertex3f を用いて描画するようにしました。 射影面の法…

ARToolKit でローレンツ・アトラクターに影をつける。

OpenGL の範囲内で ARToolKit の像に影を付けることを目標とします。適当にググったところ、以下のページに行き当たりました。簡潔な説明で非常に参考になります。単純な幾何学での導出がされていて理解しやすいです。実際のプログラム例もあって助かりまし…

色付き四角

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…