aboutsummaryrefslogtreecommitdiff
path: root/externals/gridflow/examples/polygon.pd
blob: a18980eaede001b2a1e089db188c08f4fc06f3e0 (plain)
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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
#N canvas 130 96 584 565 10;
#X obj 35 250 #draw_polygon +;
#X obj 18 1 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1
;
#X obj 35 214 #store;
#X obj 35 -36 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1
;
#X obj 35 378 #out window;
#X obj 306 7 vsl 15 137 0 36000 0 1 empty empty empty -2 -6 0 8 -260818
-1 -1 3400 1;
#N canvas 0 0 415 291 create 0;
#X msg 82 66 0 \$1;
#X obj 5 131 #outer + ( 0 9000 );
#X obj 5 153 # +;
#X obj 5 197 # + ( 120 160 );
#X obj 5 175 # cos* 116;
#X obj 5 109 # * 14400;
#X obj 5 87 #for 0 5 1;
#X obj 34 153 inlet rotation_angle;
#X obj 5 10 inlet bang;
#X obj 5 219 outlet polygon;
#X obj 82 44 inlet tilt_factor;
#X text 81 27 default: 9000 \, for flatness;
#X connect 0 0 1 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 9 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 6 0 5 0;
#X connect 7 0 2 1;
#X connect 8 0 6 0;
#X connect 10 0 0 0;
#X restore 204 149 pd create star;
#N canvas 0 0 450 300 color 0;
#X obj 18 141 outlet 0;
#X obj 18 95 # sin* 128;
#X obj 18 117 # + 128;
#X obj 18 37 # * 1146;
#X obj 18 13 inlet;
#X obj 18 60 #outer + ( 0 12000 24000 );
#X text 139 52 each channel is a sine wave \; the three are offset
from each other 120 degrees. it is almost like turning around in the
color wheel except we don't support the HSV color model for now.;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X restore 62 102 pd color generator;
#X obj 35 -19 metro 33.3667;
#X obj 35 0 t b b b;
#X obj 35 71 t b;
#X floatatom 307 151 6 0 0 0 - - -;
#X obj 88 194 loadbang;
#X obj 51 272 shunt 2;
#X obj 104 274 tgl 15 1 empty empty empty 0 -6 0 8 -241291 -1 -1 1
1;
#X text 122 273 blur;
#X msg 88 214 240 320 3 b # 0;
#X obj 62 140 #cast b;
#X obj 79 355 #solarize;
#X obj 35 317 shunt 2;
#X obj 88 319 tgl 15 1 empty empty empty 0 -6 0 8 -241291 -1 -1 1 1
;
#X obj 155 303 # >> (b # 2);
#X obj 155 322 #convolve (1 3 b # 1 2 1) \, seed (b # 0);
#X obj -15 442 cnv 15 580 30 empty empty empty 20 12 0 14 -200249 -66577
0;
#X text -7 450 GridFlow 0.8.0;
#X text -7 450 GridFlow 0.8.0;
#X obj -13 -85 cnv 15 580 30 empty empty empty 20 12 0 14 -233017 -66577
0;
#X text 0 -72 Copyright 2002 Mathieu Bouchard;
#X text 0 -86 polygon.pd;
#X obj 79 336 #cast i;
#X obj 82 30 + 1;
#X obj 57 30 i;
#X msg 22 26 0;
#X obj 182 75 expr ($f1*$f1/2);
#X obj 155 341 # >> (b # 2);
#X obj 155 360 #convolve (3 1 b # 1 2 1) \, seed (b # 0);
#X obj 5 27 bng 15 250 50 0 empty empty empty 0 -6 0 8 -258699 -1 -1
;
#X obj 62 121 # >> 3;
#X connect 0 0 13 0;
#X connect 0 0 19 0;
#X connect 1 0 9 0;
#X connect 2 0 0 0;
#X connect 3 0 8 0;
#X connect 5 0 11 0;
#X connect 6 0 0 2;
#X connect 7 0 37 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 1 31 0;
#X connect 9 2 6 0;
#X connect 10 0 2 0;
#X connect 11 0 6 2;
#X connect 12 0 16 0;
#X connect 13 0 2 1;
#X connect 13 1 21 0;
#X connect 14 0 13 1;
#X connect 16 0 2 1;
#X connect 17 0 0 1;
#X connect 18 0 4 0;
#X connect 19 0 4 0;
#X connect 19 1 29 0;
#X connect 20 0 19 1;
#X connect 21 0 22 0;
#X connect 22 0 34 0;
#X connect 29 0 18 0;
#X connect 30 0 31 1;
#X connect 31 0 30 0;
#X connect 31 0 7 0;
#X connect 31 0 33 0;
#X connect 32 0 31 0;
#X connect 33 0 6 1;
#X connect 34 0 35 0;
#X connect 35 0 2 1;
#X connect 36 0 32 0;
#X connect 36 0 16 0;
#X connect 37 0 17 0;