@plotdb/chart 1.0.1 → 1.0.2

package/src/index.ls

@@ -1,323 +0,0 @@
-svgns = "http://www.w3.org/2000/svg"
-
-parent = (n, s, e) ->
-  m = n
-  while n and n != e => n = n.parentNode # must under e
-  if n != e => return null
-  # if no selector - we are testing if s is under e.
-  if !s => return n
-  # must match s selector
-  n = m
-  while n and n != e and (!n.matches or (n.matches and !n.matches(s))) => n = n.parentNode
-  if n == e and (!e.matches or !e.matches(s)) => return null
-  return n
-
-aniloop = ->
-  @running = false
-  @time = { now: 0, last: 0 }
-  @fps 60
-  @evt-handler = {}
-  @
-
-aniloop.prototype = Object.create(Object.prototype) <<< do
-  on: (n, cb) -> (if Array.isArray(n) => n else [n]).map (n) ~> @evt-handler.[][n].push cb
-  fire: (n, ...v) -> for cb in (@evt-handler[n] or []) => cb.apply @, v
-  reset: -> @time = {now: 0}
-  set-time: (t) -> @time.now = t
-  get-time: -> @time.now
-  is-running: -> @running
-  toggle: ->
-    if it? => @running = !it
-    if @running => @pause! else @run!
-  pause: -> @running = false
-  render: -> @fire \tick, @time.now
-  run: (fps) ->
-    if fps? => @fps fps
-    if @running => return
-    @running = true
-    requestAnimationFrame (t) ~> @handler(@time.last = t, true)
-  throttle: (v = true) -> @is-throttled = v
-  fps: ->
-    if !(it?) => return @_fps_val
-    @_fps_val = it >? 0.01
-    @_fps_delay = 1000 / @_fps_val
-  handler: (t, force = false) ->
-    if !@running => return
-    @time.now = t
-    delay = if @is-throttled => (@_fps_delay >? 1000) else @_fps_delay
-    if force or (@time.now - @time.last) >= delay =>
-      @time.last = t
-      @render!
-    requestAnimationFrame (t) ~> @handler t, false
-
-visibilityObserver = do
-  list: []
-  init: ->
-    @inited = true
-    [h,vc] = if document.hidden? => <[hidden visibilitychange]>
-    else if document.msHidden? => <[hidden visibilitychange]>
-    else if document.webkiHidden? => <[webkitHidden webkitvisibilitychange]>
-    else <[hidden visibilitychange]>
-    document.addEventListener vc, debounce 150, (~>
-      th = !!document[h]
-      #console.log "visibility changed, #{if th => 'enable' else 'disable'} chart aniloop throttling."
-      @list.map -> it.throttle th
-    ), false
-  add: (aniloop) ->
-    if !@inited => @init!
-    @list.push aniloop
-
-
-resizeObserver = do
-  wm: new WeakMap!
-  ro: new ResizeObserver (list) ->
-    list.map (n) ->
-      ret = resizeObserver.wm.get(n.target)
-      ret._resize!
-  add: (node, obj) ->
-    @wm.set node, obj
-    @ro.observe node
-    # observer won't fire the init event if node is not visible.
-    # - nonfixed - offsetParent will be null if it's hidden via the display style property.
-    # - fixed - check display property.
-    # - reference:
-    #  - https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement/offsetParent
-    #  - https://stackoverflow.com/questions/19669786/check-if-element-is-visible-in-dom
-    # thus, if we want to always fire right after node added, we then need:
-    # if !node.offsetParent or window.getComputedStyle(node).display == \none => obj._resize!
-
-  delete: ->
-    @ro.unobserve it
-    @wm.delete it
-
-with-default = (cfg = {}, defcfg = {}) ->
-  defcfg = JSON.parse JSON.stringify defcfg
-  _ = (cfg, defcfg) ->
-    for k,v of defcfg =>
-      if !(cfg[k]?) => cfg[k] = v
-      else if typeof(cfg[k]) == \object and typeof(v) == \object => with-default(cfg[k], defcfg[k])
-    return cfg
-  return _ cfg, defcfg
-
-# use this for now since we don't want to strictly depends on konfig. ( TBD )
-default-config = (cfg) ->
-  _ = (meta, ret = {}) ->
-    ctrls = if meta.child => that else meta
-    for id,v of meta =>
-      if !v.type => _(v, ret{}[id])
-      else if v.default => ret[id] = v.default
-    return ret
-  return _ cfg
-
-
-chart = (opt={}) ->
-  @root = if typeof(opt.root) == \string => document.querySelector(opt.root) else opt.root
-  @use-sample = if opt.use-sample? => opt.use-sample else true
-  @auto-select = if opt.auto-select? => opt.auto-select else true
-  @force-init = if opt.force-init => opt.force-init else false
-  @prepare-svg = if opt.prepare-svg? => opt.prepare-svg else true
-  @layout-opt = if opt.layout? => opt.layout else true
-  @delay-render = opt.delay-render or false
-  @data-accessor = if opt.data-accessor? => opt.data-accessor else (->if it => it.data._raw else null)
-  @raw = opt.raw or null
-  @mod = opt.mod or {}
-  @cfg = opt.config or {}
-  @seed = opt.seed or Math.random!
-  @binding = opt.binding or {}
-  @evt-handler = {}
-  @init = proxise.once ~> @_init!
-  # _resize is for and (should only be) used by `ResizeObserver`
-  @_resize = null
-
-  if @auto-select =>
-    @root.addEventListener \click, @_select = (e) ~>
-      if !(p = parent e.target, '.data', @root) => return
-      @fire \select, [{data: @data-accessor(p), node: p}]
-    @root.addEventListener \mouseover, @_hover = (e) ~>
-      if !(p = ld$.parent e.target, '.data', @root) => return
-      @fire \hover, [{data: @data-accessor(p), node: p}]
-
-  @
-
-chart.prototype = Object.create(Object.prototype) <<< do
-  # we use `init` to ensure called once, and put the actual code in _init.
-  _init: ->
-    if window.getComputedStyle(@root).position == \static => @root.style.position = \relative
-    layout-root = if @layout-opt =>
-      if typeof(@layout-opt) != \object => @root.querySelector(\.pdl-layout)
-      else if typeof(@layout-opt.root) == \string => @root.querySelector(@layout-opt.root)
-      else if @layout-opt.root => @layout-opt.root
-      else null
-    else null
-    if @prepare-svg and !(@svg = @root.querySelector \svg) =>
-      @svg = document.createElementNS(svgns, "svg")
-      @svg.style <<< width: "100%", height: "100%"
-      if @layout-opt =>
-        if !layout-root =>
-          console.error "[@plotdb/chart] layout enabled yet layout root isn't configured properly. "
-        r = layout-root.querySelector('[data-type=render]')
-        if !r => console.warn """
-          [@plotdb/chart] prepareSvg and layout is configured at the same time,
-          yet render container for layout is not found. svg is thus appended in the root.
-          """
-      (r or @root).appendChild @svg
-
-    # this can be implemented with singleton pattern
-    @_aniloop = new aniloop!
-    visibilityObserver.add @_aniloop
-    @_aniloop.on \tick, ~> @tick!
-    p = Promise.resolve!
-      .then ~>
-        defcfg = default-config(@mod.config or {})
-        with-default @cfg, defcfg
-        if @raw and Array.isArray(@raw) => return
-        if !@use-sample or !@mod.sample => return
-        ret = @mod.sample.apply @
-        return if ret.then => ret.then! else Promise.resolve ret
-      .then ~> @ <<<(it or {}){raw, binding}
-      .then ~>
-        if !@raw => @raw = []
-        if @layout-opt =>
-          if !(layout?) => console.warn "[@plotdb/chart] layout-opt is set yet @plotdb/layout is not found."
-          else
-            if !layout-root =>
-              console.error "[@plotdb/chart] cannot determine root node for @plotdb/layout."
-              console.error "[@plotdb/chart] config layout properly or disable layout by setting layout to false"
-            @layout = new layout(
-              if typeof(@layout-opt) == \object => ({} <<< @layout-opt <<< {watch-resize: false})
-              else {root: layout-root, watch-resize: false}
-            )
-
-        # we don't know when resizeObserver will call _resize but we need it to be called.
-        # thus, we lock execution here until resizeObserver calls _resize
-        _resize-lock = proxise ~> resizeObserver.add(@root, @); return null
-        # however, if somewhat resizeObserver won't be called soon ( due to invisibility of node )
-        # we then may want to get around it.
-        # see also: `resizeObserver.add` above.
-        if @force-init and !@root.offsetParent or window.getComputedStyle(@root).display == \none => return
-        # - unlocker
-        @_resize = -> _resize-lock.resolve!
-        # - locker
-        _resize-lock!
-      .then ~>
-        # once resizeObserver called _resize, we temporarily disable it until init is finished.
-        @_resize = ~>
-      .then ~>
-        # if no layout used, we init directly. otherwise we will call mod.init in layout.init
-        # we have to do this because:
-        #  - layout prepare necessary dom which may be used by init
-        #  - but init may generate necessary dom for layout.update
-        init = ~> if @mod.init => @mod.init.apply(@)
-        if !@layout => return init!
-        layout-lock = proxise ~> Promise.resolve(@layout.init init); return null
-        @_layout = ~> layout-lock.resolve!
-        @layout.on \render, ~> @_layout!
-        layout-lock!
-      .then ~>
-        # once layout prepared, we temporarily disable layout update event until init is finished.
-        @_layout = ~>
-        Promise.resolve!
-          .then ~>
-            # if for any reason user doesn't want to render right after init
-            # then we just lock it until set-raw.
-            if !@delay-render => return
-            @render-lock = proxise ~>
-            @render-lock!
-          .then ~>
-            # init is finished and we are prepared to render.
-            @_resize = ~> @resize!; @render!
-            @_layout = ~> @parse!; @bind!; @resize!; @render!
-            @parse!
-            @bind!
-            @resize!
-            @render!
-        # explicit return non-promise so init is declared as finished
-        # and won't block following codes.
-        return
-
-  parse: ->
-    @data = @raw.map (r,i) ~>
-      ret = {}
-      [{k,v} for k,v of @binding].map ({k,v}) ~>
-        if !v => return
-        ret[k] = if @mod.{}dimension{}[k].multiple => v.map -> r[it.key]
-        else r[v.key]
-        t = @mod.{}dimension{}[k].type
-        # TODO Since 'RC' is also possible, we should add and check the matched type instead of supported type.
-        if /[RIT]/.exec(t) and !/[CN]/.exec(t) =>
-          ret[k] = if Array.isArray(ret[k]) => ret[k].map(->parseFloat(it)) else parseFloat(ret[k])
-      ret._raw = r
-      ret._idx = i
-      ret
-    if @mod.parse => @mod.parse.apply @
-  bind: -> if @mod.bind => @mod.bind.apply @
-  start: ->
-    @_aniloop.run!
-    if @mod.start => @mod.start.apply @
-  stop: ->
-    @_aniloop.pause!
-    if @mod.stop => @mod.stop.apply @
-  resize: ->
-    # layout resize is disabled to prevent unnecessary rendering.
-    # however, we still need layout to be update ( without firing render event )
-    if @layout => @layout.update false
-    @box = @root.getBoundingClientRect!
-    if @mod.resize => @mod.resize.apply @
-  tick: -> if @mod.tick => @mod.tick.apply @
-  render: -> if @mod.render => @mod.render.apply @
-  destroy: ->
-    Promise.resolve!then ~>
-      if @_select => @root.removeEventListener \click, @_select
-      if @_hover => @root.removeEventListener \mouseover, @_hover
-      resizeObserver.delete @root
-      if @layout => @layout.destroy!
-      @stop!
-      if @mod.destroy => return @mod.destroy.apply @
-
-  config: (opt) ->
-    if !(opt? and opt) => return @cfg
-    @cfg <<< opt
-
-  set-bind: (n,b) ->
-    @binding[n] = b
-    @parse!
-    @bind!
-    @resize!
-    @render!
-
-  set-raw: (raw, binding, reinit = false) ->
-    if !Array.isArray(raw) => {raw,binding,reinit} = raw
-    if raw? => @raw = raw
-    if binding? => @binding = binding
-    # if there is render-lock, then we are still in initing process and no need to reinit.
-    # reinit is only needed if there is no render-lock
-    if @render-lock =>
-      @render-lock.resolve!
-      @render-lock = null
-    else
-      if reinit and @mod.init => @mod.init.apply(@)
-      @parse!
-      @bind!
-      @resize!
-      @render!
-  on: (n, cb) -> (if Array.isArray(n) => n else [n]).map (n) ~> @evt-handler.[][n].push cb
-  fire: (n, ...v) -> for cb in (@evt-handler[n] or []) => cb.apply @, v
-  filter: (filters = {}, internal = false) ->
-    bs = []
-    for k,v of @binding =>
-      u = if Array.isArray(v) => v else [v]
-      u = u.map (v) -> {k,v}
-      bs ++= u
-    for k,v of filters =>
-      bs
-        .filter(-> it.k == k)
-        .map -> it.v.filter = v
-    if internal => @fire \filter, filters
-    if @mod.filter => @mod.filter.apply @, [filters, internal]
-    @parse!
-    @bind!
-    @resize!
-    @render!
-
-if module? => module.exports = chart
-else if window? => window.chart = chart

package/src/index.styl

@@ -1,6 +0,0 @@
-div[plug=layout]
-  width: 100%
-  height: 100%
-  .pdl-layout
-    width: 100%
-    height: 100%

package/src/utils/axis.ls

@@ -1,229 +0,0 @@
-ceNS = -> document.createElementNS("http://www.w3.org/2000/svg", it)
-
-axis = (opt={}) ->
-  @dir = {"bottom": 0, "left": 2}[opt.direction or 'bottom']
-  @name = opt.name or \axis
-  # unlike legend, we don't use n.layout to layout things, only use its primary size.
-  # we will update n.layout's secondary size, it won't affect how we layout things.
-  # so we don't need layout.update before rendering.
-  # layout.update is still needed after rendering for stuff outside axis to work.
-  # TODO still yaxis and xaxis may affect each other to cause a recursive update,
-  # so we have to be careful and have some constraint over this. (e.g., set max size of n.layout)
-  @layout = opt.layout or new layout root: @root
-  @_ticks = []
-  @_scale = opt.scale or (->it)
-  @_format = opt.format or if chart? => chart.utils.format.simple else (->it)
-  @cfg = {tick-size: 8} <<< opt.cfg
-  @_map = {}                           # tick value -> object{v,c,t,n,g}
-  @_n = n =
-    root: ceNS \g                      # root node, appended to render node
-    layout: @layout.get-node(@name)    # decide render region size
-    render: @layout.get-group(@name)   # render region node
-    wrap: null                         # for wrapping tick text
-    domain: ceNS \path                 # axis domain line
-  n.render.appendChild n.root
-  n.root.appendChild n.domain
-
-  n.label = ceNS \text
-  n.label.textContent = ''
-  n.label
-    ..setAttribute \dominant-baseline, \hanging
-    ..setAttribute \text-anchor, \middle
-  n.root.appendChild n.label
-  @wrapper!
-  @layout
-    ..on \update, ~> @update!
-    ..on \render, ~> @render!
-  @
-
-
-axis.prototype = Object.create(Object.prototype) <<< do
-  # while we may only need to update `white-space` and `width`,
-  # strangely style changing only works if we replace node with a new one.
-  # this is a workaround before we find the root cause.
-  wrapper: ->
-    n = @_n
-    if n.wrap and n.wrap.parentNode => n.wrap.parentNode.removeChild n.wrap
-    n.wrap = document.createElement \div
-    n.wrap.style <<< {
-      visibility: \hidden
-      position: \absolute
-      top: 0
-      left: 0
-      pointerEvents: \none
-      userSelect: \none
-      zIndex: 0
-      wordBreak: "break-all"
-      lineHeight: \.95em
-    } <<< (if @dir < 2 and @cfg.textWidth? => {
-      whiteSpace: 'wrap'
-      width: "#{@cfg.textWidth >? 1}em"
-    } else {whiteSpace: \pre, width: \4em})
-    n.layout.appendChild n.wrap
-
-  config: ->
-    if !(it?) => return @cfg
-    @cfg <<< it
-    if @cfg.format => @format @cfg.format
-    @wrapper!
-
-  format: -> if it? => @_format = it else @_format
-  scale: -> if it? => @_scale = it else @_scale
-  caption: ->
-    if @cfg.show-caption? and !@cfg.show-caption => @_n.label.textContent = ''
-    else @_n.label.textContent = it
-  update: ->
-  ticks: (ticks) ->
-    /* (v)alue -> (c)oordinate -> (t)ext -> (n)odes: { g(group), p(path), t(text) } */
-    map = {}
-    size = @_n.layout.getBoundingClientRect![if @dir < 2 => \width else \height]
-    count = Math.round(size / 25)
-    itr = Math.round(ticks.length / (count >? 1)) >? 1
-    @_ticks = ticks
-      .filter (d,i) -> !(i % itr) or i == (ticks.length - 1)
-      .map (o) ~>
-        if typeof(o) != \object => o = {v: o}
-        map[o.v] = @_map{}[o.v] <<< o
-    for k,v of @_map => if !map[k] => v.n.g.parentNode.removeChild v.n.g
-    @_map = map
-    @_ticks
-      .filter (o) -> !o.n
-      .map (o) ~>
-        o.n = g: ceNS(\g), p: ceNS(\path), t: ceNS(\g)
-        o.n.g.appendChild o.n.p
-        o.n.g.appendChild o.n.t
-        @_n.root.appendChild o.n.g
-        if isNaN(+o.v) => o.t = o.v
-
-  render: ->
-    n = @_n
-    is-horizon = (@dir < 2)
-    wrap = n.wrap
-    ticks = @_ticks
-    if @cfg.enabled? and !@cfg.enabled =>
-      if is-horizon => n.layout.style <<< height: "0px", paddingTop: "0", paddingBottom: "0"
-      else n.layout.style <<< width: "0px", paddingLeft: "0", paddingRight: "0"
-      n.domain.style.display = 'none'
-      return
-    else
-      if is-horizon => n.layout.style <<< height: "", paddingTop: "", paddingBottom: ""
-      else n.layout.style <<< width: "", paddingLeft: "", paddingRight: ""
-      n.domain.style.display = ''
-    font-size = getComputedStyle(wrap).font-size
-    box = n.layout.getBoundingClientRect!
-    n.domain.style <<< strokeWidth: 1, stroke: \currentColor, fill: \none
-    ticks.map (o, idx) ~>
-      pos = if !idx => 0 else if idx == ticks.length - 1 => 2 else 1
-      o._c = if o.c? => o.c else @_scale(o.v) + (if @_scale.bandwidth => @_scale.bandwidth!/2 else 0)
-      o._t = if o.t? => o.t else @_format o.v
-      o.n.p.style <<< strokeWidth: 1, stroke: \currentColor, fill: \none
-      wrap.textContent = o._t
-      wrap.style.textAlign = if is-horizon => <[left center right]>[pos] else <[right left]>[@dir - 2]
-      o.n.tt = wrap-svg-text {node: wrap}
-      o.n.t.style.font-size = font-size
-      o.n.t.textContent = ''
-      o.n.t.appendChild o.n.tt
-    ticks.sort (a,b) -> a._c - b._c
-
-    if is-horizon =>
-      n.domain.setAttribute \d, "M0 0L#{box.width} 0Z"
-      n.label.setAttribute \x, box.width / 2
-    else
-      n.domain.setAttribute \d, "M0 0L0 #{box.height}Z"
-      n.label.setAttribute "transform", "translate(0,#{box.height/2}) rotate(90)"
-    ticks.map (o) -> o.box = o.n.t.getBBox!
-    @adjust!
-
-  adjust: ->
-    ticks = @_ticks
-    is-horizon = (@dir < 2)
-    insert = (idx, lv, lc) ~>
-      if lc.checked[idx] => return else lc.checked[idx] = true
-      tick = ticks[idx]
-      # 0: smallest 'screen coord' tick / 1: middle tick / 2: biggest 'screen coord' tick
-      # top(0) -> down(2) / left(0) -> right(0)
-      pos = if !idx => 0 else if idx == ticks.length - 1 => 2 else 1
-
-      [coord,text] = [tick._c, tick._t]
-      box = tick.box
-      offset = {x: -box.x, y: -box.y}
-      do-offset = if @_scale.bandwidth => false
-      else if @cfg.boundary-tick-offset? => !!@cfg.boundary-tick-offset
-      else if @dir < 2 => true else false
-      r = if do-offset => pos/2 else 1/2
-      if is-horizon => offset.x -= box.width * r # start: 0w, middle: -.5w, end: -w ( left to right )
-      else offset.y -= box.height * r # start: 0h, middle: .5h, end: -h ( top to bottom )
-      tick.n.tt.setAttribute \transform, "translate(#{offset.x},#{offset.y})"
-
-      box =
-        size: box[if is-horizon => \width else \height]
-        size-alt: box[if is-horizon => \height else \width]
-        lv: lv, tick: tick, idx: idx
-      box.coord = coord - (box.size * r) #(if is-horizon => pos else (2 - pos)) / 2)
-
-      if is-horizon =>
-        tick.n.g.setAttribute \transform, "translate(#{coord},0)"
-        tick.n.p.setAttribute \d, "M0 0L0 #{@cfg.tick-size}"
-        tick.n.t.setAttribute \transform, "translate(0,#{@cfg.tick-size})"
-      else
-        tick.n.g.setAttribute \transform, "translate(0,#{coord})"
-        tick.n.p.setAttribute \d, "M0 0L-#{@cfg.tick-size} 0"
-        tick.n.t.setAttribute \transform, "translate(#{-@cfg.tick-size - box.size-alt - 1},0)"
-
-      m = 2
-      [ip1, ip2] = [ box.coord, box.coord + box.size ]
-      [op1, op2] = [ ip1 - m, ip2 + m]
-
-      overlap = lc.picked
-        .filter (b) ->
-          [iq1, iq2] = [b.coord, b.coord + b.size]
-          [oq1, oq2] = [iq1 - m, iq2 + m]
-          return (ip1 > oq1 and ip1 < oq2) or (iq1 > op1 and iq1 < op2)
-        .length
-
-      tick.n.t.style.opacity = if overlap => 0 else 1
-      lc.picked.push box
-      return !overlap # return true if insert successfully
-
-    # align lv ( see below commented codes )
-    # try to only show ticks in the same level.
-    # yet current implementation doesn't work well
-    # since we may have different size in each interval even in the same level
-
-    bfs = (maxlv = 1) ~>
-      [lc,fifo] = [{checked:{}, picked: [], node: @_n.wrap}, []]
-      lc.font-size = getComputedStyle(lc.node).font-size
-      # align lv
-      ticks.map -> it.n.t.style.opacity = 0
-      if ticks.length =>
-        fifo.push [0, ticks.length - 1, 0]
-        [0, ticks.length - 1].map -> insert it, 0, lc
-      while fifo.length =>
-        [L, R, D] = fifo.splice 0, 1 .0
-        if D >= maxlv => continue
-        M = Math.floor(( L + R ) / 2)
-        # align lv
-        #if !insert(M, D, lc) => maxlv = D
-        insert(M, D, lc)
-        if M > L + 1 => fifo.push [L, M, D + 1]
-        if R > M + 1 => fifo.push [M, R, D + 1]
-
-      /* align lv
-      lc.picked.map -> if it.lv >= maxlv => it.tick.n.t.style.opacity = 0
-      lc.picked = lc.picked.filter -> it.lv < maxlv
-      */
-
-      size = Math.max.apply(Math, [0] ++ lc.picked.map(-> it.size-alt))
-      if @dir < 2 =>
-        @_n.label.setAttribute \y, size + @cfg.tick-size
-        @_n.layout.style.height = "#{(size + @cfg.tick-size + @_n.label.getBoundingClientRect!height)}px"
-      else
-        @_n.label.setAttribute \x, 0
-        @_n.label.setAttribute \y, 0
-        @_n.layout.style.width = "#{(size + @cfg.tick-size + @_n.label.getBoundingClientRect!width)}px"
-        box = @_n.layout.getBoundingClientRect!
-        @_n.label.setAttribute \transform, "translate(#{-(size + @cfg.tick-size)},#{box.height/2}) rotate(90)"
-        @_n.root.setAttribute \transform "translate(#{box.width},0)"
-    bfs 5
-
-if chart? => chart.{}utils.axis = axis

package/src/utils/config.ls

@@ -1,11 +0,0 @@
-config = preset:
-  default:
-    margin: type: \number
-    font:
-      size: type: \number, min: 1, max: 256, step: 1, default: 16
-    color: type: \color
-    palette: type: \palette
-    background: type: \color
-
-if chart? => chart.{}utils.config = config
-

package/src/utils/data.ls

@@ -1,104 +0,0 @@
-main = 
-  number: (opt = {}) ->
-    data = opt.data
-      .filter -> !(!it or "#{it}".trim! == '')
-    len = data
-      .filter -> !isNaN(parseFloat(it))
-      .length
-    (len / data.length)
-
-  serial: (opt = {}) ->
-    data = [] ++ opt.data
-    data.sort (a,b) -> b - a
-    hash = {}
-    for i from 1 til data.length =>
-      if isNaN(data[i]) or isNaN(data[i - 1]) =>
-        hash[if data[i] > data[i - 1] => "#{data[i]}:#{data[i - 1]}" else "#{data[i - 1]}:#{data[i]}"] = true
-      else delta = data[i] - data[i - 1]
-      hash[delta] = true
-    return 1 / ([k for k of hash].filter(->it != \0).length or 2)
-
-  text: (opt={}) -> 1 - (@number opt)
-
-  category: (opt={}) ->
-    len = Array.from(new Set(opt.data)).length 
-    maxlen = opt.data.length
-    ret = (1 - (((len - 2) >? 0) / maxlen) - (1 / maxlen)) >? 0 <? 1
-    if @number(opt) => ret = ret * 0.9
-    return ret
-
-  parse: (data) ->
-    if Array.isArray(data) =>
-      head = data.slice 0, 1 .0
-      body = data.slice 1
-      body = body.map (d,i) ->
-        ret = {}
-        head.map (h,j) -> ret[h] = d[j]
-        ret
-      return {head, body}
-    return data
-
-  autotype: (data = []) ->
-    head = [k for k of data.0 or {}]
-    type = []
-    for key in head =>
-      d = data.map -> it[key]
-      ret = do
-        key: key
-        types:
-          R: main.number({data: d})
-          O: main.serial({data: d})
-          N: main.text({data: d})
-          C: main.category({data: d})
-      list = <[R O N C]>.map -> [it, ret.types[it]]
-      list.sort (a,b) -> b.1 - a.1
-      ret.type = list.0.0
-      type.push ret
-
-    return type
-
-  autobind: (data = [], dimension = {}) ->
-    datatypes = @autotype data
-    dims = [{k,v} for k,v of dimension].filter -> !it.v.passive
-    dims.sort (a,b) ->
-      ret = (a.v.priority or 100) - (b.v.priority or 100)
-      if ret != 0 => return ret
-      [ma,mb] = [(a.v.type or \R), (b.v.type or \R)].map (t) ->
-        Math.min.apply Math, [0 til t.length].map (i) -> "CONR".indexOf(t[i])
-      return ma - mb
-    for dim in dims =>
-      dim.bind = null
-      ts = dim.v.type or \RNOC
-      for i from 0 til ts.length =>
-        t = ts[i]
-        datatypes.sort (a, b) ->
-          ret = (b.types[t] or 0) - (a.types[t] or 0)
-          if b.types[t] == a.types[t] and t == \R => return (a.types.O or 0) - (b.types.O or 0)
-          return ret
-        for i from 0 til datatypes.length =>
-          dt = datatypes[i]
-          if dt.types[t] < 0.5 or dt.used or (t == \C and dt.types.R > 0.5) => continue
-          dim.bind = if dim.v.multiple => [dt] else dt
-          dt.used = true
-          break
-    for dim in dims =>
-      if !dim.v.multiple => continue
-      ts = dim.v.type or \RNOC
-      for i from 0 til ts.length =>
-        t = ts[i]
-        datatypes.sort (a, b) ->
-          ret = (b[t] or 0) - (a[t] or 0)
-          if b[t] == a[t] and t == \R => return (a.O or 0) - (b.O or 0)
-          return ret
-        for i from 0 til datatypes.length =>
-          dt = datatypes[i]
-          if dt.types[t] < 0.5 or dt.used or (t == \C and dt.types.R > 0.5) => continue
-          dim.bind.push dt
-          dt.used = true
-    ret = {}
-    for dim in dims => if dim.bind =>
-      ret[dim.k] = dim.bind
-      (if Array.isArray(dim.bind) => dim.bind else [dim.bind]).map -> delete it.used
-    return ret
-
-if chart? => chart.{}utils.data = main