This project has moved and is read-only. For the latest updates, please go here.
let swirlP r p = rotateP (log ((distO p)+1e-6) * r / 5.0) p
let swirl r image p = image (swirlP r p)
let swirlText swirlArg textArg = 
    condC (swirl swirlArg (tile (text textArg) ) ) 
        (canvas (darken 0.8 nicegreen))
        (canvas nicegreen) 

Last edited Nov 1, 2009 at 2:52 PM by terryspitz, version 1


No comments yet.