turningXPos t
|
= |
rotate t xPos | Lässt die Bilder auf
einander rotieren |
swirlingXPos t
|
= |
swirl (10 / sin t) xPos | Swirlt die Bilder |
roamingDisk t
|
= |
uscale 30 (translate (cos t, sin (2*t)) udisk) | Lässt eine Disk auf auf dem oberen Bild kreisen, die das untere Bild durch scheinen lässt |
Pos
|
:: |
Region | |
xPos
|
= |
\ (x,y) x >* 0 |