← 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-07 08:55:48 UTC
  • Revision ID: hilaire.fernandes@gmail.com-20220807085548-n5j04a3gxcvtgn30
Clean up

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'