ruby-iup 0.0.1-i386-mswin32

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()

data/examples/ctrl/iupmask.rb

@@ -0,0 +1,15 @@
+require 'rubygems'
+require 'iup'
+
+  text = Iup.Text()
+  test = text.maskSet("/d*", 0, 1)
+
+  text.size = "100x"
+  text.expand = "HORIZONTAL"
+
+  dg = Iup.Dialog(text,:title=> "IupMask")
+
+  dg.Show()
+  Iup.MainLoop()
+  text.maskRemove
+  dg.Destroy()

data/examples/ctrl/iupmatrix.rb

@@ -0,0 +1,39 @@
+require 'rubygems'
+require 'iup'
+
+
+def create_mat()
+
+  mat = Iup.Matrix(nil) 
+ 
+  mat.numcol_visible = 2
+  mat.numlin_visible = 3
+  mat.resizematrix = "YES"
+  
+  mat.numlin = 3
+  mat.numcol = 2
+
+  mat["0:0"] = "Inflation"
+  mat["1:0"] = "Medicine "
+  mat["2:0"] = "Food" 
+  mat["3:0"] = "Energy" 
+  mat["0:1"] = "January  2000" 
+  mat["0:2"] = "February 2000" 
+  mat["1:1"] = 5.6
+  mat["2:1"] = 2.2
+  mat["3:1"] = 7.2
+  mat["1:2"] = 4.5
+  mat["2:2"] = 8.1
+  mat["3:2"] = 3.4
+  mat.widthdef = 34
+
+  mat
+end
+
+
+
+  dlg = Iup.Dialog(create_mat)
+  dlg.ShowXY(Iup::CENTER,Iup::CENTER)
+  Iup.MainLoop
+  dlg.Destroy
+

data/examples/ctrl/iupplot2.rb

@@ -0,0 +1,603 @@
+require 'rubygems'
+require 'iup'
+
+MAXPLOT = 6  # room for examples
+
+class IupPlotTest
+	
+	def InitPlots()
+
+		delete_cb = lambda do |ih, index, sample_index, x, y|
+		  puts("DELETE_CB(#{index}, #{sample_index}, #{x}, #{y})")
+		  Iup::DEFAULT
+		end
+		
+		select_cb = lambda do |ih, index, sample_index, x, y, select|
+		  puts("SELECT_CB(#{index}, #{sample_index}, #{x}, #{y}, #{select})")
+		  Iup::DEFAULT
+		end
+		
+		edit_cb = lambda do |ih, index, sample_index, x, y,new_x,new_y|
+		  puts("EDIT_CB(#{index}, #{sample_index}, #{x}, #{y}, #{new_x}, #{new_y})")
+		  Iup::DEFAULT
+		end
+		
+		postdraw_cb = lambda do |ih,cnv|
+		  ix,iy = ih.PPlotTransform(0.003, 0.02)
+		  cnv.CanvasFont(nil, Cd::BOLD, 10)
+		  cnv.CanvasTextAlignment(Cd::SOUTH)
+		  cnv.CanvasText(ix, iy, "My Inline Legend")
+		  puts("POSTDRAW_CB()")
+		  Iup::DEFAULT
+		end
+		
+		predraw_cb = lambda do |ih, cnv|
+		  puts("PREDRAW_CB()")
+		  Iup::DEFAULT
+		end
+	
+	  # PLOT 0 - MakeExamplePlot1
+	  @plot[0].title = "AutoScale"
+	  @plot[0].margintop = 40
+	  @plot[0].marginleft = 40
+	  @plot[0].marginbottom = 50
+	  @plot[0].titlefontsize = 16
+	  @plot[0].axs_xlabel = "gnu (Foo)"
+	  @plot[0].axs_ylabel = "Space (m^3)"
+	  @plot[0].axs_yfontsize = 7
+	  @plot[0].axs_ytickfontsize = 7
+	  @plot[0].legendshow = "YES"
+	  @plot[0].axs_xfontsize = 10
+	  @plot[0].axs_yfontsize = 10
+	  @plot[0].axs_xlabelcentered = "NO"
+	  @plot[0].axs_ylabelcentered = "NO"
+	  
+	#  @plot[0].use_imagergb = "YES"
+	#  @plot[0].use_gdi = "YES"
+	
+	  theFac = 1.0/(100*100*100)
+	  @plot[0].PPlotBegin(0)
+	  for theI in -100..100
+	    x = theI+50.0
+	    y = theFac*theI*theI*theI
+	    @plot[0].PPlotAdd(x, y)
+	  end
+	  @plot[0].PPlotEnd()
+	  @plot[0].ds_linewidth = 3
+	  @plot[0].ds_legend = "Line"
+	
+	  theFac = 2.0/100
+	  @plot[0].PPlotBegin(0)
+	  for theI in -100..100
+	    x = 1.0*theI
+	    y = -theFac*theI
+	    @plot[0].PPlotAdd(x, y)
+	  end
+	  @plot[0].PPlotEnd()
+	  @plot[0].ds_legend = "Curve 1"
+	
+	  @plot[0].PPlotBegin(0)
+	  for theI in -100..100
+	    x = 0.01*theI*theI-30
+	    y = 0.01*theI;
+	    @plot[0].PPlotAdd(x, y)
+	  end
+	  @plot[0].PPlotEnd()
+	  @plot[0].ds_legend = "Curve 2"
+	
+	  # PLOT 1 - MakeExamplePlot2
+	  @plot[1].title = "No Autoscale+No CrossOrigin"
+	  @plot[1].titlefontsize = 16
+	  @plot[1].margintop = 40
+	  @plot[1].marginleft = 55
+	  @plot[1].marginbottom = 50
+	  @plot[1].bgcolor = "0 192 192"
+	  @plot[1].axs_xlabel = "Tg (X)"
+	  @plot[1].axs_ylabel = "Tg (Y)"
+	  @plot[1].axs_xautomin = "NO"
+	  @plot[1].axs_xautomax = "NO"
+	  @plot[1].axs_yautomin = "NO"
+	  @plot[1].axs_yautomax = "NO"
+	  @plot[1].axs_xmin = 10
+	  @plot[1].axs_xmax = 60
+	  @plot[1].axs_ymin = -0.5
+	  @plot[1].axs_ymax = 0.5
+	  @plot[1].axs_xcrossorigin = "NO"
+	  @plot[1].axs_ycrossorigin = "NO"
+	  @plot[1].axs_xfontstyle = "BOLD"
+	  @plot[1].axs_yfontstyle = "BOLD"
+	  @plot[1].axs_xreverse = "YES"
+	  @plot[1].gridcolor = "128 255 128"
+	  @plot[1].gridlinestyle = "DOTTED"
+	  @plot[1].grid = "YES"
+	  @plot[1].legendshow = "YES"
+	
+	  theFac = 1.0/(100*100*100)
+	  @plot[1].PPlotBegin(0)
+	  for theI in 0..100
+	    x = 1.0*(theI)
+	    y = theFac*theI*theI*theI;
+	    @plot[1].PPlotAdd(x, y)
+	  end
+	  @plot[1].PPlotEnd()
+	
+	  theFac = 2.0/100
+	  @plot[1].PPlotBegin(0)
+	  for theI in 0..100
+	    x = 1.0*(theI)
+	    y = -theFac*theI
+	    @plot[1].PPlotAdd(x, y)
+	  end
+	  @plot[1].PPlotEnd()
+	
+	  # PLOT 2 - MakeExamplePlot4
+	  @plot[2].title = "Log Scale"
+	  @plot[2].titlefontsize = 16
+	  @plot[2].margintop = 40
+	  @plot[2].marginleft = 70
+	  @plot[2].marginbottom = 50
+	  @plot[2].grid = "YES"
+	  @plot[2].axs_xscale = "LOG10"
+	  @plot[2].axs_yscale = "LOG2"
+	  @plot[2].axs_xlabel = "Tg (X)"
+	  @plot[2].axs_ylabel = "Tg (Y)"
+	  @plot[2].axs_xfontstyle = "BOLD"
+	  @plot[2].axs_yfontstyle = "BOLD"
+	
+	  theFac = 100.0/(100*100*100)
+	  @plot[2].PPlotBegin(0)
+	  for theI in 0..100
+	    x = (0.0001+theI*0.001)
+	    y = (0.01+theFac*theI*theI*theI)
+	    @plot[2].PPlotAdd(x, y)
+	  end
+	  @plot[2].PPlotEnd()
+	  @plot[2].ds_color = "100 100 200"
+	
+	  #PLOT 3 - MakeExamplePlot5
+	  @plot[3].title = "Bar Mode"
+	  @plot[3].titlefontsize = 16
+	  @plot[3].margintop = 40
+	  @plot[3].marginleft = 30
+	  @plot[3].marginbottom = 30
+	  kLables = ["jan","feb", "mar", "apr", "may", "jun", "jul", "aug", "sep", "oct", "nov", "dec"]
+	  kData = [1,2,3,4,5,6,7,8,9,0,1,2]
+	
+	  @plot[3].PPlotBegin(1)
+	  for theI in 0...12
+	    @plot[3].PPlotAddStr(kLables[theI], kData[theI])
+	  end
+	  @plot[3].PPlotEnd()
+	  @plot[3].ds_color = "100 100 200"
+	  @plot[3].ds_mode = "BAR"
+	
+	  #PLOT 4 - MakeExamplePlot6
+	  @plot[4].title = "Marks Mode"
+	  @plot[4].titlefontsize = 16
+	  @plot[4].margintop = 40
+	  @plot[4].marginleft = 45
+	  @plot[4].marginbottom = 40
+	  @plot[4].axs_xautomin = "NO"
+	  @plot[4].axs_xautomax = "NO"
+	  @plot[4].axs_yautomin = "NO"
+	  @plot[4].axs_yautomax = "NO"
+	  @plot[4].axs_xmin = 0
+	  @plot[4].axs_xmax = 0.011
+	  @plot[4].axs_ymin = 0
+	  @plot[4].axs_ymax = 0.22
+	  @plot[4].axs_xcrossorigin = "NO"
+	  @plot[4].axs_ycrossorigin = "NO"
+	  @plot[4].axs_xtickformat = "%1.3f"
+	  @plot[4].legendshow = "YES"
+	  @plot[4].legendpos = "BOTTOMRIGHT"
+	
+	  theFac = 100.0/(100*100*100)
+	  @plot[4].PPlotBegin(0)
+	  for theI in 0..10
+	    x = (0.0001+theI*0.001)
+	    y = (0.01+theFac*theI*theI)
+	    @plot[4].PPlotAdd(x, y)
+	  end
+	  @plot[4].PPlotEnd()
+	  @plot[4].ds_mode = "MARKLINE"
+	  @plot[4].ds_showvalues = "YES"
+	
+	  @plot[4].PPlotBegin(0)
+	  for theI in 0..10
+	    x = (0.0001+theI*0.001)
+	    y = (0.2-theFac*theI*theI)
+	    @plot[4].PPlotAdd(x, y)
+	  end
+	  @plot[4].PPlotEnd()
+	  @plot[4].ds_mode = "MARK"
+	  @plot[4].ds_markstyle = "HOLLOW_CIRCLE"
+	  
+	  #PLOT 5 - MakeExamplePlot8
+	  @plot[5].title = "Data Selection and Editing"
+	  @plot[5].titlefontsize = 16
+	  @plot[5].margintop = 40
+	
+	  theFac = 100.0/(100*100*100)
+	  @plot[5].PPlotBegin(0)
+	  for theI in -10..10
+	    x = (0.001*theI)
+	    y = (0.01+theFac*theI*theI*theI)
+	    @plot[5].PPlotAdd(x, y)
+	  end
+	  @plot[5].PPlotEnd()
+	  @plot[5].ds_color = "100 100 200"
+	  @plot[5].ds_edit = "YES"
+	  @plot[5].delete_cb = delete_cb
+	  @plot[5].select_cb = select_cb
+	  @plot[5].postdraw_cb = postdraw_cb
+	  @plot[5].predraw_cb = predraw_cb
+	  @plot[5].edit_cb = edit_cb
+	end
+
+	def tabs_get_index()
+	  curr_tab = @tabs.value
+	  ss = curr_tab.tabtitle
+	  ss = ss[5..-1] # Skip "Plot "
+	  ss.to_i
+	end
+
+	def initialize
+		# Some processing required by current tab change: the controls at left
+		# will be updated according to current @plot props
+		tabs_tabchange_cb = lambda do |ih, new_tab, old_tab|
+		  ii=0
+		
+		  ss = new_tab.tabtitle
+		  ss = ss[5..-1] # Skip "Plot "
+		  ii = ss.to_i
+		
+		  # autoscaling
+		  # X axis
+		  if (@plot[ii].axs_xautomin=="YES" && @plot[ii].axs_xautomax=="YES") 
+		    @tgg2.value = "ON"
+		    @dial2.active = "NO"
+		  else 
+		    @tgg2.value = "OFF"
+		    @dial2.active = "YES"
+		  end
+		  # Y axis
+		  if (@plot[ii].axs_yautomin=="YES" && @plot[ii].axs_yautomax=="YES") 
+		    @tgg1.value = "ON"
+		    @dial1.active = "NO"
+		  else 
+		    @tgg1.value = "OFF"
+		    @dial1.active = "YES"
+		  end
+		
+		  # grid
+		  if (@plot[ii].grid=="YES")
+		    @tgg3.value = "ON"
+		    @tgg4.value = "ON"
+		  else
+		    # X axis
+		    if (@plot[ii].grid == 'VERTICAL')
+		    	@tgg3.value = "ON"
+		    else
+		    	@tgg3.value = "OFF"
+		    end
+		    # Y axis
+		    if (@plot[ii].grid == 'HORIZONTAL')
+		    	@tgg4.value = "ON"
+		    else
+		    	@tgg4.value = "OFF"
+		    end
+		  end
+		
+		  # legend
+		  if (@plot[ii].legendshow == "YES")
+		    	@tgg5.value = "ON"
+		  else
+		    	@tgg5.value = "OFF"
+		  end
+		  
+		  Iup::DEFAULT
+		end
+		
+		
+		# show/hide V grid
+		tgg3_cb = lambda do |ih,v|
+		  ii = tabs_get_index()
+		  
+		  if (v!=0)
+		    if (@tgg4.value == "ON")
+		      @plot[ii].grid = "YES"
+		    else
+		      @plot[ii].grid = "VERTICAL"
+		    end
+		  else
+		    if (@tgg4.value == "OFF")
+		      @plot[ii].grid = "NO"
+		    else
+		      @plot[ii].grid = "HORIZONTAL"
+		    end
+		  end
+		  @plot[ii].redraw = nil
+		
+		  Iup::DEFAULT
+		end
+		
+		
+		# show/hide H grid
+		tgg4_cb = lambda do |ih, v|
+		  ii = tabs_get_index()
+		  
+		  if (v!=0)
+		    if (@tgg3.value == "ON")
+		      @plot[ii].grid = "YES"
+		    else
+		      @plot[ii].grid = "HORIZONTAL"
+		    end
+		  else
+		    if (@tgg3.value == "OFF")
+		      @plot[ii].grid = "NO"
+		    else
+		      @plot[ii].grid = "VERTICAL"
+		    end
+		  end
+		  @plot[ii].redraw = nil
+		
+		  Iup::DEFAULT
+		end
+		
+		
+		# show/hide legend
+		tgg5_cb = lambda do |ih, v|
+		  ii = tabs_get_index()
+		
+		  if (v!=0)
+		    @plot[ii].legendshow = "YES"
+		  else
+		    @plot[ii].legendshow = "NO"
+		  end    
+		  @plot[ii].redraw = nil
+		
+		  Iup::DEFAULT
+		end
+		
+		
+		# autoscale Y
+		tgg1_cb = lambda do |ih, v|
+		  ii = tabs_get_index()
+		
+		  if (v!=0)   
+		    @dial1.active = "NO"
+		    @plot[ii].axs_yautomin = "YES"
+		    @plot[ii].axs_yautomax = "YES"
+		  else 
+		    @dial1.active = "YES"
+		    @plot[ii].axs_yautomin = "NO"
+		    @plot[ii].axs_yautomax = "NO"
+		  end
+		  @plot[ii].redraw = nil       
+		
+		  Iup::DEFAULT
+		end
+		
+		
+		# autoscale X
+		tgg2_cb = lambda do |ih, v|
+		  ii = tabs_get_index()
+		
+		  if (v!=0) 
+		    @dial2.active = "NO"
+		    @plot[ii].axs_xautomin = "YES"
+		    @plot[ii].axs_xautomax = "YES"
+		  else 
+		    @dial2.active = "YES"
+		    @plot[ii].axs_xautomin = "NO"
+		    @plot[ii].axs_xautomax = "NO"
+		  end
+		  @plot[ii].redraw = nil     
+		
+		  Iup::DEFAULT
+		end
+		
+		
+		# Y zoom
+		dial1_btndown_cb = lambda do |ih, angle|
+		  ii = tabs_get_index()
+		
+		  @plot[ii].old_ymin = @plot[ii].axs_ymin
+		  @plot[ii].old_ymax = @plot[ii].axs_ymax
+		
+		  Iup::DEFAULT
+		end
+		
+		dial1_btnup_cb = lambda do |ih, angle|
+		  ii = tabs_get_index()
+		
+		  x1 = @plot[ii].old_ymin.to_f
+		  x2 = @plot[ii].old_ymax.to_f
+		
+		  ss = @plot[ii].axs_ymode
+		  if ( ss && ss[3,1]=='2' ) 
+		    # LOG2:  one circle will zoom 2 times
+		    xm = 4.0 * fabs(angle) / 3.141592
+		    if (angle>0.0) 
+		      x2 /= xm
+		      x1 *= xm 
+		    else 
+		      x2 *= xm 
+		      x1 /= xm 
+		    end
+		  end
+		  if ( ss && ss[3,1]=='1' ) 
+		    # LOG10:  one circle will zoom 10 times
+		    xm = 10.0 * fabs(angle) / 3.141592
+		    if (angle>0.0) 
+		      x2 /= xm
+		      x1 *= xm 
+		    else 
+		      x2 *= xm
+		      x1 /= xm
+		    end
+		  else 
+		    # LIN: one circle will zoom 2 times
+		    xm = (x1 + x2) / 2.0
+		    x1 = xm - (xm - x1)*(1.0-angle*1.0/3.141592)
+		    x2 = xm + (x2 - xm)*(1.0-angle*1.0/3.141592)
+		  end
+		
+		  if (x1<x2)
+		    @plot[ii].axs_ymin = x1
+		    @plot[ii].axs_ymax = x2
+		  end
+		  @plot[ii].redraw = nil 
+		
+		  return Iup::DEFAULT
+		end
+		
+		
+		# X zoom
+		dial2_btndown_cb = lambda do |ih, angle|
+		  ii = tabs_get_index()
+		
+		  @plot[ii].old_xmin = @plot[ii].axs_xmin
+		  @plot[ii].old_xmax = @plot[ii].axs_xmax
+		     
+		  Iup::DEFAULT
+		end
+		
+		dial2_btnup_cb = lambda do |ih, angle|
+		  ii = tabs_get_index()
+		
+		  x1 = @plot[ii].old_xmin.to_f
+		  x2 = @plot[ii].old_xmax.to_f
+		
+		  xm = (x1 + x2) / 2.0
+		
+		  x1 = xm - (xm - x1)*(1.0-angle*1.0/3.141592) # one circle will zoom 2 times
+		  x2 = xm + (x2 - xm)*(1.0-angle*1.0/3.141592)
+		
+		  @plot[ii].axs_xmin = x1
+		  @plot[ii].axs_xmax = x2
+		
+		  @plot[ii].redraw = nil   
+		
+		  Iup::DEFAULT
+		end
+		
+		bt1_cb = lambda do |ih|
+		p "bt1_cb"
+		  ii = tabs_get_index()
+		#  cnv = Cd.CreateCanvas(Cd.ContextPDF(), "pplot.pdf -o")
+		#  Iup.PPlotPaintTo(@plot[ii], cnv)
+		#  Cd.KillCanvas(cnv)
+		  Iup::DEFAULT
+		end
+		
+		
+		@plot = Array.new(MAXPLOT)
+		# create plots
+		for ii in 0...MAXPLOT
+		    @plot[ii] = Iup.PPlot()
+		end
+		
+		# left panel: @plot control
+		# Y zooming
+		@dial1 = Iup.Dial("VERTICAL")
+		lbl1 = Iup.Label("+")
+		lbl2 = Iup.Label("-")
+		boxinfo = Iup.Vbox([lbl1, Iup.Fill(),lbl2])
+		boxdial1 = Iup.Hbox([boxinfo, @dial1])
+		
+		boxdial1.align = "ACENTER"
+		boxinfo.align = "ACENTER"
+		boxinfo.size = "20x52"
+		boxinfo.gap = 2
+		boxinfo.margin = 4
+		boxinfo.expand = "YES"
+		lbl1.expand = "NO"
+		lbl2.expand = "NO"
+		
+		@dial1.active = "NO"
+		@dial1.size = "20x52"
+		@dial1.button_press_cb = dial1_btndown_cb
+		@dial1.mousemove_cb = dial1_btnup_cb
+		@dial1.button_release_cb = dial1_btnup_cb
+		
+		@tgg1 = Iup.Toggle("Y Autoscale")
+		@tgg1.action = tgg1_cb
+		@tgg1.value = "ON"
+		
+		f1 = Iup.Frame( Iup.Vbox([boxdial1, @tgg1]),:title=> "Y Zoom" )
+		
+		# X zooming
+		@dial2 = Iup.Dial("HORIZONTAL")
+		lbl1 = Iup.Label("-")
+		lbl2 = Iup.Label("+")
+		boxinfo = Iup.Hbox([lbl1, Iup.Fill(), lbl2])
+		boxdial2 = Iup.Vbox([@dial2, boxinfo])
+		
+		boxdial2.align = "ACENTER"
+		boxinfo.align = "ACENTER"
+		boxinfo.size = "64x16"
+		boxinfo.gap = 2
+		boxinfo.margin = 4
+		boxinfo.expand = "HORIZONTAL"
+		
+		lbl1.expand = "NO"
+		lbl2.expand = "NO"
+		
+		@dial2.active = "NO"
+		@dial2.size = "64x16"
+		@dial2.button_press_cb = dial2_btndown_cb
+		@dial2.mousemove_cb = dial2_btnup_cb
+		@dial2.button_release_cb = dial2_btnup_cb
+		
+		@tgg2 = Iup.Toggle("X Autoscale")      
+		@tgg2.action = tgg2_cb
+		
+		f2 = Iup.Frame( Iup.Vbox([boxdial2, @tgg2]),:title=> "X Zoom")
+		
+		lbl1 = Iup.Label(:title=>"",:separator=>"HORIZONTAL")
+		
+		@tgg3 = Iup.Toggle("Vertical Grid")
+		@tgg3.action = tgg3_cb
+		
+		@tgg4 = Iup.Toggle("Hirozontal Grid")
+		@tgg4.action = tgg4_cb
+		
+		lbl2 = Iup.Label(:title=>"",:separator=>"HORIZONTAL")
+		
+		@tgg5 = Iup.Toggle("Legend", nil)
+		@tgg5.action = tgg5_cb
+		
+		lbl3 = Iup.Label(:title=>"",:separator=>"HORIZONTAL")
+		
+		bt1 = Iup.Button("Export PDF")
+		bt1.action = bt1_cb
+		
+		vboxl = Iup.Vbox([f1, f2, lbl1, @tgg3, @tgg4, lbl2, @tgg5, lbl3, bt1],:gap=>4,:expand=>"NO")
+		
+		vboxr = Array.new(MAXPLOT)   # tabs containing the plots
+		# right panel: tabs with plots
+		for ii in 0...MAXPLOT
+		vboxr[ii] = Iup.Vbox([@plot[ii]]) # each @plot a tab
+		vboxr[ii].tabtitle = "Plot #{ii}"
+		end
+		
+		@tabs = Iup.Tabs(vboxr) # create tabs
+		@tabs.tabchange_cb = tabs_tabchange_cb
+		
+		# dialog
+		hbox = Iup.Hbox([vboxl, @tabs],:margin =>"4x4",:gap=>10)
+		
+		dlg = Iup.Dialog(hbox,:size=>"600x240",:title=>"IupPPlot Example")
+		
+		InitPlots() # It must be able to be done independent of dialog Mapping
+		
+		#tabs_tabchange_cb.call(@tabs, vboxr[0], 0)
+		
+		dlg.ShowXY(Iup::CENTER, Iup::CENTER)
+		Iup.MainLoop
+		dlg.Destroy
+	end		
+end
+	
+plot = IupPlotTest.new