@plotdb/chart 0.0.3 → 2.0.0

package/src/data/zh-TW/movie

@@ -1,125 +0,0 @@
-完美風暴
-費城故事
-人猿星球
-巴頓將軍
-風中奇緣
-木偶奇遇記
-鵝毛筆
-奪寶奇兵
-羅密歐與朱麗葉
-白雪公主
-鋼琴師
-熱情如火
-星塵
-星艦奇航記
-七年之癢
-真善美
-龍鳳配
-第六感
-沉默的羔羊
-星際之門系列
-日落大道
-超人
-時光倒流七十年
-刺激1995
-莎翁情史
-星銀島
-變形金剛
-玩具總動員
-玩具總動員2
-計程車司機
-大白鯊
-家族企業
-偷天換日
-冰河世紀
-他不笨，他是我爸爸
-鋼鐵俠
-西部開拓史
-花木蘭
-幻想曲
-綠巨人
-好萊塢式結局
-沉默的羔羊
-海上鋼琴師
-黃金時代
-後窗
-虎豹小霸王
-憤怒的葡萄
-畢業生
-教父第1至3集
-桂河大橋
-關山飛渡
-公主日記
-失戀排行榜
-葛底士堡
-光榮戰役
-過關斬將
-鬼霧
-哥吉拉
-隔山有眼
-鬼娃新娘
-葛倫米勒傳
-第五元素
-阿甘正傳
-海底總動員
-變蠅人
-第一滴血
-浮生若夢
-年度風雲人物
-開膛手
-逍遙騎士
-英倫情人
-E.T.外星人
-剪刀手愛德華
-太陽帝國
-第三類接觸
-伊莉莎白2：黃金時代
-諜影疑雲
-大衛與麗莎
-大河戀
-東方西方
-斷頭谷
-明天過後
-大毒梟
-燈塔驚魂記
-霹靂嬌娃
-哭泣遊戲
-蟲蟲危機
-城市之光
-柯萊利上尉的曼陀鈴
-重歸天堂
-蠢貨
-擒凶記
-赤膽屠龍
-唐人街
-大國民
-冷山
-發條桔子
-寶貝兒
-奔騰年代
-黑鷹墜落
-一個國家的誕生
-美麗心靈
-變人
-兵人
-變相怪傑
-冰凍蜘蛛
-北西北
-藍絲絨
-雌雄大盜
-7月4日誕生
-第凡內早餐
-初戀的回憶
-復仇者聯盟
-安娜與國王
-安妮·霍爾
-阿凡達
-美國風情畫
-西線無戰事
-美國甜心
-桃色公寓
-莫扎特
-異形
-彗星美人
-人工智慧
-邊城英烈傳

package/src/data/zh-TW/names

@@ -1,105 +0,0 @@
-林彥娥
-韋敬宇
-蔡亭竹
-陳耿威
-吳尊
-李治瑋
-陳嘉豪
-姜建廷
-祖秉勳
-黃政哲
-黃建新
-楊帆
-張威宇
-李明珠
-吳薇儀
-杜家銘
-任采林
-林美茹
-黃佩璇
-張柏亨
-黃怡杰
-王書娟
-曹桂潔
-蔡聖凱
-王怡伶
-林彥劭
-李貴芬
-陳志元
-蔡禮易
-王彥博
-林依辰
-劉俊純
-臧雅雯
-黃博文
-陳冠羽
-何台芝
-韓慶江
-吳秋年
-張文東
-林奕辰
-曾雅玲
-陳惠文
-陳慧惟
-葛泓夫
-李佩妏
-林夕
-傅淑娟
-陳佳慧
-侯伊然
-劉佩君
-韓羽
-林雅筑
-劉星禮
-丁初茜
-林丹紫
-陳威軍
-陳珮甄
-黎昱宏
-曾哲銘
-洪姿穎
-王新睿
-李偉翔
-宋雅竹
-荊雅惠
-黃淑卿
-詹雅書
-童佳雯
-柏華仁
-蔡金霖
-費俊逸
-謝佳伶
-吳欣偉
-陳志香
-張惠泉
-陳恒芳
-謝邦其
-吳士怡
-杜仰彬
-林冠良
-謝佩劭
-張建智
-韓大芸
-梁志宇
-丁美慧
-朱哲豪
-欒維倫
-陳金念
-陳瑋婷
-陳奇邦
-郭淑文
-楊旻善
-賴延江
-林宜臻
-姚慧娟
-簡志喬
-楊家宏
-黃惠敏
-黃郁紹
-阮綺生
-蔡紫秀
-吳雅文
-張良
-郭芝名
-郭永心
-楊筱婷

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

package/src/utils/format.ls

@@ -1,30 +0,0 @@
-format = {}
-format.auto = (list = []) ->
-  return d3.format ".3s"
-  list = list.map(->+it).filter -> !isNaN(it)
-  if !list.length => return d3.format "d"
-  list.sort (a,b) -> a - b
-  s = Math.max.apply Math, list.map ->
-    s = 1
-    while it
-      if it % 10 => break
-      it = Math.floor(it / 10)
-      s++
-    Math.ceil((Math.log(it or 1) / Math.log(10)) - s) >? 0
-  int-rate = list.filter(-> Math.floor(it) == it).length / list.length
-  diffs = [Math.abs(list[i] - list[i - 1]) for i from 1 til list.length].map ->
-    Math.log(if it => it else 1) / Math.log(10)
-  diff-avg = diffs.reduce(((a,b) -> a + b),0) / list.length
-  type = if int-rate > 0.9 => "s" else "f"
-  size = (if diff-avg >= 0 => (s >? 0) else Math.ceil(Math.abs(diff-avg)))
-  return d3.format ".#size#type"
-
-format.simple = (v) ->
-  if isNaN(v = +v) => return v
-  return if v >= 1000000000 => (v / 1000000000).toFixed(0) + "G"
-  else if v >= 1000000 => (v / 1000000).toFixed(0) + "M"
-  else if v >= 1000 => (v / 1000).toFixed(0) + "K"
-  else if Math.floor(v) == v => (v).toFixed(0)
-  else v.toFixed(2)
-
-if chart? => chart.{}utils.format = format