@spdegabrielle
What about something like this:

#lang racket/base
(require plot
         quickscript/script
         racket/port
         racket/class)

(define-script plot-selection
  #:label "&Plot selection"
  #:menu-path ("Sele&ction")
  (λ (selection)
    (define l
      (with-input-from-string
       selection
       read))
    (when (and (list? l)
               (map number? l))
      (define fr
        (plot-frame
         (lines (for/list ([y (in-list l)]
                           [x (in-naturals)])
                  (list x y)))))
      (send fr show #t))
    #f))

(module+ main
  (plot-selection "(5 20 15 35 5 15 10 30 0)"))

;; Select the following list of values and then click on the script menu item:
;; (5 20 15 35 5 15 10 30 0)

Create a new script (Scripts>Manage scripts>New script) called "plot selection" then replace the file content with the above. Then Scripts>Manage scripts>Compile and reload.

Then select a list of numbers somewhere in drracket (without the quote) like the one at the bottom of the above script and click on the script in the menu (Scripts>Selection>Plot selection).

need a (require plot) script #1

Description

Metadata

Metadata

Assignees

Labels

Projects

Milestone

Relationships

Development

Issue actions