1#lang typed/racket/base 2 3(require "../common/plot-element.rkt" 4 "../common/types.rkt" 5 "../common/type-doc.rkt" 6 "../common/math.rkt" 7 "plot-area.rkt") 8 9(provide (all-defined-out)) 10 11(deftype 3D-Render-Proc (-> (Instance 3D-Plot-Area%) Void)) 12 13(struct renderer3d plot-element ([label : (U #f (-> Rect (Treeof legend-entry)))] 14 [render-proc : (U #f 3D-Render-Proc)]) 15 #:transparent) 16 17(define empty-renderer3d (renderer3d #f #f #f #f #f)) 18