← Back to branch summary

~hilaire-fernandes/drgeo/trunk

« back to all changes in this revision

Viewing changes to resources/SmalltalkSketches/sierpinski.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/sierpinski.st
 
1
| triangle c |
 
2
c := DrGeoSketch new.
 
3
triangle := [].
 
4
 
 
5
triangle := [:s1 :s2 :s3 :n |
 
6
    c segment: s1 to: s2;
 
7
        segment: s2 to: s3;
 
8
        segment: s3 to: s1.
 
9
    n >0 ifTrue:
 
10
        [triangle
 
11
            value: s1
 
12
            value: (c middleOf: s1 and: s2) hide
 
13
            value: (c middleOf: s1 and: s3) hide
 
14
            value: n-1.
 
15
        triangle
 
16
            value: (c middleOf: s1 and: s2) hide
 
17
            value: s2
 
18
            value: (c middleOf: s2 and: s3) hide
 
19
            value: n-1.
 
20
        triangle
 
21
            value: (c middleOf: s1 and: s3) hide
 
22
            value: (c middleOf: s2 and: s3) hide
 
23
            value: s3
 
24
            value: n-1.]].
 
25
triangle
 
26
    value: 0@3
 
27
    value:  4@ -3
 
28
    value: -4@ -3
 
29
    value: 3.
 
30
(c point: 0@3) show
 
 
b'\\ No newline at end of file'