Opal.app のブロック変数（例えば g）が Toolクラスのオブジェクトになっています。Toolクラスのメソッドはだからすべて、g のインスタンス・メソッドというわけです。
これらは（そうしたければ）一切使わなくてもOKです（意味ないですけれど）。このモジュールを使う際は、関数はクロージャである proc（あるいは lambda でも可）を使うのがミソです。
require 'bundler/setup' #Bundlerを使っていない人は必要ない
require 'opengl'
require 'glu'
require 'glut'
include Gl, Glu, Glut, Math
module Opal
class Tool
def initialize
@rotate_v = [1, 0, 0]
@clear_color = [0, 0, 0]
@clear_color_alpha = 0
@color_alpha = 1
@depth_buffer_bit = 0
@look_to = [0, 0, 0]
@up = [0, 1, 0]
@font = GLUT_BITMAP_TIMES_ROMAN_24
end
attr_accessor :clear_color, :color_alpha, :clear_color_alpha, :buffering, :depth, :depth_buffer_bit,
:look_to, :up, :font
def display=(prc)
disp = proc do
clear
prc.call
glutSwapBuffers unless @buffering.zero?
end
glutDisplayFunc(disp)
end
def reshape=(prc)
prc1 = proc do |w, h|
glViewport(0, 0, w, h)
glMatrixMode(GL_PROJECTION)
clr_matrix
prc.call(w, h)
glMatrixMode(GL_MODELVIEW)
end
glutReshapeFunc(prc1)
end
def mouse=(prc)
glutMouseFunc(prc)
end
def passive_motion=(prc)
glutPassiveMotionFunc(prc)
end
def motion=(prc)
glutMotionFunc(prc)
end
def keyboard=(prc)
glutKeyboardFunc(prc)
end
def idle=(prc)
glutIdleFunc(prc)
end
def add_menu(str, value)
glutAddMenuEntry(str, value)
end
def font=(a)
@font = a
end
def print(str)
str.bytes.each {|ch| glutBitmapCharacter(@font, ch)}
end
def rotate=(ar)
@rotate_v = ar
end
def rotate(ang)
glRotated(ang, @rotate_v[0], @rotate_v[1], @rotate_v[2])
end
def look_at(x, y, z)
l = sqrt(@up[0] ** 2 + @up[1] ** 2 + @up[2] ** 2)
gluLookAt(x, y, z, @look_to[0], @look_to[1], @look_to[2], @up[0] / l, @up[1] / l, @up[2] / l)
end
def draw(c)
glBegin(c)
yield
glEnd
end
def draw_vertex(c, dim, vtx)
glEnableClientState(GL_VERTEX_ARRAY)
glVertexPointer(dim, GL_FLOAT, 0, vtx)
glBegin(c)
(vtx.size / dim).times {|i| glArrayElement(i)}
glEnd
end
def draw_elements(c, dim, vtx, id)
glEnableClientState(GL_VERTEX_ARRAY)
glVertexPointer(dim, GL_FLOAT, 0, vtx)
glDrawElements(c, id.size, GL_UNSIGNED_BYTE, id)
end
def perspective(fovy = 60, aspect = 1, znear = 0.1, zfar = 20)
glMatrixMode(GL_PROJECTION)
clr_matrix
gluPerspective(fovy, aspect, znear, zfar)
glMatrixMode(GL_MODELVIEW)
end
def block
glPushMatrix
yield
glPopMatrix
end
def timer(time, prc, value = 0)
glutTimerFunc(time, prc, value)
end
def repeat(time, value = 0, &bk)
a = proc do
yield
timer(time, a, value)
end
glutTimerFunc(time, a, value)
end
def redraw
glutPostRedisplay
end
def color(r, g, b)
glColor4f(r, g, b, @color_alpha)
end
def clear(a = GL_COLOR_BUFFER_BIT)
glClear(a | @depth_buffer_bit)
end
def clr_matrix
glLoadIdentity
end
def vtx2(x, y)
glVertex2d(x, y)
end
def vtx3(x, y, z)
glVertex3d(x, y, z)
end
def light(num , *args)
glLightfv(eval("GL_LIGHT#{num}"), *args)
end
def light_enable(num = 0)
glEnable(eval("GL_LIGHT#{num}"))
end
def line(x1, y1, z1, x2, y2, z2)
draw(GL_LINES) do
vtx3(x1, y1, z1)
vtx3(x2, y2, z2)
end
end
def polarView(distance, twist, elevation, azimuth) #極座標
#distance: 軌道半径（カメラと原点の距離）
#twist: 照準線を中心とした回転角
#elevation: yz平面でのカメラの回転角を、正のz軸から測ったもの（y軸を上として物体を見下ろす角度）
#azimuth: y軸周りの回転角
glTranslated(0, 0, -distance)
glRotated(-twist, 0, 0, 1)
glRotated(-elevation, 1, 0, 0)
glRotated(-azimuth, 0, 1, 0)
end
def xyzAxis(colorx: [1, 0, 0], colory: [0, 1, 0], colorz: [0, 0, 1], length: 10, color: false)
color(color[0], color[1], color[2]) if color #（指定された）単一色
draw(GL_LINES) do
color(colorx[0], colorx[1], colorx[2]) unless color
vtx3(0, 0, 0); vtx3(length, 0, 0)
color(colory[0], colory[1], colory[2]) unless color
vtx3(0, 0, 0); vtx3(0, length, 0)
color(colorz[0], colorz[1], colorz[2]) unless color
vtx3(0, 0, 0); vtx3(0, 0, length)
end
end
end
def self.app(title: "OpenGL", left: 200, top: 50, width: 300, height: 300, rgbm: GLUT_RGBA, buffering: 0, depth: 0, culling: false)
i = Tool.new
i.buffering = buffering #0ならばダブルバッファリングしない、GLUT_DOUBLEならする
i.depth = depth #0ならば隠面消去しない、GLUT_DEPTHならする
i.depth_buffer_bit = GL_DEPTH_BUFFER_BIT unless depth.zero?
glutInit
glutInitDisplayMode(rgbm | i.buffering | i.depth)
glutInitWindowPosition(left, top)
glutInitWindowSize(width, height)
glutCreateWindow(title)
if culling #trueならばカリングをする
glEnable(GL_CULL_FACE)
glCullFace(GL_BACK)
end
yield(i)
glClearColor(i.clear_color[0], i.clear_color[1], i.clear_color[2], i.clear_color_alpha)
glutMainLoop
end
end
#ver 0.4.1
