Fix local file reference to water.png image.

This commit is contained in:
Sam Tobin-Hochstadt 2010-12-13 14:36:15 -05:00
parent 3456ee185a
commit dae1543255

View File

@ -3,6 +3,7 @@
"common.ss"
scribble/eval
scribble/racket
racket/runtime-path
(for-syntax racket/base)
(for-label racket/math))
@ -255,7 +256,13 @@ brush can have a @deftech{stipple}, which is a bitmap that is used
instead of a solid color when drawing. For example, if
@filepath{water.png} has the image
@centered{@image["water.png"]}
@;{We can't just use the runtime path for "water.png" because we need to
make the eval below work. }
@(define-runtime-path here ".")
@(define-runtime-path water "water.png")
@(draw-eval `(current-directory ,here))
@centered{@image[water]}
then it can be loaded with @racket[read-bitmap] and installed as the
stipple for @racket[blue-brush]: