anchor.diff:          __.labels <- Labels
   
       member __.Show() =
  -//        let tracesJson = serializeTraces __.labels __.traces
  -//        let layoutJson =
  -//            match __.layout with
  -//            | None -> "\"\""
  -//            | Some x -> JsonConvert.SerializeObject x
  -//        let html =
  -//            let chartMarkup =
  -//                Html.inlineTemplate
  -//                    .Replace("[ID]", __.Id)
  -//                    .Replace("[WIDTH]", string __.Width)
  -//                    .Replace("[HEIGHT]", string __.Height)
  -//                    .Replace("[DATA]", tracesJson)
  -//                    .Replace("[LAYOUT]", layoutJson)
  -//            Html.pageTemplate.Replace("[CHART]", chartMarkup)
           let html = __.GetHtml()
           Html.showInBrowser html __.Id        
   
  
positive.code:     let inlineTemplate =
          """<div id="[ID]" style="width: [WIDTH]px; height: [HEIGHT]px;"></div>
          <script>
              var data = [DATA];
              var layout = [LAYOUT];
              Plotly.newPlot('[ID]', data, layout);
          </script>"""
  
      let jsTemplate =
          """<script>
              var data = [DATA];
              var layout = [LAYOUT];
              Plotly.newPlot('[ID]', data, layout);
          </script>"""
      
      /// Display given html markup in default browser
      let showInBrowser html pageId=
  
negative.code: 
      /// Returns the chart's full HTML source.
      member __.GetHtml() =
          let chartMarkup = __.GetInlineHtml()
          Html.pageTemplate.Replace("[CHART]", chartMarkup)
  
      /// Inline markup that can be embedded in a HTML document.
      member __.GetInlineHtml() =
          let plotting = __.GetPlottingJS()
          Html.inlineTemplate
              .Replace("[ID]", __.Id)
              .Replace("[WIDTH]", string __.Width)
              .Replace("[HEIGHT]", string __.Height)
              .Replace("[PLOTTING]", plotting)
  
      /// The chart's inline JavaScript code.
      member __.GetInlineJS() =
          let plotting = __.GetPlottingJS()
          Html.jsTemplate
              .Replace("[ID]", __.Id)
              .Replace("[PLOTTING]", plotting)
      
      /// The chart's plotting JavaScript code.
      member __.GetPlottingJS() =
          let tracesJson = serializeTraces __.labels __.traces
          let layoutJson =
              match __.layout with
              | None -> "\"\""
              | Some x -> JsonConvert.SerializeObject x
          Html.jsFunctionTemplate
              .Replace("[ID]", __.Id)
              .Replace("[DATA]", tracesJson)
              .Replace("[LAYOUT]", layoutJson)
  