ruby-iup 0.0.1

data/examples/ctrl/degrade.rb

@@ -0,0 +1,73 @@
+require 'rubygems'
+require 'iup'
+
+
+def create() 
+  cells = Iup.Cells() 
+  cells.mouseclick_cb = lambda {|h,b,m,i,j,x,y,r|
+  	puts("CLICK: #{b}: (#{i}, #{j})")
+  	Iup::DEFAULT
+  }
+  cells.draw_cb = lambda {|h,i,j,xmin,xmax,ymin,ymax,cnv|
+	  xm = (xmax + xmin) / 2
+	  ym = (ymax + ymin) / 2
+	  buffer = 0.chr * 64
+	
+	  return Iup::DEFAULT if (i == 1 && j == 2)
+	  return Iup::DEFAULT if (i == 2 && j == 1)
+	  return Iup::DEFAULT if (i == 2 && j == 2)
+	  return Iup::DEFAULT if (i == 5 && j == 6)
+	  return Iup::DEFAULT if (i == 6 && j == 5)
+	  return Iup::DEFAULT if (i == 6 && j == 6)
+	
+	  if (i == 1 && j == 1) 
+	  	cnv.CanvasSetForeground(Cd::WHITE)
+	  else 
+	    	cnv.CanvasSetForeground(Cd.EncodeColor(
+	    		(i*20),(j*100),(i+100)))
+	  end
+	  cnv.CanvasBox(xmin, xmax, ymin, ymax)
+	  cnv.CanvasTextAlignment(Cd::CENTER)
+	  cnv.CanvasSetForeground(Cd::BLACK)
+	  buffer = "(#{i}, #{j})"
+	  cnv.CanvasText( xm, ym, buffer)
+	
+	  Iup::DEFAULT
+  }
+  cells.width_cb = lambda {|h,j| (50+j*1.5).to_i }
+  cells.height_cb = lambda {|h,i| (30+i*1.5).to_i }
+  cells.nlines_cb = lambda {|h| 7 }
+  cells.ncols_cb = lambda {|h| 7 }
+  cells.hspan_cb = lambda {|h,i,j| 
+	  return 2 if (i == 1 && j == 1) 
+	  return 2 if (i == 5 && j == 5) 
+	  1
+  }
+  cells.vspan_cb = lambda {|h,i,j| 
+	  return 2 if (i == 1 && j == 1)   
+	  return 2 if (i == 5 && j == 5) 
+	  1
+  }
+  cells.scroll_cb = lambda {|h,i,j| 
+	  puts("SCROLL: (#{i}, #{j})");
+	  Iup::DEFAULT
+  }
+  cells.boxed = 'NO'
+  cells.rastersize = "395x255"
+
+  return cells
+end
+
+  cells = create()
+  box = Iup.Vbox([cells])
+  box.margin = "10x10"
+
+  dlg = Iup.Dialog(box) 
+  dlg.title = "IupCells"
+  dlg.ShowXY(Iup::CENTER,Iup::CENTER) 
+  Iup.MainLoop 
+  dlg.Destroy
+
+
+
+

data/examples/ctrl/example1.rb

@@ -0,0 +1,53 @@
+require 'rubygems'
+require 'iup'
+
+img_bits1 = [
+1,1,1,1,1,1,1,1,1,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,1,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,1,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,1,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,1,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,1,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,1,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,1,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,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,0,2,0,2,0,2,2,0,2,2,2,0,0,0,2,2,2,0,0,2,0,2,2,0,0,0,2,2,2,
+2,2,2,0,2,0,0,2,0,0,2,0,2,0,2,2,2,0,2,0,2,2,0,0,2,0,2,2,2,0,2,2,
+2,2,2,0,2,0,2,2,0,2,2,0,2,2,2,2,2,0,2,0,2,2,2,0,2,0,2,2,2,0,2,2,
+2,2,2,0,2,0,2,2,0,2,2,0,2,2,0,0,0,0,2,0,2,2,2,0,2,0,0,0,0,0,2,2,
+2,2,2,0,2,0,2,2,0,2,2,0,2,0,2,2,2,0,2,0,2,2,2,0,2,0,2,2,2,2,2,2,
+2,2,2,0,2,0,2,2,0,2,2,0,2,0,2,2,2,0,2,0,2,2,0,0,2,0,2,2,2,0,2,2,
+2,2,2,0,2,0,2,2,0,2,2,0,2,2,0,0,0,0,2,2,0,0,2,0,2,2,0,0,0,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,2,2,2,0,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,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,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,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,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,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,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,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,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,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,1,1,1,1,1,1,1,1
+]
+
+
+  bt = Iup.Button(:title=>"Test",:expand=>'YES')
+  box = Iup.Sbox(:elem=>bt,:direction=>'SOUTH',:color=>'0 0 255')
+
+  ml = Iup.MultiLine(:expand=>'YES')
+  vbox = Iup.Vbox([box, ml])
+
+  lb = Iup.Label(:title=>"Label",:expand=>'YES')
+  dg = Iup.Dialog(Iup.Hbox([vbox, lb]))
+
+  dg.Show
+    
+  Iup.MainLoop
+  dg.Destroy
+

data/examples/ctrl/example2.rb

@@ -0,0 +1,39 @@
+require 'rubygems'
+require 'iup'
+
+def createtree()
+  tree = Iup.Tree(:size=>'80x80',:expand=>'YES',:font=>'COURIER_NORMAL_10',:name=>'Figures')
+  tree.addbranch='3D'
+  tree.addbranch='2D'
+  tree.addleaf1='trapeze'
+  tree.addbranch1='parallelogram'
+  tree.addleaf2='diamond'
+  tree.addleaf2='square'
+  tree.addbranch4='triangle'
+  tree.addleaf5='scalenus'
+  tree.addleaf5='isoceles'
+  tree.addleaf5='equilateral'
+  tree.value='6'
+  tree.addexpanded='NO'
+  return tree
+end
+
+
+  tree = createtree()
+  sbox = Iup.Sbox(:elem=>tree,:direction=>'EAST')
+
+  cv = Iup.Canvas(:expand=>'YES')
+  
+  ml = Iup.MultiLine(:expand=>'YES')
+  sbox2 = Iup.Sbox(:elem=>ml,:direction=>'WEST')
+
+  vbox = Iup.Hbox([sbox, cv, sbox2])
+
+  lb = Iup.Label(:title=>"This is a label",:expand=>'NO')
+  sbox3 = Iup.Sbox(:elem=>lb,:direction=>'NORTH')
+  dg = Iup.Dialog(Iup.Vbox([vbox, sbox3]))
+
+  dg.Show    
+  Iup.MainLoop
+  dg.Destroy
+

data/examples/ctrl/iupcolorbar.rb

@@ -0,0 +1,95 @@
+require 'rubygems'
+require 'iup'
+
+
+cdcanvas = nil
+
+  repaint_cb = lambda do |h,posx,posy|
+	return Iup::DEFAULT if cdcanvas==nil
+	
+	cdcanvas.CanvasActivate()
+	cdcanvas.CanvasClear()
+	
+	cdcanvas.CanvasBegin(Cd::FILL)
+	cdcanvas.CanvasVertex(50,50)
+	cdcanvas.CanvasVertex(150,50)
+	cdcanvas.CanvasVertex(100,150)
+	cdcanvas.CanvasEnd()
+	
+	Iup::DEFAULT
+  end
+
+
+  cb = Iup.Colorbar() 
+  cb.rastersize = "70x"
+  cb.expand = "VERTICAL"
+  cb.num_parts = 2
+  cb.show_secondary = "YES"
+  cb.preview_size = 60  
+  cb.squared = "NO"
+  
+  cnvs = Iup.Canvas() 
+  cnvs.action = repaint_cb
+  
+  # Sets size, mininum and maximum values, position and size of the thumb   
+  # of the horizontal scrollbar of the canvas                               
+  cnvs.rastersize = "200x300"
+
+  cb.select_cb = lambda do |h,cell,type|
+	ri,gi,bi = h["CELL#{cell}"].scan(/\d+/)
+	cd_color = Cd.EncodeColor(ri.to_i,gi.to_i,bi.to_i)
+	
+	cdcanvas.CanvasActivate()
+	if (type==Iup::PRIMARY)
+		cdcanvas.CanvasSetForeground(cd_color)
+	else
+		cdcanvas.CanvasSetBackground(cd_color)
+	end
+	repaint_cb.call(nil,0,0)
+	
+	Iup::DEFAULT 
+  end
+
+  cb.cell_cb = lambda do |h,cell|
+	ri,gi,bi = h["CELL#{cell}"].scan(/\d+/)
+	res = Iup.GetColor(Iup::MOUSEPOS, Iup::MOUSEPOS)
+	if res
+		r,g,b = res
+		str = "#{r} #{g} #{b}"
+		cdcanvas.CanvasActivate()
+		cdcanvas.CanvasSetForeground(Cd.EncodeColor(r,g,b))
+		repaint_cb.call(nil,0,0)
+		return str
+	end
+	nil 
+  end
+  
+  cb.switch_cb = lambda do |h,primcell,seccell|
+	cdcanvas.CanvasActivate()
+	fgcolor = cdcanvas.CanvasForeground(Cd::QUERY)
+	cdcanvas.CanvasSetForeground(Cd.CanvasBackground(Cd::QUERY))
+	cdcanvas.CanvasSetBackground(fgcolor)
+	repaint_cb.call(nil,0,0)
+  end
+
+
+  # Creates a dialog with a vbox containing the canvas and the colorbar. 
+  dlg = Iup.Dialog(Iup.Hbox([cnvs,cb]))
+  
+  # Sets the dialog's title, so that it is mapped properly 
+  dlg.title = "IupColorbar"
+  
+  # Maps the dialog. This must be done before the creation of the CD canvas 
+  dlg.Map
+
+  # Creates a CD canvas of type CD_IUP  
+  cdcanvas = Cd.CreateCanvas(Cd.CD_IUP, cnvs)
+
+  # Shows dialog on the center of the screen 
+  dlg.Show
+
+  # Initializes IUP main loop 
+  Iup.MainLoop
+
+  dlg.Destroy
+

data/examples/ctrl/iupcolorbrowser.rb

@@ -0,0 +1,45 @@
+require 'rubygems'
+require 'iup'
+
+
+  text_red = Iup.Text()
+  text_green = Iup.Text()
+  text_blue = Iup.Text()
+
+  clrbrwsr_drag_cb = lambda do |h,r,g,b|
+	text_red.value = r
+	text_green.value = g
+	text_blue.value = b
+	Iup.LoopStep
+	
+	Iup::DEFAULT
+  end
+  
+  clrbrwsr = Iup.ColorBrowser()
+  clrbrwsr.drag_cb = clrbrwsr_drag_cb
+  clrbrwsr.change_cb = clrbrwsr_drag_cb
+  
+  # Creates a vbox */
+  vbox = Iup.Vbox([
+           Iup.Fill(),
+           text_red,
+           Iup.Fill(),
+           text_green,
+           Iup.Fill(),
+           text_blue,
+           Iup.Fill()
+           ])
+
+  # Creates an hbox */
+  hbox_final = Iup.Hbox([clrbrwsr, Iup.Fill(), vbox])
+
+  # Creates a dialog */
+  dlg = Iup.Dialog(hbox_final,:title=>"IupColorBrowser") 
+
+  # Shows dialog in the center of the screen */
+  dlg.ShowXY(Iup::CENTER, Iup::CENTER)
+
+  # Initializes IUP main loop */
+  Iup.MainLoop
+
+  dlg.Destroy()

data/examples/ctrl/iupdial.rb

@@ -0,0 +1,117 @@
+require 'rubygems'
+require 'iup'
+
+  lbl_h = Iup.Label(:title=>"0",:alignment=>"ACENTER",:size=>"30x")
+  lbl_v = Iup.Label(:title=>"0",:alignment=>"ACENTER",:size=>"30x")
+  lbl_c = Iup.Label(:title=>"0",:alignment=>"ACENTER",:size=>"30x")
+  
+  
+  dial_v = Iup.Dial(:type=>"VERTICAL",:unit=>"DEGREES",:size=>"100x100")
+  dial_h = Iup.Dial(:type=>"HORIZONTAL",:density=>0.1)
+  dial_c = Iup.Dial(:type=>"CIRCULAR")
+  
+  dlg = Iup.Dialog(
+  	Iup.Hbox([
+  		Iup.Fill(),
+  		Iup.Vbox([
+			Iup.Frame(
+				Iup.Vbox([
+					Iup.Hbox([
+						Iup.Fill(),
+						dial_v,
+						Iup.Fill()
+					]),
+					Iup.Hbox([
+						Iup.Fill(),
+						lbl_v,
+						Iup.Fill()
+					])
+				])
+			),
+			Iup.Fill(),
+			Iup.Frame(
+				Iup.Vbox([
+					Iup.Hbox([
+						Iup.Fill(),
+						dial_h,
+						Iup.Fill()
+					]),
+					Iup.Hbox([
+						Iup.Fill(),
+						lbl_h,
+						Iup.Fill()
+					])
+				])
+			),
+			Iup.Fill(),
+			Iup.Frame(
+				Iup.Vbox([
+					Iup.Hbox([
+						Iup.Fill(),
+						dial_c,
+						Iup.Fill()
+					]),
+					Iup.Hbox([
+						Iup.Fill(),
+						lbl_c,
+						Iup.Fill()
+					])
+				])
+			),
+			Iup.Fill()
+		]),
+		Iup.Fill()
+  	])
+  )
+  dlg.title = "IupDial"
+  
+printdial = lambda do |c,a,color|
+  case c['type']
+  when 'VERTICAL'
+    label = lbl_v
+  when 'HORIZONTAL'
+    label = lbl_h
+  when 'CIRCULAR'
+    label = lbl_c
+  end
+
+  if label
+    label.title = "%.3g" % a
+    label.bgcolor = color
+  end
+end
+  
+mousemove = lambda do |c,a|
+  printdial.call(c, a, "0 255 0")
+  Iup::DEFAULT
+end
+
+button_press = lambda do |c,a|
+  printdial.call(c, a, "255 0 0")
+  Iup::DEFAULT
+end 
+
+button_release = lambda do |c,a|
+  printdial.call(c, a,nil)
+  Iup::DEFAULT
+end 
+  
+  dial_v.button_press_cb = button_press
+  dial_c.button_press_cb = button_press
+  dial_h.button_press_cb = button_press
+
+  dial_v.button_release_cb = button_release
+  dial_c.button_release_cb = button_release
+  dial_h.button_release_cb = button_release
+
+  dial_v.mousemove_cb = mousemove
+  dial_c.mousemove_cb = mousemove
+  dial_h.mousemove_cb = mousemove
+
+  # Shows dialog in the center of the screen */
+  dlg.ShowXY(Iup::CENTER, Iup::CENTER)
+
+  # Initializes IUP main loop */
+  Iup.MainLoop
+
+  dlg.Destroy

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"]= Iup::BGCOLOR
+  img_play["1"]= "0 0 0" 
+  img_play["2"]= Iup::BGCOLOR 
+  img_forward["1"]= "0 0 0" 
+  img_forward["2"]= Iup::BGCOLOR 
+  img_rewind["1"]= "0 0 0" 
+  img_rewind["2"]= Iup::BGCOLOR 
+  img_show["1"]= "0 0 0" 
+  img_show["2"]= Iup::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 
+