#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;