Fix local file reference to water.png image.
This commit is contained in:
parent
3456ee185a
commit
dae1543255
|
@ -3,6 +3,7 @@
|
||||||
"common.ss"
|
"common.ss"
|
||||||
scribble/eval
|
scribble/eval
|
||||||
scribble/racket
|
scribble/racket
|
||||||
|
racket/runtime-path
|
||||||
(for-syntax racket/base)
|
(for-syntax racket/base)
|
||||||
(for-label racket/math))
|
(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
|
instead of a solid color when drawing. For example, if
|
||||||
@filepath{water.png} has the image
|
@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
|
then it can be loaded with @racket[read-bitmap] and installed as the
|
||||||
stipple for @racket[blue-brush]:
|
stipple for @racket[blue-brush]:
|
||||||
|
|
Loading…
Reference in New Issue
Block a user