Class TkGoldberg_Demo < Object

# File ext/tk/sample/demos-en/goldberg.rb, line 93
def initialize(parent)
  @parent = parent

  @S = {}
  @S['title']   = 'Tk Goldberg'
  @S['speed']   = TkVariable.new(5)
  @S['cnt']     = TkVariable.new(0)
  @S['message'] = TkVariable.new("\\nWelcome\\nto\\nRuby/Tk")
  @S['pause']   = TkVariable.new
  @S['details'] = TkVariable.new(true)

  @S['mode'] = TkVariable.new(:MSTART, :symbol)
  #            :MSTART, :MGO, :MPAUSE, :MSSTEP, :MBSTEP, :MDONE, :MDEBUG

  #         0,  1,  2,  3,  4,  5,   6,   7,   8,   9,  10
  @speed = [1, 10, 20, 50, 80, 100, 150, 200, 300, 400, 500]

  # colors
  @C = {}
  @C['fg'] = 'black'
  # @C['bg'] = 'gray75'
  @C['bg'] = 'cornflowerblue'

  @C['0'] = 'white';         @C['1a'] = 'darkgreen';   @C['1b'] = 'yellow'
  @C['2'] = 'red';           @C['3a'] = 'green';       @C['3b'] = 'darkblue'
  @C['4'] = @C['fg'];        @C['5a'] = 'brown';       @C['5b'] = 'white'
  @C['6'] = 'magenta';       @C['7'] = 'green';        @C['8'] = @C['fg']
  @C['9'] = 'blue4';         @C['10a'] = 'white';      @C['10b'] = 'cyan'
  @C['11a'] = 'yellow';      @C['11b'] = 'mediumblue'; @C['12'] = 'tan2'
  @C['13a'] = 'yellow';      @C['13b'] = 'red';        @C['14'] = 'white'
  @C['15a'] = 'green';       @C['15b'] = 'yellow';     @C['16'] = 'gray65'
  @C['17'] = '#A65353';     @C['18'] = @C['fg'];      @C['19'] = 'gray50'
  @C['20'] = 'cyan';         @C['21'] = 'gray65';      @C['22'] = @C['20']
  @C['23a'] = 'blue';        @C['23b'] = 'red';        @C['23c'] = 'yellow'
  @C['24a'] = 'red';         @C['24b'] = 'white';

  @STEP = TkVariable.new_hash
  @STEP.default_value_type = :numeric

  @XY = {}

  @XY6 = {
    '-1'=>[366, 207], '-2'=>[349, 204], '-3'=>[359, 193], '-4'=>[375, 192],
    '-5'=>[340, 190], '-6'=>[349, 177], '-7'=>[366, 177], '-8'=>[380, 176],
    '-9'=>[332, 172], '-10'=>[342, 161], '-11'=>[357, 164],
    '-12'=>[372, 163], '-13'=>[381, 149], '-14'=>[364, 151],
    '-15'=>[349, 146], '-16'=>[333, 148], '0'=>[357, 219],
    '1'=>[359, 261], '2'=>[359, 291], '3'=>[359, 318], '4'=>[361, 324],
    '5'=>[365, 329], '6'=>[367, 334], '7'=>[367, 340], '8'=>[366, 346],
    '9'=>[364, 350], '10'=>[361, 355], '11'=>[359, 370], '12'=>[359, 391],
    '13,0'=>[360, 456], '13,1'=>[376, 456], '13,2'=>[346, 456],
    '13,3'=>[330, 456], '13,4'=>[353, 444], '13,5'=>[368, 443],
    '13,6'=>[339, 442], '13,7'=>[359, 431], '13,8'=>[380, 437],
    '13,9'=>[345, 428], '13,10'=>[328, 434], '13,11'=>[373, 424],
    '13,12'=>[331, 420], '13,13'=>[360, 417], '13,14'=>[345, 412],
    '13,15'=>[376, 410], '13,16'=>[360, 403]
  }

  @timer = TkTimer.new(@speed[@S['speed'].numeric]){|timer|
    timer.set_interval(go)
  }

  do_display
  reset

  # Start everything going
  @timer.start
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1941
def _round_poly2(x0, y0, x1, y1, x2, y2, radius)
  d = 2 * radius
  maxr = 0.75

  v1x = x0 - x1
  v1y = y0 - y1
  v2x = x2 - x1
  v2y = y2 - y1

  vlen1 = Math.sqrt(v1x*v1x + v1y*v1y)
  vlen2 = Math.sqrt(v2x*v2x + v2y*v2y)

  if d > maxr * vlen1
    d = maxr * vlen1
  end
  if d > maxr * vlen2
    d = maxr * vlen2
  end

  xy = []
  xy << (x1 + d * v1x / vlen1) << (y1 + d * v1y / vlen1)
  xy << x1 << y1
  xy << (x1 + d * v2x / vlen2) << (y1 + d * v2y / vlen2)

  return xy
end

# File ext/tk/sample/demos-en/goldberg.rb, line 402
def about
  msg = "Ruby/Tk Version ::\nby Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)\n\n"
  msg += "Original Version ::\n"
  msg += "#{@S['title']}\nby Keith Vetter, March 2003\n(Reproduced by kind permission of the author)\n\n"
  msg += "Man will always find a difficult means to perform a simple task"
  msg += "\nRube Goldberg"
  Tk.messageBox(:message=>msg, :title=>'About')
end

# File ext/tk/sample/demos-en/goldberg.rb, line 315
def active_GUI(var1, var2, op)
  st = {false=>:disabled, true=>:normal}

  m = @S['mode'].to_sym
  @S['pause'].value = (m == :MPAUSE)
  @start.state(st[m != :MGO])
  @pause.state(st[m != :MSTART && m != :MDONE])
  @step.state(st[m != :MGO && m != :MDONE])
  @bstep.state(st[m != :MGO && m != :MDONE])
  @reset.state(st[m != :MSTART])

  if @S['details'].bool
    Tk.grid(@f_details, :in=>@details, :row=>2, :sticky=>:ew)
  else
    Tk.grid_forget(@f_details)
  end
  @speed_scale.label("Speed: #{@S['speed'].value}")
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1984
def anchor(item, where)
  x1, y1, x2, y2 = @canvas.bbox(item)
  case(where)
  when :n
    y = y1
  when :s
    y = y2
  else
    y = (y1 + y2) / 2.0
  end
  case(where)
  when :w
    x = x1
  when :e
    x = x2
  else
    x = (x1 + x2) / 2.0
  end
  return [x, y]
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1807
def box(x, y, r)
  [x - r, y - r, x + r, y + r]
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1980
def centroid(item)
  anchor(item, :c)
end

# File ext/tk/sample/demos-en/goldberg.rb, line 338
def do_button(what)
  case what
  when 0  # Start
    reset if @S['mode'].to_sym == :MDONE
    @S['mode'].value = :MGO

  when 1  # Pause
    @S['mode'].value = ((@S['pause'].bool)? :MPAUSE: :MGO)

  when 2  # Step
    @S['mode'].value = :MSSTEP

  when 3  # Reset
    reset

  when 4  # Big step
    @S['mode'].value = :MBSTEP
  end
end

# File ext/tk/sample/demos-en/goldberg.rb, line 216
def do_ctrl_frame
  @start = Tk::Button.new(@parent, :text=>'Start', :bd=>6,
                        :command=>proc{do_button(0)})
  if font = @start['font']
    @start.font(font.weight('bold'))
  end

  @pause = TkCheckbutton.new(@parent, :text=>'Pause', :font=>font,
                             :command=>proc{do_button(1)}, :relief=>:raised,
                             :variable=>@S['pause'])

  @step  = TkButton.new(@parent, :text=>'Single Step', :font=>font,
                        :command=>proc{do_button(2)})
  @bstep = TkButton.new(@parent, :text=>'Big Step', :font=>font,
                        :command=>proc{do_button(4)})
  @reset = TkButton.new(@parent, :text=>'Reset', :font=>font,
                        :command=>proc{do_button(3)})

  @details = TkFrame.new(@parent, :bd=>2, :relief=>:ridge)
  @detail = TkCheckbutton.new(@parent, :text=>'Details', :font=>font,
                             :relief=>:raised, :variable=>@S['details'])

  @msg_entry = TkEntry.new(@parent, :textvariable=>@S['message'],
                           :justify=>:center)
  @speed_scale = TkScale.new(@parent, :orient=>:horizontal,
                             :from=>1, :to=>10, :font=>font,
                             :variable=>@S['speed'], :bd=>2,
                             :relief=>:ridge, :showvalue=>false)
  @about = TkButton.new(@parent, :text=>'About',
                        :command=>proc{about}, :font=>font)

  Tk.grid(@start, :in=>@ctrl, :row=>0, :sticky=>:ew)
  @ctrl.grid_rowconfigure(1, :minsize=>10)
  Tk.grid(@pause, :in=>@ctrl, :row=>2, :sticky=>:ew)
  Tk.grid(@step,  :in=>@ctrl, :sticky=>:ew)
  Tk.grid(@bstep, :in=>@ctrl, :sticky=>:ew)
  Tk.grid(@reset, :in=>@ctrl, :sticky=>:ew)
  @ctrl.grid_rowconfigure(10, :minsize=>20)
  Tk.grid(@details, :in=>@ctrl, :row=>11, :sticky=>:ew)
  Tk.grid(@detail, :in=>@details, :row=>0, :sticky=>:ew)
  @ctrl.grid_rowconfigure(50, :weight=>1)

  @S['mode'].trace('w', proc{|*args| active_GUI(*args)})
  @S['details'].trace('w', proc{|*args| active_GUI(*args)})
  @S['speed'].trace('w', proc{|*args| active_GUI(*args)})

  Tk.grid(@msg_entry, :in=>@ctrl, :row=>98, :sticky=>:ew, :pady=>5)
  Tk.grid(@speed_scale, :in=>@ctrl, :row=>99, :sticky=>:ew)
  Tk.grid(@about, :in=>@ctrl, :row=>100, :sticky=>:ew)

  @reset.bind('3'){@S['mode'].value = -1}  # Debugging
end

# File ext/tk/sample/demos-en/goldberg.rb, line 269
def do_detail_frame
  @f_details = TkFrame.new(@details)

  @label = TkLabel.new(@f_details, :textvariable=>@S['cnt'],
                       :bd=>1, :relief=>:solid, :bg=>'white')
  Tk.grid(@label, '-', '-', '-', :sticky=>:ew, :row=>0)

  idx = 1
  loop {
    break unless respond_to?("move#{idx}")
    l = TkLabel.new(@f_details, :text=>idx, :anchor=>:e,
                    :width=>2, :bd=>1, :relief=>:solid, :bg=>'white')
    @STEP[idx] = 0
    ll = TkLabel.new(@f_details, :textvariable=>@STEP.ref(idx),
                     :width=>5, :bd=>1, :relief=>:solid, :bg=>'white')
    row = (idx + 1)/2
    col = ((idx + 1) & 1) * 2
    Tk.grid(l, :sticky=>:ew, :row=>row, :column=>col)
    Tk.grid(ll, :sticky=>:ew, :row=>row, :column=>(col + 1))
    idx += 1
  }
  @f_details.grid_columnconfigure(1, :weight=>1)
end

# File ext/tk/sample/demos-en/goldberg.rb, line 162
def do_display()
  @ctrl = TkFrame.new(@parent, :relief=>:ridge, :bd=>2, :padx=>5, :pady=>5)
  @screen = TkFrame.new(@parent, :bd=>2,
                       :relief=>:raised).pack(:side=>:left, :fill=>:both,
                                              :expand=>true)

  @canvas = TkCanvas.new(@parent, :width=>850, :height=>700,
                        :bg=>@C['bg'], :highlightthickness=>0){
    scrollregion([0, 0, 1000, 1000]) # Kludge to move everything up
    yview_moveto(0.05)
  }.pack(:in=>@screen, :side=>:top, :fill=>:both, :expand=>true)

  @canvas.bind('3'){ @pause.invoke }
  @canvas.bind('Destroy'){ @timer.stop }

  do_ctrl_frame
  do_detail_frame

  # msg = TkLabel.new(@parent, :bg=>@C['bg'], :fg=>'white') {
  msg = Tk::Label.new(@parent, :bg=>@C['bg'], :fg=>'white') {
    font 'Arial 10'
    wraplength 600
    justify 'left'
    text "This is a demonstration of just how complex you can make your animations become. Click the ball to start things moving!\n\"Man will always find a difficult means to perform a simple task\" - Rube Goldberg"
  }
  msg.place(:in=>@canvas, :relx=>0, :rely=>0, :anchor=>:nw)

  frame = TkFrame.new(@parent, :bg=>@C['bg'])

  # TkButton.new(frame, :bg=>@C['bg'], :activebackground=>@C['bg']) {
  Tk::Button.new(frame, :bg=>@C['bg'], :activebackground=>@C['bg']) {
    text 'Dismiss'
    command proc{
      tmppath = $goldberg_demo
      $goldberg_demo = nil
      tmppath.destroy
    }
  }.pack('side'=>'left')

  # TkButton.new(frame, :bg=>@C['bg'], :activebackground=>@C['bg']) {
  Tk::Button.new(frame, :bg=>@C['bg'], :activebackground=>@C['bg']) {
    text 'See Code'
    command proc{showCode 'goldberg'}
  }.pack('side'=>'left', 'padx'=>5)

  # @show = TkButton.new(frame, :text=>'>>', :command=>proc{show_ctrl},
  @show = Tk::Button.new(frame, :text=>'>>', :command=>proc{show_ctrl},
                       :bg=>@C['bg'], :activebackground=>@C['bg'])
  @show.pack('side'=>'left')
  frame.place(:in=>@canvas, :relx=>1, :rely=>0, :anchor=>:ne)

  Tk.update
end

# File ext/tk/sample/demos-en/goldberg.rb, line 417
def draw0
  color = @C['0']
  TkcText.new(@canvas, [579, 119], :text=>'START HERE!',
              :fill=>color, :anchor=>:w,
              :tag=>'I0', :font=>['Times Roman', 12, :italic, :bold])
  TkcLine.new(@canvas, [719, 119, 763, 119], :tag=>'I0', :fill=>color,
              :width=>5, :arrow=>:last, :arrowshape=>[18, 18, 5])
  @canvas.itembind('I0', '1'){ start }
end

# File ext/tk/sample/demos-en/goldberg.rb, line 445
def draw1
  color = @C['1a']
  color2 = @C['1b']
  TkcPolygon.new(@canvas,
                 [ 844, 133, 800, 133, 800, 346, 820, 346,
                   820, 168, 844, 168, 844, 133 ],
                 :width=>3, :fill=>color, :outline=>'')
  TkcPolygon.new(@canvas,
                 [ 771, 133, 685, 133, 685, 168, 751, 168,
                   751, 346, 771, 346, 771, 133 ],
                 :width=>3, :fill=>color, :outline=>'')
  TkcOval.new(@canvas, box(812, 122, 9),
              :tag=>'I1', :fill=>color2, :outline=>'')

  @canvas.itembind('I1', '1'){ start }
end

# File ext/tk/sample/demos-en/goldberg.rb, line 957
def draw10
  color  = @C['10a']
  color2 = @C['10b']
  xy = [191, 230, 233, 230, 233, 178, 191, 178]  # Sail
  TkcPolygon.new(@canvas, xy, :fill=>color, :width=>3, :outline=>@C['fg'],
                 :tag=>'I10')
  xy = box(209, 204, 31)  # Front
  TkcArc.new(@canvas, xy, :outline=>'', :fill=>color, :style=>:pie,
             :start=>120, :extent=>120, :tag=>'I10')
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>3, :style=>:arc,
             :start=>120, :extent=>120, :tag=>'I10')
  xy = box(249, 204, 31)  # Back
  TkcArc.new(@canvas, xy, :outline=>'', :fill=>@C['bg'], :width=>3,
             :style=>:pie, :start=>120, :extent=>120, :tag=>'I10')
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>3, :style=>:arc,
             :start=>120, :extent=>120, :tag=>'I10')

  xy = [200, 171, 200, 249]  # Mast
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3, :tag=>'I10')
  xy = [159, 234, 182, 234]  # Bow sprit
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3, :tag=>'I10')
  xy = [180, 234, 180, 251, 220, 251]  # Hull
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>6, :tag=>'I10')

  xy = [92, 255, 221, 255]  # Waves
  sine(xy, 2, 25, :fill=>color2, :width=>1, :tag=>'I10w')

  xy = @canvas.coords('I10w')[4..-5]  # Water
  xy.concat([222, 266, 222, 277, 99, 277])
  TkcPolygon.new(@canvas, xy, :fill=>color2, :outline=>color2)
  xy = [222, 266, 222, 277, 97, 277, 97, 266]  # Water bottom
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3)

  xy = box(239, 262, 17)
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>3, :style=>:arc,
             :start=>95, :extent=>103)
  xy = box(76, 266, 21)
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>3, :style=>:arc,
             :extent=>190)
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1018
def draw11
  color  = @C['11a']
  color2 = @C['11b']
  xy = [23, 264, 55, 591]  # Color the down tube
  TkcRectangle.new(@canvas, xy, :fill=>color, :outline=>'')
  xy = box(71, 460, 48)    # Color the outer loop
  TkcOval.new(@canvas, xy, :fill=>color, :outline=>'')

  xy = [55, 264, 55, 458]  # Top right side
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3)
  xy = [55, 504, 55, 591]  # Bottom right side
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3)
  xy = box(71, 460, 48)    # Outer loop
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>3, :style=>:arc,
             :start=>110, :extent=>-290, :tag=>'I11i')
  xy = box(71, 460, 16)    # Inner loop
  TkcOval.new(@canvas, xy, :outline=>@C['fg'], :fill=>'',
              :width=>3, :tag=>'I11i')
  TkcOval.new(@canvas, xy, :outline=>@C['fg'], :fill=>@C['bg'], :width=>3)

  xy = [23, 264, 23, 591]  # Left side
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3)
  xy = box(1, 266, 23)     # Top left curve
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>3,
             :style=>:arc, :extent=>90)

  xy = box(75, 235, 9)     # The ball
  TkcOval.new(@canvas, xy, :fill=>color2, :outline=>'',
              :width=>3, :tag=>'I11')
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1066
def draw12
  xy = [
    20, 637, 20, 617, 20, 610, 20, 590, 40, 590, 40, 590,
    60, 590, 60, 610, 60, 610
  ]
  xy.concat([60, 610, 65, 620, 60, 631])  # Thumb
  xy.concat([60, 631, 60, 637, 60, 662, 60, 669, 52, 669,
              56, 669, 50, 669, 50, 662, 50, 637])

  y0 = 637  # Bumps for fingers
  y1 = 645
  50.step(21, -10){|x|
    x1 = x - 5
    x2 = x - 10
    xy << x << y0 << x1 << y1 << x2 << y0
  }
  TkcPolygon.new(@canvas, xy, :fill=>@C['12'], :outline=>@C['fg'],
                 :smooth=>true, :tag=>'I12', :width=>3)
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1098
def draw13
  color = @C['13a']
  xy = [86, 663, 149, 663, 149, 704, 50, 704, 50, 681, 64, 681, 86, 671]
  xy2 = [
    784, 663, 721, 663, 721, 704, 820, 704, 820, 681, 806, 681, 784, 671
  ]
  radii = [2, 9, 9, 8, 5, 5, 2]

  round_poly(@canvas, xy, radii, :width=>3,
             :outline=>@C['fg'], :fill=>color)
  round_poly(@canvas, xy2, radii, :width=>3,
             :outline=>@C['fg'], :fill=>color)

  xy = [56, 677]
  x, y = xy
  TkcRectangle.new(@canvas, box(x, y, 4), :fill=>'', :outline=>@C['fg'],
                   :width=>3, :tag=>'I13')
  xy = [809, 677]
  x, y = xy
  TkcRectangle.new(@canvas, box(x, y, 4), :fill=>'', :outline=>@C['fg'],
                   :width=>3, :tag=>'I13R')

  xy = [112, 687]  # Label
  TkcText.new(@canvas, xy, :text=>'FAX', :fill=>@C['fg'],
              :font=>['Times Roman', 12, :bold])
  xy = [762, 687]
  TkcText.new(@canvas, xy, :text=>'FAX', :fill=>@C['fg'],
              :font=>['Times Roman', 12, :bold])

  xy = [138, 663, 148, 636, 178, 636]  # Paper guide
  TkcLine.new(@canvas, xy, :smooth=>true, :fill=>@C['fg'], :width=>3)
  xy = [732, 663, 722, 636, 692, 636]
  TkcLine.new(@canvas, xy, :smooth=>true, :fill=>@C['fg'], :width=>3)

  sine([149, 688, 720, 688], 5, 15,
       :tag=>'I13_s', :fill=>@C['fg'],  :width=>3)
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1159
def draw14
  color = @C['14']
  xy = [102, 661, 113, 632, 130, 618]  # Left paper edge
  TkcLine.new(@canvas, xy, :smooth=>true, :fill=>color,
              :width=>3, :tag=>'I14L_0')
  xy = [148, 629, 125, 640, 124, 662]  # Right paper edge
  TkcLine.new(@canvas, xy, :smooth=>true, :fill=>color,
              :width=>3, :tag=>'I14L_1')
  draw14a('L')

  xy = [
    768.0, 662.5, 767.991316225, 662.433786215, 767.926187912, 662.396880171
  ]
  TkcLine.new(@canvas, xy, :smooth=>true, :fill=>color,
              :width=>3, :tag=>'I14R_0')
  @canvas.lower('I14R_0')
  # NB. these numbers are VERY sensitive, you must start with final size
  # and shrink down to get the values
  xy = [
    745.947897349, 662.428358855, 745.997829056, 662.452239237, 746.0, 662.5
  ]
  TkcLine.new(@canvas, xy, :smooth=>true, :fill=>color,
              :width=>3, :tag=>'I14R_1')
  @canvas.lower('I14R_1')
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1185
def draw14a(side)
  color = @C['14']
  xy = @canvas.coords("I14#{side}_0")
  xy2 = @canvas.coords("I14#{side}_1")
  x0, y0, x1, y1, x2, y2 = xy
  x3, y3, x4, y4, x5, y5 = xy2

  zz = [
    x0, y0, x0, y0, xy, x2, y2, x2, y2,
    x3, y3, x3, y3, xy2, x5, y5, x5, y5
  ].flatten
  @canvas.delete("I14#{side}")
  TkcPolygon.new(@canvas, zz, :tag=>"I14#{side}", :smooth=>true,
                 :fill=>color, :outline=>color, :width=>3)
  @canvas.lower("I14#{side}")
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1232
def draw15
  color = @C['15a']
  xy = [824, 599, 824, 585, 820, 585, 829, 585]
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3, :tag=>'I15a')
  xy = [789, 599, 836, 643]
  TkcRectangle.new(@canvas, xy, :fill=>color, :outline=>@C['fg'], :width=>3)
  xy = [778, 610, 788, 632]
  TkcRectangle.new(@canvas, xy, :fill=>color, :outline=>@C['fg'], :width=>3)
  xy = [766, 617, 776, 625]
  TkcRectangle.new(@canvas, xy, :fill=>color, :outline=>@C['fg'], :width=>3)

  xy = [633, 600, 681, 640]
  TkcRectangle.new(@canvas, xy, :fill=>color, :outline=>@C['fg'], :width=>3)
  xy = [635, 567, 657, 599]
  TkcRectangle.new(@canvas, xy, :fill=>color, :outline=>@C['fg'], :width=>2)
  xy = [765, 557, 784, 583]
  TkcRectangle.new(@canvas, xy, :fill=>color, :outline=>@C['fg'], :width=>2)

  sine([658, 580, 765, 580], 3, 15,
       :tag=>'I15_s', :fill=>@C['fg'], :width=>3)
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1284
def draw16
  color = @C['16']
  xy = [722, 485, 791, 556]
  TkcRectangle.new(@canvas, xy, :fill=>'', :outline=>@C['fg'], :width=>3)
  xy = box(752, 515, 25)  # Bell
  TkcOval.new(@canvas, xy, :fill=>color, :outline=>'black',
              :tag=>'I16b', :width=>2)
  xy = box(752, 515, 5)   # Bell button
  TkcOval.new(@canvas, xy, :fill=>'black', :outline=>'black', :tag=>'I16b')

  xy = [784, 523, 764, 549]  # Clapper
  TkcLine.new(@canvas, xy, :width=>3, :tag=>'I16c', :fill=>@C['fg'])
  xy = box(784, 523, 4)
  TkcOval.new(@canvas, xy, :fill=>@C['fg'], :outline=>@C['fg'], :tag=>'I16d')
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1319
def draw17
  color = @C['17']

  xy = [584, 556, 722, 556]
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3)
  xy = [584, 485, 722, 485]
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3)

  xy = [664, 523, 717, 549]  # Body
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :fill=>color, :width=>3,
             :style=>:chord, :start=>128, :extent=>260, :tag=>'I17')

  xy = [709, 554, 690, 543]  # Paw
  TkcOval.new(@canvas, xy, :outline=>@C['fg'], :fill=>color,
              :width=>3, :tag=>'I17')
  xy = [657, 544, 676, 555]
  TkcOval.new(@canvas, xy, :outline=>@C['fg'], :fill=>color,
              :width=>3, :tag=>'I17')

  xy = box(660, 535, 15)     # Lower face
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>3, :style=>:arc,
             :start=>150, :extent=>240, :tag=>'I17_')
  TkcArc.new(@canvas, xy, :outline=>'', :fill=>color, :width=>1,
             :style=>:chord, :start=>150, :extent=>240, :tag=>'I17_')
  xy = [674, 529, 670, 513, 662, 521, 658, 521, 650, 513, 647, 529]  # Ears
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3, :tag=>'I17_')
  TkcPolygon.new(@canvas, xy, :fill=>color, :outline=>'', :width=>1,
                 :tag=>['I17_', 'I17_c'])
  xy = [652, 542, 628, 539]  # Whiskers
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3, :tag=>'I17_')
  xy = [652, 543, 632, 545]
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3, :tag=>'I17_')
  xy = [652, 546, 632, 552]
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3, :tag=>'I17_')

  xy = [668, 543, 687, 538]
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3,
              :tag=>['I17_', 'I17_w'])
  xy = [668, 544, 688, 546]
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3,
              :tag=>['I17_', 'I17_w'])
  xy = [668, 547, 688, 553]
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3,
              :tag=>['I17_', 'I17_w'])

  xy = [649, 530, 654, 538, 659, 530]  # Left eye
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>2,
              :smooth=>true, :tag=>'I17')
  xy = [671, 530, 666, 538, 661, 530]  # Right eye
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>2,
              :smooth=>true, :tag=>'I17')
  xy = [655, 543, 660, 551, 665, 543]  # Mouth
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>2,
              :smooth=>true, :tag=>'I17')
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1420
def draw18
  color = @C['18']
  xy = [721, 506, 627, 506]  # Sling hold
  TkcLine.new(@canvas, xy, :width=>4, :fill=>@C['fg'], :tag=>'I18')

  xy = [607, 500, 628, 513]  # Sling rock
  TkcOval.new(@canvas, xy, :fill=>color, :outline=>'', :tag=>'I18a')

  xy = [526, 513, 606, 507, 494, 502]  # Sling band
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>4, :tag=>'I18b')
  xy = [485, 490, 510, 540, 510, 575, 510, 540, 535, 491]  # Sling
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>6)
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1472
def draw19
  color = @C['19']
  xx = [[249, 181], [155, 118], [86, 55], [22, 0]]
  xx.each{|x1, x2|
    TkcRectangle.new(@canvas, x1, 453, x2, 467,
                     :fill=>color, :outline=>'', :tag=>'I19')
    TkcLine.new(@canvas, x1, 453, x2, 453,
                :fill=>@C['fg'], :width=>1) # Pipe top
    TkcLine.new(@canvas, x1, 467, x2, 467,
                :fill=>@C['fg'], :width=>1) # Pipe bottom
  }
  @canvas.raise('I11i')

  xy = box(168, 460, 16)  # Bulge by the joint
  TkcOval.new(@canvas, xy, :fill=>color, :outline=>'')
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>1, :style=>:arc,
             :start=>21, :extent=>136)
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>1, :style=>:arc,
             :start=>-21, :extent=>-130)

  xy = [249, 447, 255, 473]  # First joint 26x6
  TkcRectangle.new(@canvas, xy, :fill=>color, :outline=>@C['fg'], :width=>1)

  xy = box(257, 433, 34)     # Bend up
  TkcArc.new(@canvas, xy, :outline=>'', :fill=>color, :width=>1,
             :style=>:pie, :start=>0, :extent=>-91)
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>1,
             :style=>:arc, :start=>0, :extent=>-90)
  xy = box(257, 433, 20)
  TkcArc.new(@canvas, xy, :outline=>'', :fill=>@C['bg'], :width=>1,
             :style=>:pie, :start=>0, :extent=>-92)
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>1,
             :style=>:arc, :start=>0, :extent=>-90)
  xy = box(257, 421, 34)     # Bend left
  TkcArc.new(@canvas, xy, :outline=>'', :fill=>color, :width=>1,
             :style=>:pie, :start=>0, :extent=>91)
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>1,
             :style=>:arc, :start=>0, :extent=>90)
  xy = box(257, 421, 20)
  TkcArc.new(@canvas, xy, :outline=>'', :fill=>@C['bg'], :width=>1,
             :style=>:pie, :start=>0, :extent=>90)
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>1,
             :style=>:arc, :start=>0, :extent=>90)
  xy = box(243, 421, 34)     # Bend down
  TkcArc.new(@canvas, xy, :outline=>'', :fill=>color, :width=>1,
             :style=>:pie, :start=>90, :extent=>90)
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>1,
             :style=>:arc, :start=>90, :extent=>90)
  xy = box(243, 421, 20)
  TkcArc.new(@canvas, xy, :outline=>'', :fill=>@C['bg'], :width=>1,
             :style=>:pie, :start=>90, :extent=>90)
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>1,
             :style=>:arc, :start=>90, :extent=>90)

  xy = [270, 427, 296, 433]  # 2nd joint bottom
  TkcRectangle.new(@canvas, xy, :fill=>color, :outline=>@C['fg'], :width=>1)
  xy = [270, 421, 296, 427]  # 2nd joint top
  TkcRectangle.new(@canvas, xy, :fill=>color, :outline=>@C['fg'], :width=>1)
  xy = [249, 382, 255, 408]  # Third joint right
  TkcRectangle.new(@canvas, xy, :fill=>color, :outline=>@C['fg'], :width=>1)
  xy = [243, 382, 249, 408]  # Third joint left
  TkcRectangle.new(@canvas, xy, :fill=>color, :outline=>@C['fg'], :width=>1)
  xy = [203, 420, 229, 426]  # Last joint
  TkcRectangle.new(@canvas, xy, :fill=>color, :outline=>@C['fg'], :width=>1)

  xy = box(168, 460, 6)      # Handle joint
  TkcOval.new(@canvas, xy, :fill=>@C['fg'], :outline=>'', :tag=>'I19a')
  xy = [168, 460, 168, 512]  # Handle bar
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>5, :tag=>'I19b')
end

# File ext/tk/sample/demos-en/goldberg.rb, line 479
def draw2
  color = @C['2']

  # Fulcrum
  TkcPolygon.new(@canvas, [750, 369, 740, 392, 760, 392],
                 :fill=>@C['fg'], :outline=>@C['fg'])

  # Strike box
  TkcRectangle.new(@canvas, [628, 335, 660, 383],
                   :fill=>'', :outline=>@C['fg'])
  (0..2).each{|y|
    yy = 335 + y*16
    TkcBitmap.new(@canvas, [628, yy], :bitmap=>'gray25',
                  :anchor=>:nw, :foreground=>@C['fg'])
    TkcBitmap.new(@canvas, [644, yy], :bitmap=>'gray25',
                  :anchor=>:nw, :foreground=>@C['fg'])
  }

  # Lever
  TkcLine.new(@canvas, [702, 366, 798, 366],
              :fill=>@C['fg'], :width=>6, :tag=>'I2_0')

  # R strap
  TkcLine.new(@canvas, [712, 363, 712, 355],
              :fill=>@C['fg'], :width=>3, :tag=>'I2_1')

  # L strap
  TkcLine.new(@canvas, [705, 363, 705, 355],
              :fill=>@C['fg'], :width=>3, :tag=>'I2_2')

  # Match stick
  TkcLine.new(@canvas, [679, 356, 679, 360, 717, 360, 717, 356, 679, 356],
              :fill=>@C['fg'], :width=>3, :tag=>'I2_3')

  # Match head
  TkcPolygon.new(@canvas,
                 [ 671, 352, 677.4, 353.9, 680, 358.5, 677.4, 363.1,
                   671, 365, 664.6, 363.1, 662, 358.5, 664.6, 353.9 ],
                 :fill=>color, :outline=>color, :tag=>'I2_4')
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1555
def draw20
  # do nothing
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1593
def draw21
  color = @C['21']
  xy = [217, 451, 244, 490]  # Right handle
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>2, :tag=>'I21_a')
  xy = [201, 467, 182, 490]  # Left handle
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>2, :tag=>'I21_a')

  xy = [245, 490, 237, 535]  # Right side
  xy2 = [189, 535, 181, 490] # Left side
  TkcPolygon.new(@canvas, xy + xy2, :fill=>color, :outline=>'',
                 :tag=>['I21', 'I21f'])
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>2, :tag=>'I21')
  TkcLine.new(@canvas, xy2, :fill=>@C['fg'], :width=>2, :tag=>'I21')

  xy = [182, 486, 244, 498]  # Top
  TkcOval.new(@canvas, xy, :fill=>color, :outline=>'', :width=>2,
              :tag=>['I21', 'I21f'])
  TkcOval.new(@canvas, xy, :fill=>'', :outline=>@C['fg'], :width=>2,
              :tag=>['I21', 'I21t'])
  xy = [189, 532, 237, 540]  # Bottom
  TkcOval.new(@canvas, xy, :fill=>color, :outline=>@C['fg'], :width=>2,
              :tag=>['I21', 'I21b'])
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1646
def draw22
  # do nothing
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1666
def draw23
  color  = @C['23a']
  color2 = @C['23b']
  color3 = @C['23c']

  xy = [185, 623, 253, 650]  # Block
  TkcRectangle.new(@canvas, xy, :fill=>'black', :outline=>@C['fg'],
                   :width=>2, :tag=>'I23a')
  xy = [187, 592, 241, 623]  # Balloon
  TkcOval.new(@canvas, xy, :outline=>'', :fill=>color, :tag=>'I23b')
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>3, :tag=>'I23b',
             :style=>:arc, :start=>12, :extent=>336)
  xy = [239, 604, 258, 589, 258, 625, 239, 610]  # Balloon nozzle
  TkcPolygon.new(@canvas, xy, :outline=>'', :fill=>color, :tag=>'I23b')
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3, :tag=>'I23b')

  xy = [285, 611, 250, 603]  # Dart body
  TkcOval.new(@canvas, xy, :fill=>color2, :outline=>@C['fg'],
              :width=>3, :tag=>'I23d')
  xy = [249, 596, 249, 618, 264, 607, 249, 596]  # Dart tail
  TkcPolygon.new(@canvas, xy, :fill=>color3, :outline=>@C['fg'],
                 :width=>3, :tag=>'I23d')
  xy = [249, 607, 268, 607]  # Dart detail
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3, :tag=>'I23d')
  xy = [285, 607, 305, 607]  # Dart needle
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3, :tag=>'I23d')
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1715
def draw24
  color = @C['24a']
  xy = [366, 518, 462, 665]  # Balloon
  TkcOval.new(@canvas, xy, :fill=>color, :outline=>@C['fg'],
              :width=>3, :tag=>'I24')
  xy = [414, 666, 414, 729]  # String
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3, :tag=>'I24')
  xy = [410, 666, 404, 673, 422, 673, 418, 666]  # Nozzle
  TkcPolygon.new(@canvas, xy, :fill=>color, :outline=>@C['fg'],
                 :width=>3, :tag=>'I24')

  xy = [387, 567, 390, 549, 404, 542]  # Reflections
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :smooth=>true,
              :width=>2, :tag=>'I24')
  xy = [395, 568, 399, 554, 413, 547]
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :smooth=>true,
              :width=>2, :tag=>'I24')
  xy = [403, 570, 396, 555, 381, 553]
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :smooth=>true,
              :width=>2, :tag=>'I24')
  xy = [408, 564, 402, 547, 386, 545]
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :smooth=>true,
              :width=>2, :tag=>'I24')
end

# File ext/tk/sample/demos-en/goldberg.rb, line 564
def draw3
  color = @C['3a']
  color2 = @C['3b']

  xy = [ [602, 296], [577, 174], [518, 174] ]
  xy.each{|x, y| # 3 Pulleys
    TkcOval.new(@canvas, box(x, y, 13),
                :fill=>color, :outline=>@C['fg'], :width=>3)
    TkcOval.new(@canvas, box(x, y, 2), :fill=>@C['fg'], :outline=>@C['fg'])
  }

  # Wall to flame
  TkcLine.new(@canvas, [750, 309, 670, 309], :tag=>'I3_s',
              :width=>3, :fill=>@C['fg'], :smooth=>true)

  # Flame to pulley 1
  TkcLine.new(@canvas, [670, 309, 650, 309], :tag=>'I3_0',
              :width=>3, :fill=>@C['fg'], :smooth=>true)
  TkcLine.new(@canvas, [650, 309, 600, 309], :tag=>'I3_1',
              :width=>3, :fill=>@C['fg'], :smooth=>true)

  # Pulley 1 half way to 2
  TkcLine.new(@canvas, [589, 296, 589, 235], :tag=>'I3_2',
              :width=>3, :fill=>@C['fg'])

  # Pulley 1 other half to 2
  TkcLine.new(@canvas, [589, 235, 589, 174], :width=>3, :fill=>@C['fg'])

  # Across the top
  TkcLine.new(@canvas, [577, 161, 518, 161], :width=>3, :fill=>@C['fg'])

  # Down to weight
  TkcLine.new(@canvas, [505, 174, 505, 205], :tag=>'I3_w',
              :width=>3, :fill=>@C['fg'])

  # Draw the weight as 2 circles, two rectangles and 1 rounded rectangle
  x1, y1, x2, y2 = [515, 207, 495, 207]
  TkcOval.new(@canvas, box(x1, y1, 6),
              :tag=>'I3_', :fill=>color2, :outline=>color2)
  TkcOval.new(@canvas, box(x2, y2, 6),
              :tag=>'I3_', :fill=>color2, :outline=>color2)
  TkcRectangle.new(@canvas, x1, y1 - 6, x2, y2 + 6,
                   :tag=>'I3_', :fill=>color2, :outline=>color2)

  TkcPolygon.new(@canvas, round_rect([492, 220, 518, 263], 15),
                 :smooth=>true, :tag=>'I3_', :fill=>color2, :outline=>color2)

  TkcLine.new(@canvas, [500, 217, 511, 217],
              :tag=>'I3_', :fill=>color2, :width=>10)

  # Bottom weight target
  TkcLine.new(@canvas, [502, 393, 522, 393, 522, 465],
              :tag=>'I3__', :fill=>@C['fg'], :joinstyle=>:miter, :width=>10)
end

# File ext/tk/sample/demos-en/goldberg.rb, line 643
def draw4
  color = @C['4']
  x0, y0, x1, y1 = [527, 356, 611, 464]

  # Horizontal bars
  y0.step(y1, 12){|y|
    TkcLine.new(@canvas, [x0, y, x1, y], :fill=>color, :width=>1)
  }

  # Vertical bars
  x0.step(x1, 12){|x|
    TkcLine.new(@canvas, [x, y0, x, y1], :fill=>color, :width=>1)
  }

  # Swing gate
  TkcLine.new(@canvas, [518, 464, 518, 428],
              :tag=>'I4', :fill=>color, :width=>1)
end

# File ext/tk/sample/demos-en/goldberg.rb, line 675
def draw5
  color  = @C['5a']
  color2 = @C['5b']

  xy = [377, 248, 410, 248, 410, 465, 518, 465]  # Mouse course
  xy.concat [518, 428, 451, 428, 451, 212, 377, 212]

  TkcPolygon.new(@canvas, xy, :fill=>color2, :outline=>@C['fg'], :width=>3)

  xy = [
    534.5, 445.5, 541, 440, 552, 436, 560, 436, 569, 440, 574, 446,
    575, 452, 574, 454, 566, 456, 554, 456, 545, 456, 537, 454, 530, 452
  ]
  TkcPolygon.new(@canvas, xy, :tag=>['I5', 'I5_0'], :fill=>color)

  TkcLine.new(@canvas, [573, 452, 592, 458, 601, 460, 613, 456], # Tail
              :tag=>['I5', 'I5_1'], :fill=>color, :smooth=>true, :width=>3)

  xy = box(540, 446, 2)   # Eye
  xy = [540, 444, 541, 445, 541, 447, 540, 448, 538, 447, 538, 445]
  TkcPolygon.new(@canvas, xy, :tag=>['I5', 'I5_2'], :fill=>@C['bg'],
                 :outline=>'', :smooth=>true)

  xy = [538, 454, 535, 461] # Front leg
  TkcLine.new(@canvas, xy, :tag=>['I5', 'I5_3'], :fill=>color, :width=>2)

  xy = [566, 455, 569, 462] # Back leg
  TkcLine.new(@canvas, xy, :tag=>['I5', 'I5_4'], :fill=>color, :width=>2)

  xy = [544, 455, 545, 460] # 2nd front leg
  TkcLine.new(@canvas, xy, :tag=>['I5', 'I5_5'], :fill=>color, :width=>2)

  xy = [560, 455, 558, 460] # 2nd back leg
  TkcLine.new(@canvas, xy, :tag=>['I5', 'I5_6'], :fill=>color, :width=>2)
end

# File ext/tk/sample/demos-en/goldberg.rb, line 734
def draw6
  color = @C['6']
  xy = [324, 130, 391, 204] # Ball holder
  xy = round_rect(xy, 10)
  TkcPolygon.new(@canvas, xy, :smooth=>true,
                 :outline=>@C['fg'], :width=>3, :fill=>color)
  xy = [339, 204, 376, 253] # Below the ball holder
  TkcRectangle.new(@canvas, xy, :outline=>@C['fg'], :width=>3,
                   :fill=>color, :tag=>'I6c')
  xy = box(346, 339, 28)
  TkcOval.new(@canvas, xy, :fill=>color, :outline=>'') # Roter
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>2, :style=>:arc,
             :start=>80, :extent=>205)
  TkcArc.new(@canvas, xy, :outline=>@C['fg'], :width=>2, :style=>:arc,
             :start=>-41, :extent=>85)

  xy = box(346, 339, 15) # Center of rotor
  TkcOval.new(@canvas, xy, :outline=>@C['fg'], :fill=>@C['fg'], :tag=>'I6m')
  xy = [352, 312, 352, 254, 368, 254, 368, 322] # Top drop to rotor
  TkcPolygon.new(@canvas, xy, :fill=>color, :outline=>'')
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>2)

  xy = [353, 240, 367, 300] # Poke bottom hole
  TkcRectangle.new(@canvas, xy, :fill=>color, :outline=>'')
  xy = [341, 190, 375, 210] # Poke another hole
  TkcRectangle.new(@canvas, xy, :fill=>color, :outline=>'')

  xy = [
    368, 356, 368, 403, 389, 403, 389, 464, 320, 464, 320, 403,
    352, 403, 352, 366
  ]
  TkcPolygon.new(@canvas, xy, :fill=>color, :outline=>'',
                 :width=>2) # Below rotor
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>2)
  xy = box(275, 342, 7) # On/off rotor
  TkcOval.new(@canvas, xy, :outline=>@C['fg'], :fill=>@C['fg'])
  xy = [276, 334, 342, 325] # Fan belt top
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3)
  xy = [276, 349, 342, 353] # Fan belt bottom
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3)

  xy = [337, 212, 337, 247] # What the mouse pushes
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3, :tag=>'I6_')
  xy = [392, 212, 392, 247]
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3, :tag=>'I6_')
  xy = [337, 230, 392, 230]
  TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>7, :tag=>'I6_')

  who = -1 # All the balls
  colors = %w(red cyan orange green blue darkblue)
  colors *= 3

  (0..16).each{|i|
    loc = -i
    color = colors[i]
    x, y = @XY6["#{loc}"]
    TkcOval.new(@canvas, box(x, y, 5),
                :fill=>color, :outline=>color, :tag=>"I6_b#{i}")
  }
  draw6a(12) # The wheel
end

# File ext/tk/sample/demos-en/goldberg.rb, line 796
def draw6a(beta)
  @canvas.delete('I6_0')
  ox, oy = [346, 339]
  (0..3).each{|i|
    b = beta + i * 45
    x, y = rotate_c(28, 0, 0, 0, b)
    xy = [ox + x, oy + y, ox - x, oy - y]
    TkcLine.new(@canvas, xy, :tag=>'I6_0', :fill=>@C['fg'], :width=>2)
  }
end

# File ext/tk/sample/demos-en/goldberg.rb, line 853
def draw7
  color = @C['7']
  xy = [198, 306, 277, 374]  # Box
  TkcRectangle.new(@canvas, xy, :outline=>@C['fg'], :width=>2,
                   :fill=>color, :tag=>'I7z')
  @canvas.lower('I7z')
  xy = [275, 343, 230, 349]
  TkcLine.new(@canvas, xy, :tag=>'I7', :fill=>@C['fg'], :arrow=>:last,
              :arrowshape=>[23, 23, 8], :width=>6)
  xy = [225, 324]  # On button
  x, y = xy
  TkcOval.new(@canvas, box(x, y, 3), :fill=>@C['fg'], :outline=>@C['fg'])
  xy = [218, 323]  # On text
  font = ['Times Roman', 8]
  TkcText.new(@canvas, xy, :text=>'on', :anchor=>:e,
              :fill=>@C['fg'], :font=>font)
  xy = [225, 350]  # Off button
  x, y = xy
  TkcOval.new(@canvas, box(x, y, 3), :fill=>@C['fg'], :outline=>@C['fg'])
  xy = [218, 349]  # Off text
  TkcText.new(@canvas, xy, :text=>'off', :anchor=>:e,
              :fill=>@C['fg'], :font=>font)
end

# File ext/tk/sample/demos-en/goldberg.rb, line 889
def draw8
  sine([271, 248, 271, 306], 5, 8, :tag=>'I8_s', :fill=>@C['8'], :width=>3)
end

# File ext/tk/sample/demos-en/goldberg.rb, line 911
def draw9
  color = @C['9']
  xy = [266, 194, 310, 220]
  TkcOval.new(@canvas, xy, :outline=>color, :fill=>color)
  xy = [280, 209, 296, 248]
  TkcOval.new(@canvas, xy, :outline=>color, :fill=>color)
  xy = [
    288, 249, 252, 249, 260, 240, 280, 234,
    296, 234, 316, 240, 324, 249, 288, 249
  ]
  TkcPolygon.new(@canvas, xy, :fill=>color, :smooth=>true)

  xy = [248, 205, 265, 214, 264, 205, 265, 196]  # Spinner
  TkcPolygon.new(@canvas, xy, :fill=>color)

  xy = [255, 206, 265, 234]  # Fan blades
  TkcOval.new(@canvas, xy, :fill=>'', :outline=>@C['fg'],
              :width=>3, :tag=>'I9_0')
  xy = [255, 176, 265, 204]
  TkcOval.new(@canvas, xy, :fill=>'', :outline=>@C['fg'],
              :width=>3, :tag=>'I9_0')
  xy = [255, 206, 265, 220]
  TkcOval.new(@canvas, xy, :fill=>'', :outline=>@C['fg'],
              :width=>1, :tag=>'I9_1')
  xy = [255, 190, 265, 204]
  TkcOval.new(@canvas, xy, :fill=>'', :outline=>@C['fg'],
              :width=>1, :tag=>'I9_1')
end

# File ext/tk/sample/demos-en/goldberg.rb, line 303
def draw_all
  reset_step
  @canvas.delete(:all)
  idx = 0
  loop{
    m = "draw#{idx}"
    break unless respond_to?(m)
    send(m)
    idx += 1
  }
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1853
def get_step(who, step)
  if step
    @STEP[who] = step
  else
    if !@STEP.exist?(who) || @STEP[who] == ""
      @STEP[who] = 0
    else
      @STEP[who] += 1
    end
  end
  @STEP[who]
end

# File ext/tk/sample/demos-en/goldberg.rb, line 358
def go(who = nil)
  now = Tk::Clock.clicks(:miliseconds)
  if who  # Start here for debugging
    @S['active'] = [who]
    @S['mode'].value = :MGO
  end
  return if @S['mode'].to_sym == :MDEBUG  # Debugging
  # If not paused, do the next move
  n = next_step if @S['mode'].to_sym != :MPAUSE
  @S['mode'].value = :MPAUSE if @S['mode'].to_sym == :MSSTEP  # Single step
  @S['mode'].value = :MSSTEP if @S['mode'].to_sym == :MBSTEP && n  # big step
  elapsed = Tk::Clock.clicks(:miliseconds) - now
  delay = @speed[@S['speed'].to_i] - elapsed
  delay = 1 if delay <= 0
  return delay
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1578
def h20(y, f)
  color = @C['20']
  @canvas.delete('I20')

  sine([208, 428, 208, y], 4, f, :tag=>['I20', 'I20s'],
       :width=>3, :fill=>color, :smooth=>true)
  TkcLine.new(@canvas, @canvas.coords('I20s'), :width=>3,
              :fill=>color, :smooth=>1, :tag=>['I20', 'I20a'])
  TkcLine.new(@canvas, @canvas.coords('I20s'), :width=>3,
              :fill=>color, :smooth=>1, :tag=>['I20', 'I20b'])
  @canvas.move('I20a', 8, 0)
  @canvas.move('I20b', 16, 0)
end

# File ext/tk/sample/demos-en/goldberg.rb, line 427
def move0(step = nil)
  step = get_step(0, step)

  if @S['mode'].to_sym != :MSTART    # Start the ball rolling
    move_abs('I0', [-100, -100])     # Hide the banner
    return 2
  end

  pos = [
    [673, 119], [678, 119], [683, 119], [688, 119],
    [693, 119], [688, 119], [683, 119], [678, 119]
  ]
  step = step % pos.length
  move_abs('I0', pos[step])
  return 1
end

# File ext/tk/sample/demos-en/goldberg.rb, line 462
def move1(step = nil)
  step = get_step(1, step)
  pos = [
    [807, 122], [802, 122], [797, 123], [793, 124], [789, 129], [785, 153],
    [785, 203], [785, 278, :x], [785, 367], [810, 392], [816, 438],
    [821, 503], [824, 585, :y], [838, 587], [848, 593], [857, 601],
    [-100, -100]
  ]
  return 0 if step >= pos.length
  where = pos[step]
  move_abs('I1', where)
  move15a if where[2] == :y
  return 3 if where[2] == :x
  return 1
end

# File ext/tk/sample/demos-en/goldberg.rb, line 998
def move10(step = nil)
  step = get_step(10, step)

  pos = [
    [195, 212], [193, 212], [190, 212], [186, 212], [181, 212], [176, 212],
    [171, 212], [166, 212], [161, 212], [156, 212], [151, 212], [147, 212],
    [142, 212], [137, 212], [132, 212, :x], [127, 212], [121, 212],
    [116, 212], [111, 212]
  ]

  return 0 if step >= pos.length

  where = pos[step]
  move_abs('I10', where)

  return 3 if where[2] == :x
  return 1
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1049
def move11(step = nil)
  step = get_step(11, step)

  pos = [
    [75, 235], [70, 235], [65, 237], [56, 240], [46, 247], [38, 266],
    [38, 296], [38, 333], [38, 399], [38, 475], [74, 496], [105, 472],
    [100, 437], [65, 423], [-100, -100], [38, 505], [38, 527, :x], [38, 591]
  ]

  return 0 if step >= pos.length
  where = pos[step]
  move_abs('I11', where)
  return 3 if where[2] == :x
  return 1
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1086
def move12(step = nil)
  step = get_step(12, step)

  pos = [[42.5, 641, :x]]
  return 0 if step >= pos.length
  where = pos[step]
  move_abs('I12', where)
  return 3 if where[2] == :x
  return 1
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1136
def move13(step = nil)
  step = get_step(13, step)

  numsteps = 7

  if step == numsteps + 2
    move_abs('I13_star', [-100, -100])
    @canvas.itemconfigure('I13R', :fill=>@C['13b'], :width=>2)
    return 2
  end
  if step == 0  # Button down
    @canvas.delete('I13')
    sparkle([-100, -100], 'I13_star')  # Create off screen
    return 1
  end
  x0, y0 = anchor('I13_s', :w)
  x1, y1 = anchor('I13_s', :e)
  x = x0 + (x1 - x0) * (step - 1) / numsteps.to_f
  move_abs('I13_star', [x, y0])
  return 1
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1202
def move14(step = nil)
  step = get_step(14, step)

  # Paper going down
  sc = 0.9 - 0.05*step
  if sc < 0.3
    @canvas.delete('I14L')
    return 0
  end

  ox, oy = @canvas.coords('I14L_0')
  @canvas.scale('I14L_0', ox, oy, sc, sc)
  ox, oy = @canvas.coords('I14L_1')[-2..-1]
  @canvas.scale('I14L_1', ox, oy, sc, sc)
  draw14a('L')

  # Paper going up
  sc = 0.35 + 0.05*step
  sc = 1/sc

  ox, oy = @canvas.coords('I14R_0')
  @canvas.scale('I14R_0', ox, oy, sc, sc)
  ox, oy = @canvas.coords('I14R_1')[-2..-1]
  @canvas.scale('I14R_1', ox, oy, sc, sc)
  draw14a('R')

  return((step == 10)? 3: 1)
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1261
def move15(step = nil)
  step = get_step(15, step)

  numsteps = 6

  if step == numsteps + 2
    move_abs('I15_star', [-100, -100])
    return 2
  end
  if step == 0  # Break the light beam
    sparkle([-100, -100], 'I15_star')
    xy = [765, 621, 745, 621]
    @canvas.coords('I15', xy)
    return 1
  end
  x0, y0 = anchor('I15_s', :w)
  x1, y1 = anchor('I15_s', :e)
  x = x0 + (x1 - x0) * (step - 1) / numsteps.to_f
  move_abs('I15_star', [x, y0])
  return 1
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1254
def move15a
  color = @C['15b']
  @canvas.scale('I15a', 824, 599, 1, 0.3)  # Button down
  xy = [765, 621, 681, 621]
  TkcLine.new(@canvas, xy, :dash=>'-', :width=>3, :fill=>color, :tag=>'I15')
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1300
def move16(step = nil)
  step = get_step(16, step)

  # Note: we never stop
  ox, oy = [760, 553]
  if (step & 1).nonzero?
    beta = 12
    @canvas.move('I16b', 3, 0)
  else
    beta = -12
    @canvas.move('I16b', -3, 0)
  end
  rotate_item('I16c', ox, oy, beta)
  rotate_item('I16d', ox, oy, beta)

  return ((step == 1)? 3: 1)
end

# File ext/tk/sample/demos-en/goldberg.rb, line 1375
def move17(step = nil)
  step = get_step(17, step)

  if step == 0
    @canvas.delete('I17')  # Delete most of the cat
    xy = [655, 543, 660, 535, 665, 543]  # Mouth
    TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3,
                :smooth=>true, :tag=>'I17_')
    xy = box(654, 530, 4)  # Left eye
    TkcOval.new(@canvas, xy, :outline=>@C['fg'], :width=>3, :fill=>'',
                :tag=>'I17_')
    xy = box(666, 530, 4)  # Right eye
    TkcOval.new(@canvas, xy, :outline=>@C['fg'], :width=>3, :fill=>'',
                :tag=>'I17_')

    @canvas.move('I17_', 0, -20) # Move face up
    xy = [652, 528, 652, 554]    # Front leg
    TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3, :tag=>'I17_')
    xy = [670, 528, 670, 554]    # 2nd front leg
    TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3, :tag=>'I17_')

    xy = [ # Body
      675, 506, 694, 489, 715, 513, 715, 513, 715, 513, 716, 525,
      716, 525, 716, 525, 706, 530, 695, 530, 679, 535, 668, 527,
      668, 527, 668, 527, 675, 522, 676, 517, 677, 512
    ]
    TkcPolygon.new(@canvas, xy, :fill=>@canvas.itemcget('I17_c', :fill),
                   :outline=>@C['fg'], :width=>3, :smooth=>true,
                   :tag=>'I17_')
    xy = [716, 514, 716, 554]  # Back leg
    TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3, :tag=>'I17_')
    xy = [694, 532, 694, 554]  # 2nd back leg
    TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3, :tag=>'I17_')
    xy = [715, 514, 718, 506, 719, 495, 716, 488]  # Tail
    TkcLine.new(@canvas, xy, :fill=>@C['fg'], :width=>3,
                :smooth=>true, :tag=>'I17_')

    @canvas.raise('I17w')       # Make whiskers visible
    @canvas.move('I17_', -5, 0) # Move away from the wall a bit
    return 2
  end
  return 0
end