main.rkt
#lang racket

(require "base/coord.rkt"
         "base/bounding-box.rkt"
         "backends.rkt"
         "sliders.rkt")

(provide (all-from-out "base/coord.rkt"
                       "base/bounding-box.rkt"
                       "backends.rkt"
                       "sliders.rkt"))

(random-seed 1)

(provide backend attach-backend)

(define (backend b)
  (select-backend b 'delete))

(define (attach-backend b)
  (select-backend b 'none))