| numero ample x y spirale tamponne| x := y := numero := ample := 0. tamponne := [ numero := numero + 1. (spirale point: x@y) square; name: numero]. spirale := DrGeoCanvas new. tamponne value. 10 timesRepeat: [ ample := ample + 1. ample timesRepeat: [ x := x + 1. tamponne value]. ample timesRepeat: [ y := y + 1. tamponne value]. ample := ample + 1. ample timesRepeat: [ x := x - 1. tamponne value]. ample timesRepeat: [ y := y - 1. tamponne value]]