File: mengerinverse

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 (47 lines) | stat: -rw-r--r-- 729 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
// Write EisenScript code here...


{ color white rx 90 b 0.3} r1 
{ color white ry 90 b 0.3 } r1 
{ color white rx 0  b 0.3 } r1 
#define mod b 1.3

rule r1 maxdepth 4 {
	{ s 1/3  1/3 1  x -1 y -1 mod } r1
{s 1/3  1/3 1 x -1 y 0 mod } r1
{ s 1/3  1/3 1  x -1 y 1  mod} r1

{s 1/3  1/3 1 x  0 y -1  mod } r1
{ s 1/3  1/3 1  x  0 y +1  mod } r1
{s 1/3  1/3 1  x -1 y -1 mod } r1

{s 1/3  1/3 1  x +1 y -1 mod } r1
{s 1/3  1/3 1   x +1 y 0 mod } r1
{s 1/3  1/3 1   x +1 y 1  mod } r1
{s 1/6  1/6 1  mod  } dbox

}

rule dbox {
 { z 0.02  } box 
}


rule dbox {
 { z -0.02  } box 
}


rule dbox {
 { z 0.0  } box 
}


rule dbox {
 { z 0.01  } box 
}


rule dbox {
 { z -0.01  } box 
}