Ruiby 3.23.0

data/samples/fractal.rb

@@ -0,0 +1,49 @@
+#!/usr/bin/ruby
+# Creative Commons BY-SA :  Regis d'Aubarede <regis.aubarede@gmail.com>
+# LGPL
+require 'Ruiby'
+
+DEG_TO_RAD = Math::PI / 180.0
+C=%w{AA0 EE0 FF0 EE0 EE8 EF8 8F8 7F7 0F0 5BB 0FF FAA} 
+
+def draw_tree(cr,x1, y1, angle, depth)
+	return if depth <= rand(2)
+	s=rand(2.0..8.0)
+	x2 = x1 + (Math.cos(angle * DEG_TO_RAD) * depth * s).to_i
+	y2 = y1 + (Math.sin(angle * DEG_TO_RAD) * depth * s).to_i
+
+	cr.set_line_width([1,5,depth/3].sort[1])
+	color=Ruiby_dsl.cv_color_html(a="##{C[(C.size-depth)%C.size]}")
+  p [a,color]
+	cr.set_source_rgba(*color)
+	cr.move_to(x1,y1)
+	cr.line_to(x2,y2) 
+	cr.stroke
+	draw_tree(cr,x2, y2, angle + rand(-20..-10), depth - 1)
+	draw_tree(cr,x2, y2, angle + rand(10..20), depth - 1)      
+end
+def draw_bg(cr,w,h,c1,c2)
+	pattern = Cairo::LinearPattern.new(0.0, 0.0, 0.0, h)
+	pattern.add_color_stop_rgba(0.0,Ruiby_dsl.cv_color_html(c1))
+	pattern.add_color_stop_rgba(1.0,Ruiby_dsl.cv_color_html(c2))
+	cr.rectangle(0,0,w,h)
+	cr.set_source(pattern)
+	cr.fill		
+end
+
+Ruiby.app title: "Fractal Tree", width: 600, height: 600 do
+  
+  stack   { 
+    @cv=canvas(600,600) do 
+		on_canvas_button_press { |w,cr| @on=true }
+		on_canvas_button_motion {|w,e,o| true }
+		on_canvas_button_release { |w,cr,o|  p false ;@on=false }
+		on_canvas_draw { |w,cr| 
+		    draw_bg(cr,600,600,"#60A0A0","#306060")
+			draw_tree(cr,300,550,-90,12) 
+		}
+    end
+  }
+  @on=false
+  #anim(100) { @cv.redraw if @on}
+end

data/samples/freedom.rb

@@ -0,0 +1,104 @@
+#!/usr/bin/ruby
+# Creative Commons BY-SA :  Regis d'Aubarede <regis.aubarede@gmail.com>
+# LGPL
+
+##############################################################################################
+#  GPL in 'star-wars scroll' panel ...
+##############################################################################################
+
+require_relative '../lib/Ruiby'
+
+TXT=<<EEND
+Freeware ( of "free" and "software") is software that is available for use at no monetary cost or for an optional fee, but usually (although not necessarily)  with one or more restricted usage rights. Freeware is in contrast to commercial
+ software, which is typically sold for profit, but might be distributed for a business or commercial  purpose in the aim to expand the marketshare of  a "premium" product. According to the  Free Software Foundation,"freeware" is a loosely defined category and it has no clear accepted  definition, 
+although FSF says it must be distinguished from free software (libre) 
+
+Copyright 2007 Free Software Foundation, Inc. http://fsf.org Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed.
+
+Preamble
+
+The GNU General Public License is a free, copyleft license for software and other kinds of works. The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,the GNU General Public License is intended to guarantee your freedom to
+share and change all versions of a program--to make sure it remains free software for all its users.  We, the Free Software Foundation, use the
+GNU General Public License for most of our software; it applies also to any other work released this way by its authors.  You can apply it to your programs, too.
+
+When we speak of free software, we are referring to freedom, not price.  Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for them if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs, and that you know you can do these things.
+
+To protect your rights, we need to prevent others from denying you these rights or asking you to surrender the rights.  Therefore, you have certain responsibilities if you distribute copies of the software, or if you modify it: responsibilities to respect the freedom of others.
+
+For example, if you distribute copies of such a program, whether gratis or for a fee, you must pass on to the recipients the same freedoms that you received.  You must make sure that they, too, receive or can get the source code.  And you must show them these terms so they know their rights.
+
+Developers that use the GNU GPL protect your rights with two steps: (1) assert copyright on the software, and (2) offer you this License giving you legal permission to copy, distribute and/or modify it.
+
+For the developers' and authors' protection, the GPL clearly explains that there is no warranty for this free software.  For both users' and authors' sake, the GPL requires that modified versions be marked as changed, so that their problems will not be attributed erroneously to authors of previous versions.
+
+Some devices are designed to deny users access to install or run modified versions of the software inside them, although the manufacturer can do so.  This is fundamentally incompatible with the aim of protecting users' freedom to change the software.  The systematic pattern of such abuse occurs in the area of products for individuals to
+use, which is precisely where it is most unacceptable.  Therefore, we have designed this version of the GPL to prohibit the practice for those products.  If such problems arise substantially in other domains, we stand ready to extend this provision to those domains in future versions of the GPL, as needed to protect the freedom of users.
+
+Finally, every program is threatened constantly by software patents. States should not allow patents to restrict development and use of software on general-purpose computers, but in those that do, we wish to avoid the special danger that patents applied to a free program could
+make it effectively proprietary.  To prevent this, the GPL assures that patents cannot be used to render the program non-free. The precise terms and conditions for copying, distribution and modification follow.
+
+EEND
+
+
+class String 
+  def decoupe(ss)   
+    s=self
+    l=[]
+    while s.size > ss 
+      l << s[0..ss]
+      s=s[(ss+1)..-1]
+      while s.size>0 && s[0]!=" "
+        l.last << s[0]
+        s=s[1..-1]
+      end
+    end 
+    l 
+  end 
+end
+
+Ruiby.app width: 1200,height: 800, title: "GPL "*50 do
+  def get_text_size(ctx,fs,text)
+    ctx.set_font_size(fs)
+    e=ctx.text_extents(text)
+    [e.width,e.height]
+  end
+  def text(ctx,fs,x,y,text)
+    ctx.set_font_size(fs)
+    ctx.set_line_width(1)
+    #ctx.set_source_rgba(0, 0 ,0, 1)
+    ctx.move_to(x,y)
+    ctx.show_text(text)
+  end
+  
+  @lt=TXT.split(/\s*\r?\n\s*/).join(" ").decoupe(20)
+  @t,@decl=[], 0.0
+  flow do
+    space 20
+    stack do
+      space 4
+      @cv=canvas(self.default_width,self.default_height) {
+         on_canvas_draw do |w,ctx|  
+            y=10
+            12.times do |noline| 
+              avance=(1.0*(12-noline))/12.0
+              ctx.set_source_rgba(0.4,1-avance,avance,1-avance/4)
+              decl=@decl.floor
+              frac=@decl-decl
+              t=@lt[(noline+decl) % @lt.size]
+              fs=4+((noline+1-frac)*10).floor
+              
+              tw=get_text_size(ctx,fs,t)[0]
+              x=[0,(default_width()-tw)/2].max
+              text(ctx,fs,x,y,t) 
+              y+=fs
+          end
+       end
+     }
+     space 4
+    end
+    space 20
+  end
+  anim 50 do  @decl = (@decl>@lt.size) ? 0 : (@decl+0.08) ; @cv.redraw end
+  anim 200 do set_title(title[-1,1]+title[0..-2]) end
+end

data/samples/gadget.rb

@@ -0,0 +1,139 @@
+# encoding: utf-8
+# Creative Commons BY-SA :  Regis d'Aubarede <regis.aubarede@gmail.com>
+# LGPL
+#################################################################
+##  gadget.rb : demo/test of gadget feature in Ruiby
+##       REST client for rubygems.org,
+##            show most downloaded gem
+#################################################################
+require 'gems' # gem install gems !!!
+
+require 'thread'
+require 'Ruiby'
+require 'pp'
+#require_relative 'Ruiby/lib/Ruiby'
+
+$MAXITEM=12
+
+$per=(ARGV[0] && ARGV[0].to_i) || 10*60_000
+$BG="#383848"
+$tcol="#FFA"
+$tcol_new="#FF3"
+$max_prog=7
+
+$lexclude={}
+$last={}
+
+def get_data()
+ start=Time.now
+ if $lexclude.size==0
+   $lexclude=Hash[*Gems.most_downloaded.map {|a| 
+      [a.first['full_name'].split('-').first.gsub('_',' '),1]
+   }.flatten]
+   $lexclude=$lexclude.merge({'minitest'=>1,'mini portile'=>1,'nokogiri'=>1,'sass'=>1,'rubygems'=>1,'rspec'=>1,'net'=>1,'rb'=>1,'ffi'=>1,'coderay'=>1,'slop'=>1,'faraday'=>1,'addressable'=>1})
+   puts "Excluded : #{$lexclude.keys.join(', ')}"
+   puts "\n\n"
+ end
+ l=Gems.most_downloaded_today
+ lprog=l.sort_by {|item| -item.last}.map {|item|
+   fname=item.first['full_name']
+   name=fname.split('-').first.gsub('_',' ')
+   next if $lexclude[name]
+   qt=item[1]
+   qshow= qt-($last[fname]||qt)
+   $last[fname]=qt
+   [name,qshow]
+ }.compact.sort_by {|a| -a[1]}[0..$MAXITEM]
+ duration=(Time.now.to_f-start.to_f)*1000.0
+ {duration: duration, data: lprog}
+end
+
+
+Ruiby.app width: 140,height: 10, title: "Gems" do
+  chrome(false)
+  @chrome=false
+  set_resizable(true)
+  move(1,100)
+  @lv=[]
+  @lv_last=[]
+  stack do 
+    @cv=canvas(140,300) do
+      on_canvas_draw { |w,ctx| expose(w,ctx) } 
+      on_canvas_button_press { |w,e| 
+        @chrome=!@chrome
+        chrome(@chrome)
+        #get_update
+        false # event is not consume; do the popup...
+      } 
+    end		
+  end
+  @c=0
+  @win=self
+  @lcurve=[[0]*100,[0]*100,[0]*100,[0]*100]
+  
+  def expose(cv,ctx)
+    ssize=cv.get_size_request()
+    ############## Liste
+    @cv.draw_rectangle(0,0,ssize.first,ssize.last,0,nil,"#888",0)
+    @cv.draw_rectangle(2,2,ssize.first-4,ssize.last-4,15,"#555",$BG,3)
+    y=0
+    @lv[:data].each_with_index do |(name,qt),i| 
+      x=4
+      y=5+(i+1)*14
+      moving=((@lv_last[i]||['e',0])[0]==name)
+      @cv.draw_text(x,y,name,1.5, moving ? $tcol : $tcol_new) 
+      @cv.draw_text_left(ssize.first-4,y,qt.to_s,1,$tcol) 
+    end    
+    y+=10
+    
+    ################# Curves
+    @lcurve[0] = (@lcurve[0][1..-1]) << @lv[:duration]
+    
+    @cv.draw_rectangle(10,y,120,60,1,"#377","#033",2)
+    @lcurve.each_with_index do |curve,i|
+       next unless curve && curve.size>2
+       min,max=curve.minmax
+       next if min==max
+       coul="##{%w{FF4 4F4 44F FF4 F4F 4FF}[i%6]}"
+       coul2="#999"
+       dx=120.0/curve.size
+       lxy=curve.each_with_index.map {|v,i| [10+dx*i,y+2+60.0*(v-min)/(max-min)]}.flatten
+       @cv.draw_line(lxy,coul2,3)
+       @cv.draw_line(lxy,coul,1)
+       @cv.draw_text(10+2,y+10+i*12,"#{curve.last.to_i}/#{max.to_i} ms",0.8,coul)
+    end
+    y+=60
+    
+    @c=(@c+1) % 5
+    @cv.draw_line([10+(@c*ssize.first-20)/5.0,y+4,10+(@c+1)*(ssize.first-20)/5.0,y+4],"#A44",5) 
+    y+=10
+    
+    ################## Vertical resizing
+    if y>ssize.last
+      @cv.set_size_request(ssize.first,y)
+      @win.resize(ssize.first,y)
+    elsif y < ssize.last*3/2
+      ys=[y,50].max
+      @cv.set_size_request(ssize.first,ys)    
+      @win.resize(ssize.first,ys)
+    end
+    y=ssize.last
+    @lv_last=@lv[:data].clone
+  end
+  
+  def get_update()
+    Thread.new {
+      begin
+        @lv=get_data
+        gui_invoke { @cv.redraw rescue p $!}
+      rescue
+        log($!) rescue nil
+      end  
+    }
+  end
+  @lv=get_data
+  anim($per) {get_update }
+  after(1000) { get_update }
+  anim(3000) { set_keep_above(true) } # maintan window visible
+end
+

data/samples/gadget_clock.rb

@@ -0,0 +1,81 @@
+# encoding: utf-8
+# Creative Commons BY-SA :  Regis d'Aubarede <regis.aubarede@gmail.com>
+# LGPL
+#################################################################
+##  gadget_clock.rb
+#################################################################
+require 'gems' # gem install gems !!!
+
+require 'Ruiby'
+
+$BG="#383848"
+
+Ruiby.app width: 120,height: 120, title: "Clock" do
+  chrome(false)
+  @chrome=false
+  set_resizable(true)
+  stack do 
+    @cv=canvas(120,120) do
+      on_canvas_draw { |w,ctx| expose(w,ctx) } 
+      on_canvas_button_press { |w,e| 
+        @chrome=!@chrome
+        chrome(@chrome)
+        false # event is not consume; do the popup...
+      } 
+    end		
+  end
+  def draw_aig(cv,x,y,r,pos,width,color)
+    a=(pos+0.75)*(Math::PI*2.0)
+    if width<2
+      @cv.draw_line([x,y,x+r*Math.cos(a),y+r*Math.sin(a)],color,width) 
+    else
+      a1=(pos+0.75-width/60.0)*(Math::PI*2.0)
+      a2=(pos+0.75+width/60.0)*(Math::PI*2.0)
+			 r1=x/15.0
+      x1,y1=x+r1*Math.cos(a1),y+r1*Math.sin(a1)
+      x2,y2=x+r1*Math.cos(a2),y+r1*Math.sin(a2)
+      x3,y3=x+r*Math.cos(a),y+r*Math.sin(a)
+      @cv.draw_polygon([x,y,x1,y1,x3,y3,x2,y2,x,y],color,color,1) 
+      @cv.draw_circle(x,y,2,color,color,1) 
+    end
+  end  
+
+  #show_methods(self,/iz/)
+  def expose(cv,ctx)
+    ssize= size()
+    @cv.set_size_request(ssize.first-2,ssize.last-2)
+    cx,cy=ssize.first/2,ssize.last/2
+    cy=cx if cy>cx
+    ray=cx*0.8
+    cy*=0.87
+    @cv.draw_rectangle(0,0,ssize.first,ssize.last,0,$BG,$BG,0)
+    @cv.draw_circle(cx,cy,ray,"#A0A0A0","#FFF",3)
+    c=[[3,1],[5,3],[8,5]]
+    60.times { |i| 
+      type= if (i%15)==0 then 2 elsif (i%5)==0 then 1 else 0 end 
+      @cv.draw_line([
+          cx+(ray-2)*Math.cos(i*(Math::PI*2.0)/60.0),
+          cy+(ray-2)*Math.sin(i*(Math::PI*2.0)/60.0),
+          cx+(ray-c[type][0])*Math.cos(i*(Math::PI*2.0)/60.0),
+          cy+(ray-c[type][0])*Math.sin(i*(Math::PI*2.0)/60.0)],
+          "#FFF",c[type][1])
+    }
+    
+    now=Time.now
+    hour,min,sec=now.hour,now.min,now.sec
+    min,sec=(now.to_i%3600)/60.0,now.to_f%60
+    hour+=min/60.0
+    
+    @cv.draw_text(cx-35,[ssize.last-4,cy*2+16].min,"%02d:%02d:%02d" % [hour,min,sec],1.6,"#FFF")
+    draw_aig(cv,cx,cy,ray/2,hour/12.0,4,"#FFF")
+    draw_aig(cv,cx,cy,ray*2/3,min/60.0,2,"#FFF")
+    draw_aig(cv,cx,cy,ray*0.9,sec/60.0,1,"#888")
+  rescue 
+    puts "#{$!}\n  #{$!.backtrace.join("\n  ")}\n\n\n"
+  end
+  
+  anim(1000) { @cv.redraw  }
+  after(1) { @cv.redraw  }
+  anim(3000) { set_keep_above(true) } 
+end
+

data/samples/gadget_trading.rb

@@ -0,0 +1,539 @@
+#!/usr/bin/ruby
+# encoding: utf-8
+# Creative Commons BY-SA :  Regis d'Aubarede <regis.aubarede@gmail.com>
+# LGPL
+##############################################################
+#    bourse.rb
+##############################################################
+require 'json'
+require 'httpclient'
+require 'yahoo-finance'
+require 'Ruiby'                       unless Dir.exists?("../lib/ruiby_dsl")
+require_relative '../lib/Ruiby.rb' if Dir.exists?("../lib/ruiby_dsl")
+
+require 'thread'
+require 'date'
+require 'pp'
+
+$rfirst=! defined?($rfirst)
+
+$cotes={
+  "360114899" => {name: "Airbus"  , param1: 56.5  ,param2: 58.6, api: :lecho},
+  "AIR.PA"    => {name: "YAirbus"  , param1: 56.5  ,param2: 58.6, api: :yahoo},
+  "360194025" => {name: "EDF"     , param1: 17.7  ,param2: 17.8, api: :lecho},
+  "360017060" => {name: "L'Oreal" , param1: 145.1 ,param2: 145.2, api: :lecho},
+  "360114910" => {name: "Sanofi"  , param1: 87.7  ,param2: 87.8, api: :lecho},
+  "360115975" => {name: "Vinci"   , param1: 55.5  ,param2: 56.6, api: :lecho},
+  "360015511" => {name: "CAC40"   , param1: 80.7  ,param2: 90.8, api: :lecho},
+  "GOOG"      => {name: "Google"  , param1: 630.0  ,param2: 635.0, api: :yahoo},
+  "MSFT"      => {name: "Mi$"     , param1: 43.0  ,param2: 45.0, api: :yahoo},
+  "GM"        => {name: "GM"      , param1:  29.0  ,param2: 32.0, api: :yahoo},
+  "ATML"      => {name: "Atmel"   , param1: 7.0  ,param2: 9.0, api: :yahoo},
+  "VLKPY"      => {name: "VolksW"   , param1: 20.0  ,param2: 30.0, api: :yahoo},
+} if $rfirst
+$file_config="bourse_config.rb"
+$cotes=eval(File.read($file_config)) if File.exist?($file_config) && $rfirst
+
+def calc_alarme(cote,values)
+ return [false,false] unless values["last"]
+ value=values["last"].to_f
+ p1=cote[:param1]
+ p2=cote[:param2]
+ c1=(value < p1) ? "#FF4050" :  (value > p2) ? "#7F7" : $BGNOALARME
+ c2=(value < p1*0.99) ? "#FF4050" :  (value > p2*1.01) ? "#7F7" : $BGNOALARME
+ [c1,c2]
+end
+
+$nb_colonnes=ARGV.first || 2
+$fr_ouverture=9..18 # heure ouverture cotations cac40
+$us_ouverture=15..23 # heure ouverture cotations Nyse
+$periode=60_000  # acquisition periode, ms
+$BG="#383838"    # background color window
+$PLOT0,$PLOT1="#111","#101010" # background plots zones (stroke/fill)
+$TXTPLOT="#FFF"                # color text min/value/max un plot
+$CVPLOT="#AAA"                 # shadow color of each  curve
+$BGNOALARME=$BG                # alarme color non-active 
+
+
+$url_lecho="http://1.ajax.lecho.be/rtq/?reqtype=simple&quotes=360015511&lightquotes=&group=g30_q_p"
+$query_lecho={reqtype: "simple", quotes: 360015511, lightquotes: "", group: "g30_q_p"}
+
+$url_yahoo="http://finance.yahoo.com"
+
+$bgcolor=Ruiby_dsl.html_color($BG)
+$hcotes={} if $rfirst
+$COTES=$cotes.keys
+
+#require 'nokogiri'
+
+
+=begin
+Data acquired with ajax.lecho.be :
+try { _parseRtq(
+  {"delay":60,"serverTime":1441820894526,
+    "stocks":{       "360017060":{"volume":684414,"pct":"1.1573","high":"150.9500",   
+      "last":"148.6000","low":"148.5500","prev":"146.9000","ask":"148.6000", "time":"17:35:00","bid":"148.5500","open":"150.1000"},
+    ....
+  }
+  })
+} catch(err) { if (console) console.error(err); }
+=end
+
+######################### sauvegardes courbes/restitution au demarrage
+
+DATA_CURVES="curves2.data"
+def save_curve(data)  
+  File.open(DATA_CURVES,"wb") { |f| Marshal.dump(data,f) }
+end
+def load_curve()
+  a={}
+  if File.exists?(DATA_CURVES)
+     File.open(DATA_CURVES,"rb") { |f| a=Marshal.load(f) }
+  else
+    a=$COTES.each_with_object({}) {|name,h| h[name]=[[100]*150,[100]*150] }
+  end
+  a
+end
+  
+###################### Acqisition CAC40 aupres de lecho.be : javascript=>json=>data  
+def get_data_lecho()
+  h = HTTPClient.new()
+  json=h.get($url_lecho,$query_lecho).body
+  if json =~ /_parseRtq\(([^)]*?)\)\s*}\s*catch/
+    JSON.parse($1)["stocks"] rescue (p $! ; {})
+  else
+    puts "noecho: no data"
+    {}
+  end
+end
+###################### Acqisition Yahoo Finance
+
+  
+def get_data_yahoo(lcotes)
+  fields=[
+    :name,
+    :last_trade_price,:last_trade_time,
+    :volume,:previous_close,
+    :change_in_percent,
+    :ask,:open,:bid
+  ]
+  yahoo_client = YahooFinance::Client.new
+  l=yahoo_client.quotes(lcotes,fields)
+  ret= l.zip(lcotes).each_with_object({}) {|(data,n),h|
+     if data
+       h[n]={
+         "bname"  => data[:name],
+         "volume" => nai(data[:volume]), 
+         "pct"    => naf(data[:change_in_percent].gsub(/%\s*$/,"")), 
+         "last"   => naf(data[:last_trade_price]),  
+         "time"   => ftime(data[:last_trade_time]),
+         "ask"   => naf(data[:ask]),  
+         "open"   => naf(data[:open]),  
+         "bid"   => naf(data[:bid]),  
+         "prev"   => naf(data[:previous_close]),
+         "unit"   => '$',
+       }
+     end
+     #gui_invoke {alert("#{n} => #{h[n].inspect}") } if $first
+  }
+  pp ret
+  return ret
+end
+
+def nai(s) s.to_i rescue 0 end
+def naf(s) s.to_f rescue 0.0 end
+
+def ftime(h) # 10:35am => 10:35, 02:35pm => 14:35
+  case h
+    when /(\d+):(\d+)am$/ then "#{$1}:#{$2}:00"
+    when /(\d+):(\d+)pm$/ then "#{$1.to_i+12}:#{$2}:00"
+    else
+       puts "unknown time : #{h}"
+      "00:00:00"
+  end
+end
+
+##################### Moteur d'aquisition
+$first=true
+
+def get_update(app)
+  return if Thread.list.size>2
+  Thread.new {
+    now=Time.now
+    if  $first || $fr_ouverture.member?(Time.now.hour)
+        h=(get_data_lecho rescue nil)
+        next if !h || h.size==0 || !(Hash === h)
+        hh=$COTES.each_with_object({})  {|cote,r| r[cote]=h[cote].merge({"unit"=>'€'}) if h[cote]}
+        $hcotes.merge!(hh)
+    end
+    names=$COTES.select {|k| $cotes[k][:api]==:yahoo}
+    p names
+    if ($first || $us_ouverture.member?(Time.now.hour)) && names.size>0
+          h=(get_data_yahoo(names) rescue p $! )
+          next if !h || h.size==0 || !(Hash === h)
+          $hcotes.merge!(h)
+    end
+    $first=false
+    gui_invoke { push_data($hcotes) ; @cv.redraw()  rescue p $!}
+    Historique.memo(now,$hcotes)
+  }
+end
+
+####################### Archivage
+
+Dir.mkdir("tradingdata") unless Dir.exists?("tradingdata")
+
+class Historique 
+  class << self
+    def to_dir(top)
+      dir="tradingdata/#{top.gmtime.strftime("%Y_%m")}"
+      Dir.mkdir(dir) unless Dir.exists?(dir)
+      dir
+    end
+    def to_sec(top) (top.gmtime.to_i % (24*3600)) end
+    def from_i(gm_timestamp)
+      dt=DateTime.strptime(gm_timestamp.to_s,'%s')
+    end
+    def memo(time,data)
+      dir=to_dir(time)
+      top=to_sec(time)
+      hdata=data.clone
+      hdata['_time']=top
+      hdata['_timestamp']=time.gmtime.to_i 
+      filename="#{dir}/#{time.day}.data"
+      File.open(filename,"a+") { |f| f.puts(hdata.inspect) }
+    end
+    def read(t0,t1,lcotes)
+      date0,date1=t0.gmtime.strftime("%Y_%m"),t1.gmtime.strftime("%Y_%m")
+      t0gmt,t1gmt=t0.gmtime.to_i,t1.gmtime.to_i
+      lvalues=(0..lcotes.size-1).map {[]}
+      (date0..date1).each do |date| 
+        next unless Dir.exists?("tradingdata/#{date}")
+        Dir.glob("tradingdata/#{date}/*.data").sort.map  do |filename|
+          numday=File.basename(filename).gsub(".data","").gsub(/^0/,"").to_i
+          lv=File.readlines(filename).map do |line| 
+            h=eval(line)
+            tm=h['_timestamp']
+            next if tm<t0gmt 
+            return(lvalues) if tm>t1gmt
+            lcotes.each_with_index {|cote,i| ( lvalues[i] << [h[cote]["last"].to_f,tm ] ) if h[cote] }
+          end # end read each line
+        end #end glob*.each
+      end # end d0..d1
+      return(lvalues) 
+    end # end read
+    
+    def show(app)
+      app.instance_eval do
+        #======================== dialog choix cotes et periode
+        profondeur=DynVar.new(1)
+        ok=dialog("Cotes") do
+          stack do
+            labeli "  Choisir les cotes a extraire  "
+            separator
+            $cotes.values.each {|d| 
+              d[:ok]=false
+              check_button(d[:name],false) { |ok| d[:ok]=ok }
+            }
+            separator
+            stacki {
+              labeli "Profondeur d'extration (nb jour):"
+              islider(profondeur,:min=>0,:max=>180,:by => 1) 
+              wnbj=labeli "1 jour" 
+              profondeur.observ {|v| wnbj.label= "#{v} Jours"}
+            }
+          end
+        end
+        return unless ok 
+        #======================= extration datas et mise en formes
+        lcotes=$cotes.each_with_object([]) {|(k,v),a| a<<k if v[:ok]}
+        return unless lcotes.size>0
+        delta= profondeur.value>0 ? (profondeur.value*24*3600) : (6*3600)
+        datas=Historique.read(Time.now-delta,Time.now,lcotes)
+        xminmax=datas[0].minmax_by {|(y,x)| x}.map {|(y,x)| x}
+        hc=lcotes.each_with_object({}) { |cote,h|
+          s={
+           name: $cotes[cote][:bname] || $cotes[cote][:name],
+           data: datas[h.size],
+           color: %w{#F00 #FF0 #F0F #0FF #A0A #BBB}[h.size%6],
+           xminmax: xminmax,
+           yminmax: datas[h.size].minmax_by {|(y,x)| y}.map {|(y,x)| y}
+          }
+          h[cote]=s
+        }
+        #======================= Affichage courbes
+        dialog_async("Archives Ploter",response: proc {true}) {
+          stack {
+             flow { 
+               cc=canvas(70,300) {  # labels des cotes
+                  on_canvas_draw { |w,ctx| 
+                    cc.draw_rectangle(0,0,70,300,0,$BG,$BG,0)
+                    hc.each_with_index { |(k,d),i| 
+                      cc.draw_text(3,(i+1)*16,d[:name],1.2,d[:color])
+                    }
+                  }
+               }
+               c=plot(600,300,{},{bg: $BG, tracker: [proc {|x| Time.at(x).to_s},proc  {|name,y| "#{name}: #{y} $"}]})
+               hc.each {|k,d| c.add_curve(k,d) }
+             }
+             flowi {
+              button("<<")
+              button(">>")
+             }
+          }
+        }        
+      end
+    end
+    
+  end #class self
+end
+################################################################
+#                  C o n f i g u r a t i o n 
+################################################################
+
+module Ruiby_dsl
+  def dialog_minmax(wbutton,h,value)
+    f1=DynVar.new(h[:param1])
+    f2=DynVar.new(h[:param2])
+    ok=dialog_async("Saisie Seuils #{h['name']}", response: proc {
+      if f1.value<f2.value
+        wbutton.label="#{f1.value}..#{f2.value}"
+        h[:param1]=f1.value
+        h[:param2]=f2.value
+        File.write($file_config,$cotes.inspect)
+        true
+      else
+        false
+      end}
+    ) do
+      stack do
+        label("#{h[:name]} : #{value}",font: "Arial bold 33px")
+        separator
+        flowi {  entry(f1) ; entry(f2) }
+        a=label('',font: "Arial 33")
+        f1.observ {|v| a.text= v<f2.value ? "Ok":"Nok: p1>p2 !"}
+        f2.observ {|v| a.text= v>f1.value ? "Ok":"Nok: p2<p1 !"}
+        stacki {
+          fslider(f1,:min=>(f1.value*0.8),:max=>(f2.value*1.1),:by => 0.1,:decimal=>2) 
+          fslider(f2,:min=>(f1.value*0.8),:max=>(f2.value*1.1),:by => 0.1,:decimal=>2) 
+        }
+      end
+    end
+    if ok
+      
+    end
+   end
+   def configuration_trading()
+    dialog_async("Configuration",{response: proc {
+        #alert($cotes)
+        true
+    }}) do
+      stack do table(0,0) do
+          row {
+            cell(label('clef'));cell(label('name'));
+            cell(label('param 1&2'));cell(label('api'))
+          }            
+          $cotes.each do |k,v|
+            row do
+              cell(label(k));cell(label(v[:name])) 
+              x=nil
+              x=cell(button("#{v[:param1]}..#{v[:param2]}") { |w| 
+                dialog_minmax(w,v,$hcotes[k]["last"]) 
+              })
+              cell(label(v[:api].to_s))
+            end # end row       
+          end # end each
+        end end # end stack
+      end # end dialog
+  end
+end
+
+###################################################
+##         D e s s i n   f e n e t r e
+###################################################
+module Ruiby_dsl
+  def expose_trading(cv,ctx)
+    return if $hcotes.size<1
+    top=Time.now
+    @sx,@sy=size()
+    @wcurve=@sx/@nb_col
+    @hcurve=((@sy-12-2-12-15-24-3)/($hcotes.size*2) - 14)*@nb_col
+    @cv.draw_rectangle(0,0,@sx,@sy,1,"#AAA",$BG,3)
+    y=10
+    x=2
+    
+    ############# Rappel des alertes
+    
+    $cotes.keys.each_with_index do |k,i| 
+      v=$hcotes[k]
+      car=$cotes[k][:name][0,1]
+      calc_alarme($cotes[k],v).each_with_index {|color,col|
+            x,y=2,y+12 if x>=@sx-20
+            if col==0
+              @cv.draw_text(x,y,car,0.8,"#FFF") 
+              x+=7
+            end
+            @cv.draw_rectangle(x,y-5,6,3,0,$BGNOALARME, color,0) 
+            x+=7
+      }
+      x+=5
+    end    
+    y+=2
+    x+=3
+    @cv.draw_line([7,y,@sx-7,y],"#FFF",2)
+    y+=16
+    y00=y
+    ############# Zone detailles cotations: alerte+nom+valeur+courbes
+    
+    x=5
+    $cotes.keys.each do |k|  v=$hcotes[k]
+      if y>@sy-30-@hcurve*2
+        y=y00
+        x+=@wcurve+2
+        @cv.draw_line([x-1,y,x-1,@sy],"#FFF",1)
+        #alert(" changement colonne: #{x} #{y}")
+      end
+      calc_alarme($cotes[k],v).each_with_index {|color,ii|
+            @cv.draw_rectangle(x+2+11*(ii),y-10,10,10,4,$BGNOALARME, color,2) 
+      }
+      @cv.draw_text(x+24,y+2,"#{$cotes[k][:name]}",1.7,"#FFE")       
+      @cv.draw_text_left(
+             x+@wcurve-2,y+2,
+             "#{v["unit"]}#{v["last"].to_f.round(2)} #{v["pct"].to_f.round(0)}%",
+             1.5,
+             "#FFE",$BG
+      )  
+      y+=10
+      y=draw_curve1(@lcurve[k][0] ,0 ,x,y, "€"   , :brute , v["prev"].to_f)+3
+      y=draw_curve1(@lcurve[k][1] ,1 ,x,y, "vol" , :delta, 0)
+      y+=13
+    end
+    
+    ######################  bs de page: heure derniere cotation
+    
+    y+=10
+    @cv.draw_text(@sx/2-30,y-8,$hcotes.values.first["time"],1.0,"#FFE") if $hcotes.size>0 
+    y+=3
+    if false
+      @cv.set_size_request(@sx-2,y) 
+      move(1,1)
+    end
+    save_curve(@lcurve)
+  rescue Exception => e
+    log(e)
+  end
+  def push_data(h)
+    h.each_with_index {|(k,v),i| 
+      next unless Hash === v
+      begin
+        @lcurve[k]=[[100]*150,[100]*150] unless @lcurve[k] && @lcurve[k].size==2
+        curve=@lcurve[k][0]   ; curve.push(v["last"].to_f) ; curve.shift while curve.size>150
+        curve=@lcurve[k][1]   ; curve.push(v["volume"])    ; curve.shift while curve.size>150
+      rescue Exception => e
+        p e
+        p k,v,i
+      end
+    }
+  end
+  def draw_curve1(curve,i,x0,y0,unit, type, vy)
+    w=@sx-4
+    h=@hcurve
+    @cv.draw_rectangle(x0,y0,@wcurve,h,1,$PLOT0,$PLOT1,2)
+    coul="##{%w{FF4 4F4 6060FF FF6060 44F 4FF}[i]}"
+    
+    data= if type==:brute
+      curve
+    else 
+      a=curve.each_cons(2).map { |a,b| b-a}
+      min,max=a.minmax
+      i=2
+      a.each_cons(5) {|l| 
+        m=l[2]
+        mm=(l[0]+l[1]+l[3]+l[4])/4.0
+        a[i]=mm if (m==min || m==max) && (m-mm).abs> (max-min)/5.0
+        i+=1
+      }
+      a
+    end
+    min,max=data.minmax
+    if unit=="€" 
+      min,p,max=[min,vy,max].sort
+    end
+    if unit=="€" && (max-min).abs<1
+      min,max=min-1,max+1
+    end
+    min,max=min-50,min+50 if min==max
+    dx=1.0*@wcurve/data.size
+    lxy=data.each_with_index.map {|v,t| [x0+dx*t,y0+h-1.0*(v-min)*h/(max-min)]}.flatten
+    
+    @cv.draw_line(lxy,$CVPLOT,3)
+    @cv.draw_line(lxy,coul,1)
+    if unit=="€" 
+      y=y0+h-1.0*(vy-min)*h/(max-min)
+      @cv.draw_line([x0+2,y,x0+@wcurve-2,y],"#F00",1)
+    end
+    @cv.draw_text(x0+5,y0+(1)*8,"#{unit} #{min} .. #{max}",0.8,$TXTPLOT)  
+    (y0+h)
+  end
+
+end
+
+
+###############################################################
+#    M A I N : fenetre et moteur d'acquisition
+###############################################################
+Ruiby.app width: 150*$nb_colonnes,height: 600, title: "Boursicotons" do
+  def cv_redraw() @cv.redraw() end
+  chrome(false)
+  @chrome=false
+  set_resizable(true)
+  move(10,30)
+  @lv=[]
+  @s={}
+  @lv_last=[]
+  @bddtr={}
+  @marche_ok=false
+  @lcurve=load_curve()
+  @nb_col=$nb_colonnes
+  stack do 
+    @cv=canvas(150,600) do
+      on_canvas_draw { |w,ctx| expose_trading(w,ctx) } 
+      on_canvas_button_press { |w,e| 
+        @chrome=!@chrome
+        chrome(@chrome)
+        false # event is not consume; di the popup...
+      } 
+    end		
+    flowi { 
+      button("Load") { load(__FILE__); }
+      button("Arch") { Historique.show(self)  }
+      button("Conf.") { configuration_trading() }
+      button("Ref.") { after(1) { get_update(self) } }
+      buttoni("Exit")   { exit!(0) }
+    }
+  end
+  
+  def_style <<EEND
+* {background: #{$BG}} 
+.button { 
+  background: #444 ;
+  background-image: none;
+  font: Sans bold 8px;
+  color: #CCC;
+  border-radius: 5px;
+  padding: 3px 7px 2px 5px;
+  border-top-left-radius: 12px;
+  border-width: 1px;
+  -GtkButton-shadow-type:none;
+  -GtkWidget-focus-line-width: 0;
+}
+GtkLabel { background:transparent; color: #FFC ; font: Sans  10px;}
+GtkEntry { background:transparent; color: #FFC ; font: Sans bold 10px;}
+
+EEND
+  after(100) { get_update(self) ; anim($periode) { get_update(self) } } # update periodique
+  anim(2000) { set_keep_above(true) if $nb_colonne==1} # maintin en avant plan de la fenetre
+end if $rfirst
+$rfirst=false
+
+