ruby-iup 0.1.0-x86-mswin32-60

data/examples/ctrl/iupgauge.rb

@@ -0,0 +1,242 @@
+require 'rubygems'
+require 'iup'
+
+speed = 0.00001
+
+pixmap_play = [
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,2,2,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]
+
+pixmap_start = [ 
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,1,1,2,2,2,2,2,2,2,2,1,1,2,2,2,2,2,2,
+2,2,2,2,1,1,2,2,2,2,2,2,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,1,1,2,2,1,1,1,1,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,1,1,2,2,1,1,1,1,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,1,1,2,2,2,2,2,2,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,1,1,2,2,2,2,2,2,2,2,1,1,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]
+
+pixmap_rewind = [
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,1,2,2,2,2,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,1,1,2,2,2,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,1,2,2,1,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,1,1,1,1,2,1,1,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,1,1,1,1,2,1,1,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,1,2,2,1,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,1,1,2,2,2,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,1,2,2,2,2,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]
+
+pixmap_forward = [
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,2,2,2,2,1,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,2,2,2,1,1,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,1,2,2,1,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,1,1,2,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,1,1,2,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,1,2,2,1,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,2,2,2,1,1,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,2,2,2,2,1,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]
+
+pixmap_show = [
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,1,1,1,1,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,2,2,2,2,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,1,2,2,2,2,2,2,2,2,1,2,2,2,2,2,2,
+2,2,2,2,2,1,2,2,2,1,1,1,2,2,2,2,1,2,2,2,2,2,
+2,2,2,2,1,2,2,2,1,1,2,2,1,2,2,2,2,1,2,2,2,2,
+2,2,2,1,2,2,2,2,1,1,1,2,1,2,2,2,2,2,1,2,2,2,
+2,2,2,2,1,2,2,2,1,1,1,1,1,2,2,2,2,1,2,2,2,2,
+2,2,2,2,2,1,2,2,2,1,1,1,2,2,2,2,1,2,2,2,2,2,
+2,2,2,2,2,2,1,2,2,2,2,2,2,2,2,1,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,2,2,2,2,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,1,1,1,1,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]
+
+
+
+  gauge = Iup.Gauge(:expand=>"YES")
+#  gauge.max = 3.5
+#  gauge.min = 0.7
+
+  img_start = Iup.Image(22,22, pixmap_start)
+  img_play = Iup.Image(22,22, pixmap_play)
+  img_forward = Iup.Image(22,22, pixmap_forward)
+  img_rewind = Iup.Image(22,22, pixmap_rewind)
+  img_show = Iup.Image(22,22, pixmap_show)
+  
+  img_start["1"]= "0 0 0" 
+  img_start["2"]= "BGCOLOR"
+  img_play["1"]= "0 0 0" 
+  img_play["2"]= "BGCOLOR" 
+  img_forward["1"]= "0 0 0" 
+  img_forward["2"]= "BGCOLOR" 
+  img_rewind["1"]= "0 0 0" 
+  img_rewind["2"]= "BGCOLOR" 
+  img_show["1"]= "0 0 0" 
+  img_show["2"]= "BGCOLOR" 
+
+  btn_start = Iup.Button(:title=>"start",:image => img_start,:tip => "Start")
+  btn_pause = Iup.Button(:title=>"pause",:image => img_play,:tip => "Pause")
+  btn_accelerate = Iup.Button(:title=>"accelerate",:image => img_forward,:tip => "Accelerate")
+  btn_decelerate = Iup.Button(:title=>"decelerate",:image => img_rewind,:tip => "Decelerate" )
+  btn_show = Iup.Button(:title=>"show",:image => img_show,:tip => "Show" )
+  
+  
+idle_cb = lambda do
+  value = gauge.value.to_f
+  value += speed
+  if(value > gauge.max.to_f)
+    value = gauge.min.to_f
+  end
+  gauge.value = "%.7f" % value
+
+  Iup::DEFAULT
+end
+
+btn_pause_cb = lambda do |h|
+  if(Iup.GetIdle==nil)
+    Iup.SetIdle(idle_cb)
+  else
+    Iup.SetIdle(nil)
+  end
+  
+  Iup::DEFAULT
+end
+
+btn_start_cb = lambda do |h|
+  gauge.value = gauge.min
+  Iup::DEFAULT
+end
+
+btn_accelerate_cb = lambda do |h|
+  speed *= 2
+  if(speed > 1.0) 
+  	speed = 1.0
+  end
+  Iup::DEFAULT
+end
+
+btn_decelerate_cb = lambda do |h|
+  speed /= 2
+  Iup::DEFAULT
+end
+
+btn_show_cb = lambda do |h|
+  if(gauge.show_text=="NO")
+    gauge.show_text = "YES"
+    gauge.dashed = "NO"
+  else
+    gauge.show_text = "NO"
+    gauge.dashed = "YES"
+  end
+  
+  Iup::DEFAULT
+end
+
+  
+  hbox = Iup.Hbox([
+           Iup.Fill(), 
+           btn_pause,
+           btn_start,
+           btn_decelerate,
+           btn_accelerate,
+           btn_show,
+           Iup.Fill()
+           ])
+
+  vbox = Iup.Vbox([ gauge , hbox],:margin=>"10x10",:gap=>5)
+
+  dlg = Iup.Dialog(vbox,:title=>"IupGauge")
+  btn_pause.action = btn_pause_cb
+  btn_start.action = btn_start_cb
+  btn_accelerate.action = btn_accelerate_cb
+  btn_decelerate.action = btn_decelerate_cb
+  btn_show.action = btn_show_cb
+   
+  Iup.SetIdle(idle_cb)
+    
+  # Shows dialog in the center of the screen */
+  dlg.ShowXY(Iup::CENTER, Iup::CENTER)
+
+  # Initializes IUP main loop */
+  Iup.MainLoop
+
+  dlg.Destroy
+
+  img_start.Destroy 
+  img_play.Destroy 
+  img_forward.Destroy 
+  img_rewind.Destroy 
+  img_show.Destroy 
+

data/examples/ctrl/iupgetcolor.rb

@@ -0,0 +1,8 @@
+require 'rubygems'
+require 'iup'
+
+  r,g,b=Iup.GetColor(100,100)
+  if r
+    puts "RGB = %.2X%.2X%.2X" % [r,g,b]
+  end
+  

data/examples/ctrl/iupgetparam.rb

@@ -0,0 +1,62 @@
+require 'rubygems'
+require 'iup'
+
+def param_action(dialog,param_index,user_data)
+  case(param_index)
+  when -1
+      puts("OK")
+  when -2
+      puts("Map")
+  when -3
+      puts("Cancel")
+  else
+      param_str =  "PARAM#{param_index}"
+      param = dialog.GetNode(param_str)
+      puts "#{param_str} = #{param.value}"
+  end
+  return 1
+end
+
+  pboolean = 1
+  pinteger = 3456
+  preal = 3.543
+  pinteger2 = 192
+  preal2 = 0.5
+  pangle = 90.0
+  pstring = "string text"
+  plist = 2
+  pstring2 = "second text\nsecond line"
+  file_name = "test.jpg"
+
+
+pboolean, pinteger, preal, pinteger2, preal2, pangle, pstring, plist, file_name, pstring2 =
+  Iup.GetParam("Title", 'param_action', 0,
+                   "Boolean: %b[No,Yes]\n"+
+                   "Integer: %i\n"+
+                   "Real 1: %r\n"+
+                   "Sep1 %t\n"+
+                   "Integer: %i[0,255]\n"+
+                   "Real 2: %r[-1.5,1.5]\n"+
+                   "Sep2 %t\n"+
+                   "Angle: %a[0,360]\n"+
+                   "String: %s\n"+
+                   "List: %l|item1|item2|item3|\n" +
+                   "File: %f[OPEN|*.bmp;*.jpg|CURRENT|NO|NO]\n"+
+                   "Sep3 %t\n"+
+                   "Multiline: %m\n",
+                   pboolean, pinteger, preal, pinteger2, preal2, pangle, pstring, plist, file_name, pstring2)
+  
+  Iup.Messagef("IupGetParam",
+              "Boolean Value: %d\n"+
+              "Integer: %d\n"+
+              "Real 1: %g\n"+
+              "Integer: %d\n"+
+              "Real 2: %g\n"+
+              "Angle: %g\n"+
+              "String: %s\n"+
+              "List Index: %d\n"+ 
+              "FileName: %s\n"+
+              "Multiline: %s",
+              pboolean, pinteger, preal, pinteger2, preal2, pangle, pstring, plist, file_name, pstring2);
+
+  

data/examples/ctrl/iupglcanvas.rb

@@ -0,0 +1,172 @@
+require 'rubygems'
+require 'iup'
+require 'opengl'
+
+include Gl
+
+redraw = lambda do |ih,x,y|
+  size = ih.rastersize
+  w,h = size.scan(/\d+/).map{|x|x.to_i}
+
+  Iup.GLMakeCurrent(ih)
+  glViewport(0, 0, w, h)
+  
+  glMatrixMode(GL_PROJECTION)
+  glLoadIdentity()
+  glOrtho(0, 1, 1, 0, -1.0, 1.0)
+  glMatrixMode(GL_MODELVIEW)
+  glLoadIdentity()
+  glPushMatrix()
+  glTranslate(0.25,0.5, 0)
+  glScale(0.2, 0.2, 1)
+
+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA)
+
+  glClearColor(0,0,0,1)
+  glClear(GL_DEPTH_BUFFER_BIT | GL_COLOR_BUFFER_BIT)
+  glEnable(GL_BLEND)
+
+  # draw rectangle
+  glColor(1, 1, 0, 0.8)
+  glRect(-1,-1,1,1) 
+  
+  # Create List That Draws the Circle
+  planet = glGenLists(1) 
+  orbit = glGenLists(2) 
+
+  glNewList(planet, GL_COMPILE)
+    glBegin(GL_POLYGON)
+      for i in 0..100
+        cosine = Math.cos(i * 2 * Math::PI/100.0)
+        sine   = Math.sin(i * 2 * Math::PI/100.0)
+        glVertex(cosine,sine)
+      end
+    glEnd()
+  glEndList()
+
+  glNewList(orbit, GL_COMPILE)
+    glBegin(GL_LINE_LOOP)
+      for i in 0..100
+        cosine = Math.cos(i * 2 * Math::PI/100.0)
+        sine   = Math.sin(i * 2 * Math::PI/100.0)
+        glVertex(cosine, sine)
+      end
+    glEnd()
+  glEndList()
+
+  glColor( 0, 0.5, 0, 0.8)
+  glCallList(planet)
+
+  glColor( 0, 0, 0, 1 )
+  glCallList(orbit)
+
+  glEnableClientState(GL_VERTEX_ARRAY)
+  
+  vertices  = [[-3**(0.5)/2, 1.0/2], [3**(0.5)/2, 0.5], [0.0, -1.0], [-3**(0.5)/2, -1.0/2], [3**(0.5)/2, -1.0/2], [0.0, 1.0] ]
+    
+  glVertexPointer(2,GL_FLOAT,0,vertices.flatten.pack("f*"))
+  
+  # draw first triangle
+  glColor( 0, 0, 1, 0.5 )
+
+  glBegin(GL_TRIANGLES)
+    glArrayElement(0)
+    glArrayElement(1)
+    glArrayElement(2)
+  glEnd()
+
+  # draw second triangle
+  glColor( 1, 0, 0, 0.5 )
+  glVertexPointer(2,GL_FLOAT,0,vertices.flatten.pack("f*"))
+  glDrawArrays(GL_TRIANGLES, 3, 3)
+
+  # draw triangles outline
+  glColor(1,1,1,1)
+  elements = [ 0, 1, 2].pack("I*")
+  glDrawElements(GL_LINE_LOOP,3,GL_UNSIGNED_INT,elements)
+  elements = [ 3, 4, 5].pack("I*")   
+  glDrawElements(GL_LINE_LOOP,3,GL_UNSIGNED_INT,elements)
+
+  glDisableClientState(GL_VERTEX_ARRAY)
+
+  glPopMatrix()
+  glTranslate(0.75,0.5, 0)
+  glScale(0.2, 0.2, 1)
+
+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA)
+
+  # draw rectangle
+  glColor( 1, 1, 0, 0.8 )
+  
+  glBegin(GL_QUADS)
+    glVertex(-1,-1)
+    glVertex( 1,-1)
+    glVertex( 1, 1)
+    glVertex(-1, 1)
+  glEnd()
+  
+  glColor( 0, 0.5, 0, 0.8 )
+  glBegin(GL_POLYGON)
+    for i in 0..100 
+      cosine = Math.cos(i * 2.0 * Math::PI/100.0)
+      sine   = Math.sin(i * 2.0 * Math::PI/100.0)
+      glVertex(cosine,sine)
+    end
+  glEnd()
+
+  glColor( 0, 0, 0, 1 )
+  glBegin(GL_LINE_LOOP)
+    for i in 0..100
+      cosine = Math.cos(i * 2.0 * Math::PI/100.0)
+      sine   = Math.sin(i * 2.0 * Math::PI/100.0)
+      glVertex(cosine, sine)
+    end
+  glEnd()
+
+  # draw first triangle
+  glColor( 0, 0, 1, 0.5 )
+  glBegin(GL_TRIANGLES)
+    glVertex(*vertices[0])
+    glVertex(*vertices[1])
+    glVertex(*vertices[2])
+  glEnd()
+  # draw second triangle
+  glColor( 1, 0, 0, 0.5 )
+  glBegin(GL_TRIANGLES)
+    glVertex(*vertices[3])
+    glVertex(*vertices[4])
+    glVertex(*vertices[5])
+  glEnd()
+  # draw triangles outline
+  glColor(1,1,1,1)
+  glBegin(GL_LINE_LOOP)
+    glVertex(*vertices[0])
+    glVertex(*vertices[1])
+    glVertex(*vertices[2])
+  glEnd()
+  glBegin(GL_LINE_LOOP)
+    glVertex(*vertices[3])
+    glVertex(*vertices[4])
+    glVertex(*vertices[5])
+  glEnd()
+    
+  Iup.GLSwapBuffers(ih) 
+
+  Iup::DEFAULT
+end
+
+
+  canvas = Iup.GLCanvas()
+  canvas.action = redraw
+  canvas.buffer = "DOUBLE"
+  canvas.rastersize = "123x200"
+
+  finale = Iup.Hbox([Iup.Fill(), 
+                   canvas, 
+                   Iup.Fill()])
+
+  dg = Iup.Dialog(finale,:title=>"IupGLCanvas")
+
+  dg.Show()
+  Iup.MainLoop
+  dg.Destroy()