#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))