1
| canvas s mobile pen convertFactor locus|
2
canvas _ DrGeoSketch new fullscreen axesOn gridOn "scale: 0.1".
3
s _ canvas segment: 0.001@0 to: 30@0.
4
mobile _ canvas pointOnLine: s at: 0.
5
convertFactor _ 180 / Float halfPi.
7
point: [ :item | Point r: 5 / item point x sqrt degrees: item point x * convertFactor ]
9
locus _ canvas locusOf: pen when: mobile.
b'\\ No newline at end of file'