sgl 0.3.1 → 0.4.0

data/examples/opengl1-basic.rb

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+
+require "sgl"
+
+def setup
+  window 100, 100
+end
+
+def display
+  line 0, 0, 100, 100
+end
+
+mainloop

data/examples/opengl11-application.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+
+require "sgl/opengl-app"
+
+app = SGL::Application.new
+app.set_setup {
+  app.window(100, 100)
+}
+app.set_display {
+  app.line(0, 0, 100, 100)
+}
+app.mainloop

data/examples/opengl2-draw.rb

@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+
+require "sgl"
+
+def setup
+  window 300, 300
+  backgroundHSV 66, 100, 20
+end
+
+def display
+  x, y = mouseX, mouseY
+  colorHSV 0, 50, 100
+  lineWidth 3
+  line   0,   0, x, y
+  line 300,   0, x, y
+  line   0, 300, x, y
+  line 300, 300, x, y
+  colorHSV 0, 100, 100
+  rect x-10, y-10, x+10, y+10
+end
+
+mainloop

data/examples/opengl3-affine.rb

@@ -0,0 +1,29 @@
+#!/usr/bin/env ruby
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+
+require "sgl"
+
+def setup
+  window 700, 700
+  backgroundHSV 66, 100, 20
+  # $font1 = font("Helvetica", 25)
+end
+
+def display
+  x, y = mouseX, mouseY
+  colorHSV 0, 50, 100
+  lineWidth 3
+  line   0,   0, x, y
+  line 700,   0, x, y
+  line   0, 700, x, y
+  line 700, 700, x, y
+  colorHSV 0, 100, 100
+
+  translate x, y
+  rotateZ y
+  colorHSV y, 100, 100
+  # $font1.text(10, 10, "hello")
+  rect -10, -10, +10, +10
+end
+
+mainloop

data/examples/sample1.rb

@@ -0,0 +1,11 @@
+require "sgl/opengl"
+
+def setup
+  window 100, 100
+end
+
+def display
+  line 0, 0, 100, 100
+end
+
+mainloop 

data/examples/sample10.rb

@@ -0,0 +1,16 @@
+require "sgl"
+
+def setup
+  window -200, -200, 200, 200
+end
+
+def display
+  push
+  translate 100, 0
+  rotateZ 10
+  scale 2
+  rect -5, -5, 5, 5
+  pop
+end
+
+mainloop

data/examples/sample11.rb

@@ -0,0 +1,22 @@
+require "sgl"
+
+def setup
+  window -200, -200, 200, 200
+  background 100
+  $x = 0
+  $y = 0
+end
+ 
+def display
+  x = mouseX
+  y = mouseY
+  speed = 20.0
+  vx = (x - $x)/speed
+  vy = (y - $y)/speed
+  $x = $x + vx
+  $y = $y + vy
+  color 100, 0, 0
+  circle($x, $y, 50, POLYGON)
+end
+
+mainloop

data/examples/sample11a.rb

@@ -0,0 +1,33 @@
+require "sgl"
+
+def setup
+  window -200, -200, 200, 200
+  background 0
+  $x1 = 0
+  $y1 = 0
+  $x2 = 0
+  $y2 = 0
+end
+ 
+def display
+  x = mouseX
+  y = mouseY
+
+  speed = 20.0
+  vx = (x - $x1)/speed
+  vy = (y - $y1)/speed
+  $x1 = $x1 + vx
+  $y1 = $y1 + vy
+  color (200+$x1)/4, 0, 0
+  circle($x1, $y1, 50, POLYGON)  ## polygon�͓h��‚Ԃ�
+  
+  speed = 10.0
+  vx = (x - $x2)/speed
+  vy = (y - $y2)/speed
+  $x2 = $x2 + vx
+  $y2 = $y2 + vy
+  color 0,(200+$y2)/4,0
+  circle($x2+30,$y2+30,80)
+end
+ 
+mainloop

data/examples/sample12.rb

@@ -0,0 +1,30 @@
+require "sgl"
+
+def setup
+  window -200, -200, 200, 200
+  background 100
+  $pos = []		# ���g����̔z���p�ӂ���D
+  for a in 0..10	# �z��̗v�f���ꂼ��ɂ‚��ČJ��Ԃ��D
+    $pos[a] = 0		# ���g�ɑS��0�����Ă����D
+  end
+  $index = 0		# ���ݔz��̂ǂ��̕������w���Ă��邩�������ϐ��D
+end
+
+def display
+  $pos[$index] = mouseX # �z���$index�̎����Ƃ���Ƀ}�E�X��x���W������D
+
+  for a in 0..10	# �z��̗v�f���ꂼ��ɂ‚��ČJ��Ԃ��D
+    x = $pos[a]
+    color 0
+    line x, -100, x, 100 # �c����`���D
+  end
+
+  $index = $index + 1	# ���݂�����$index�����̒l�̂Ƃ���ɃZ�b�g����D
+  if 10 < $index	# $index���z��̑傫�����z������0�ɃZ�b�g����D
+    $index = 0
+  end
+
+  p $pos		# $pos�Ƃ����z��̒��g��\������D
+end
+
+mainloop

data/examples/sample12a.rb

@@ -0,0 +1,35 @@
+require "sgl"
+
+def setup
+  window -200, -200, 200, 200
+  background 100
+  $xpos = []		# ���g����̔z���x���W�Cy���W�ɂ‚��ėp�ӂ���D
+  $ypos = []
+  for a in 0..20	# �z��̗v�f���ꂼ��ɂ‚��ČJ��Ԃ��D
+    $xpos[a] = 0
+    $ypos[a] = 0
+  end
+  $index = 0		# ���ݔz��̂ǂ��̕������w���Ă��邩�������D
+end
+
+def display
+  $xpos[$index] = mouseX	# �Y��
+  $ypos[$index] = mouseY
+
+  for a in 0..20	# �z��̗v�f���ꂼ��ɂ‚��ČJ��Ԃ��D
+    x = $xpos[a]
+    y = $ypos[a]
+    colorHSV 0, 100, 100, 20
+    circle x, y, 50, POLYGON
+  end
+
+  $index = $index + 1	# ���݂�����$index�����̒l�̂Ƃ���ɃZ�b�g����D
+  if 20 < $index	# $index���z��̑傫�����z������0�ɃZ�b�g����
+    $index = 0
+  end
+
+  p $xpos
+  p $ypos
+end
+
+mainloop

data/examples/sample13.rb

@@ -0,0 +1,116 @@
+require "sgl"
+
+def setup
+  window -250, -250, 250, 250
+  background 100
+  $a = 0
+end
+
+def display
+  x = mouseX
+  y = mouseY
+
+  color 50, 50, 50
+  rect 190, -190, 200, -240
+  rect 230, -190, 240, -240
+  color 100, 0, 0
+  rect 200, -200, 230, -230
+
+  line x, y, x-5, y
+
+  color 0
+  circle 150, 150, 5
+  circle 0, -105, 4
+  circle -100, 0, 3
+  circle -150, 80, 2
+  line 150, 155, 150, 250
+  line 0, -108, 0, -250
+  line -100, -2, -100, -250
+  line -150, 81, -150, 250
+
+  if $a == 0
+    color 100, 0, 0
+    line x, y, 215, -200
+  else
+    color 100, 0, 0
+    line 150, 150, 215, -200
+  end
+
+  # 1�̌�
+  if $a == 0 && 145 <= x && 155 >= x && 145 <= y && 155 >= y
+    $a = 1
+  end
+
+  if $a == 1
+    color 100, 0, 0
+    line x, y, 150, 150
+  elsif $a > 1
+    line 0, -105, 150, 150
+  end
+
+  # 2�̌�
+  if $a == 1 && -5 <= x && 5 >= x && -110 <= y && -100 >= y
+    $a = 2
+  end
+
+  if $a == 2
+    color 100, 0, 0
+    line x, y, 0, -105
+  elsif $a > 2
+    line -100, 0, 0, -105
+  end
+
+  # 3�̌�
+  if $a == 2 && -103 <= x && -98 >= x && -3 <= y && 2 >= y
+    $a = 3
+  end
+
+  if $a == 3
+    color 100, 0, 0
+    line x, y, -100, 0
+  elsif $a > 3
+    line -150, 80, -100, 0
+  end
+
+  # 4�̌�
+  if $a == 3 && -152 <= x && -148 >= x && 78 <= y && 82 >= y
+    $a = 4
+  end
+
+  if $a == 4
+    color 100, 0, 0
+    line x, y, -150, 80
+  end
+
+  # �S�[���n�_
+  if $a == 4 && -250 <= x && -180 >= x
+    $a = 5
+  end
+
+  if $a == 5
+    background 70, 80, 100
+    color 100, 80, 80
+    circle -100, 0, 50, POLYGON
+    color 80, 80, 100
+    circle -100, 0, 30, POLYGON
+    color 100, 80, 80
+    rect 50, 50, 70, -50
+
+    beginObj(POLYGON)
+    vertex 70, -7
+    vertex 112, 35
+    vertex 138, 35
+    vertex 70, -33
+    endObj
+    beginObj(POLYGON)
+    vertex 103, 0
+    vertex 140, -50
+    vertex 115, -50
+    vertex 85, -9
+    endObj
+  end
+end
+
+mainloop
+
+# �傫��������n�߂Ȃ��ƒʂ�܂���

data/examples/sample15.rb

@@ -0,0 +1,24 @@
+require "sgl"
+
+def setup
+  window 100, 100
+end
+
+def my_rect(x1, y1, x2, y2, outline, fill)
+  color fill
+  rect x1, y1, x2, y2
+  color outline
+  line x1, y1, x2, y1
+  line x2, y1, x2, y2
+  line x2, y2, x1, y2
+  line x1, y2, x1, y1
+end
+
+def display
+  mx = mouseX
+  my = mouseY
+  my_rect(20, 20, 40, 30, 80, 50)
+  my_rect(60, 60, 80, 90, 90, 30)
+end
+
+mainloop

data/examples/sample16.rb

@@ -0,0 +1,31 @@
+require "sgl"
+
+def setup
+  window -200, -200, 200, 200
+  background 100
+end
+
+def display
+  x = mouseX
+  y = mouseY
+
+  push
+  color 100, 0, 0
+  translate x, y, 0
+  rotateX x
+  rotateY y
+  scale 2
+  rect -5, -5, 5, 5
+  pop
+
+  push
+  color 100, 0, 0
+  translate x, y, 0
+  rotateX x
+  rotateY y
+  scale 2
+  rect 5, 5, 10, 10
+  pop
+end
+
+mainloop

data/examples/sample16a.rb

@@ -0,0 +1,35 @@
+require "sgl"
+
+def setup
+  window -200, -200, 200, 200
+  background 100
+  $pos = []		# ���g����̔z���p�ӂ���D
+end
+
+def display
+  x = mouseX
+  y = mouseY
+
+  $pos << [x, y]	# �z��Ɍ��݂̃}�E�X�̈ʒu��lj�����D
+
+  $pos.each {|pos|	# �z��̊e�X�̗v�f�ɂ‚���{}�̒��g�����s����D
+			# ���̊e�X�̗v�f��pos�Ƃ����ϐ��ɓ���D
+    x = pos[0]
+    y = pos[1]
+
+    push
+    colorHSV 0, 100, 100, 10
+    translate x, y, 0
+    rotateX x
+    rotateY y
+    scale 20
+    rect -5, -5, 5, 5
+    pop
+  }
+
+  if 10 < $pos.length	# �����z�񂪂��܂肷�����ꍇ�͐擪���珇�Ɏ̂Ă�D
+    $pos.shift
+  end
+end
+
+mainloop

data/examples/sample6.rb

@@ -0,0 +1,18 @@
+require "sgl"
+
+def setup
+  window 200, 200
+end
+
+def display
+  for a in 0..200
+    color a/2, 50, 50
+    if a < 100
+      line a, 50, a, 100
+    else
+      line a, 100, a, 150
+    end
+  end
+end
+
+mainloop 

data/examples/sample7.rb

@@ -0,0 +1,16 @@
+require "sgl"
+
+def setup
+  window 200, 200
+end
+
+def display
+  for a in 0..10
+    for b in 0..10
+      color a*10, b*10, b*10
+      rect a*20+5, b*20+5, a*20+15, b*20+15
+    end
+  end
+end
+
+mainloop 

data/examples/sample9.rb

@@ -0,0 +1,20 @@
+require "sgl"
+
+def setup
+  window -200, -200, 200, 200
+end
+
+def display
+  beginObj(POLYGON)
+  color 100, 0, 0, 0
+  vertex 60, 90
+  color 0, 100, 0, 100
+  vertex -120, 60
+  color 0, 0, 100, 100
+  vertex -90, -90
+  color 100, 100, 0, 0
+  vertex 120, -90
+  endObj
+end
+
+mainloop 

data/examples/sgl-sound1.rb

@@ -0,0 +1,6 @@
+require 'sgl'
+useSound	# sound���g�����Ƃ�錾����D
+sound = loadSound('sine.ogg')	# �T���v�������t�@�C������ǂ݂��ށD
+		# �����ł�Windows���W���ŗp�ӂ���T���v�������g���Ă���D
+sound.play	# �T���v������������D
+sleep 1		# �v���O�����������I������̂��ӂ������߂ɑ҂D

data/examples/sgl-sound2.rb

@@ -0,0 +1,19 @@
+require 'sgl'
+
+def setup
+  useSound
+  window -200, -200, 200, 200
+  $y = 0
+  $sound = loadSound('sine.ogg')
+end
+
+def onMouseDown(x, y)
+  $y = y
+  $sound.play(y / 10 + 60)
+end
+
+def display
+  line -200, $y, 200, $y
+end
+
+mainloop

data/examples/testgl.rb

@@ -0,0 +1,169 @@
+# You can use this test program to run Ruby/SDL, Ruby/OpenGL themselves.
+# I created sgl by extending this small program.
+
+require 'sdl'
+require 'opengl'
+
+SDL.init SDL::INIT_VIDEO
+SDL.setGLAttr SDL::GL_RED_SIZE,5
+SDL.setGLAttr SDL::GL_GREEN_SIZE,5
+SDL.setGLAttr SDL::GL_BLUE_SIZE,5
+SDL.setGLAttr SDL::GL_DEPTH_SIZE,16
+SDL.setGLAttr SDL::GL_DOUBLEBUFFER,1
+SDL.setVideoMode 640,400,16,SDL::OPENGL
+GL::Viewport( 0, 0, 640, 400 );
+GL::MatrixMode( GL::PROJECTION );
+GL::LoadIdentity( );
+
+GL::MatrixMode( GL::MODELVIEW );
+GL::LoadIdentity( );
+
+GL::Enable(GL::DEPTH_TEST);
+
+GL::DepthFunc(GL::LESS);
+
+GL::ShadeModel(GL::SMOOTH);
+
+event=SDL::Event.new
+shadedCube=true
+
+color =
+  [[ 1.0,  1.0,  0.0], 
+  [ 1.0,  0.0,  0.0],
+  [ 0.0,  0.0,  0.0],
+  [ 0.0,  1.0,  0.0],
+  [ 0.0,  1.0,  1.0],
+  [ 1.0,  1.0,  1.0],
+  [ 1.0,  0.0,  1.0],
+  [ 0.0,  0.0,  1.0]]
+
+cube =
+  [[ 0.5,  0.5, -0.5], 
+  [ 0.5, -0.5, -0.5],
+  [-0.5, -0.5, -0.5],
+  [-0.5,  0.5, -0.5],
+  [-0.5,  0.5,  0.5],
+  [ 0.5,  0.5,  0.5],
+  [ 0.5, -0.5,  0.5],
+  [-0.5, -0.5,  0.5]]
+
+
+loop do
+
+  if  event.poll != 0 then
+    if event.type==SDL::Event::QUIT then
+      break
+    end
+    if event.type==SDL::Event::KEYDOWN then
+      exit
+    end
+  end
+
+    GL.ClearColor(0.0, 0.0, 0.0, 1.0);
+  GL.Clear(GL::COLOR_BUFFER_BIT|GL::DEPTH_BUFFER_BIT);
+
+
+  GL::Begin(GL::QUADS) 
+
+  if shadedCube then
+    GL::Color(color[0]);
+    GL::Vertex(cube[0]);
+    GL::Color(color[1]);
+    GL::Vertex(cube[1]);
+    GL::Color(color[2]);
+    GL::Vertex(cube[2]);
+    GL::Color(color[3]);
+    GL::Vertex(cube[3]);
+    
+    GL::Color(color[3]);
+    GL::Vertex(cube[3]);
+    GL::Color(color[4]);
+    GL::Vertex(cube[4]);
+    GL::Color(color[7]);
+    GL::Vertex(cube[7]);
+    GL::Color(color[2]);
+    GL::Vertex(cube[2]);
+    
+    GL::Color(color[0]);
+    GL::Vertex(cube[0]);
+    GL::Color(color[5]);
+    GL::Vertex(cube[5]);
+    GL::Color(color[6]);
+    GL::Vertex(cube[6]);
+    GL::Color(color[1]);
+    GL::Vertex(cube[1]);
+    
+    GL::Color(color[5]);
+    GL::Vertex(cube[5]);
+    GL::Color(color[4]);
+    GL::Vertex(cube[4]);
+    GL::Color(color[7]);
+    GL::Vertex(cube[7]);
+    GL::Color(color[6]);
+    GL::Vertex(cube[6]);
+    
+    GL::Color(color[5]);
+    GL::Vertex(cube[5]);
+    GL::Color(color[0]);
+    GL::Vertex(cube[0]);
+    GL::Color(color[3]);
+    GL::Vertex(cube[3]);
+    GL::Color(color[4]);
+    GL::Vertex(cube[4]);
+    
+    GL::Color(color[6]);
+    GL::Vertex(cube[6]);
+    GL::Color(color[1]);
+    GL::Vertex(cube[1]);
+    GL::Color(color[2]);
+    GL::Vertex(cube[2]);
+    GL::Color(color[7]);
+    GL::Vertex(cube[7]);
+    
+  else
+    GL::Color(1.0, 0.0, 0.0);
+    GL::Vertex(cube[0]);
+    GL::Vertex(cube[1]);
+    GL::Vertex(cube[2]);
+    GL::Vertex(cube[3]);
+    
+    GL::Color(0.0, 1.0, 0.0);
+    GL::Vertex(cube[3]);
+    GL::Vertex(cube[4]);
+    GL::Vertex(cube[7]);
+    GL::Vertex(cube[2]);
+    
+    GL::Color(0.0, 0.0, 1.0);
+    GL::Vertex(cube[0]);
+    GL::Vertex(cube[5]);
+    GL::Vertex(cube[6]);
+    GL::Vertex(cube[1]);
+    
+    GL::Color(0.0, 1.0, 1.0);
+    GL::Vertex(cube[5]);
+    GL::Vertex(cube[4]);
+    GL::Vertex(cube[7]);
+    GL::Vertex(cube[6]);
+    
+    GL::Color(1.0, 1.0, 0.0);
+    GL::Vertex(cube[5]);
+    GL::Vertex(cube[0]);
+    GL::Vertex(cube[3]);
+    GL::Vertex(cube[4]);
+    
+    GL::Color(1.0, 0.0, 1.0);
+    GL::Vertex(cube[6]);
+    GL::Vertex(cube[1]);
+    GL::Vertex(cube[2]);
+    GL::Vertex(cube[7]);
+    
+  end
+
+  GL::End()
+  
+  GL::MatrixMode(GL::MODELVIEW);
+  GL::Rotate(5.0, 1.0, 1.0, 1.0);
+  
+  SDL.GLSwapBuffers
+
+end