Re: [racket-users] Re: plot library: legend outside plot?

2018-11-11 Thread Dmitry Pavlov 

Alex,

Thank you! I did not know about plot-pict.

Best regards,

Dmitry

On 11/11/18 2:45 AM, Alex Harsanyi wrote:


If you are willing to do some programming, you can write your own function to 
create the legend, as below:

    #lang racket
    (require plot pict racket/draw)

    ;; I could not find how to draw styled lines in pict, so I wrote my own
    ;; function
    (define (hline1 w h color style)
  (define (draw dc x y)
    (define pen (send the-pen-list find-or-create-pen color h style))
    (define old-pen (send dc get-pen))
    (send dc set-pen pen)
    (send dc draw-line x (+ y (/ h 2)) (+ x w) (+ y (/ h 2)))
    (send dc set-pen old-pen))
  (dc draw w h))

    (define (legend)
  (define picts
    (list
 (hline1 30 2 "red" 'long-dash) (text "sin")
 (hline1 30 4 "blue" 'short-dash) (text "cos")))
  (frame
   (inset
    (vc-append
 15
 (text "Legend" 'default 14)
 (table 2 picts cc-superimpose cc-superimpose 10 10))
    5)))

    (define (the-plot)
  (plot-pict (list
   (function sin #:color "red" #:width 2 #:style 'long-dash)
   (function cos #:color "blue" #:width 4 #:style 'short-dash))
  #:x-min -5 #:x-max 5))

    (ht-append (legend) (the-plot))

Which produces:

loutside.png

You can than write the pict to a bitmap using `pict->bitmap`.  The code above 
will not produce interactive plot snips -- it is possible to do that as well, in 
my own application I have a floating legend that I can drag around the plot so I 
can see what is underneath it, but implementing that is a bit more complex.

The obvious disadvantage of this code is that you have to manually manage the 
legend entries or write higher level wrappers for the plot functions to 
generate both legend entries and plot renderers.  The big advantage is that you 
can style the legend however you want.

Best Regards,
Alex.

On Friday, November 9, 2018 at 9:16:48 PM UTC+8, Alex Harsanyi wrote:


It is not currently possible to draw the legend outside the plot area.  The 
code that draws the legend is at the link below, however, this code assumes 
that the position will be inside the plot area and will not reserve extra space 
outside this area:


https://github.com/racket/plot/blob/8dcfd7745e2595b8d517fd8cd7c59510efab84a9/plot-lib/plot/private/common/plot-device.rkt#L587
 


Alex.

On Thursday, November 8, 2018 at 11:18:14 PM UTC+8, Dmitry Pavlov wrote:

Hello,

Is it possible to render a plot with the legend outside the plotting
area, like gnuplot does with "set key outside" option?

I see only (plot-legend-anchor) parameter for placement of the legend in
different places inside the plot area.

Best regards,

Dmitry


--
You received this message because you are subscribed to the Google Groups "Racket 
Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to 
racket-users+unsubscr...@googlegroups.com 
.
For more options, visit https://groups.google.com/d/optout.


--
You received this message because you are subscribed to the Google Groups "Racket 
Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

[racket-users] Re: plot library: legend outside plot?

2018-11-10 Thread Alex Harsanyi 

If you are willing to do some programming, you can write your own function 
to create the legend, as below:

#lang racket
(require plot pict racket/draw)

;; I could not find how to draw styled lines in pict, so I wrote my own
;; function
(define (hline1 w h color style)
  (define (draw dc x y)
(define pen (send the-pen-list find-or-create-pen color h style))
(define old-pen (send dc get-pen))
(send dc set-pen pen)
(send dc draw-line x (+ y (/ h 2)) (+ x w) (+ y (/ h 2)))
(send dc set-pen old-pen))
  (dc draw w h))

(define (legend)
  (define picts
(list
 (hline1 30 2 "red" 'long-dash) (text "sin")
 (hline1 30 4 "blue" 'short-dash) (text "cos")))
  (frame
   (inset
(vc-append
 15
 (text "Legend" 'default 14)
 (table 2 picts cc-superimpose cc-superimpose 10 10))
5)))

(define (the-plot)
  (plot-pict (list
   (function sin #:color "red" #:width 2 #:style 'long-dash)
   (function cos #:color "blue" #:width 4 #:style 'short-dash))
  #:x-min -5 #:x-max 5))

(ht-append (legend) (the-plot))

Which produces:

[image: loutside.png]
You can than write the pict to a bitmap using `pict->bitmap`.  The code 
above will not produce interactive plot snips -- it is possible to do that 
as well, in my own application I have a floating legend that I can drag 
around the plot so I can see what is underneath it, but implementing that 
is a bit more complex.

The obvious disadvantage of this code is that you have to manually manage 
the legend entries or write higher level wrappers for the plot functions to 
generate both legend entries and plot renderers.  The big advantage is that 
you can style the legend however you want.

Best Regards,
Alex.

On Friday, November 9, 2018 at 9:16:48 PM UTC+8, Alex Harsanyi wrote:
>
>
> It is not currently possible to draw the legend outside the plot area.  
> The code that draws the legend is at the link below, however, this code 
> assumes that the position will be inside the plot area and will not reserve 
> extra space outside this area:
>
>
> https://github.com/racket/plot/blob/8dcfd7745e2595b8d517fd8cd7c59510efab84a9/plot-lib/plot/private/common/plot-device.rkt#L587
>
> Alex.
>
> On Thursday, November 8, 2018 at 11:18:14 PM UTC+8, Dmitry Pavlov wrote:
>>
>> Hello, 
>>
>> Is it possible to render a plot with the legend outside the plotting 
>> area, like gnuplot does with "set key outside" option? 
>>
>> I see only (plot-legend-anchor) parameter for placement of the legend in 
>> different places inside the plot area. 
>>
>> Best regards, 
>>
>> Dmitry 
>>
>>
>>

-- 
You received this message because you are subscribed to the Google Groups 
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

[racket-users] Re: plot library: legend outside plot?

2018-11-09 Thread Alex Harsanyi 

It is not currently possible to draw the legend outside the plot area.  The 
code that draws the legend is at the link below, however, this code assumes 
that the position will be inside the plot area and will not reserve extra 
space outside this area:

https://github.com/racket/plot/blob/8dcfd7745e2595b8d517fd8cd7c59510efab84a9/plot-lib/plot/private/common/plot-device.rkt#L587

Alex.

On Thursday, November 8, 2018 at 11:18:14 PM UTC+8, Dmitry Pavlov wrote:
>
> Hello, 
>
> Is it possible to render a plot with the legend outside the plotting 
> area, like gnuplot does with "set key outside" option? 
>
> I see only (plot-legend-anchor) parameter for placement of the legend in 
> different places inside the plot area. 
>
> Best regards, 
>
> Dmitry 
>
>
>

-- 
You received this message because you are subscribed to the Google Groups 
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.