From 0bd14d0d74f94ace244cd47cc944efe919159d15 Mon Sep 17 00:00:00 2001 From: Dooho Yi Date: Thu, 14 Jul 2022 18:02:04 +0900 Subject: [PATCH] panning added --- iamyou.pd | 2 +- iamyou.zip | Bin 10992564 -> 10994120 bytes iamyou/eqpan2~.pd | 51 ++++++++ iamyou/eqpan~.pd | 24 ++++ iamyou/main.pd | 325 ++++++++++++++++++++++++++-------------------- 5 files changed, 260 insertions(+), 142 deletions(-) create mode 100644 iamyou/eqpan2~.pd create mode 100644 iamyou/eqpan~.pd diff --git a/iamyou.pd b/iamyou.pd index 3c6b29d..7a2652f 100644 --- a/iamyou.pd +++ b/iamyou.pd @@ -1,2 +1,2 @@ -#N canvas 959 463 400 300 10; +#N canvas 959 171 400 300 10; #X obj 147 129 iamyou/main; diff --git a/iamyou.zip b/iamyou.zip index 7c2131fa00ca1c1f47f55e84360a51feac9d2cd3..0b075ea2aa89922129e9cf715e63c5f34a123aff 100644 GIT binary patch delta 6155 zcmZwL1yoeqy8!T^LAtv^y1Nk&q(Qn{LP|=>p}Pjep^?x5r6h(%LJ_2;K|u0?bPEE$ zt^ak`|K9iBne|)Wd}r^q_ntj_owd%_a8ZcSA60~br>BXAPKE{n*LCzeyf8Fu;`Dt( zU4Ig#%nUSEG$9G0sAjadW;7H475M!f9l!uE0W1I;zya<6xBwo24-f!^01-e8kN~6r z89)wD0F(d~Kn>6Uv;ZAI4=@0X029CrumG$88^8|S1vmgsfD7OTcmQ6258wv`06{4v143y$_mrvd?E7b*NvL2$#vXl>2w5;;A@h)j}Gd7aD+a7{Z z!DKE!`|(Ry-Nt+qdKCMiT=NOK;}T($zzph@q1yM!S5aE_dWn@%wyJ5*1TGej#y!+n zpsM*LlP-n}CI#=7Jv7$DHf_Bw zQIRkL1Rfi&xS#B?Xy11?!K0(tZ+IRR2P^{yZTN@)_^bYL59=nA=U0Hd!R~mQXGDKs)OrI9xvnVX0rVG%QJk)hVY0kRE`1^T>4S5FL zH^keFt9XF|fvAEfAkqIiHos3zDD2+j1wp!x2e)K|(y9gg@7Ncf6u476EZW7fkHrX? z2BfFtLtV-r){+Y#Le2+zG)t6{?jgg14z@>6hDpc`=pWzHBXYc-=%{gTHPHKnwDmfw z9m4hc+ow?9$a1e`KlB439TE2>{F-0SP@3qCHG2dPeU8zU)ID{aHTG>@;-nN4_VtSL zg@h%%E~8Rym`Pn#*E$x}%-B)MT@KEW9Z}Cu^Mvv&&TqR)ddB!LGK-&3iavGLuFYxl z?oI1k^5hvD6JjrO+v<9Xs~auXS27Ogd%TIro?U{CvM;*h5}w(zye$cZ z4aN_j>vQ>2n^Ag^W$sZg^y>^xl-;@h%BGw`SRS{0GF~OpwmcLUg+ce;_BApC>t-A~ zt%w0CU-M#lMouA>GG%r@*@@8CE07Ow>tqbJU*w?5udc+VPdx;E#FK8buir zZF^pm9fA5mHm{lz72Jwn$C&tDjk4LDw)GC&V*wBCaC4iRHF!SqM9s=m+out$g{t!9 z$UEdXd~h(1`Y>}wQzrKl>%V^^0v^zaAa2?SN8F+jxTWnIB1yh7I}<=4oKorDH?*q{6ta7bIk;mIh78+*X8BhSH>2AYA@xza(32u zkhjR7`zYjGXxHz;ny~AoeOL1kvw&pnZr|oEZta3Z7u$_=y~uDd8e*g~_}ukyb1|QJ zv}-O(!n>+bW{-BEyRjg2X2&kOJ^>Xv|LE|W6={OV-EU)OK^GJ{6EjacEg^3uhgzz; zxa^mu4A~Vq34$G-PPbkerS#ps6fX8m3D9mz`*7*VjI`EJyhO1s9IUl5lo30#8nWZ4CTPKrp>ANY9bz1g8yxcMvNv9DQ!tytw1TBfGjcAiqL@2_)hU@+h%{#Z|)@)XS0bN_6l&U|h7 z-FgBx#Os8?X({4YB_^-*Dw)8t!61XuHNSiBVPyGd#^9HsyC^s?dHwPtD9)?yFVo>= zzNXz6B}JI8Ok7M}AH=U^9M~}8tP~~bC+Bx>)4hE2%??*O(byYh)8XLTSFW~XYb(j8 zp9S9W4)R-*BvAi!a;nt8hC}wL7+Ha*BI@&&*T)u;n`p~688}~@Sx>ME%wLz65q%(W`oLpv7&_4f=giU4R}GrGll!Wj z*}gH>r$r^o*&Rb}KSw00X+$wgU3hwC!a*QtYp~&Gd^zX#7mi@ASzT#pN@D$#4lBhc zMLCx-Vwy9?3XbHPXj5aH^uN?oxLj$YubxyYu)`D2EyH+tWEP+_xuJ0%qx2VhX(F>e zT8r+YY@1Bg>=4GZD{Zu=*W%s}>%n~kXGi1Sf&~Pbw`0xE1<&e!40UAk zuxjFX*lQKb)aw`YW9RT%Or3l z=Xu^+yz06Er<|yDa++W9u@0sr*Iegu5ue|_n@b7aVkv@g_77Mb*G3l>@_6T?#_l8$ zh>mWp@DqoBWRPZx9#yIY%R+LEecajC90^WGooI8kWG4u0|4Rlx_DZgQ8VxcXh`1_vw|n|9owc$N+-%|ZR#Qc+~l zd!E9y)m7=O0MW3Of}<_}9<$W^W9fEe^`*N^jm22oV)ynUq7+IbX(bV-^1`{avX!8D zvU9F@J*KoHNx`r#p)p=xQ{JLnq!>$J-i zN8bF(o(ff@jGv+Xas7+0aFMq!n(}tp2FuHIt%>o9k*wDuqv^8JO=i+qqr8O)uJ{4Z zrL-l`(;3)@x$dGL&)^41cNH)HV2bbxrW&h+$|){?FQ8sj?4i;rsp@6#5*W!Iet3lQ zb-zpcdTBc#K&3CH7SYu#347DE26Yh%s6WD*$+@y%>i!9}=w~q^aQtbkZ_J^8(c6Me z$s2l8wK>uhgT^yx({Ho7-hO=#6_IS#lF_{*?R1IDHI&G!;(cQLBY}bI72buhnGReJ zW0w%Wb}k0H*3IA0ST-(F_X3mnp7FT zbUi$co3-oEJI^zSxjGhbbf;0>5DM*IM&<|wcNDn4y@5E()ufFR^^c|Os;mUNRe85y zFk)S&D^Cy=*coD|c_tj#_i%mUKGU9v)}X=G_@ez4Cb01=@QciZ!Gl&rnp9H%htIcq z+)UlQFRXpT`g|iDP>k5q=Z$pU}PB(_^q55Pm{)=^2pq{W*ll8MmU00wmPYO^IIbp&bRLH$?PUJADv6_MwwHXpEBlBXz z`}M6OEm8?ss%#9hR87eyLIbqQCyNLbe`&7&BDs98a(hBDV9dSl*I$|epA6tBCFo1lbrRPrP3O0g7MdKu}_!X2k`?;2?7 zEHn^kc%mL*(?J_)XSYsC(L7j;{<%JO^*-HbU%JQOL4-f*=H6j`t*s5l87!JAVE+`~ zba4`Z&bvKl<9PuWliZpoT}Ul<88ui!E3X`otoiz_#MK&M-%T#jluGe+tbPfXM3SZ z-l*uAmn0wkwB?W13x4GUJkoxOOThTvZ>4vIb%@b&+>B8=%UkkOWxdan_*#mC1>#Cv zzDU{>$WIjfH;Z|?Ke^S;Z@BEx18aYr{}mA2vASk^COe5@E*l67i_gV-dBMT|MOP3P zni3qeE5DZ^e)}$ee*9u{a`&6^_)e9uOuN^F^1QsfT>JKBTv(O7!U$0$_gEum|f6*81V9s4i(eJmq@IzhD62mT#7-|+n!{>Ej+q-gCr5-nfJ3%K^ zW25qzFWmfT6Z(ez257ehmY8Iltx%OCTNhicOa_gE3+wpyJ$J6dw#t2LE%+qbYIbgv ze^qa+5)ld$@Ne5#P>`_c=3hAkQ6CmvoBaIFlJlciB41-9gy#`t9B=6bbU!J-D-PNs zaBLd-8R00zU1ysAoqI@MhTJHh+{oR?h&M<7xewLIqk`dYTFg%*wYgV9^^7{cclwDX z$L81?lQs3(PnP+KX0Wi~@I{y4xLax98q^g2!ZK?5G(ZuY+ixMndS}#!FRDu#K)}pP z?mt8y$}m5S^x4%bd=b?(q530z3hIvLmM0?T1QAc0)b9u=D|EwV#aD6Ar5?j5*E&6+aGxuWVF4VVv>0MUdIDFFF0+TLzQucL~g)35mb%O!{^ReX(={G-55TL3=x|@kqT}dMPOVBUzKW<8&t#CFRQOx z08>wuYQWGiFMbpD!uXzy^D&O>{YyV=1L(OL^E02~+iNQldQG*wh_lhirg3-kGRv+w zY!?|;6@|6#=F8QnDEl`H@UzOQ#O#|^?rQ$QS&L^=Jv|!RxVCt#=aqR^`G&9QGMBq& zHWvMdSFdNC=(4s@tn?CF$f1_W6o*@zFw*2H!w38#9IG$oDZZ&jb8X@Got~Ad|6;B# zd{gH-@3h;Y@}{2o{BFy%j?Tn!T!a_Fxcy%+>qlD8v*>Z>1^RlPh(z9!p|1 zx-5Q=uAcYSdpylyz(DArWDHZoCcnp0>o~i~J@ur$G{w8|TGUN1i5eQ|L2JsZghlIF z)T9_@l-C3d$qwgsaUkdO|8mt!LrRPq77T>u>#U zcSpYXZV9wLXDYg@IeRm^KgtE$!U%0|N4(!!i~OP?HDAtWVJ2R2mj7f9mvZ=RbM2g6 z@k^%{qapazo$_V(J7yQ5l_M2tmxCc6d4xj)#s9Jw%Oi}!H+i~jbm7_&+|c@n_3dN& zE;LtO_c-hdi3gG?4`;fide73d_tLTY<5u#9LRVLmCu*uyHQc$@a*Fk;TEz*7O2Ubi zNCYFWWNIyQcCwFeZ8ybm_Eo9GVzRIwVcZ=jZ!h5E{4O)2)u{cQ7wSGR$Hw`dV(@|4 z0=l}?%v8#x4+}UrLrGKh!S7tIKGRgF>uz3`{p4!r&2joIp`8E)iKrNaN4B`0yM6q!c8l;5~-g#_K-qEr2<+%aq88dJDs9B)f!M{Os}P1Fb`_3ivvN*x#T42T(fvnbz&m5#CiVv zNWUh@hpD1fs+pN&-ET!NVL@;1edW`Vx7B5xn=XN|jCYIc4e${GbWJ{*SIA&0yiTMR46_1kXQi=ls4s`4ZmPjIcp9 zD}htAAh`e0Y|{doQ%d2%EeLDWqF3;R7K9y|K{*1>T#6uv)3p6-rSYwxGwdzAtQCx< y^$w2F_OG#Y+CcNO2Dn=rf}Q>E!&E1HMFTcNPZI-_MtV~2BGNutp3?P8t&nSQdAO*+(a)1J$1gHRN;0!KpwaZC;*Cp5}*vI0II+h;3}X7Tm!BH>c9;^1JDGt0BryR=m5Ha z9-t2x0EU1OU<{Z5roc_W3@`^Q0879Mum)@ZTL25#0rr3c;0QPYw}9J#GjIoR0bBt$ z;2*#p@BlmkFTfk{0qz36z&*eZ@CO2bK;S+Q1Ox*QfDix&gaTneI1m9u0#QIT5Cg;l z4}mx!9!LNZfh6D&kPM^%sX!W#4rBm$00J_BEZ{Nl1jq(*fLtIC$Oj65LZApJ21a-o-=0%W20#t72S= zj&N$0V9qziP@!c`L*C89eML=^BRP34lYv}I(|XB!sX@kZOu$dA$0zEvxz+RJ;|v?^ zdS2JmM4m2fQ*<`*2crnR%atorTi-?R$nJ+}ecj!e!sm(OT6Z5mk{rJ8tg6T6i?FHj zXYnu@nrf_m_P)3N%gkd!UiCw!=hgm8%@^sMbvg(hLnp}AL|js^CDGtzou=|mtL`KY z5mqjym>lN!>b#fzyMpYCg(w3FO(Ld^dYdbsuyG zk{Y>wc2GIm$8mn2*(YauDrWE2{phLF=O+k7#2Xm%YTIg*#o&{8WznKZ*b;?FqOfe~ zBFTv_jTwO~+bA^R%#Q>b-l7ivqqhdB2ue$LX=xf2In#W_^`}8`LZ$gqR^7d74kj8R zP<~y9b&H()wdPbqJvg+$kC4tu2c&6=TsQNtOEv}hpy1N7l*TK8GIygua_7qs= z{Mg!qN?m*TC^N(Zy}Rfr8`s3kqtDsbCEQi6BX}Qwjk>oj*sJ^V&Q{e;p#a&L9C<3a zxUn71>D|Q?u{h!oya#sXNt)U(>z0i>LpwQyZPQPz3RYcts{a)k^Tk}l|)_fz< zZwltZ{p0d_`+fpfS7s}er6fLuMr!71P6`*un_IF!m&jQ4dbr`)Hs)3<^1;7bdbP!$ zEd198A39#=13${X>~AkU!|#x=+O^l8w+OFySF*)r(FO9PTOFYkqxnM*mF;&>(u2HLwl@;` z@32KG&~FR-l-?OCQN1bkZr1|4=c=T1HYX?`8n@K%P$8gD*_-yM;mf68GCxFqJ^1mH zYsB!fKL0;IxK)>hb09XP!YFe0Q|)K!+G^U$^Hg)D`v3YKCuw$eJt_{;q-60o(JUUt zS48U?&>D#{(N{k64|OVMFsL2beLa;!vM;90kulx0rZX^kk92x=qk4iXFsZk_@I4(K zl^2EkDV4nOeB_^B&+bB+Ta;}!%0-@^{IYVnd$S$~iSRGHGK{17BPugZ@C!0Rx>~RDOFDUjEEaK*8%CWD~BGhn18Fk)%qc+#R?2x#i^H+~`H*Zc* z7*nBsI&t`RloZYuQ9(#tUHJO9;l&HB|7>khqXfm5>XO?Zd?+E~nrATU4o7`^Q_ zk2^WvJ2#g*yk7cm+7q{ciQuX{cMVGFM#-sQ`3Onf(@r}@Q&umEYuF#3SXI~)>RuSO z99NmFz43$k^XlDHAd*t|yEjaVKhdmkiwf27`1ZY1u%;;Q@Kux_@ld-|yEDFGbMXP4 zOD3xTnM=~xjOVXsjhx**x>A#N-^VnzN4IgYGUw!1bpxh-R~t(GN)a^+dx|y6isV@dNc$3e6 zko_o3hE|?8L+PU)r~6{2aFn7{`k1rvZWY%_W<$MsZ&r)u5H2E| zd8ePV;>=8guJgwT?fHESc5WoTFGlQu+sl7X&G`F^In!!AhWpWpw)E6L?V}HbN0OD~ z8y+i?NwUu~I?~jeT)wpsl$@KhY9&U#BB}kUHs(Q#k1YZ_M9`?&v!QjrRe!S4+rpi# zX_YA4A(>NG*0g+S{$;`DL6H0Neik+c+}l=?-X6>6Obx#XT{F7_yDjXF$6*2c`&{uR z?0qLW=)vi$Ew7snBFgGN2d?QsQOLpSv|~jdpWGa=r4;FYJrl1!k(zfx_ILr6@HzkQ z?VG&n+Nv}<=%Ev%nO#h#4(d{6us1rtF*^Ox-PBO7BfB{HHdn^1s#m7p){Qq0aQ{$9 ze9kqj#wJ8W@`xUFo_*hB>0|CgqTL_LG*bON;!;$h40bWI+>M}Pl(O1k8n?O};2j%% zCEA0}Evlj_qx&B!6>4-a#d(y_NQY65duH$ov3;RQoMPcKhH>A0d{rtB6t-sWzz@O;(A+S)N|5Jp14f>`4Fi*=tV2 zudfbE5xdH!n?Dw*EZL+W?o-v64gRhclJ>2Jg0!=9Q-pC>&e=*wHh29XF%joIq_Nxy z`7g#ivLaM_N-+ERvz5O(_D*BO%FYLus%MKPyVQPhM5;Y~caf_aRURFy{ho3vi2NeW z!tyVk%kP9D> zQbY<>ISLA5x^E4MG6}ItOPS)FuPpCA97novux7+}lMd-<9QE|e>uwz>4*#P2qI&)3 z5#2-E$Q^cf%0T7v_qXiNEO{2Uc%M0>Gv2UWSEIvNJHu6h-!@Hk%T$9~-@!Aqa&v4;i4>EVz6_apLK`AIz9=#z zMiIXEo|=g@K!*Co3h`1OLzhi{fne`es0aRnAzE_2`k~Z}=^^Vd<(w5gqIF8aja=Ec zfi!L{PhgAc{s8Nj2=Y1Hv;hO%>4&P*yhZD6&Jb)`&)3)6ry1A_z5b%=jn77|EbV=( zBBqy0c#_g9I9ya_Rw1XKlqWdjx$S%#_u#lr@EU?)%KDCM+s(Xx*KFFmHeZIJ7(TAs z$ceqfIz4bfF0j?S;8BfR@vM-2msT}YW1EvSmZt26l9zbe==aF&4z6W(A&F!Hb$95v zfBlvH=`+)T1tV`1pVC}^h2%O>UvOy}c3!-B?~4v=J5M5o(PgupB`**E+WQ~(mUd{? z2+E{$RP|(JHL9(IpFbNTLW?+=(IE|TE1T>@`r)b#nbVw%dF8YX`(GWqwC%K>^Nx#I z)P+@j51G$GC*}*fa^Q4dC56!IXKH$*UN1k4UcrYRQBxQl6h}(3$3^Yj^ivo9VrnO< zSbbk{mW5o;^pa4bt$QXbhQgQFIW9CwoVaCj^{hmhM8jlOuej}bi(}M#yi5I_BGCNj`e!~>@ zc1-p|&zQhz|Jd?^X!4TLr@bhHsQ#{}__SwFI%3Jv$ZE*uJXW%JV&9}+8Pnm_tgj8Y zeB-culJ66j3$8X@RM+9zC$I65SC^4)3Wadb@%jm$S)bw7h~ztuEm{dz_0CLL@po`* zKZY2O(u|0br!~rkK3}=#N28)-_!+rf4+{|zkTzTw}ZS30vkxq_t-9+ zNiZ`kjM_>h9{It78!fO%tXqrskQ$*ZLe_`|8HlO>GA}mVN1@W{m`i%bd~YmsaSf+) zq)gmSkziDLimPAN%HGiCSSZ7%4p7yipNkK7#q=?%C>a{YL0DhjDs-9q;ho{!H*qTi zFM84}Om4@yVtCcfXbLFv3hHfUyZ|&qOeCa}E&$~S=-X z5QK1uxfRyp`v3bmzTc-5;Nl7`4x5dHLR#VTOqO$;9KXjv=2ZOW6MyOzt*|(PDHU35 zg@sYo7r(MYVI3g-W+qHS^LLVjG)S!t7X0g#*fyA*MjnFyXXoez8MeW!&>jKig4RKl zRyFhQ=*8dRvwvmKAi(U1ipP*60T%tM`Q`8Cs3%ZA0mdRIb0Cp+SmdwplcN7KG?iTF zQ9EplFvy4Y+hKbostAU>p2EyfAOU9n?~a!cYNb$P2T1v&3}Wm2Un!$&VH(J*6Q)K8 kS3n`1FhBpFnE-S3pQQnYg!K1xGJ(68jELxK4Ge1k0g`@qpa1{> diff --git a/iamyou/eqpan2~.pd b/iamyou/eqpan2~.pd new file mode 100644 index 0000000..04a915c --- /dev/null +++ b/iamyou/eqpan2~.pd @@ -0,0 +1,51 @@ +#N canvas 220 105 930 420 10; +#X obj 47 27 inlet~; +#X obj 113 349 *~; +#X obj 503 349 *~; +#X obj 456 68 f \$1; +#X obj 456 39 loadbang; +#X obj 456 91 t a a a a; +#X obj 341 113 inlet~; +#X obj 128 261 expr~ max(min(max(min(($v1-$f2+$f3)/max($f3 \, 1e-6) +\, 1) \, 0)+max(min(($v1-$f2-$f3)/-max($f3 \, 1e-6) \, 1) \, 0)-1 \, +1) \, 0); +#X obj 518 261 expr~ max(min(max(min(($v1-$f2+$f3)/max($f3 \, 1e-6) +\, 1) \, 0)+max(min(($v1-$f2-$f3)/-max($f3 \, 1e-6) \, 1) \, 0)-1 \, +1) \, 0); +#X text 587 19 arg #1: width:; +#X text 637 79 in result \,; +#X text 657 119 -width/2 ~ width/2 -> cross fading; +#X obj 113 378 outlet~; +#X obj 503 378 outlet~; +#X obj 456 160 * -0.5; +#X obj 490 130 * 0.5; +#X obj 128 297 *~ 0.125; +#X obj 128 320 sin~; +#X obj 518 297 *~ 0.125; +#X obj 518 320 sin~; +#X text 168 320 sin~/cos~ input is NOT in radians! read help file; +#X text 168 340 equal power == using 3dB curve \, for ex. sin/cos; +#X text 657 139 +width/2 ~ width*(1.5) -> right fade-out; +#X text 607 39 -width*(1.5) ~ width/2 => left fade-in/out; +#X text 607 59 -width/2 ~ width*(1.5) => right fade-in/out; +#X text 657 99 -width*(1.5) ~ -width/2 -> left fade-in; +#X connect 0 0 1 0; +#X connect 0 0 2 0; +#X connect 1 0 12 0; +#X connect 2 0 13 0; +#X connect 3 0 5 0; +#X connect 4 0 3 0; +#X connect 5 0 14 0; +#X connect 5 1 7 2; +#X connect 5 2 15 0; +#X connect 5 3 8 2; +#X connect 6 0 7 0; +#X connect 6 0 8 0; +#X connect 7 0 16 0; +#X connect 8 0 18 0; +#X connect 14 0 7 1; +#X connect 15 0 8 1; +#X connect 16 0 17 0; +#X connect 17 0 1 1; +#X connect 18 0 19 0; +#X connect 19 0 2 1; diff --git a/iamyou/eqpan~.pd b/iamyou/eqpan~.pd new file mode 100644 index 0000000..8ecabff --- /dev/null +++ b/iamyou/eqpan~.pd @@ -0,0 +1,24 @@ +#N canvas 1 91 594 362 10; +#X obj 79 196 expr~ if($v1 < -45 \, -45 \, if($v1 > 45 \, 45 \, $v1)) +; +#X obj 79 173 inlet~; +#X obj 18 173 inlet~; +#X obj 18 320 outlet~; +#X obj 249 320 outlet~; +#X obj 79 219 expr~ $v1*0.0174533; +#X obj 18 278 expr~ $v1*0.707107*(cos($v2)-sin($v2)) \; $v1*0.707107*(cos($v2)+sin($v2)) +\;; +#X text 212 15 vanilla version of [pan~]; +#X text 212 115 https://github.com/MetaluNet/moonlib/blob/externals/moonlib/panvol~.c +; +#X text 212 35 f = f < -45 ? -45 : f \; f = f > 45 ? 45 : f \; angle += f * RADCONST \; x->right = ROOT2DIV2 * (cos(angle) + sin(angle)) +\; x->left = ROOT2DIV2 * (cos(angle) - sin(angle)) \;; +#X text 245 230 NOTE: RADCONST & ROOT2DIV2 is lower resolution than +original.; +#X connect 0 0 5 0; +#X connect 1 0 0 0; +#X connect 2 0 6 0; +#X connect 5 0 6 1; +#X connect 6 0 3 0; +#X connect 6 1 4 0; diff --git a/iamyou/main.pd b/iamyou/main.pd index ef45a94..b4e3cb4 100644 --- a/iamyou/main.pd +++ b/iamyou/main.pd @@ -1,4 +1,4 @@ -#N canvas 96 91 1246 672 10; +#N canvas 1 91 1246 672 10; #X obj 14 14 receive fromSystem; #X obj 14 60 route /location /compass; #X obj 14 37 list trim; @@ -9,17 +9,12 @@ #X obj 593 292 pack f f f f; #X obj 84 83 s \$0-compass; #X obj 83 225 s latlon; -#X obj 28 446 wav2~; -#X msg 28 384 01.wav; -#X msg 41 417 1; -#X msg 114 376 \; pd dsp 1; -#X obj 75 320 loadbang; -#X obj 28 469 *~; -#X obj 75 343 t b b b; -#X obj 88 430 r \$0-dist; -#X obj 88 476 print vol; -#X obj 28 492 *~; -#X obj 28 515 dac~; +#X obj 28 492 wav2~; +#X msg 28 414 01.wav; +#X msg 41 463 1; +#X msg 310 582 \; pd dsp 1; +#X obj 41 362 loadbang; +#X obj 163 385 r \$0-dist; #N canvas 1 91 594 663 get_point 0; #X obj 267 17 r fromGUI; #X obj 267 86 sel 1; @@ -110,12 +105,8 @@ -1 -1; #X obj 646 429 v x\$0; #X obj 646 449 v y\$0; -#X obj 591 475 expr sqrt(x\$0*x\$0+y\$0*y\$0) \; atan2(x\$0 \, y\$0)*360/6.28319 -\; x\$0=distC\$0*sin(brngC\$0*6.28319/360)+ distF\$0*sin(brngF\$0*6.28319/360) -\; y\$0=distC\$0*cos(brngC\$0*6.28319/360)+ distF\$0*cos(brngF\$0*6.28319/360) -; #X obj 591 569 s \$0-dist; -#X obj 664 569 s \$0-brng; +#X obj 676 569 s \$0-brng; #X obj 45 258 print locations:; #N canvas 1 91 604 394 notes 0; #X text 18 15 when location data is enabled \, it is sent via a message @@ -149,7 +140,7 @@ turned into rough=123456 fine=789.; #X text 202 208 arg #7: longitude "rough"; #X text 202 248 arg #9: longitude "fine"; #X text 170 113 <======; -#N canvas 44 91 1064 607 gui 0; +#N canvas 184 91 1064 607 gui 1; #X obj 16 196 send toGUI; #X obj 526 72 list trim; #X obj 526 49 receive fromGUI; @@ -254,7 +245,6 @@ turned into rough=123456 fine=789.; #X obj 16 485 t b a b; #X floatatom 16 335 5 0 0 1 angle_(deg) - -; #X obj 16 312 r \$0-compass; -#X text 404 282 draw dest. pointing arrow; #X text 11 16 disp. lat/long in text; #X text 354 18 toggle gps reception + automatically enable at start-up ; @@ -299,72 +289,103 @@ turned into rough=123456 fine=789.; 1 1; #X obj 795 451 list prepend /disp.Distance; #X text 14 281 draw north pointing compass; -#X obj 564 396 loadbang; -#X obj 564 419 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +#X obj 304 367 loadbang; +#X obj 304 390 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; -#X connect 1 0 51 0; +#X text 404 282 draw dest. pointing arrow = bearing arrow; +#X obj 565 368 expr fmod(($f1+360) \, 360); +#X obj 565 391 expr fmod(($f1+180) \, 360)-180; +#X obj 565 414 s \$0-brng-error; +#N canvas 1 91 465 242 tester 0; +#X obj 17 67 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1 +; +#X obj 17 87 metro 100; +#X obj 87 110 vline~; +#X obj 87 133 snapshot~; +#X floatatom 87 156 5 0 0 0 - - -; +#X msg 87 74 0 0 \, 50 2000 \, 0 2000 2000 \, 360 0 4000 \, 310 2000 +4000 \, 360 2000 6000; +#X obj 87 19 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1 +; +#X obj 87 45 metro 8000; +#X obj 87 178 outlet; +#X connect 0 0 1 0; +#X connect 1 0 3 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 8 0; +#X connect 5 0 2 0; +#X connect 6 0 7 0; +#X connect 6 0 0 0; +#X connect 7 0 5 0; +#X restore 328 309 pd tester; +#X connect 1 0 50 0; #X connect 2 0 1 0; #X connect 3 0 4 0; -#X connect 5 0 52 0; -#X connect 8 0 59 0; +#X connect 5 0 51 0; +#X connect 8 0 58 0; #X connect 9 0 8 0; -#X connect 10 0 61 0; +#X connect 9 0 66 0; +#X connect 10 0 60 0; #X connect 10 1 7 0; -#X connect 10 2 60 0; +#X connect 10 2 59 0; #X connect 12 0 14 0; #X connect 13 0 9 0; #X connect 14 0 13 0; #X connect 15 0 12 0; #X connect 16 0 13 1; -#X connect 17 0 62 0; +#X connect 17 0 61 0; #X connect 19 0 20 0; #X connect 20 0 23 0; -#X connect 21 0 48 0; -#X connect 22 0 50 0; +#X connect 21 0 47 0; +#X connect 22 0 49 0; #X connect 22 1 18 0; -#X connect 22 2 49 0; -#X connect 23 0 30 0; +#X connect 22 2 48 0; +#X connect 23 0 29 0; #X connect 24 0 23 0; -#X connect 28 0 58 0; -#X connect 29 0 21 0; -#X connect 30 0 31 0; -#X connect 31 0 29 0; -#X connect 34 0 53 0; +#X connect 27 0 57 0; +#X connect 28 0 21 0; +#X connect 29 0 30 0; +#X connect 30 0 28 0; +#X connect 33 0 52 0; +#X connect 34 0 35 0; #X connect 35 0 36 0; -#X connect 36 0 37 0; -#X connect 37 0 35 1; -#X connect 37 0 34 0; -#X connect 38 0 46 0; -#X connect 38 1 39 0; -#X connect 39 0 35 1; -#X connect 40 0 35 0; -#X connect 41 0 42 0; -#X connect 42 0 53 0; -#X connect 43 0 44 0; -#X connect 44 0 47 0; -#X connect 46 0 40 0; -#X connect 46 1 41 0; -#X connect 47 0 38 0; -#X connect 48 0 22 0; +#X connect 36 0 34 1; +#X connect 36 0 33 0; +#X connect 37 0 45 0; +#X connect 37 1 38 0; +#X connect 38 0 34 1; +#X connect 39 0 34 0; +#X connect 40 0 41 0; +#X connect 41 0 52 0; +#X connect 42 0 43 0; +#X connect 43 0 46 0; +#X connect 45 0 39 0; +#X connect 45 1 40 0; +#X connect 46 0 37 0; +#X connect 47 0 22 0; +#X connect 48 0 18 0; #X connect 49 0 18 0; -#X connect 50 0 18 0; -#X connect 51 0 3 0; -#X connect 52 0 6 0; -#X connect 53 0 33 0; +#X connect 50 0 3 0; +#X connect 51 0 6 0; +#X connect 52 0 32 0; +#X connect 53 0 0 0; #X connect 54 0 0 0; #X connect 55 0 0 0; #X connect 56 0 0 0; -#X connect 57 0 0 0; -#X connect 58 0 54 0; -#X connect 58 1 55 0; -#X connect 58 2 56 0; -#X connect 58 3 57 0; -#X connect 59 0 10 0; +#X connect 57 0 53 0; +#X connect 57 1 54 0; +#X connect 57 2 55 0; +#X connect 57 3 56 0; +#X connect 58 0 10 0; +#X connect 59 0 7 0; #X connect 60 0 7 0; -#X connect 61 0 7 0; -#X connect 62 0 11 0; -#X connect 64 0 65 0; -#X connect 65 0 9 0; +#X connect 61 0 11 0; +#X connect 63 0 64 0; +#X connect 64 0 9 0; +#X connect 66 0 67 0; +#X connect 67 0 68 0; +#X connect 69 0 9 0; #X restore 247 45 pd gui guts; #X text 735 73 (Lat.fine \, Lon.fine \, Lat.rough \, Lon.rough); #X msg 428 65 36.123 127.789 456 12; @@ -385,92 +406,114 @@ turned into rough=123456 fine=789.; #X msg 1063 150 0; #X msg 1100 173 1; #X obj 904 43 t b b a; -#X obj 88 453 map 0.005 0.05 1 0.1; +#X obj 163 408 map 0.005 0.05 1 0.1; #X obj 928 320 print input(C); #X obj 688 320 print input(F); #X obj 465 498 print dist(km); #X obj 465 475 print brng(deg); +#X obj 28 626 dac~; +#X floatatom 218 525 5 0 0 1 - - -; +#X floatatom 163 431 5 0 0 1 vol - -; +#X obj 163 492 line~; +#X msg 163 469 \$1 20; +#X obj 41 385 t b b; +#X obj 310 559 loadbang; +#X obj 28 515 expr~ $v1 * pow($v2 \, 4); +#X obj 591 475 expr sqrt(x\$0*x\$0+y\$0*y\$0) \; fmod(atan2(x\$0 \, +y\$0)*360/6.28319+360 \, 360) \; x\$0=distC\$0*sin(brngC\$0*6.28319/360)+ +distF\$0*sin(brngF\$0*6.28319/360) \; y\$0=distC\$0*cos(brngC\$0*6.28319/360)+ +distF\$0*cos(brngF\$0*6.28319/360); +#X obj 218 502 r \$0-brng-error; +#X obj 218 571 line~; +#X obj 28 588 eqpan2~ 8; +#X msg 218 547 \$1 100; #X connect 0 0 2 0; #X connect 1 0 3 0; #X connect 1 1 8 0; #X connect 2 0 1 0; -#X connect 3 5 62 0; -#X connect 3 6 63 0; +#X connect 3 5 56 0; +#X connect 3 6 57 0; #X connect 3 7 4 2; #X connect 3 8 4 3; #X connect 4 0 9 0; -#X connect 4 0 50 0; -#X connect 5 0 39 0; -#X connect 6 0 40 0; -#X connect 7 0 43 0; -#X connect 7 0 78 0; -#X connect 10 0 15 0; +#X connect 4 0 44 0; +#X connect 5 0 34 0; +#X connect 6 0 35 0; +#X connect 7 0 38 0; +#X connect 7 0 72 0; +#X connect 10 0 82 0; #X connect 11 0 10 0; #X connect 12 0 10 1; -#X connect 14 0 16 0; -#X connect 15 0 19 0; -#X connect 16 0 12 0; -#X connect 16 1 11 0; -#X connect 16 2 13 0; -#X connect 17 0 76 0; -#X connect 19 0 20 0; -#X connect 21 0 75 0; -#X connect 22 0 30 0; -#X connect 22 1 28 3; -#X connect 22 2 29 1; -#X connect 22 3 28 1; -#X connect 23 0 22 0; -#X connect 24 0 42 0; -#X connect 25 0 41 0; -#X connect 26 0 24 0; -#X connect 26 1 25 0; -#X connect 27 0 26 0; -#X connect 27 0 77 0; -#X connect 28 0 32 0; -#X connect 29 0 28 0; -#X connect 30 0 29 0; -#X connect 30 1 28 2; -#X connect 31 0 34 0; -#X connect 31 1 33 0; -#X connect 31 2 27 2; -#X connect 31 2 34 1; -#X connect 31 3 27 3; -#X connect 31 3 33 1; -#X connect 32 0 36 0; -#X connect 32 1 35 0; -#X connect 32 2 27 0; -#X connect 32 2 36 1; -#X connect 32 3 27 1; -#X connect 32 3 35 1; -#X connect 33 0 7 3; -#X connect 34 0 7 2; -#X connect 35 0 7 1; -#X connect 36 0 7 0; -#X connect 43 0 44 0; -#X connect 43 1 5 0; -#X connect 43 2 6 0; -#X connect 44 0 65 0; -#X connect 47 0 48 0; -#X connect 47 0 79 0; -#X connect 47 1 49 0; -#X connect 47 1 80 0; -#X connect 59 0 22 0; -#X connect 60 0 31 0; -#X connect 62 0 4 0; -#X connect 63 0 4 1; -#X connect 64 0 47 0; -#X connect 65 0 64 0; -#X connect 67 0 66 0; -#X connect 69 0 68 0; -#X connect 70 0 74 0; -#X connect 71 0 72 0; -#X connect 72 0 73 0; -#X connect 72 1 70 0; -#X connect 73 0 69 0; -#X connect 74 0 69 0; -#X connect 75 0 71 0; -#X connect 75 1 67 0; -#X connect 75 2 31 0; -#X connect 76 0 18 0; -#X connect 76 0 15 1; -#X connect 76 0 19 1; +#X connect 14 0 80 0; +#X connect 15 0 70 0; +#X connect 16 0 69 0; +#X connect 17 0 25 0; +#X connect 17 1 23 3; +#X connect 17 2 24 1; +#X connect 17 3 23 1; +#X connect 18 0 17 0; +#X connect 19 0 37 0; +#X connect 20 0 36 0; +#X connect 21 0 19 0; +#X connect 21 1 20 0; +#X connect 22 0 21 0; +#X connect 22 0 71 0; +#X connect 23 0 27 0; +#X connect 24 0 23 0; +#X connect 25 0 24 0; +#X connect 25 1 23 2; +#X connect 26 0 29 0; +#X connect 26 1 28 0; +#X connect 26 2 22 2; +#X connect 26 2 29 1; +#X connect 26 3 22 3; +#X connect 26 3 28 1; +#X connect 27 0 31 0; +#X connect 27 1 30 0; +#X connect 27 2 22 0; +#X connect 27 2 31 1; +#X connect 27 3 22 1; +#X connect 27 3 30 1; +#X connect 28 0 7 3; +#X connect 29 0 7 2; +#X connect 30 0 7 1; +#X connect 31 0 7 0; +#X connect 38 0 39 0; +#X connect 38 1 5 0; +#X connect 38 2 6 0; +#X connect 39 0 59 0; +#X connect 53 0 17 0; +#X connect 54 0 26 0; +#X connect 56 0 4 0; +#X connect 57 0 4 1; +#X connect 58 0 83 0; +#X connect 59 0 58 0; +#X connect 61 0 60 0; +#X connect 63 0 62 0; +#X connect 64 0 68 0; +#X connect 65 0 66 0; +#X connect 66 0 67 0; +#X connect 66 1 64 0; +#X connect 67 0 63 0; +#X connect 68 0 63 0; +#X connect 69 0 65 0; +#X connect 69 1 61 0; +#X connect 69 2 26 0; +#X connect 70 0 77 0; +#X connect 76 0 87 0; +#X connect 77 0 79 0; +#X connect 78 0 82 1; +#X connect 79 0 78 0; +#X connect 80 0 12 0; +#X connect 80 1 11 0; +#X connect 81 0 13 0; +#X connect 82 0 86 0; +#X connect 83 0 42 0; +#X connect 83 0 73 0; +#X connect 83 1 43 0; +#X connect 83 1 74 0; +#X connect 84 0 76 0; +#X connect 85 0 86 1; +#X connect 86 0 75 0; +#X connect 86 1 75 1; +#X connect 87 0 85 0;