diff Fan Models/angleCalc.pd @ 127:b3ebe65683bc

basic Fan model added
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Wed, 12 Aug 2015 14:18:32 +0100
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Fan Models/angleCalc.pd	Wed Aug 12 14:18:32 2015 +0100
@@ -0,0 +1,46 @@
+#N canvas 373 91 541 315 10;
+#X obj 275 46 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X text 255 27 Elevation Angle;
+#X obj 204 68 / 360;
+#X obj 204 90 * 6.28319;
+#X floatatom 79 166 8 0 0 0 - - -;
+#X obj 138 69 / 360;
+#X obj 138 91 * 6.28319;
+#X floatatom 23 72 5 0 0 0 - - -;
+#X floatatom 272 70 5 0 0 0 - - -;
+#X floatatom 166 207 5 0 0 0 - - -;
+#X floatatom 251 239 5 0 0 0 - - -;
+#X obj 138 115 cos;
+#X obj 204 121 cos;
+#X obj 204 185 *;
+#X obj 138 139 t f b;
+#X obj 136 164 delay 9;
+#X obj 204 239 outlet;
+#X obj 204 40 inlet;
+#X obj 139 42 inlet;
+#X obj 26 46 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X text 30 28 Azimuth Angle;
+#X text 278 129 Create an audio version of this patch;
+#X obj 204 210 arccos;
+#X connect 0 0 8 0;
+#X connect 0 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 12 0;
+#X connect 5 0 6 0;
+#X connect 6 0 11 0;
+#X connect 11 0 14 0;
+#X connect 12 0 13 0;
+#X connect 13 0 9 0;
+#X connect 13 0 22 0;
+#X connect 14 0 13 1;
+#X connect 14 0 4 0;
+#X connect 14 1 15 0;
+#X connect 15 0 13 0;
+#X connect 17 0 2 0;
+#X connect 18 0 5 0;
+#X connect 19 0 7 0;
+#X connect 19 0 5 0;
+#X connect 22 0 16 0;
+#X connect 22 0 10 0;