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