By the way, I am just playing with [gr framework](https://gr-framework.org/).
    
    
    #import gr_wrapper
    const
        libName = "/usr/gr/lib/libGR.so"
    
    proc gr_initgr*()    {.importc,dynlib: libName.}
    proc gr_polyline*(a:cint, b:ptr cdouble, c:ptr cdouble)    
{.importc,dynlib: libName.}
    proc gr_axes*(a:cdouble, b:cdouble, c:cdouble, d:cdouble, e:cint, f:cint, 
g:cdouble)    {.importc,dynlib: libName.}
    proc gr_tick*(a:cdouble, b:cdouble):cdouble    {.importc,dynlib: libName.}
    proc gr_beginprint*(a:cstring)    {.importc,dynlib: libName.}
    proc gr_endprint*()    {.importc,dynlib: libName.}
    
    when isMainModule:
        let x = @[0.0, 0.2, 0.4, 0.6, 0.8, 1.0]
        let y = @[0.3, 0.5, 0.4, 0.2, 0.6, 0.7]
        let px = cast[ptr cdouble](unsafeAddr(x[0]))
        let py = cast[ptr cdouble](unsafeAddr(y[0]))
        gr_beginprint("salida.png".cstring)
        gr_polyline(x.len.cint, px, py)
        gr_axes(gr_tick(0, 1), gr_tick(0, 1), 0, 0, 1, 1, -0.01)
        gr_endprint()
        #discard readChar(stdin)
    
    Run

gives me:

(a big milestone for somebody like me)

Reply via email to