ang 9.19.0

data/bin/ang

@@ -0,0 +1,5 @@
+#!/usr/bin/ruby
+require 'gosu'
+
+Dir.chdir(File.dirname(__FILE__)+"/..")
+load 'main.rb'

data/bin/angm

@@ -0,0 +1,5 @@
+#!/usr/bin/ruby
+require 'gosu'
+
+Dir.chdir(File.dirname(__FILE__)+"/../net")
+load 'agent.rb'

data/bin/angm_net_test

@@ -0,0 +1,3 @@
+#!/usr/bin/ruby
+Dir.chdir(File.dirname(__FILE__)+"/../net")
+load 'multicast_test.rb'

data/commit.rb

@@ -0,0 +1,11 @@
+comments=ARGV.join(" ")
+exit! if comments.size==0
+
+version=File.read("VERSION").strip.to_f
+version= ((version*100)+1).round*0.01
+open("VERSION","w") { |f| f.print(version.to_s) }
+puts "New Version=#{version}"
+
+system("git","commit","-a","-m","#{comments}")
+system("git push") # put your password in .git/config : http://name:passwd@github...
+puts "\n\nDone"

data/main.rb

@@ -0,0 +1,379 @@
+# Creative Commons BY-SA :  Regis d'Aubarede <regis.aubarede@gmail.com># LGPL
+###########################################################################
+#   ANG.RB : planetoide game
+#--------------------------------------------------------------------------
+# install ruby
+# install Gosu	> gem install gosu
+# download this > git http://github.com/rdaubarede/ang.git
+# run			> ruby main.rb
+# do your own version :
+#      > loop { edit/main.rb ; ruby main.rb }
+# make your disribution :
+#      > ocra main.rb
+#
+###########################################################################
+if RUBY_VERSION >= "3.0.0"
+  puts "Sorry, not ready for ruiby 3..."
+  exit(0)
+end
+##################### Tuning ##########################
+
+KK=0.5
+SX=1280/KK # window size width
+SY=900/KK  #             height
+$INITIALE_SCORE=2000
+$NB_STAR=35
+$NB_PLANET=8
+$RANGE_STAR_SIZE=(10..30) # more planet / bigger planets ==>> harder game!
+$SCALE_PLAYER=0.8
+$SIZE_TANK=5
+$DD=false
+#######################################################
+ 
+require 'rubygems'
+require 'gosu'
+
+module ZOrder
+  Background, Stars, Player, UI = [0,1,2,3]
+end
+class Numeric
+	def minmax(min,max=nil)
+	  (max=min;min=-min) if !max
+	  return self if self>=min && self<=max
+	  return(min) if self<min
+	  return(max)
+	end
+end
+class Range ; def rand() self.begin+Kernel.rand((self.end-self.begin).abs) end ; end
+
+# pseudo newton
+def newton_xy1(p1,p2,a,b)
+ k1=1.5/200
+ k2=1.0/30000
+ dx,dy=[a.x-b.x,a.y-b.y]
+ d=Math::sqrt(dx ** 2 + dy ** 2)
+ f1=(k1*p1*p2/(d*d)).minmax(100)
+ f2=(k2*p1*p2/(d)).minmax(100)
+ teta=Math.atan2(dy,dx)   
+ f=(f2<f1) ? f1 : f2
+ $DD=true if (f2>f1)
+ r=[-f*Math.cos(teta),-f*Math.sin(teta)]
+ r
+end
+
+# newton, with  'amortissement'
+def newton_xy(p1,p2,a,b,k=1.0/300,dmin=10,dmax=10000)
+ dx,dy=[a.x-b.x,a.y-b.y]
+ d=dmin+Math::sqrt(dx ** 2 + dy ** 2)
+ return [0,0] if d>dmax
+ #f=(k*p1*p2/(d*d)).minmax(100) : k/d**2 not good for gameplay
+ f=(k*p1*p2/(d*d-dmin*dmin)).minmax(10)
+ teta=Math.atan2(dy,dx)   
+ [-f*Math.cos(teta),-f*Math.sin(teta)]
+end
+
+# apply gravity between obj and a list l of planet
+# k=coef gr&avity, >0 attraction, <0 repulsion
+# dmaw : distance max, no attaction if distance>dmax
+def motion(l,obj,k,dmax) 
+ dx,dy=0,0
+ l.each do |o| 
+	next if o==obj
+	next if block_given?  && ! yield(o)
+	dx1,dy1= newton_xy(obj.r,o.r,obj,o,k,0,dmax)
+	dx+=dx1
+	dy+=dy1
+  end
+  obj.x+=dx
+  obj.y+=dy
+  return Math.sqrt(dx*dx+dy*dy)
+end
+
+###########################################################################
+#                        P l a y e r
+###########################################################################
+# move by arrow keyboard acceleration commande, 
+# eat star, move with current speed, and attractive planets
+class Player
+  attr_accessor :x,:y,:r,:score
+  def initialize(window,animation)
+    @animation = animation  
+    @app=window
+	clear()
+	@r=15
+	self.restart()
+  end
+  def clear
+    @pos=1
+  end
+  def restart
+    @vel_x = @vel_y = @angle = @vangle = 0.0
+    @x = SX/2
+	@y = SY/2
+    @score = $INITIALE_SCORE
+	@lxy=[]
+  end
+  def warp(x, y)    @x, @y = x, y  ; end
+  def turn_left()    @pos=3 ;  @vangle -= 0.3 ; end
+  def turn_right()   @pos=4 ;  @vangle += 0.3 ; end  
+  def accelerate(s)
+    @pos= s ? 0 : 2
+    @score-=3
+    @vel_x += 0.7*Gosu::offset_x(@angle, s ? 0.1 : -0.1)
+    @vel_y += 0.7*Gosu::offset_y(@angle, s ? 0.1 : -0.1)
+  end
+  
+  def move(stars)
+	a=false
+	(a=true;@vel_x *= -1) if @x >= SX || @x <= 0 
+	(a=true;@vel_y *= -1) if @y >= SY || @y <= 0
+	@x -= 10 if @x >= SX   && @vel_x == 0
+	@y -= 10 if @y >= SY  && @vel_y == 0
+	@x += 10 if @x <= 0   && @vel_x == 0
+	@y += 10 if @y <= 0   && @vel_y == 0
+	
+	@angle+=@vangle
+	@vangle=@vangle*95.0/100
+	@lxy << [@x,@y] if @vel_x!=0 && @vel_y!=0
+	vx,vy=newton(stars)
+	@vel_x+=vx
+	@vel_y+=vy
+    @vel_x.minmax(-50,+50)
+    @vel_y.minmax(-50,+50)
+    @x += @vel_x
+    @y += @vel_y
+	if a
+		@vel_x*=1
+		@vel_y*=1
+	end
+	
+  end
+  def  newton(stars)
+	vx = vy = 0.0
+	stars.each  do |star|
+	  next if star.type
+	  d=Gosu::distance(@x,@y,star.x,star.y)-15-star.r
+	  dx,dy=*newton_xy1(15*15,star.r*star.r,self,star)
+	  vx+=dx
+	  vy+=dy
+	end
+	[vx,vy]
+  end
+
+  def draw(app,stars)
+	img = @animation[@pos]
+	img.draw_rot(@x, @y, ZOrder::Player, @angle, 0.5, 0.5, $SCALE_PLAYER,$SCALE_PLAYER)
+    x,y=newton(stars) ; app.draw_line(@x,@y, 0xffffffff,@x+x*1000,@y+y*1000,0xffffffff)  # debug: mark gravity force
+	if app.pending?
+		@lxy.each_cons(2) { |p0,p1| app.draw_line(p0[0],p0[1], 0xffffff00 ,p1[0],p1[1], 0xffffff00 ) if p1} rescue nil
+	elsif @lxy.size>100
+		@lxy[(-1*[800,@lxy.size].min)..-1].each_cons(2) { |p0,p1| 
+			app.draw_line(p0[0],p0[1], 0x33ffff00 ,p1[0],p1[1], 0x33ffff00 ) if p1
+		} rescue nil
+	end
+	@lxy=@lxy[-5000..-1] if @lxy.size>10000
+  end
+  
+  def collect_stars(stars)
+    stars.reject!  do |star|
+	  next if star.x-@x > 200
+	  next if star.x-@x < -200
+	  next if star.y-@y > 200
+	  next if star.y-@y < -200
+
+      if Gosu::distance(@x, @y, star.x, star.y) < (15+star.r) then
+		if star.type
+			@score += 120
+			true
+		else
+			if @vel_x !=0 || @vel_y!=0			
+				@score -= 10
+				@x -= 25*@vel_x
+				@y -= 25*@vel_y
+				@x -= -2*25*@vel_x if @x >= SX   && @vel_x == 0
+				@y -= -2*25*@vel_y if @y >= SY  && @vel_y == 0
+			else
+				@x += (-10..+10).rand
+				@y += (-10..+10).rand
+			end
+			@vel_x=0
+			@vel_y=0
+			false
+		end
+	  else
+		false
+      end
+    end
+	@app.looser if @score<=0
+	@app.winner(@score) if 0 == (stars.select { |s| s.type }.size )
+  end
+  
+end
+
+
+###########################################################################
+#                        S t a r 
+###########################################################################
+class Star
+  attr_accessor :x, :y, :type,:r
+  
+  def initialize(ls,type,animation)
+    @animation = animation
+	@ls=ls
+	@type=type
+	@r=@type ? $SIZE_TANK : $RANGE_STAR_SIZE.rand() 
+	@no_img= type ? 1 : (rand()>0.5 && (@r>($RANGE_STAR_SIZE.max+$RANGE_STAR_SIZE.max)/2)) ? 0 : (rand(3)+2)
+	@rot=rand(180)
+	@color = Gosu::Color.new(0xff000000 )
+    @color.red =   type ? 255 : 200
+    @color.green = type ? 0   : 200 
+    @color.blue =  type ? 0   : 200
+    @x = (SX/5..(SX-SX/5)).rand
+    @y = (SY/5..(SY-SY/5)).rand
+  end
+  def move(game,player,ls)
+    ox,oy=@x,@y
+	expand(game,player,ls)
+	@x=ox if @x>(SX-40) || @x<40
+	@y=oy if @y>(SY-40) || @y<40
+	
+  end
+  def draw()
+    img = @animation[@no_img]
+    img.draw_rot(@x, @y, ZOrder::Stars, @rot, 0.5,0.5 ,@r/40.0, @r/40.0,@color)
+  end
+  def expand(game,player,ls) 
+	 return unless game.pending?(40)
+     motion(ls,self,-100.0,110) { |o| ! o.type} if type    # Star   <-> Planet
+     motion(ls,self,-10.0,50)   { |o| o.type}             # *      <-> Star
+     motion(ls,self,-10.0,500)  { |o| ! o.type } if !type # Planet <-> Planet
+
+ 	 motion([player],self,-6,180) if type                 # Star   <-> Player 
+  end
+end
+
+###########################################################################
+#                        W i n d o w
+###########################################################################
+
+class GameWindow < Gosu::Window
+   attr_reader :star,:ping
+  def initialize
+    super((SX*KK).to_i, (SY*KK).to_i, false)
+    self.caption = "Gosu Tutorial Game"
+    
+	@lp=[]; 100.times { x=rand(SX) ; y=rand(SY); @lp<<x;@lp<<y }
+    
+    @player_anim=  Gosu::Image::load_tiles(self, "Starfighter.bmp", 50,50, false)
+    @player = Player.new(self,@player_anim)    
+    @player.warp(320, 240)
+    @font = Gosu::Font.new(self, Gosu::default_font_name, (20/KK).round)
+    @font2 = Gosu::Font.new(self, Gosu::default_font_name, (40/KK).round)
+
+    @star_anim = Gosu::Image::load_tiles(self, "Star.bmp", 100,100, false)
+	@ping=0
+	@start=0
+	@mouse=nil
+    self.go("Start")
+  end
+
+	######################## Game global state 
+	
+	def looser() ego("Game Over !") end
+	def winner(n) ego("Wiiiinner #{n}") end
+	def ego(text)
+		return if @ping < @start
+	    puts "ego #{text}"
+		@text=text
+		@start=@ping+200
+		Thread.new { sleep 2 ; self.go("Start") }
+	end
+	def go(text)
+		@start=@ping+200
+		@text=text
+		@stars = Array.new
+		$NB_PLANET.times { @stars.push( Star.new(@stars,false,@star_anim) ) }
+		$NB_STAR.times { @stars.push( Star.new(@stars,true,@star_anim) ) }
+		@player.restart
+	end
+	def pending?(d=0) (@start+d > @ping) end
+	
+	######################## Global interactions  : mouse/keyboard
+	
+	def interactions()
+		@player.turn_left    if button_down? Gosu::KbLeft       or button_down? Gosu::GpLeft 
+		@player.turn_right   if button_down? Gosu::KbRight      or button_down? Gosu::GpRight
+		@player.accelerate(true)   if button_down? Gosu::KbUp   or button_down? Gosu::GpButton0
+		@player.accelerate(false)  if button_down? Gosu::KbDown or button_down? Gosu::GpButton1
+		#mouse_control
+	end
+	def  mouse_control
+		n=[mouse_x,mouse_y]
+		@mouse=n unless @mouse
+		dx=n[0]-@mouse[0]
+		dy=n[1]-@mouse[1]
+		if Math.hypot(dx,dy)>D
+			@player.turn_left  if dx<-D
+			@player.turn_right  if dx>D
+			@player.accelerate(true)  if dy<-D
+			@player.accelerate(false) if dx>D
+		end
+		@mouse=n
+	end
+	def button_down(id)
+		if id == Gosu::KbEscape
+		  if @player.score==0
+			close
+		  else
+		    @player.score=0
+		  end
+		end
+	end
+	
+	######################## Global draw : update()/draw() are invoked continuously by Gosu engine
+	
+	def update
+		$DD=false
+		@ping+=1
+		@player.clear()
+		@stars.each { |star| star.move(self,@player,@stars) }
+		return if @ping<@start
+		interactions()
+		@player.move(@stars)
+		@player.collect_stars(@stars)    
+	end
+	
+	def draw
+		scale(KK,KK) {
+			draw_background
+			@player.draw(self,@stars)
+			@stars.each { |star| star.draw() }
+			draw_variable_background()
+		}
+	end
+	def draw_background
+		@lp.each_slice(2) do |x,y| 
+			draw_triangle(
+				x, y, 0xAAFFFFFF, 
+				x+(4..8).rand, y+(4..8).rand,  0xAAFFFFFF, 
+				x+(4..8).rand, y,  0xAAFFFFFF)
+		end
+	end		
+	def draw_variable_background()
+		if @ping<@start
+			@font2.draw(@text+ "  ! !", SX/2, SY/2, ZOrder::UI, 1.0, 1.0, 0xf0f0f000)
+			@font.draw("", 10, 10, ZOrder::UI, 1.0, 1.0, 0xffffff00)
+		else		
+			#----------- barr graph energies reserve level
+			h=5+(@player.score/2000.0)*(SY-10)
+			draw_quad(5, 5, 0xBB55FF55, 20/KK, 5,  0xBB55FF55, 20/KK, h,  0xBBFFFF55, 5 , h , 0xBBFFFF55)
+			
+			#------------ textual energie reserve level
+			@font.draw("Score: #{@player.score}", 25/KK, 10/KK, ZOrder::UI, 1.0, 1.0, 0xffffff00)
+			draw_quad(20, 20, 0xFFFF00FF, 40, 20,  0xFFFF00FF, 40, 40,  0xFFFF00FF, 20 , 40 , 0xFFFF00FF) if  $DD
+
+		end
+	end
+end
+
+GameWindow.new.show

data/main_screencast.rb

@@ -0,0 +1,324 @@
+# Creative Commons BY-SA :  Regis d'Aubarede <regis.aubarede@gmail.com>
+###########################################################################
+#   ANG.RB : planetoide game
+#--------------------------------------------------------------------------
+# install ruby
+# install Gosu	> gem install gosu
+# download this > git http://github.com/rdaubarede/ang.git
+# run			> ruby main.rb
+# do your own version :
+#      > loop { edit/main.rb ; ruby main.rb }
+# make your disribution :
+#      > ocra main.rb
+#
+###########################################################################
+require 'rubygems'
+require 'gosu'
+
+# KK=0.5
+# SX=1280/KK
+# SY=900/KK
+KK=0.5
+SX=640/KK
+SY=480/KK
+
+module ZOrder
+  Background, Stars, Player, UI = [0,1,2,3]
+end
+class Numeric
+	def minmax(min,max=nil)
+	  (max=min;min=-min) if !max
+	  return self if self>=min && self<=max
+	  return(min) if self<min
+	  return(max)
+	end
+end
+class Range ; def rand() self.begin+Kernel.rand((self.end-self.begin).abs) end ; end
+
+def e(a,b) (20.0/(a-b)).minmax(-10,+10) end
+
+def newton_xy(p1,p2,a,b)
+ k=1.0/40000
+ dx,dy=[a.x-b.x,a.y-b.y]
+ d=Math::sqrt(dx ** 2 + dy ** 2)
+ #f=(k*p1*p2/(d*d)).minmax(100) : k/d**2 not good for gameplay
+ f=(k*p1*p2/(d)).minmax(10)
+ teta=Math.atan2(dy,dx)   
+ [-f*Math.cos(teta),-f*Math.sin(teta)]
+end
+
+###########################################################################
+#                        P l a y e r
+###########################################################################
+# move by arrow keyboard acceleration commande, 
+# eat star, move with current speed, and attractive planets
+class Player
+  attr_reader :x,:y,:r
+  attr_accessor  :score
+  def initialize(window,animation)
+    @animation = animation
+    @app=window
+	@r=15
+	@pos=1
+	self.restart()
+  end
+  def restart
+    @vel_x = @vel_y = @angle = @vangle = 0.0
+    @x = SX/2
+	@y = SY/2
+    @score = 2000
+	@lxy=[]
+  end
+  def clear
+    @pos=1
+  end
+  def warp(x, y)    @x, @y = x, y  ; end
+  def turn_left()    @pos=3 ;  @vangle -= 0.3 ; end
+  def turn_right()   @pos=4 ;  @vangle += 0.3 ; end  
+  def accelerate(s)
+    @pos= s ? 0 : 2
+    @score-=3
+    @vel_x += Gosu::offset_x(@angle, s ? 0.1 : -0.1)
+    @vel_y += Gosu::offset_y(@angle, s ? 0.1 : -0.1)
+  end
+  
+  def move(stars)
+    @x += @vel_x
+    @y += @vel_y
+	@vel_x *= -1 if @x >= SX || @x <= 0 
+	@vel_y *= -1 if @y >= SY || @y <= 0
+	@x -= 10 if @x >= SX   && @vel_x == 0
+	@y -= 10 if @y >= SY  && @vel_y == 0
+	@x += 10 if @x <= 0   && @vel_x == 0
+	@y += 10 if @y <= 0   && @vel_y == 0
+    
+    #@vel_x *= 0.998
+    #@vel_y *= 0.998
+	@angle+=@vangle
+	@vangle=@vangle*95.0/100
+	@lxy << [@x,@y] if @vel_x!=0 && @vel_y!=0
+	vx,vy=newton(stars)
+	@vel_x+=vx
+	@vel_y+=vy
+    @vel_x.minmax(-50,+50)
+    @vel_y.minmax(-50,+50)
+  end
+  def  newton(stars)
+	vx = vy = 0.0
+	stars.each  do |star|
+	  next if star.type
+	  d=Gosu::distance(@x,@y,star.x,star.y)-15-star.r
+	  dx,dy=*newton_xy(15*15,star.r*star.r,self,star)
+	  vx+=dx
+	  vy+=dy
+	end
+	[vx,vy]
+  end
+
+  def draw(app,stars)
+	img = @animation[@pos]
+    img.draw_rot(@x, @y, ZOrder::Player, @angle)  # (@x, @y, ZOrder::Stars, 0, 0.5,0.5 ,@r/10, @r/10,@color)  
+	#@image.draw_rot(@x, @y, ZOrder::Player, @angle)
+    x,y=newton(stars) ; app.draw_line(@x,@y, 0xffffffff,@x+x*1000,@y+y*1000,0xffffffff)  # debug: mark gravity force
+	if app.is_pending
+		@lxy.each_cons(2) { |p0,p1| app.draw_line(p0[0],p0[1], 0xffffff00 ,p1[0],p1[1], 0xffffff00 ) if p1} rescue nil
+	elsif @lxy.size>100
+		@lxy[(-1*[300,@lxy.size].min)..-1].each_cons(2) { |p0,p1| 
+			app.draw_line(p0[0],p0[1], 0x33ffff00 ,p1[0],p1[1], 0x33ffff00 ) if p1
+		} rescue nil
+	end
+	@lxy=@lxy[-5000..-1] if @lxy.size>10000
+  end
+  
+  def collect_stars(stars)
+    stars.reject!  do |star|
+      if Gosu::distance(@x, @y, star.x, star.y) < (15+star.r) then
+		if star.type
+			@score += 70
+			true
+		else
+			if @vel_x !=0 || @vel_y!=0			
+				@score -= 10
+				@x -= 15*@vel_x
+				@y -= 15*@vel_y
+			else
+				@x += (-10..+10).rand
+				@y += (-10..+10).rand
+			end
+			@vel_x=0
+			@vel_y=0
+			false
+		end
+	  else
+		false
+      end
+    end
+	@app.looser if @score<=0
+	@app.winner(@score) if 0 == (stars.select { |s| s.type }.size )
+  end
+  
+end
+
+
+###########################################################################
+#                        S t a r 
+###########################################################################
+class Star
+  attr_reader :x, :y, :type,:r
+  
+  def initialize(ls,type,animation)
+    @animation = animation
+	@ls=ls
+	@type=type
+	@r=@type ? 10 : (20..60).rand()
+	@color = Gosu::Color.new(0xff000000 )
+    @color.red =   type ? 255 : 0
+    @color.green = type ? 0   : 200 
+    @color.blue =  type ? 0   : 200
+    @x = (SX/5..(SX-SX/5)).rand
+    @y = (SY/5..(SY-SY/5)).rand
+  end
+  def move(player)
+	expand(player)
+  end
+  def draw()
+    img = @animation[self.type ? 1 : 0 ]
+    img.draw_rot(@x, @y, ZOrder::Stars, 0, 0.5,0.5 ,@r/10, @r/10,@color)
+  end
+  def expand(p) 
+    ox,oy=@x,@y
+	@ls.each do |s| 
+		next if s==self
+		(@x+=e(@x,s.x) ; @y+=e(@y,s.y) ) if Gosu::distance(@x,@y,s.x,s.y)< ((s.type && self.type) ? 100 : 0 )
+	end
+	d=Gosu::distance(@x,@y,p.x,p.y)-@r-p.r
+	if @type 
+	   (@x+=-e(p.x,@x)/0.5 ; @y+=-e(p.y,@y)/0.5 )  if   d> 20 && d < 180 
+	else
+	   (@x+=e(p.x,@x)/5.0 ; @y+=e(p.y,@y)/5.0 )  if   d> 20 && d < 0 
+	end
+	@x=ox if @x>600 || @x<40
+	@y=oy if @y>440 || @y<40
+  end
+end
+
+###########################################################################
+#                        W i n d o w
+###########################################################################
+
+class GameWindow < Gosu::Window
+   attr_reader :star,:ping
+  def initialize
+    super((SX*KK).to_i, (SY*KK).to_i, false)
+    self.caption = "Gosu Tutorial Game"
+    
+	@lp=[]; 100.times { x=rand(SX) ; y=rand(SY); @lp<<x;@lp<<y }
+    @player_anim=  Gosu::Image::load_tiles(self, "Starfighter2.bmp", 50,50, false)
+    @player = Player.new(self,@player_anim)
+    @player.warp(320, 240)
+    @font = Gosu::Font.new(self, Gosu::default_font_name, (20/KK).round)
+    @font2 = Gosu::Font.new(self, Gosu::default_font_name, (40/KK).round)
+
+    @star_anim = Gosu::Image::load_tiles(self, "Star.png", 25,25, false)
+	@ping=0
+	@start=0
+	@mouse=nil
+    self.go("Start")
+  end
+
+	######################## Game global state 
+	
+	def looser() ego("Loose") end
+	def winner(n) ego("Winne #{n}") end
+	def ego(text)
+	    puts "ego #{text}"
+		@text=text
+		@start=@ping+50
+		Thread.new { sleep 2 ; self.go("Start") }
+	end
+	def go(text)
+		@start=@ping+200
+		@text=text
+		@stars = Array.new
+		3.times { @stars.push( Star.new(@stars,false,@star_anim) ) }
+		10.times { @stars.push( Star.new(@stars,true,@star_anim) ) }
+		@player.restart
+	end
+	def is_pending() (@start > @ping) end
+	
+	######################## Global interactions  : mouse/keyboard
+	
+	def interactions()
+		@player.turn_left    if button_down? Gosu::KbLeft       or button_down? Gosu::GpLeft 
+		@player.turn_right   if button_down? Gosu::KbRight      or button_down? Gosu::GpRight
+		@player.accelerate(true)   if button_down? Gosu::KbUp   or button_down? Gosu::GpButton0
+		@player.accelerate(false)  if button_down? Gosu::KbDown or button_down? Gosu::GpButton1
+		#mouse_control
+	end
+	def  mouse_control
+		n=[mouse_x,mouse_y]
+		@mouse=n unless @mouse
+		dx=n[0]-@mouse[0]
+		dy=n[1]-@mouse[1]
+		if Math.hypot(dx,dy)>D
+			@player.turn_left  if dx<-D
+			@player.turn_right  if dx>D
+			@player.accelerate(true)  if dy<-D
+			@player.accelerate(false) if dx>D
+		end
+		@mouse=n
+	end
+	def button_down(id)
+		if id == Gosu::KbEscape
+		  if @player.score==0
+			close
+		  else
+		    @player.score=0
+		  end
+		end
+	end
+	
+	######################## Global draw : update()/draw() are invoked continuously by Gosu engine
+	
+	def update
+		@ping+=1
+		return if @ping<@start
+		@player.clear()
+		interactions()
+		@player.move(@stars)
+		@player.collect_stars(@stars)    
+		@stars.each { |star| star.move(@player) }
+	end
+	
+	def draw
+		scale(KK,KK) {
+			draw_background
+			@player.draw(self,@stars)
+			@stars.each { |star| star.draw() }
+			draw_variable_background()
+		}
+	end
+	def draw_background
+		@lp.each_slice(2) do |x,y| 
+			draw_triangle(
+				x, y, 0xAAFFFFFF, 
+				x+(3..5).rand, y+(3..5).rand,  0xAAFFFFFF, 
+				x+(3..5).rand, y,  0xAAFFFFFF) 
+		end
+	end		
+	def draw_variable_background()
+		if @ping<@start
+			@font2.draw(@text+ "  ! !", SX/2, SY/2, ZOrder::UI, 1.0, 1.0, 0xf0f0f000)
+			@font.draw("", 10, 10, ZOrder::UI, 1.0, 1.0, 0xffffff00)
+		else		
+			#----------- barr graph energies reserve level
+			h=5+(@player.score/2000.0)*(SY-10)
+			draw_quad(5, 5, 0xBB55FF55, 20/KK, 5,  0xBB55FF55, 20/KK, h,  0xBBFFFF55, 5 , h , 0xBBFFFF55)
+			
+			#------------ textual energie reserve level
+			@font.draw("Score: #{@player.score}", 25/KK, 10/KK, ZOrder::UI, 1.0, 1.0, 0xffffff00)
+		end
+	end
+end
+
+GameWindow.new.show