12 lines
308 B
Scheme
12 lines
308 B
Scheme
#lang frtime
|
|
(require frtime/animation)
|
|
|
|
(display-shapes
|
|
(list
|
|
(make-circle mouse-pos 10 "blue")
|
|
(make-graph-string (make-posn 20 20)
|
|
(format "(~a, ~a)"
|
|
(posn-x mouse-pos)
|
|
(posn-y mouse-pos))
|
|
"black")))
|