pyplot.sc

;  MIT License

;  Copyright guenchi (c) 2018 - 2019 
     
;  Permission is hereby granted, free of charge, to any person obtaining a copy
;  of this software and associated documentation files (the "Software"), to deal
;  in the Software without restriction, including without limitation the rights
;  to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
;  copies of the Software, and to permit persons to whom the Software is
;  furnished to do so, subject to the following conditions:
     
;  The above copyright notice and this permission notice shall be included in all
;  copies or substantial portions of the Software.
     
;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
;  IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
;  FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
;  AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
;  LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
;  OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
;  SOFTWARE.






(library (matplotlib pyplot)
  (export
    plt
    plt-plot
    plt-show
  )

  (import
    (chezscheme)
    (darkart py call)
    (only (darkart py ffi) py/run-simple-string))


  (define plt 
    (let ()
      (py/run-simple-string "import sys")
      (py/run-simple-string "sys.argv = ['']")
      (py/run-simple-string "import matplotlib")
      (py/run-simple-string "matplotlib.use('TkAgg')")
      (py-import 'matplotlib.pyplot)))


  (define plt-plot (py-func plt 'plot))
  (define plt-show (py-func plt 'show))

)