Class Tk::Tcllib::Plotchart::Plot3D < Tk::Canvas

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 675
def initialize(*args) # args := ([parent,] xaxis, yaxis, zaxis [, keys])
                      # xaxis := Array of [minimum, maximum, stepsize]
                      # yaxis := Array of [minimum, maximum, stepsize]
                      # zaxis := Array of [minimum, maximum, stepsize]
  if args[0].kind_of?(Array)
    @xaxis = args.shift
    @yaxis = args.shift
    @zaxis = args.shift

    super(*args) # create canvas widget
  else
    parent = args.shift

    @xaxis = args.shift
    @yaxis = args.shift
    @zaxis = args.shift

    if parent.kind_of?(Tk::Canvas)
      @path = parent.path
    else
      super(parent, *args) # create canvas widget
    end
  end

  @chart = _create_chart
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 756
def colour(fill, border)
  # configure the colours to use for polygon borders and inner area
  tk_call_without_enc(@chart, 'colour', fill, border)
  self
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 724
def grid_size(nxcells, nycells)
  tk_call_without_enc(@chart, 'gridsize', nxcells, nycells)
  self
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 738
def plot_data(dat)
  # dat has to be provided as a 2 level array.
  # 1st level contains rows, drawn in y-direction,
  # and each row is an array whose elements are drawn in x-direction,
  # for the columns.
  tk_call_without_enc(@chart, 'plotdata', dat)
  self
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 717
def plot_funcont(conts, cmd=Proc.new)
  conts = array2tk_list(conts) if conts.kind_of?(Array)
  Tk.ip_eval("proc #{@path}_#{@chart} {x y} {#{install_cmd(cmd)} $x $y}")
  tk_call_without_enc(@chart, 'plotfuncont', "#{@path}_#{@chart}", conts)
  self
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 711
def plot_function(cmd=Proc.new)
  Tk.ip_eval("proc #{@path}_#{@chart} {x y} {#{install_cmd(cmd)} $x $y}")
  tk_call_without_enc(@chart, 'plotfunc', "#{@path}_#{@chart}")
  self
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 729
def plot_line(dat, color)
  # dat has to be provided as a 2 level array.
  # 1st level contains rows, drawn in y-direction,
  # and each row is an array whose elements are drawn in x-direction,
  # for the columns.
  tk_call_without_enc(@chart, 'plotline', dat, color)
  self
end

# File ext/tk/lib/tkextlib/tcllib/plotchart.rb, line 747
def zconfig(key, value=None)
  if key.kind_of?(Hash)
    tk_call_without_enc(@chart, 'zconfig', *hash_kv(key, true))
  else
    tk_call(@chart, 'zconfig', "-#{key}", value)
  end
  self
end