← Back to branch summary

~hilaire-fernandes/drgeo/trunk

« back to all changes in this revision

Viewing changes to resources/SmalltalkSketches/Archimedes Spiral.st

  • Committer: Hilaire Fernandes
  • Date: 2022-08-15 15:18:37 UTC
  • Revision ID: hilaire.fernandes@gmail.com-20220815151837-6ta4g0ymzln715j4
Organisation

Show diffs side-by-side

added added

removed removed

Lines of Context:
resources/SmalltalkSketches/Archimedes Spiral.st
 
1
| canvas s mobile pen convertFactor|
 
2
canvas := DrGeoSketch new axesOn gridOn.
 
3
s := canvas segment: 0@0 to: 30@0.
 
4
mobile := canvas pointOnLine:    s at: 0.
 
5
convertFactor := 180 / Float halfPi.
 
6
pen := canvas 
 
7
        point: [ :item | Point r: 0.2 * item point x degrees: item point x * convertFactor ]
 
8
        parent: mobile.
 
9
canvas locusOf: pen when: mobile.
 
10
canvas
 
 
b'\\ No newline at end of file'