gistfile1.txt

#!/usr/bin/env racket
#lang racket/base

(require
  file/convertible
  net/base64
  plot/no-gui
)

(define (write-image img port)
  (write-bytes #"\x1b]1337;File=inline=1:" port)
  (write-bytes (base64-encode (convert img 'png-bytes) #"") port)
  (write-bytes #"\x07\n" port)
  (void))

(define cool-plot
  (plot3d-pict (vector-field3d (λ (x y z) (vector x z y)) -2 2 -2 2 -2 2)))

(write-image cool-plot (current-output-port))