File: square.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 (57 lines) | stat: -rw-r--r-- 631 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
 
#define $count 30

square 

rule square {
$count * { x 1 } 1 * { s 1 1 0.1 } strip
}

rule strip w 5 {
   { s 1 } vstrip 
}

rule strip {
}

rule vstrip  {
  set seed initial 
  dbox
}

rule dbox md 20 {
  { y 1 }  dbox
  dbox2
}

rule dbox2 w 0.1 {
 
}

rule dbox2 w 0.7  {
   {s  1 1 10 } tower
  { color grey } box 
}

rule dbox2 w 0.3  {

}

rule tower {
 { z 5 s 0.9 0.9 10 } box
}

rule tower {
 { z 2  s 0.9 0.9 4 } box
}

rule tower w 2 {
 { z 3 s 0.9 0.9 6 } box
}

rule tower  w 0.3 {
 { z 15/2 s 0.9 0.9 15} box
}

rule tower  w 0.1 {
 { z 25/2 s 0.9 0.9 25} box
}