search

stchang / pasterack

The Racket pastebin.
30 stars 7 forks source link

pict pastes broken #43

Closed stchang closed 10 years ago

stchang commented 10 years ago

http://pasterack.org/pastes/22941

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