0. #lang racket
1. (require pict pict/balloon)
2. (let ([f (standard-fish 4 2)])
3.   (pin-balloon (wrap-balloon (text "I am ⊥") 'sw -5 3)
4.                (cc-superimpose (blank 300 150) f)
5.                f
6.                rt-find))

=>

draw-ellipse: contract violation

expected: (and/c real? (not/c negative?))

given: -2

in: the 3rd argument of

(->m

real?

real?

(and/c real? (not/c negative?))

(and/c real? (not/c negative?))

void?)

contract from: (class record-dc%)

blaming: <pkgs>/pict-lib/pict/private/pict.rkt

(assuming the contract is correct)