PasteRack.org
Paste # 4269
2014-11-12 12:11:23

Forked from paste # 22941.

Fork as a new paste.

Paste viewed 2383 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