PasteRack.org
Paste # 22941
2014-11-12 09:18:29

Fork as a new paste.

Paste viewed 1902 times.


Embed:

PLT Hulk: Fish am bottom type.

  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