~drgeo-developers/drgeo/trunk

« back to all changes in this revision

Viewing changes to resources/SmalltalkSketches/Cotes Spiral.st

  • Committer: Hilaire Fernandes
  • Date: 2012-01-27 21:15:40 UTC
  • Revision ID: hilaire.fernandes@gmail.com-20120127211540-912spf97bhpx6mve
Initial additions

Show diffs side-by-side

added added

removed removed

Lines of Context:
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.
6
 
pen _ canvas 
7
 
        point: [ :item | Point r: 5 / item point x sqrt  degrees: item point x * convertFactor ]
8
 
        parent: mobile.
9
 
locus _ canvas locusOf: pen when: mobile.
 
 
b'\\ No newline at end of file'