File: Arc%20Sphere.es

package info (click to toggle)
structure-synth 1.5.0-2
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 2,268 kB
  • ctags: 1,966
  • sloc: cpp: 10,209; python: 164; makefile: 71; sh: 15
file content (48 lines) | stat: -rw-r--r-- 945 bytes parent folder | download | duplicates (5)
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
// Arc Sphere.es
// Inspired by Marius Watz spheres:
// http://www.flickr.com/photos/watz/363931023/

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
}