File: turns.es

package info (click to toggle)
structure-synth 1.0.0-1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 2,072 kB
  • ctags: 1,176
  • sloc: cpp: 7,070; python: 167; makefile: 66; lisp: 25
file content (86 lines) | stat: -rw-r--r-- 851 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
// seed 61
set maxdepth 10000
set background white
set minsize 0.01 

1 * { s 1  color grey  } r2

rule r {
 forward
}

rule r {
  turn
}


rule r  {
  turn2
}

rule r  {
  turn4
}

rule r  {
  turn3
}

rule r  {
  turn5
}

rule r  {
  turn6
}

rule r  {
  r2
}


rule r2   {
 set seed initial
  r
 { rz 180 s 0.5 } r
}

rule forward md 90  >  r  {
  dbox
{ rz 1 x 0.1 } forward
}


rule turn md 90  >  r  {
    dbox
{ rz 1 x 0.1 } turn
}

rule turn2 md 90  >  r  {
  dbox
{ rz -1 x 0.1 } turn2
}

rule turn3 md 90  >  r  {
    dbox
{ ry -1 x 0.1 } turn3
}

rule turn4 md 90  >  r  {
  dbox
{ ry -1 x 0.1 } turn4
}

rule turn5 md 90  >  r  {
    dbox
{ rx -1 x 0.1 } turn5
}

rule turn6 md 90  >  r  {
  dbox
{ rx -1 x 0.1 } turn6
}

rule dbox {
	{ s 0.2 1 1 } box
}