lib/protoSDL.rb

   1 #!/usr/bin/ruby
   2
   3 require 'sdl'
   4 #require "opengl"
   5 require "rubygems"
   6 require "opengl"
   7 require "glut"
   8 require 'molvie_ver'
   9 require 'molvie_ver'
  10 require 'keyboard_Func'
  11 require 'Event'
  12
  13 vertices = [
  14   [[1.0, 0.0, 0.0], [-1.0, -1.0, 0.0]],
  15   [[0.0, 1.0, 0.0], [ 1.0, -1.0, 0.0]],
  16   [[0.0, 0.0, 1.0], [ 1.0,  1.0, 0.0]],
  17   [[1.0, 1.0, 1.0], [-1.0,  1.0, 0.0]]
  18 ]
  19
  20 #SDL.init(SDL::INIT_VIDEO)
  21 #if(SDL.inited_system(SDL::INIT_VIDEO))
  22 #       puts "初期化されています。nnnn"
  23 #else
  24 #       puts "初期化されていません。"
  25 #end
  26 #SDL.set_GL_attr(SDL::GL_DOUBLEBUFFER,1)
  27 #SDL::Screen.open(600, 600, 16, SDL::OPENGL)
  28 #GLUT.init
  29 GL.ClearColor(0.0, 0.0, 0.2, 1.0);
  30 GL::Ortho(-2.0, 2.0, -2.0, 2.0, -2.0, 2.0)
  31 GL::MatrixMode(GL::MODELVIEW);
  32
  33 loop {
  34         Event.new.lmolvie_keyboard($push_key,$x,$y)
  35         Event.new.pushedKey_is_molvieVer($push_key,$molvie_ver)
  36         # Molvie_ver.new.put_molviemode
  37         # puts ($molvie_ver,"nya")
  38         # puts ($push_key,"nyanyan")
  39
  40         #puts Molvie_ver.new.molvie_ver
  41            GL.Clear(GL::COLOR_BUFFER_BIT);
  42           # GL::Rotate(1.0, 2.0, 3.0, 1.0);
  43            GL::Begin(GL::QUADS);
  44            vertices.each {|v|
  45              GL::Color(v[0]);
  46              GL::Vertex(v[1]);
  47             }
  48         GL::End()
  49         SDL::GL_swap_buffers()
  50 }
  51
  52 #SDL::GL_swap_buffers