← Back to branch summary

~hilaire-fernandes/drgeo/trunk

« back to all changes in this revision

Viewing changes to build/SmalltalkSketches/sierpinski.st

  • Committer: hilaire
  • Date: 2014-06-15 11:10:10 UTC
  • mto: This revision was merged to the branch mainline in revision 278.
  • Revision ID: hilaire@drgeo.eu-20140615111010-r5xg226s9kwzyu8w
build script

Show diffs side-by-side

added added

removed removed

Lines of Context:
build/SmalltalkSketches/sierpinski.st
 
1
| triangle c |
 
2
c := DrGeoCanvas 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'