Simple graphics capers
Last updated at 12:05 am UTC on 17 January 2006
Have some fun with the Squeak display:
Fill the background with something on screen:
(Form fromUser) setAsBackground
Fill the background with black circles:
(Form dotOfSize: 25) setAsBackground
Scramble the display: (This is simplified by defining 'Point atRandom')
| p0 p1 offset | "temporary variables"
100 timesRepeat: [
p1 := (World bounds corner x atRandom)@(World bounds corner y atRandom).
p0 := (p1 x atRandom)@(p1 y atRandom).
offset := (#(-1 1) atRandom)@(#(-1 1) atRandom).
(Form fromDisplay: (Rectangle origin: p0 extent: p1))
displayAt: p0 + offset. ]
Randall Bohn Tested, working in 'Squeak3.0 of 4 February 2001'