File: triangles.turtle

package info (click to toggle)
kturtle 4%3A25.04.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 9,392 kB
  • sloc: cpp: 7,717; ruby: 2,217; xml: 243; makefile: 3; sh: 3
file content (22 lines) | stat: -rw-r--r-- 355 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
kturtle-script-v1.0
@(reset)
@(canvascolor) 0@(,) 0@(,) 0

@(learn) triangle $size {
	@(repeat) 3 {
		@(forward) $size
    @(turnleft) 120
  }
}

@(for) $r = 1 @(to) 12 {
  @(for) $n = 1 @(to) 12 {
		$c = $n * $n * 1.7
		@(pencolor) $c@(,) 256 - $c@(,) 256 - $r * 21 
    triangle 200 - $r * $r
    @(turnright) 30.25
  }
	@(turnright) 2
}

@(direction) 0