#lang racket
(provide make-figure see)
(require "main.rkt")
(require racket/snip)
(define (make-figure name f)
  (generate-figure name f)
  (make-object image-snip% (string-append name ".png") 'png))
(define-syntax-rule (see fig)
  (make-figure (symbol->string 'fig) fig))