File: Arc%20Sphere.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 (50 lines) | stat: -rw-r--r-- 867 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
// Master sphere
set maxobjects  10400
set background #454

// Camera settings. Place these before first rule call.
set translation [-3.33009 0.0259899 -20]
set rotation [0.147791 -0.237766 -0.960012 -0.822766 -0.568209 0.014066 -0.548833 0.787786 -0.279602]
set pivot [0 0 0]
set scale 0.18957


7 * { s 0.9 z -2 y 0.5   } 1 * {  color #5a5 s 0.92  rz 0  }  r1
7 * { s 0.9 z -2 y 0.5    } 1 * {  color #aaa  s 0.87   rz 0 }  r1
7 * { s 0.9 z -2 y 0.5   } 1 * {  color #fff }  r1


rule r1 w 40  {
  ubox
  dbox
  { x 1 ry 3 } r1 
}

rule r1  w 14 {  r2 }


rule r2 w 10 {  
  { x 1 ry 3 } r2
}

rule r2  {  r1 }

rule dbox w 8 maxdepth 15 {
   { y -1 rx 2.9  } dbox
   sbox
}

rule dbox { }


rule ubox w 8  maxdepth 15 {
 { y 1 rx -2.9  }  ubox
sbox
}

rule ubox { }


rule sbox   {
  { s 1.2  1.2 0.6  ry 5 }  box
}