begin   require "greg.rubyfr.net" rescue MacOSX, PostgreSQL, Ruby => e   RubyFR.read( "[Why not]" ) end

trails = [[0, 0]] * 60
Shoes.app do
  nostroke
  fill rgb(0×30, 0xFF, 0xFF, 0.6)

  animate(24) do
    trails.shift
    trails << self.mouse[1, 2]

    clear do
      background rgb(
        20 + (70 * (trails.last[0].to_f / self.width)).to_i,
        20 + (70 * (trails.last[1].to_f / self.height)).to_i,
        51)

      trails.each do |x, y|
        stack :top => y, :left => x do
          l = para "Bonne Année"
          f = [‘Arial 14px’, ‘Serif 34px’, ‘Monospace 18px’, ‘Arial 48px’][rand(3)]
          l.replace "Bonne Année", :font => f
        end
      end
    end
  end

end

#
# Shoes Clock by Thomas Bell
# posted to the Shoes mailing list on 04 Dec 2007
#
Shoes.app :height => 260, :width => 250 do
  @radius, @centerx, @centery = 90, 126, 140
  stack :margin => 10 do
    animate(8) do
      @time = Time.now
      clear do
        draw_background
        stack do
          background black
          para @time.strftime("%a"),
            span(@time.strftime(" %b %d, %Y "), :stroke => "#ccc"),
            strong(@time.strftime("%I:%M"), :stroke => white),
            @time.strftime(".%S"), :align => "center", :stroke => "#666"
        end
        clock_hand @time.sec + (@time.usec * 0.000001),2,30,red
        clock_hand @time.min + (@time.sec / 60.0),5
        clock_hand @time.hour + (@time.min / 60.0),8,6
      end
    end
  end
  def draw_background
    background rgb(230, 240, 200)

    fill white
    oval @centerx - 100, @centery - 100, 200, 200

    fill black
    nostroke
    oval @centerx - 5, @centery - 5, 10, 10

    stroke black
    strokewidth 1
    line(@centerx, @centery - 102, @centerx, @centery - 95)
    line(@centerx - 102, @centery, @centerx - 95, @centery)
    line(@centerx + 95, @centery, @centerx + 102, @centery)
    line(@centerx, @centery + 95, @centerx, @centery + 102)
  end
  def clock_hand(time, sw, unit=30, color=black)
    radius_local = unit == 30 ? @radius : @radius - 15
    _x = radius_local * Math.sin( time * Math::PI / unit )
    _y = radius_local * Math.cos( time * Math::PI / unit )
    stroke color
    strokewidth sw
    line(@centerx, @centery, @centerx + _x, @centery - _y)
  end
end