13 lines
325 B
Racket
13 lines
325 B
Racket
#lang racket/base
|
|
(require web-server/servlet-dispatch
|
|
racket/runtime-path
|
|
web-server/dispatchers/dispatch-files)
|
|
|
|
(define-runtime-path static-path "FiringGeometry.png")
|
|
|
|
(serve/launch/wait
|
|
(λ (sema)
|
|
(make #:url->path (λ (url) (values static-path null))))
|
|
#:launch-path #f
|
|
#:banner? #f
|
|
#:port 8001) |