PasteRack.org
Paste # 29314
2014-11-12 12:13:08

Forked from paste # 4269.

Fork as a new paste.

Paste viewed 2736 times.


Embed:

fish pict

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

=>

image