sgl 0.4.0 → 1.0.0

data/examples/sample15.rb

@@ -1,24 +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
+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

@@ -1,31 +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
+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

@@ -1,35 +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
+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

@@ -1,18 +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 
+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

@@ -1,16 +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 
+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

@@ -1,20 +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 
+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/testgl.rb

@@ -1,169 +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
+# 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