From 9815096db22c73cacdbb65512d1b61d633db7fa8 Mon Sep 17 00:00:00 2001 From: Thomas Grill Date: Mon, 2 Dec 2002 19:21:08 +0000 Subject: "version 0.1.1" svn path=/trunk/; revision=267 --- externals/grill/vasp/pd-help/vasp_abs.pd | 48 ++++++++ externals/grill/vasp/pd-help/vasp_add.pd | 54 +++++++++ externals/grill/vasp/pd-help/vasp_ageq.pd | 50 ++++++++ externals/grill/vasp/pd-help/vasp_agtr.pd | 52 +++++++++ externals/grill/vasp/pd-help/vasp_aleq.pd | 52 +++++++++ externals/grill/vasp/pd-help/vasp_alwr.pd | 52 +++++++++ externals/grill/vasp/pd-help/vasp_cadd.pd | 21 ++++ externals/grill/vasp/pd-help/vasp_cconj.pd | 33 ++++++ externals/grill/vasp/pd-help/vasp_ccopy.pd | 83 +++++++++++++ externals/grill/vasp/pd-help/vasp_cdiv.pd | 16 +++ externals/grill/vasp/pd-help/vasp_cdivr.pd | 18 +++ externals/grill/vasp/pd-help/vasp_cfft.pd | 98 ++++++++++++++++ externals/grill/vasp/pd-help/vasp_channel.pd | 10 ++ externals/grill/vasp/pd-help/vasp_check.pd | 26 +++++ externals/grill/vasp/pd-help/vasp_cifft.pd | 89 ++++++++++++++ externals/grill/vasp/pd-help/vasp_cmul.pd | 21 ++++ externals/grill/vasp/pd-help/vasp_cnoise.pd | 53 +++++++++ externals/grill/vasp/pd-help/vasp_cnorm.pd | 94 +++++++++++++++ externals/grill/vasp/pd-help/vasp_copy.pd | 70 +++++++++++ externals/grill/vasp/pd-help/vasp_cosc.pd | 63 ++++++++++ externals/grill/vasp/pd-help/vasp_cpowi.pd | 84 ++++++++++++++ externals/grill/vasp/pd-help/vasp_crsub.pd | 22 ++++ externals/grill/vasp/pd-help/vasp_cset.pd | 20 ++++ externals/grill/vasp/pd-help/vasp_csqr.pd | 79 +++++++++++++ externals/grill/vasp/pd-help/vasp_csub.pd | 21 ++++ externals/grill/vasp/pd-help/vasp_csubr.pd | 21 ++++ externals/grill/vasp/pd-help/vasp_dframes.pd | 65 +++++++++++ externals/grill/vasp/pd-help/vasp_dif.pd | 49 ++++++++ externals/grill/vasp/pd-help/vasp_div.pd | 42 +++++++ externals/grill/vasp/pd-help/vasp_divr.pd | 37 ++++++ externals/grill/vasp/pd-help/vasp_doffset.pd | 28 +++++ externals/grill/vasp/pd-help/vasp_dsize.pd | 39 +++++++ externals/grill/vasp/pd-help/vasp_equ.pd | 53 +++++++++ externals/grill/vasp/pd-help/vasp_exp.pd | 42 +++++++ externals/grill/vasp/pd-help/vasp_fhp.pd | 89 ++++++++++++++ externals/grill/vasp/pd-help/vasp_fix.pd | 64 +++++++++++ externals/grill/vasp/pd-help/vasp_flp.pd | 86 ++++++++++++++ externals/grill/vasp/pd-help/vasp_frames.pd | 60 ++++++++++ externals/grill/vasp/pd-help/vasp_gate.pd | 74 ++++++++++++ externals/grill/vasp/pd-help/vasp_gather.pd | 64 +++++++++++ externals/grill/vasp/pd-help/vasp_geq.pd | 50 ++++++++ externals/grill/vasp/pd-help/vasp_gtr.pd | 52 +++++++++ externals/grill/vasp/pd-help/vasp_imm.pd | 77 +++++++++++++ externals/grill/vasp/pd-help/vasp_int.pd | 40 +++++++ externals/grill/vasp/pd-help/vasp_iwindow.pd | 61 ++++++++++ externals/grill/vasp/pd-help/vasp_join.pd | 26 +++++ externals/grill/vasp/pd-help/vasp_leq.pd | 52 +++++++++ externals/grill/vasp/pd-help/vasp_list.pd | 28 +++++ externals/grill/vasp/pd-help/vasp_log.pd | 50 ++++++++ externals/grill/vasp/pd-help/vasp_lwr.pd | 52 +++++++++ externals/grill/vasp/pd-help/vasp_max.pd | 51 ++++++++ externals/grill/vasp/pd-help/vasp_mcosc.pd | 68 +++++++++++ externals/grill/vasp/pd-help/vasp_mframes.pd | 63 ++++++++++ externals/grill/vasp/pd-help/vasp_min.pd | 51 ++++++++ externals/grill/vasp/pd-help/vasp_minmax.pd | 59 ++++++++++ externals/grill/vasp/pd-help/vasp_mirr.pd | 45 ++++++++ externals/grill/vasp/pd-help/vasp_miwindow.pd | 64 +++++++++++ externals/grill/vasp/pd-help/vasp_mod.pd | 48 ++++++++ externals/grill/vasp/pd-help/vasp_mosc.pd | 80 +++++++++++++ externals/grill/vasp/pd-help/vasp_mphasor.pd | 78 +++++++++++++ externals/grill/vasp/pd-help/vasp_msize.pd | 38 ++++++ externals/grill/vasp/pd-help/vasp_mul.pd | 135 ++++++++++++++++++++++ externals/grill/vasp/pd-help/vasp_multi.pd | 20 ++++ externals/grill/vasp/pd-help/vasp_mwindow.pd | 64 +++++++++++ externals/grill/vasp/pd-help/vasp_mxwindow.pd | 64 +++++++++++ externals/grill/vasp/pd-help/vasp_neq.pd | 52 +++++++++ externals/grill/vasp/pd-help/vasp_noise.pd | 43 +++++++ externals/grill/vasp/pd-help/vasp_nonzero.pd | 160 ++++++++++++++++++++++++++ externals/grill/vasp/pd-help/vasp_offset.pd | 30 +++++ externals/grill/vasp/pd-help/vasp_offsetd.pd | 28 +++++ externals/grill/vasp/pd-help/vasp_offsetq.pd | 25 ++++ externals/grill/vasp/pd-help/vasp_opt.pd | 71 ++++++++++++ externals/grill/vasp/pd-help/vasp_osc.pd | 63 ++++++++++ externals/grill/vasp/pd-help/vasp_part.pd | 34 ++++++ externals/grill/vasp/pd-help/vasp_peaks.pd | 89 ++++++++++++++ externals/grill/vasp/pd-help/vasp_phasor.pd | 67 +++++++++++ externals/grill/vasp/pd-help/vasp_polar.pd | 90 +++++++++++++++ externals/grill/vasp/pd-help/vasp_pow.pd | 44 +++++++ externals/grill/vasp/pd-help/vasp_qamax.pd | 75 ++++++++++++ externals/grill/vasp/pd-help/vasp_qamin.pd | 53 +++++++++ externals/grill/vasp/pd-help/vasp_qchannel.pd | 10 ++ externals/grill/vasp/pd-help/vasp_qframes.pd | 27 +++++ externals/grill/vasp/pd-help/vasp_qmax.pd | 44 +++++++ externals/grill/vasp/pd-help/vasp_qmin.pd | 44 +++++++ externals/grill/vasp/pd-help/vasp_qoffset.pd | 19 +++ externals/grill/vasp/pd-help/vasp_qrmax.pd | 99 ++++++++++++++++ externals/grill/vasp/pd-help/vasp_qrmin.pd | 59 ++++++++++ externals/grill/vasp/pd-help/vasp_qsize.pd | 31 +++++ externals/grill/vasp/pd-help/vasp_qvector.pd | 13 +++ externals/grill/vasp/pd-help/vasp_qvectors.pd | 17 +++ externals/grill/vasp/pd-help/vasp_radd.pd | 84 ++++++++++++++ externals/grill/vasp/pd-help/vasp_radio.pd | 28 +++++ externals/grill/vasp/pd-help/vasp_rect.pd | 87 ++++++++++++++ externals/grill/vasp/pd-help/vasp_rfft.pd | 74 ++++++++++++ externals/grill/vasp/pd-help/vasp_rframes.pd | 63 ++++++++++ externals/grill/vasp/pd-help/vasp_rgate.pd | 86 ++++++++++++++ externals/grill/vasp/pd-help/vasp_rifft.pd | 75 ++++++++++++ externals/grill/vasp/pd-help/vasp_rmax.pd | 81 +++++++++++++ externals/grill/vasp/pd-help/vasp_rmin.pd | 84 ++++++++++++++ externals/grill/vasp/pd-help/vasp_ropt.pd | 86 ++++++++++++++ externals/grill/vasp/pd-help/vasp_rot.pd | 48 ++++++++ externals/grill/vasp/pd-help/vasp_rpeaks.pd | 94 +++++++++++++++ externals/grill/vasp/pd-help/vasp_rpow.pd | 83 +++++++++++++ externals/grill/vasp/pd-help/vasp_rsize.pd | 37 ++++++ externals/grill/vasp/pd-help/vasp_rvalleys.pd | 91 +++++++++++++++ externals/grill/vasp/pd-help/vasp_set.pd | 90 +++++++++++++++ externals/grill/vasp/pd-help/vasp_sframes.pd | 136 ++++++++++++++++++++++ externals/grill/vasp/pd-help/vasp_shift.pd | 57 +++++++++ externals/grill/vasp/pd-help/vasp_sign.pd | 42 +++++++ externals/grill/vasp/pd-help/vasp_size.pd | 43 +++++++ externals/grill/vasp/pd-help/vasp_soffset.pd | 153 ++++++++++++++++++++++++ externals/grill/vasp/pd-help/vasp_spit.pd | 46 ++++++++ externals/grill/vasp/pd-help/vasp_split.pd | 27 +++++ externals/grill/vasp/pd-help/vasp_sqr.pd | 38 ++++++ externals/grill/vasp/pd-help/vasp_sqrt.pd | 38 ++++++ externals/grill/vasp/pd-help/vasp_ssqr.pd | 96 ++++++++++++++++ externals/grill/vasp/pd-help/vasp_ssqrt.pd | 96 ++++++++++++++++ externals/grill/vasp/pd-help/vasp_sub.pd | 54 +++++++++ externals/grill/vasp/pd-help/vasp_subr.pd | 48 ++++++++ externals/grill/vasp/pd-help/vasp_sync.pd | 81 +++++++++++++ externals/grill/vasp/pd-help/vasp_tilt.pd | 100 ++++++++++++++++ externals/grill/vasp/pd-help/vasp_update.pd | 36 ++++++ externals/grill/vasp/pd-help/vasp_v.pd | 50 ++++++++ externals/grill/vasp/pd-help/vasp_valleys.pd | 86 ++++++++++++++ externals/grill/vasp/pd-help/vasp_vector.pd | 31 +++++ externals/grill/vasp/pd-help/vasp_vectors.pd | 13 +++ externals/grill/vasp/pd-help/vasp_window.pd | 62 ++++++++++ externals/grill/vasp/pd-help/vasp_xmirr.pd | 86 ++++++++++++++ externals/grill/vasp/pd-help/vasp_xrot.pd | 48 ++++++++ externals/grill/vasp/pd-help/vasp_xshift.pd | 57 +++++++++ externals/grill/vasp/pd-help/vasp_xtilt.pd | 107 +++++++++++++++++ externals/grill/vasp/pd-help/vasp_xwindow.pd | 61 ++++++++++ 132 files changed, 7628 insertions(+) create mode 100644 externals/grill/vasp/pd-help/vasp_abs.pd create mode 100644 externals/grill/vasp/pd-help/vasp_add.pd create mode 100644 externals/grill/vasp/pd-help/vasp_ageq.pd create mode 100644 externals/grill/vasp/pd-help/vasp_agtr.pd create mode 100644 externals/grill/vasp/pd-help/vasp_aleq.pd create mode 100644 externals/grill/vasp/pd-help/vasp_alwr.pd create mode 100644 externals/grill/vasp/pd-help/vasp_cadd.pd create mode 100644 externals/grill/vasp/pd-help/vasp_cconj.pd create mode 100644 externals/grill/vasp/pd-help/vasp_ccopy.pd create mode 100644 externals/grill/vasp/pd-help/vasp_cdiv.pd create mode 100644 externals/grill/vasp/pd-help/vasp_cdivr.pd create mode 100644 externals/grill/vasp/pd-help/vasp_cfft.pd create mode 100644 externals/grill/vasp/pd-help/vasp_channel.pd create mode 100644 externals/grill/vasp/pd-help/vasp_check.pd create mode 100644 externals/grill/vasp/pd-help/vasp_cifft.pd create mode 100644 externals/grill/vasp/pd-help/vasp_cmul.pd create mode 100644 externals/grill/vasp/pd-help/vasp_cnoise.pd create mode 100644 externals/grill/vasp/pd-help/vasp_cnorm.pd create mode 100644 externals/grill/vasp/pd-help/vasp_copy.pd create mode 100644 externals/grill/vasp/pd-help/vasp_cosc.pd create mode 100644 externals/grill/vasp/pd-help/vasp_cpowi.pd create mode 100644 externals/grill/vasp/pd-help/vasp_crsub.pd create mode 100644 externals/grill/vasp/pd-help/vasp_cset.pd create mode 100644 externals/grill/vasp/pd-help/vasp_csqr.pd create mode 100644 externals/grill/vasp/pd-help/vasp_csub.pd create mode 100644 externals/grill/vasp/pd-help/vasp_csubr.pd create mode 100644 externals/grill/vasp/pd-help/vasp_dframes.pd create mode 100644 externals/grill/vasp/pd-help/vasp_dif.pd create mode 100644 externals/grill/vasp/pd-help/vasp_div.pd create mode 100644 externals/grill/vasp/pd-help/vasp_divr.pd create mode 100644 externals/grill/vasp/pd-help/vasp_doffset.pd create mode 100644 externals/grill/vasp/pd-help/vasp_dsize.pd create mode 100644 externals/grill/vasp/pd-help/vasp_equ.pd create mode 100644 externals/grill/vasp/pd-help/vasp_exp.pd create mode 100644 externals/grill/vasp/pd-help/vasp_fhp.pd create mode 100644 externals/grill/vasp/pd-help/vasp_fix.pd create mode 100644 externals/grill/vasp/pd-help/vasp_flp.pd create mode 100644 externals/grill/vasp/pd-help/vasp_frames.pd create mode 100644 externals/grill/vasp/pd-help/vasp_gate.pd create mode 100644 externals/grill/vasp/pd-help/vasp_gather.pd create mode 100644 externals/grill/vasp/pd-help/vasp_geq.pd create mode 100644 externals/grill/vasp/pd-help/vasp_gtr.pd create mode 100644 externals/grill/vasp/pd-help/vasp_imm.pd create mode 100644 externals/grill/vasp/pd-help/vasp_int.pd create mode 100644 externals/grill/vasp/pd-help/vasp_iwindow.pd create mode 100644 externals/grill/vasp/pd-help/vasp_join.pd create mode 100644 externals/grill/vasp/pd-help/vasp_leq.pd create mode 100644 externals/grill/vasp/pd-help/vasp_list.pd create mode 100644 externals/grill/vasp/pd-help/vasp_log.pd create mode 100644 externals/grill/vasp/pd-help/vasp_lwr.pd create mode 100644 externals/grill/vasp/pd-help/vasp_max.pd create mode 100644 externals/grill/vasp/pd-help/vasp_mcosc.pd create mode 100644 externals/grill/vasp/pd-help/vasp_mframes.pd create mode 100644 externals/grill/vasp/pd-help/vasp_min.pd create mode 100644 externals/grill/vasp/pd-help/vasp_minmax.pd create mode 100644 externals/grill/vasp/pd-help/vasp_mirr.pd create mode 100644 externals/grill/vasp/pd-help/vasp_miwindow.pd create mode 100644 externals/grill/vasp/pd-help/vasp_mod.pd create mode 100644 externals/grill/vasp/pd-help/vasp_mosc.pd create mode 100644 externals/grill/vasp/pd-help/vasp_mphasor.pd create mode 100644 externals/grill/vasp/pd-help/vasp_msize.pd create mode 100644 externals/grill/vasp/pd-help/vasp_mul.pd create mode 100644 externals/grill/vasp/pd-help/vasp_multi.pd create mode 100644 externals/grill/vasp/pd-help/vasp_mwindow.pd create mode 100644 externals/grill/vasp/pd-help/vasp_mxwindow.pd create mode 100644 externals/grill/vasp/pd-help/vasp_neq.pd create mode 100644 externals/grill/vasp/pd-help/vasp_noise.pd create mode 100644 externals/grill/vasp/pd-help/vasp_nonzero.pd create mode 100644 externals/grill/vasp/pd-help/vasp_offset.pd create mode 100644 externals/grill/vasp/pd-help/vasp_offsetd.pd create mode 100644 externals/grill/vasp/pd-help/vasp_offsetq.pd create mode 100644 externals/grill/vasp/pd-help/vasp_opt.pd create mode 100644 externals/grill/vasp/pd-help/vasp_osc.pd create mode 100644 externals/grill/vasp/pd-help/vasp_part.pd create mode 100644 externals/grill/vasp/pd-help/vasp_peaks.pd create mode 100644 externals/grill/vasp/pd-help/vasp_phasor.pd create mode 100644 externals/grill/vasp/pd-help/vasp_polar.pd create mode 100644 externals/grill/vasp/pd-help/vasp_pow.pd create mode 100644 externals/grill/vasp/pd-help/vasp_qamax.pd create mode 100644 externals/grill/vasp/pd-help/vasp_qamin.pd create mode 100644 externals/grill/vasp/pd-help/vasp_qchannel.pd create mode 100644 externals/grill/vasp/pd-help/vasp_qframes.pd create mode 100644 externals/grill/vasp/pd-help/vasp_qmax.pd create mode 100644 externals/grill/vasp/pd-help/vasp_qmin.pd create mode 100644 externals/grill/vasp/pd-help/vasp_qoffset.pd create mode 100644 externals/grill/vasp/pd-help/vasp_qrmax.pd create mode 100644 externals/grill/vasp/pd-help/vasp_qrmin.pd create mode 100644 externals/grill/vasp/pd-help/vasp_qsize.pd create mode 100644 externals/grill/vasp/pd-help/vasp_qvector.pd create mode 100644 externals/grill/vasp/pd-help/vasp_qvectors.pd create mode 100644 externals/grill/vasp/pd-help/vasp_radd.pd create mode 100644 externals/grill/vasp/pd-help/vasp_radio.pd create mode 100644 externals/grill/vasp/pd-help/vasp_rect.pd create mode 100644 externals/grill/vasp/pd-help/vasp_rfft.pd create mode 100644 externals/grill/vasp/pd-help/vasp_rframes.pd create mode 100644 externals/grill/vasp/pd-help/vasp_rgate.pd create mode 100644 externals/grill/vasp/pd-help/vasp_rifft.pd create mode 100644 externals/grill/vasp/pd-help/vasp_rmax.pd create mode 100644 externals/grill/vasp/pd-help/vasp_rmin.pd create mode 100644 externals/grill/vasp/pd-help/vasp_ropt.pd create mode 100644 externals/grill/vasp/pd-help/vasp_rot.pd create mode 100644 externals/grill/vasp/pd-help/vasp_rpeaks.pd create mode 100644 externals/grill/vasp/pd-help/vasp_rpow.pd create mode 100644 externals/grill/vasp/pd-help/vasp_rsize.pd create mode 100644 externals/grill/vasp/pd-help/vasp_rvalleys.pd create mode 100644 externals/grill/vasp/pd-help/vasp_set.pd create mode 100644 externals/grill/vasp/pd-help/vasp_sframes.pd create mode 100644 externals/grill/vasp/pd-help/vasp_shift.pd create mode 100644 externals/grill/vasp/pd-help/vasp_sign.pd create mode 100644 externals/grill/vasp/pd-help/vasp_size.pd create mode 100644 externals/grill/vasp/pd-help/vasp_soffset.pd create mode 100644 externals/grill/vasp/pd-help/vasp_spit.pd create mode 100644 externals/grill/vasp/pd-help/vasp_split.pd create mode 100644 externals/grill/vasp/pd-help/vasp_sqr.pd create mode 100644 externals/grill/vasp/pd-help/vasp_sqrt.pd create mode 100644 externals/grill/vasp/pd-help/vasp_ssqr.pd create mode 100644 externals/grill/vasp/pd-help/vasp_ssqrt.pd create mode 100644 externals/grill/vasp/pd-help/vasp_sub.pd create mode 100644 externals/grill/vasp/pd-help/vasp_subr.pd create mode 100644 externals/grill/vasp/pd-help/vasp_sync.pd create mode 100644 externals/grill/vasp/pd-help/vasp_tilt.pd create mode 100644 externals/grill/vasp/pd-help/vasp_update.pd create mode 100644 externals/grill/vasp/pd-help/vasp_v.pd create mode 100644 externals/grill/vasp/pd-help/vasp_valleys.pd create mode 100644 externals/grill/vasp/pd-help/vasp_vector.pd create mode 100644 externals/grill/vasp/pd-help/vasp_vectors.pd create mode 100644 externals/grill/vasp/pd-help/vasp_window.pd create mode 100644 externals/grill/vasp/pd-help/vasp_xmirr.pd create mode 100644 externals/grill/vasp/pd-help/vasp_xrot.pd create mode 100644 externals/grill/vasp/pd-help/vasp_xshift.pd create mode 100644 externals/grill/vasp/pd-help/vasp_xtilt.pd create mode 100644 externals/grill/vasp/pd-help/vasp_xwindow.pd (limited to 'externals/grill/vasp/pd-help') diff --git a/externals/grill/vasp/pd-help/vasp_abs.pd b/externals/grill/vasp/pd-help/vasp_abs.pd new file mode 100644 index 00000000..493bf9fd --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_abs.pd @@ -0,0 +1,48 @@ +#N canvas 99 112 853 471 10; +#X msg 521 263 vasp bufabs; +#X text 71 63 get absolute values of a vasp; +#X text 71 79 see also vasp.*.help for an example using vasp.abs to +generate an envelope from a vasp; +#X obj 71 32 cnv 15 15 15 empty empty vasp.abs 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 450 300 graph1 0; +#X array bufabs 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 465 124 graph; +#N canvas 0 0 394 270 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufabs; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 737 285 pd init; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 521 284 pd clear_buffer; +#X text 189 209 get the absolute values; +#X obj 77 209 prepend set; +#X obj 77 285 vasp.update; +#X text 178 134 generate a sinewave; +#X msg 77 135 vasp bufabs; +#X obj 77 154 vasp.osc 22050; +#X obj 77 247 vasp.abs; +#X obj 170 210 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 77 173 vasp.update; +#X text 58 209 *; +#X text 71 414 * prepend-object from iemlib2 (http://pd.iem.at/iemlib) +; +#X obj 77 383 VASP-HELP; +#X connect 0 0 6 0; +#X connect 8 0 13 0; +#X connect 11 0 12 0; +#X connect 12 0 15 0; +#X connect 13 0 9 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; diff --git a/externals/grill/vasp/pd-help/vasp_add.pd b/externals/grill/vasp/pd-help/vasp_add.pd new file mode 100644 index 00000000..56781928 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_add.pd @@ -0,0 +1,54 @@ +#N canvas 8 252 972 385 10; +#N canvas 40 55 255 173 clear_buffer 0; +#X obj 59 79 vasp.update; +#X obj 59 56 vasp.= 0; +#X obj 59 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 755 285 pd clear_buffer; +#X text 452 193 shift all values - 0.5; +#X text 372 63 optional argument/right inlet: right operand; +#X text 372 46 subtracts a value or a vasp from a vasp; +#X obj 376 213 vasp.update; +#X obj 376 190 vasp.- 0.5; +#X obj 376 145 vasp.osc 44100; +#X obj 376 167 vasp.* 0.5; +#X text 45 63 optional argument/right inlet: right operand; +#X text 45 46 adds a value or a vasp to a vasp; +#X obj 45 20 cnv 15 15 15 empty empty vasp.+ 0 10 1 14 -262144 -1 0 +; +#X obj 374 18 cnv 15 15 15 empty empty vasp.- 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 450 300 graph167 0; +#X array bufadd 88200 float 0; +#X coords 0 1 88199 -1 300 120 1; +#X restore 624 100 graph; +#X text 124 192 shift all values + 0.5; +#X text 127 169 half the amplitude; +#X obj 49 213 vasp.update; +#X obj 49 190 vasp.+ 0.5; +#X obj 49 145 vasp.osc 44100; +#X obj 49 167 vasp.* 0.5; +#X text 157 147 generate a 1Hz sine wave; +#X msg 49 113 vasp bufadd; +#X msg 376 113 vasp bufadd; +#X msg 755 264 vasp bufadd; +#N canvas 0 0 396 272 init 0; +#X obj 36 19 loadbang; +#X msg 36 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 36 45 symbol bufadd; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 879 285 pd init; +#X obj 49 345 VASP-HELP; +#X connect 5 0 4 0; +#X connect 6 0 7 0; +#X connect 7 0 5 0; +#X connect 16 0 15 0; +#X connect 17 0 18 0; +#X connect 18 0 16 0; +#X connect 20 0 17 0; +#X connect 21 0 6 0; +#X connect 22 0 0 0; diff --git a/externals/grill/vasp/pd-help/vasp_ageq.pd b/externals/grill/vasp/pd-help/vasp_ageq.pd new file mode 100644 index 00000000..04df10f5 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_ageq.pd @@ -0,0 +1,50 @@ +#N canvas 44 207 839 468 10; +#X obj 62 41 cnv 15 15 15 empty empty vasp.a>= 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 450 300 graph1 0; +#X array bufageq 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 408 84 graph; +#N canvas 0 0 400 276 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufageq \, symbol bufageq1; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 662 388 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array bufageq1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 408 213 graph; +#X text 60 94 argument/right inlet: value; +#X obj 61 172 vasp.osc 44100; +#X obj 61 194 vasp.update; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 460 390 pd clear_buffers; +#X obj 57 418 VASP-HELP; +#X obj 58 366 vasp.update; +#X floatatom 125 308 5 0 0; +#X text 164 236 copy to new buffer; +#X text 60 80 abs(sample) >= abs(value); +#X msg 61 150 vasp bufageq; +#X msg 58 236 vasp bufageq1; +#X obj 58 262 vasp.= bufageq; +#X obj 58 335 vasp.>= -0.4; +#X msg 460 364 vasp bufageq bufageq1; +#X connect 5 0 6 0; +#X connect 10 0 16 1; +#X connect 13 0 5 0; +#X connect 14 0 15 0; +#X connect 15 0 16 0; +#X connect 16 0 9 0; +#X connect 17 0 7 0; diff --git a/externals/grill/vasp/pd-help/vasp_agtr.pd b/externals/grill/vasp/pd-help/vasp_agtr.pd new file mode 100644 index 00000000..c7ff71e6 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_agtr.pd @@ -0,0 +1,52 @@ +#N canvas 44 207 841 470 10; +#X obj 62 41 cnv 15 15 15 empty empty vasp.a> 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 450 300 graph1 0; +#X array bufagtr 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 439 87 graph; +#N canvas 0 0 398 274 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufagtr \, symbol bufagtr1; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 693 391 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array bufagtr1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 439 216 graph; +#X text 60 94 argument/right inlet: value; +#X obj 61 172 vasp.osc 44100; +#X obj 61 194 vasp.update; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 491 393 pd clear_buffers; +#X text 338 218 1/true; +#X text 337 258 0/false; +#X obj 57 418 VASP-HELP; +#X obj 58 366 vasp.update; +#X floatatom 119 309 5 0 0; +#X text 164 230 copy to new buffer; +#X msg 491 367 vasp bufagtr bufagtr1; +#X text 60 80 abs(sample) > abs(value); +#X msg 61 150 vasp bufagtr; +#X msg 58 236 vasp bufagtr1; +#X obj 58 262 vasp.= bufagtr; +#X obj 58 335 vasp.> -0.4; +#X connect 5 0 6 0; +#X connect 12 0 19 1; +#X connect 14 0 7 0; +#X connect 16 0 5 0; +#X connect 17 0 18 0; +#X connect 18 0 19 0; +#X connect 19 0 11 0; diff --git a/externals/grill/vasp/pd-help/vasp_aleq.pd b/externals/grill/vasp/pd-help/vasp_aleq.pd new file mode 100644 index 00000000..30a88cf6 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_aleq.pd @@ -0,0 +1,52 @@ +#N canvas 56 200 881 464 10; +#X obj 62 41 cnv 15 15 15 empty empty vasp.a<= 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 450 300 graph1 0; +#X array bufaleq 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 489 91 graph; +#N canvas 0 0 402 278 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufaleq \, symbol bufaleq1; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 743 395 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array bufaleq1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 489 220 graph; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 541 397 pd clear_buffers; +#X text 389 220 1/true; +#X text 388 260 0/false; +#X text 60 94 argument/right inlet: value; +#X obj 61 172 vasp.osc 44100; +#X obj 61 194 vasp.update; +#X obj 58 366 vasp.update; +#X floatatom 125 308 5 0 0; +#X text 164 230 copy to new buffer; +#X obj 57 418 VASP-HELP; +#X msg 541 371 vasp bufaleq bufaleq1; +#X msg 61 150 vasp bufaleq; +#X msg 58 236 vasp bufaleq1; +#X obj 58 262 vasp.= bufaleq; +#X obj 58 335 vasp.<= -0.4; +#X text 60 80 abs(sample) <= abs(value); +#X connect 8 0 9 0; +#X connect 11 0 18 1; +#X connect 14 0 4 0; +#X connect 15 0 8 0; +#X connect 16 0 17 0; +#X connect 17 0 18 0; +#X connect 18 0 10 0; diff --git a/externals/grill/vasp/pd-help/vasp_alwr.pd b/externals/grill/vasp/pd-help/vasp_alwr.pd new file mode 100644 index 00000000..2eca3860 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_alwr.pd @@ -0,0 +1,52 @@ +#N canvas 44 207 843 472 10; +#X obj 62 41 cnv 15 15 15 empty empty vasp.a< 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 450 300 graph1 0; +#X array bufalwr 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 480 90 graph; +#N canvas 0 0 396 272 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufalwr \, symbol bufalwr1; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 734 394 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array bufalwr1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 480 219 graph; +#X text 60 94 argument/right inlet: value; +#X obj 61 172 vasp.osc 44100; +#X obj 61 194 vasp.update; +#X text 164 234 copy to new buffer; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 532 396 pd clear_buffers; +#X text 378 219 1/true; +#X text 377 259 0/false; +#X obj 58 366 vasp.update; +#X floatatom 125 313 5 0 0; +#X obj 59 418 VASP-HELP; +#X msg 532 370 vasp bufalwr bufalwr1; +#X msg 58 236 vasp bufalwr1; +#X msg 61 150 vasp bufalwr; +#X obj 58 262 vasp.= bufalwr; +#X obj 58 335 vasp.a< -0.4; +#X text 61 80 abs(sample) < abs(value); +#X connect 5 0 6 0; +#X connect 12 0 18 1; +#X connect 14 0 8 0; +#X connect 15 0 17 0; +#X connect 16 0 5 0; +#X connect 17 0 18 0; +#X connect 18 0 11 0; diff --git a/externals/grill/vasp/pd-help/vasp_cadd.pd b/externals/grill/vasp/pd-help/vasp_cadd.pd new file mode 100644 index 00000000..ec1492eb --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_cadd.pd @@ -0,0 +1,21 @@ +#N canvas 266 193 597 452 10; +#X text 49 142 c \, d ... right operand; +#X text 49 127 a \, b ... left operand; +#X text 49 112 e \, f ... target buffers; +#X text 49 202 differences in lengths are adjusted to smaller vector +of each pair; +#X text 49 80 e+if=(a+ib)+(c+id); +#X text 49 174 vasp.c+ needs 2 vectors per operand which are treated +as pairs; +#X text 49 65 complex addition; +#X obj 55 34 cnv 15 15 15 empty empty vasp.c+ 0 10 1 14 -262144 -1 +0; +#X obj 263 107 vasp.c+; +#X text 46 287 related objects:; +#X obj 182 330 vasp.c!-; +#X obj 265 330 vasp.c!/; +#X obj 182 288 vasp.c=; +#X obj 265 309 vasp.c/; +#X obj 265 288 vasp.c*; +#X obj 182 309 vasp.c-; +#X obj 50 384 VASP-HELP; diff --git a/externals/grill/vasp/pd-help/vasp_cconj.pd b/externals/grill/vasp/pd-help/vasp_cconj.pd new file mode 100644 index 00000000..ba402500 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_cconj.pd @@ -0,0 +1,33 @@ +#N canvas 122 81 821 476 10; +#X obj 51 19 cnv 15 15 15 empty empty vasp.cconj 0 10 1 14 -262144 +-1 0; +#X obj 51 208 vasp.update; +#X obj 53 367 VASP-HELP; +#N canvas 0 0 450 300 graph1 0; +#X array bufconre 21 float 1; +#A 0 0.619999 0.639999 0.4 0.18 0.3 0.32 0.0599999 -0.28 -0.26 -0.14 +0.22 0.46 0.26 -0.24 -0.719999 -0.619999 -0.26 -0.02 -0.26 -0.48 -0.5 +; +#X coords 0 1 20 -1 300 100 1; +#X restore 410 100 graph; +#N canvas 0 0 396 272 init 0; +#X obj 33 19 loadbang; +#X msg 33 45 symbol bufconre \, symbol bufconim; +#X msg 33 73 \; \$1 xticks 0 1 5 \; \$1 xlabel 1.1 0 5 10 15 20 \; +\$1 yticks 0 0.25 2 \; \$1 ylabel 21.3 -1 -0.5 0 0.5 1; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X restore 670 381 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array bufconim 21 float 1; +#A 0 0.900005 0.820005 0.720004 0.640004 0.580003 0.460003 0.360002 +0.240002 0.120001 0.0600005 -0.0600002 -0.180001 -0.300002 -0.300002 +-0.400002 -0.480003 -0.500003 -0.500003 -0.560003 -0.420002 -0.380002 +; +#X coords 0 1 20 -1 300 100 1; +#X restore 411 232 graph; +#X text 44 59 conjugates the imaginary part of a complex vasp; +#X obj 51 177 vasp.cconj; +#X msg 51 142 vasp bufconre bufconim; +#X connect 7 0 1 0; +#X connect 8 0 7 0; diff --git a/externals/grill/vasp/pd-help/vasp_ccopy.pd b/externals/grill/vasp/pd-help/vasp_ccopy.pd new file mode 100644 index 00000000..5e2d51da --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_ccopy.pd @@ -0,0 +1,83 @@ +#N canvas 21 60 973 580 10; +#X obj 62 33 cnv 15 15 15 empty empty vasp.c-> 0 10 1 14 -262144 -1 +0; +#X text 55 81 optional argument/right inlet: value/vasp; +#N canvas 0 0 262 199 clear_buffer 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X restore 308 479 pd clear_buffer; +#N canvas 0 0 450 300 graph1 0; +#X array bufcopy1 100 float 1; +#A 0 0.143758 0.0686079 -0.38831 -0.0776481 0.294635 0.674558 0.607506 +-0.170675 -0.0864513 -0.41061 -0.195257 -0.0921464 -0.0565912 -0.0555828 +0.0530162 0.0249378 -0.0623897 -0.0156552 0.0755211 0.0167451 0.141562 +0.0405158 -0.023263 0.0180184 -0.0637342 -0.0822978 -0.00542918 -0.000371593 +0.0383471 0.0352856 0.00255783 -0.0732533 0.00192948 -0.00246741 -0.00759756 +0.038446 -0.030182 -0.0408431 -0.0153346 -0.0652415 -0.0363779 0.0186147 +0.0138818 0.0333752 0.0466349 0.0131742 -0.0321698 0.0154971 0.00843997 +0.0131756 0.0645522 0.00604813 -0.0115883 0.00454732 -0.0538017 -0.0109963 +0.0257179 0.0423155 0.0291044 0.0311714 -0.0175559 -0.0558005 0.0108977 +-0.0305093 -0.00780438 0.0367772 -0.0188594 -0.00453038 -0.0172815 +-0.0762415 -0.00338057 0.0343781 0.0289549 0.00518148 0.0427147 -0.0310832 +-0.0454392 0.0401651 -0.0132068 0.0646664 0.120187 -0.00961662 0.0462419 +-0.0174716 -0.0689202 -0.0208856 0.0423041 0.024882 0.00339087 -0.0797522 +-0.230074 -0.440424 -0.0808137 -0.16581 0.848087 -0.0205055 -0.296507 +0.0507298 0.357646 -0.480663; +#X coords 0 1 99 -1 300 100 1; +#X restore 572 53 graph; +#N canvas 0 0 394 270 init 0; +#X obj 33 19 loadbang; +#X msg 33 87 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100 +\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1; +#X msg 33 45 symbol bufcopy1 \, symbol bufcopy2 \, symbol bufcopy3 +\, symbol bufcopy4; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 308 518 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array bufcopy2 100 float 1; +#A 0 0.0280782 -0.0422518 0.554172 -0.1767 1 0.156081 -0.876136 -0.11387 +-0.208158 -0.115016 0.0598257 -0.00410798 -0.0287769 0.247451 -0.0203781 +-0.0739293 0.0539849 0.0833412 0.0777782 0.109606 0.0072245 -0.146124 +-0.0299617 -0.123235 -0.0657105 0.00113347 -0.00988766 -0.00689244 +0.0115624 -0.0669525 -0.0608685 -0.0229969 0.00134453 -0.0204591 0.0424171 +-0.0235819 -0.0606822 -0.0179317 -0.0448778 -0.00991407 0.042282 0.0112347 +0.00659574 -0.0135941 -0.0447328 -0.0525184 -0.00989902 0.00836445 +-0.00132186 0.0146546 -0.000898497 -0.0431941 -0.00978027 -0.0237825 +-0.0115866 0.0196117 0.0161645 0.000628861 -0.0328125 -0.0393695 -0.0745345 +-0.0206123 0.0146289 -0.0234719 0.0331914 -0.00930453 -0.0477893 0.0219494 +-0.0180073 0.0137906 0.0326551 0.0580143 -0.0392246 -0.0196385 -0.0287846 +-0.0691948 0.00847168 0.0580848 -0.00780806 0.111565 -0.0162468 -0.142128 +-0.0371815 -0.0349165 -0.0117682 -0.022951 -0.012041 -0.245803 -0.0872 +-0.246933 -0.3275 0.130284 0.138918 -0.150566 0.816856 0.0117589 0.391891 +0.00536379 0.00963765 0.49746; +#X coords 0 1 99 -1 300 100 1; +#X restore 572 167 graph; +#N canvas 0 0 450 300 graph1 0; +#X array bufcopy3 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 573 319 graph; +#X text 111 357 abbreviation; +#X obj 211 251 vasp.update; +#X text 53 224 original; +#X text 55 99 left outlet: original \, right outlet copy; +#X text 183 226 copy; +#N canvas 0 0 450 300 graph1 0; +#X array bufcopy4 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 573 435 graph; +#X msg 54 169 vasp bufcopy1 bufcopy2; +#X obj 54 204 vasp.copy bufcopy3 bufcopy4; +#X msg 308 454 vasp bufcopy3 bufcopy4; +#X obj 53 356 vasp.c->; +#X text 55 62 copy a complex vasp to another; +#X text 50 405 related object; +#X obj 162 404 vasp.copy; +#X obj 249 404 vasp.=; +#X obj 50 500 VASP-HELP; +#X connect 13 0 14 0; +#X connect 14 1 8 0; +#X connect 15 0 2 0; diff --git a/externals/grill/vasp/pd-help/vasp_cdiv.pd b/externals/grill/vasp/pd-help/vasp_cdiv.pd new file mode 100644 index 00000000..bb1a5073 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_cdiv.pd @@ -0,0 +1,16 @@ +#N canvas 235 228 623 356 10; +#X text 52 141 c \, d ... right operand; +#X text 52 126 a \, b ... left operand; +#X text 52 111 e \, f ... target buffers; +#X text 51 199 differences in lengths are adjusted to smaller vector +of each pair; +#X text 52 81 e+if=(a+ib)/(c+id); +#X text 52 168 vasp.c/ needs 2 vectors per operand which are treated +as pairs; +#X text 52 65 complex division; +#X obj 55 34 cnv 15 15 15 empty empty vasp.c/ 0 10 1 14 -262144 -1 +0; +#X obj 277 86 vasp.c/; +#X obj 173 280 vasp.c!/; +#X obj 54 317 VASP-HELP; +#X text 51 281 related object:; diff --git a/externals/grill/vasp/pd-help/vasp_cdivr.pd b/externals/grill/vasp/pd-help/vasp_cdivr.pd new file mode 100644 index 00000000..5aa1c1a2 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_cdivr.pd @@ -0,0 +1,18 @@ +#N canvas 231 208 570 384 10; +#X text 52 141 c \, d ... right operand; +#X text 52 126 a \, b ... left operand; +#X text 52 111 e \, f ... target buffers; +#X text 51 199 differences in lengths are adjusted to smaller vector +of each pair; +#X text 52 81 e+if=(a+ib)/(c+id); +#X text 52 168 vasp.c/ needs 2 vectors per operand which are treated +as pairs; +#X obj 55 34 cnv 15 15 15 empty empty vasp.c!/ 0 10 1 14 -262144 -1 +0; +#X text 52 65 reverse complex division; +#X obj 283 79 vasp.c!/; +#X obj 186 308 vasp.c/; +#X obj 186 287 vasp.c*; +#X obj 53 346 VASP-HELP; +#X text 92 348 - vasp overview; +#X text 51 285 related objects:; diff --git a/externals/grill/vasp/pd-help/vasp_cfft.pd b/externals/grill/vasp/pd-help/vasp_cfft.pd new file mode 100644 index 00000000..e6f46809 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_cfft.pd @@ -0,0 +1,98 @@ +#N canvas 48 55 915 635 10; +#N canvas 92 108 405 306 inside 0; +#X obj 66 154 soundfiler; +#X obj 203 210 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 259 135 resize \$1; +#X obj 259 88 loadbang; +#X obj 67 53 loadbang; +#X msg 259 109 88200; +#X obj 259 157 s bufre; +#X obj 269 181 s bufim; +#X obj 67 101 filelisthandler \$0; +#X msg 67 79 4; +#X obj 66 178 t b; +#X msg 67 133 read \$1 bufre; +#X connect 0 0 11 0; +#X connect 3 0 7 0; +#X connect 3 0 8 0; +#X connect 4 0 6 0; +#X connect 5 0 10 0; +#X connect 6 0 3 0; +#X connect 6 0 1 0; +#X connect 9 0 12 0; +#X connect 10 0 9 0; +#X connect 11 0 2 0; +#X connect 12 0 0 0; +#X restore 781 473 pd inside; +#X obj 75 32 cnv 15 15 15 empty empty vasp.cfft 0 10 1 14 -262144 -1 +0; +#X obj 326 113 filelist \$0; +#X text 75 52 complex fourier transformation (giant); +#X text 70 68 cfft needs two buffers; +#X msg 67 113 vasp bufre; +#X obj 67 136 vasp.noise; +#X text 151 112 generate white noise or; +#X obj 67 159 vasp.* 0.5; +#X obj 67 182 vasp.update; +#X obj 67 205 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 61 411 vasp.update; +#X obj 61 434 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 61 388 vasp.c!fft; +#X obj 61 276 vasp.cfft; +#X msg 61 253 vasp bufre bufim; +#X obj 61 299 vasp.update; +#X obj 61 322 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 61 365 vasp bufre bufim; +#X text 758 100 real; +#X text 768 242 imaginary; +#X text 524 387 0 Hz; +#X text 660 387 sr/2; +#X obj 558 117 wavedisplay-select bufre \$0; +#X obj 559 266 wavedisplay-select bufim \$0; +#X text 166 472 <-- click to open; +#X text 789 387 44.1 kHz; +#X text 145 274 convert a signal from the time domain into the frequency +domain. each sample now represents a frequency (range from 0 to 44.1 +kHz).; +#X obj 59 473 filter_example; +#X obj 352 478 dac~; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 486 472 pd clear_buffers; +#X obj 352 434 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 374 428 play; +#X text 486 428 clear; +#X obj 352 455 tabplay~ bufre; +#X msg 486 449 vasp bufre bufim; +#X text 67 556 related objects:; +#X obj 68 596 VASP-HELP; +#X text 110 595 - vasp overview; +#X obj 379 557 vasp.r!fft; +#X obj 296 557 vasp.rfft; +#X obj 210 557 vasp.c!fft; +#X connect 5 0 6 0; +#X connect 6 0 8 0; +#X connect 8 0 9 0; +#X connect 9 0 10 0; +#X connect 11 0 12 0; +#X connect 13 0 11 0; +#X connect 14 0 16 0; +#X connect 15 0 14 0; +#X connect 16 0 17 0; +#X connect 18 0 13 0; +#X connect 31 0 34 0; +#X connect 34 0 29 0; +#X connect 34 0 29 1; +#X connect 35 0 30 0; diff --git a/externals/grill/vasp/pd-help/vasp_channel.pd b/externals/grill/vasp/pd-help/vasp_channel.pd new file mode 100644 index 00000000..2734b3f6 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_channel.pd @@ -0,0 +1,10 @@ +#N canvas 87 123 442 407 10; +#X obj 58 31 cnv 15 15 15 empty empty vasp.channel 0 10 1 14 -262144 +-1 0; +#X obj 59 163 vasp.channel; +#X obj 161 209 vasp.channel?; +#X text 57 69 set channel index of vectors in vasp; +#X text 54 105 only used for interleaved stereo-files; +#X text 57 210 related object; +#X text 52 123 (MaxMSP version of vasp); +#X obj 61 268 VASP-HELP; diff --git a/externals/grill/vasp/pd-help/vasp_check.pd b/externals/grill/vasp/pd-help/vasp_check.pd new file mode 100644 index 00000000..ef9311e4 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_check.pd @@ -0,0 +1,26 @@ +#N canvas 219 135 653 496 10; +#X text 250 113 buffer length = 88200 samples; +#X text 67 72 checks the dimensions of a vasp and corrects them; +#X obj 70 32 cnv 15 15 15 empty empty vasp.check 0 10 1 14 -262144 +-1 0; +#X obj 69 114 table bufchk 88200; +#X text 250 253 corrected vasp with maximum length at offset 44100 +; +#X obj 69 227 prepend set; +#X msg 69 159 vasp 88200 bufchk 44100 0; +#X text 250 158 vasp with impossible dimensions; +#X msg 69 254 vasp 44100 bufchk 44100 0; +#X obj 69 186 vasp.check; +#X obj 65 334 vasp.chk; +#X text 139 333 abbreviation; +#X text 64 363 related objects:; +#X obj 67 393 VASP-HELP; +#X text 52 226 *; +#X text 62 432 * prepend-object from iemlib2 (http://pd.iem.at/iemlib) +; +#X obj 337 362 vasp.frames?; +#X obj 187 362 vasp.n?; +#X obj 245 362 vasp.offset?; +#X connect 5 0 8 0; +#X connect 6 0 9 0; +#X connect 9 0 5 0; diff --git a/externals/grill/vasp/pd-help/vasp_cifft.pd b/externals/grill/vasp/pd-help/vasp_cifft.pd new file mode 100644 index 00000000..22f10920 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_cifft.pd @@ -0,0 +1,89 @@ +#N canvas 81 48 890 610 10; +#N canvas 92 108 396 316 inside 0; +#X obj 66 154 soundfiler; +#X obj 192 209 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 241 140 resize \$1; +#X obj 241 93 loadbang; +#X obj 67 53 loadbang; +#X msg 241 114 88200; +#X obj 67 101 filelisthandler \$0; +#X msg 67 79 4; +#X obj 241 162 s bufrei; +#X obj 251 186 s bufimi; +#X obj 66 178 t b; +#X msg 67 133 read \$1 bufrei; +#X connect 0 0 11 0; +#X connect 3 0 9 0; +#X connect 3 0 10 0; +#X connect 4 0 6 0; +#X connect 5 0 8 0; +#X connect 6 0 3 0; +#X connect 6 0 1 0; +#X connect 7 0 12 0; +#X connect 8 0 7 0; +#X connect 11 0 2 0; +#X connect 12 0 0 0; +#X restore 781 472 pd inside; +#X obj 75 32 cnv 15 15 15 empty empty vasp.c!fft 0 10 1 14 -262144 +-1 0; +#X obj 74 90 filelist \$0; +#X obj 61 411 vasp.update; +#X obj 61 434 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 61 388 vasp.c!fft; +#X obj 61 233 vasp.cfft; +#X obj 61 254 vasp.update; +#X obj 61 275 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X text 801 97 real; +#X text 768 242 imaginary; +#X text 524 385 0 Hz; +#X text 660 384 sr/2; +#X text 171 473 <-- click to open; +#X text 789 386 44.1 kHz; +#X obj 352 474 dac~; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 486 474 pd clear_buffers; +#X obj 352 431 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 374 428 play; +#X text 486 429 clear; +#X obj 59 473 filter_examplei; +#X text 71 53 invers complex fourier transformation (giant); +#X text 69 66 c!fft needs two buffers; +#X msg 486 451 vasp bufrei bufimi; +#X obj 352 451 tabplay~ bufrei; +#X msg 61 212 vasp bufrei bufimi; +#X text 189 211 transform to frequency domain; +#X text 152 247 each sample of the buffer now represents a frequency +(range from 0 to 44.1 kHz).; +#X text 60 306 to get back to the sourcefile in time domain either +use 3 more times vasp.cfft or just once vasp.c!fft; +#X text 195 364 invers cfft to transform back to time domain; +#X msg 61 365 vasp bufrei bufimi; +#X obj 525 112 wavedisplay-simple bufrei \$0; +#X obj 527 263 wavedisplay-simple bufimi \$0; +#X text 59 538 related objects:; +#X obj 59 574 VASP-HELP; +#X obj 371 539 vasp.r!fft; +#X obj 288 539 vasp.rfft; +#X obj 202 539 vasp.cfft; +#X connect 3 0 4 0; +#X connect 5 0 3 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 17 0 24 0; +#X connect 23 0 16 0; +#X connect 24 0 15 0; +#X connect 24 0 15 1; +#X connect 25 0 6 0; +#X connect 30 0 5 0; diff --git a/externals/grill/vasp/pd-help/vasp_cmul.pd b/externals/grill/vasp/pd-help/vasp_cmul.pd new file mode 100644 index 00000000..1847cf69 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_cmul.pd @@ -0,0 +1,21 @@ +#N canvas 262 173 610 420 10; +#X text 54 148 c \, d ... right operand; +#X text 54 130 a \, b ... left operand; +#X text 54 112 e \, f ... target buffers; +#X text 54 197 differences in lengths are adjusted to smaller vector +of each pair; +#X text 54 82 e+if=(a+ib)*(c+id); +#X text 54 166 vasp.c* needs 2 vectors per operand which are treated +as pairs; +#X text 54 64 complex multiplication; +#X obj 55 29 cnv 15 15 15 empty empty vasp.c* 0 10 1 14 -262144 -1 +0; +#X obj 286 81 vasp.c*; +#X text 46 271 related objects:; +#X obj 182 314 vasp.c!-; +#X obj 263 293 vasp.c!/; +#X obj 263 272 vasp.c/; +#X obj 182 293 vasp.c-; +#X obj 50 347 VASP-HELP; +#X obj 182 272 vasp.c+; +#X obj 263 314 vasp.c=; diff --git a/externals/grill/vasp/pd-help/vasp_cnoise.pd b/externals/grill/vasp/pd-help/vasp_cnoise.pd new file mode 100644 index 00000000..7485db5b --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_cnoise.pd @@ -0,0 +1,53 @@ +#N canvas 47 54 881 559 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.cnoise 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 450 300 graph1 0; +#X array bufcnoise1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 500 96 graph; +#N canvas 0 0 402 278 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufcnoise1 \, symbol bufcnoise2; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 775 366 pd init; +#X obj 65 217 vasp.update; +#X obj 65 194 vasp.* 0.5; +#N canvas 40 55 247 122 clear_buffers 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 504 389 pd clear_buffers; +#N canvas 0 0 450 300 graph1 0; +#X array bufcnoise2 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 501 228 graph; +#X text 71 63 vasp complex noise generator; +#X text 71 83 needs 2 buffers; +#X msg 65 127 vasp bufcnoise1 bufcnoise2; +#X text 267 140 into two buffers; +#X obj 65 171 vasp.cnoise; +#X obj 324 411 dac~; +#X obj 324 345 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 346 344 play; +#X msg 504 366 vasp bufcnoise1 bufcnoise2; +#X obj 324 366 tabplay~ bufcnoise1; +#X obj 343 388 tabplay~ bufcnoise2; +#X obj 64 505 VASP-HELP; +#X obj 189 472 vasp.noise; +#X text 64 471 related object:; +#X text 265 126 generate complex noise; +#X connect 4 0 3 0; +#X connect 9 0 11 0; +#X connect 11 0 4 0; +#X connect 13 0 16 0; +#X connect 13 0 17 0; +#X connect 15 0 5 0; +#X connect 16 0 12 0; +#X connect 17 0 12 1; diff --git a/externals/grill/vasp/pd-help/vasp_cnorm.pd b/externals/grill/vasp/pd-help/vasp_cnorm.pd new file mode 100644 index 00000000..403165dd --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_cnorm.pd @@ -0,0 +1,94 @@ +#N canvas 36 36 806 582 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.cnorm 0 10 1 14 -262144 +-1 0; +#X obj 72 113 filelist \$0; +#N canvas 40 55 281 170 clear_buffers 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 479 494 pd clear_buffers; +#X obj 59 247 vasp.update; +#X obj 59 267 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 337 493 dac~; +#X obj 337 455 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 358 454 play; +#N canvas 92 108 432 397 inside 0; +#X obj 66 169 soundfiler; +#X obj 202 278 s \$0-sample-length; +#X obj 66 223 s \$0-draw_display; +#X msg 240 212 resize \$1; +#X obj 66 47 loadbang; +#X obj 66 113 filelisthandler \$0; +#X msg 66 91 4; +#X obj 240 234 s bufcnorm1; +#X obj 241 255 s bufcnorm2; +#X msg 235 92 88200; +#X obj 66 69 t b b; +#X obj 66 193 t b; +#X msg 66 145 read \$1 bufcnorm1; +#X connect 0 0 11 0; +#X connect 3 0 7 0; +#X connect 3 0 8 0; +#X connect 4 0 10 0; +#X connect 5 0 12 0; +#X connect 6 0 5 0; +#X connect 9 0 3 0; +#X connect 9 0 1 0; +#X connect 10 0 6 0; +#X connect 10 1 9 0; +#X connect 11 0 2 0; +#X connect 12 0 0 0; +#X restore 668 494 pd inside; +#X obj 397 118 wavedisplay-simple bufcnorm1 \$0; +#X obj 398 275 wavedisplay-simple bufcnorm2 \$0; +#X msg 59 207 vasp bufcnorm1 bufcnorm2; +#X text 235 206 cfft; +#X obj 59 227 vasp.cfft; +#X obj 59 343 vasp.update; +#X obj 59 363 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 59 303 vasp bufcnorm1 bufcnorm2; +#X obj 59 323 vasp.cnorm; +#X obj 59 434 vasp.update; +#X obj 59 454 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 59 394 vasp bufcnorm1 bufcnorm2; +#X text 235 393 inverse cfft; +#X obj 59 414 vasp.c!fft; +#X obj 337 473 tabplay~ bufcnorm2; +#X obj 202 493 dac~; +#X obj 202 455 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 223 454 play; +#X obj 202 473 tabplay~ bufcnorm1; +#X text 668 97 real; +#X text 643 253 imaginary; +#X msg 479 474 vasp bufcnorm1 bufcnorm2; +#X text 71 66 needs two buffers (or multiple pairs); +#X text 71 49 sets radius of all complex sample pairs to unity (1) +; +#X obj 58 549 VASP-HELP; +#X text 100 548 - vasp overview; +#X connect 3 0 4 0; +#X connect 6 0 23 0; +#X connect 11 0 13 0; +#X connect 13 0 3 0; +#X connect 14 0 15 0; +#X connect 16 0 17 0; +#X connect 17 0 14 0; +#X connect 18 0 19 0; +#X connect 20 0 22 0; +#X connect 22 0 18 0; +#X connect 23 0 5 0; +#X connect 23 0 5 1; +#X connect 25 0 27 0; +#X connect 27 0 24 0; +#X connect 27 0 24 1; +#X connect 30 0 2 0; diff --git a/externals/grill/vasp/pd-help/vasp_copy.pd b/externals/grill/vasp/pd-help/vasp_copy.pd new file mode 100644 index 00000000..f75ecad3 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_copy.pd @@ -0,0 +1,70 @@ +#N canvas 21 60 971 578 10; +#X obj 62 33 cnv 15 15 15 empty empty vasp.-> 0 10 1 14 -262144 -1 +0; +#X text 55 81 optional argument/right inlet: value/vasp; +#X obj 235 402 vasp.update; +#N canvas 0 0 262 199 clear_buffer 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X restore 380 379 pd clear_buffer; +#X obj 50 500 VASP-HELP; +#X text 55 62 copy an array/buffer to a new one; +#X obj 57 452 vasp.->; +#N canvas 0 0 450 300 graph1 0; +#X array bufcopy1 100 float 1; +#A 0 0 0 0 0.0599997 0.0899995 0.119999 0.179999 0.239999 0.259999 +0.279999 0.299998 0.309998 0.319998 0.323998 0.327998 0.331998 0.335998 +0.339998 0.339998 0.339998 0.339998 0.339998 0.309998 0.279999 0.179999 +0.0799996 -0.0599997 -0.0999995 -0.109999 -0.119999 -0.109999 -0.0999995 +-0.0899995 -0.0799996 -0.0599997 -0.0399998 -0.0199999 2.30968e-008 +0.0199999 0.0799996 0.139999 0.259999 0.239999 0.119999 1.86265e-008 +-0.0299998 -0.0599997 -0.0899995 -0.119999 -0.123333 -0.126666 -0.129999 +-0.133333 -0.136666 -0.139999 -0.133333 -0.126666 -0.119999 -0.113333 +-0.106666 -0.0999995 -0.0533331 -0.00666663 0.0399998 0.0866662 0.133333 +0.179999 0.239999 0.299998 0.379998 0.279999 0.159999 0.189999 0.219999 +0.299998 0.379998 0.459998 0.539997 0.595997 0.651997 0.707996 0.763996 +0.819996 0.379998 0.239999 0.0999995 0.0949996 0.0899996 0.0849996 +0.0799997 0.139999 0.199999 0.0399999 0.0999995 0 0 0 0 0 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 621 72 graph; +#N canvas 0 0 392 268 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100 +\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1; +#X msg 33 45 symbol bufcopy1 \, symbol bufcopy2 \, symbol bufcopy3 +; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 711 457 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array bufcopy2 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 621 186 graph; +#N canvas 0 0 450 300 graph1 0; +#X array bufcopy3 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 621 301 graph; +#X text 111 453 abbreviation; +#X msg 54 169 vasp bufcopy1; +#X obj 157 281 vasp.update; +#X msg 380 354 vasp bufcopy2 bufcopy3; +#X text 53 254 original; +#X obj 235 379 vasp.= bufcopy1; +#X msg 235 354 vasp bufcopy2; +#X obj 54 234 vasp.copy bufcopy2; +#X msg 178 226 vasp bufcopy3; +#X msg 178 203 vasp bufcopy2; +#X text 66 351 or the other way round:; +#X text 164 254 copy; +#X text 55 99 left outlet: original \, right outlet: copy !!!; +#X text 377 330 clear buffer 2 and 3; +#X connect 12 0 18 0; +#X connect 14 0 3 0; +#X connect 16 0 2 0; +#X connect 17 0 16 0; +#X connect 18 1 13 0; +#X connect 19 0 18 1; +#X connect 20 0 18 1; diff --git a/externals/grill/vasp/pd-help/vasp_cosc.pd b/externals/grill/vasp/pd-help/vasp_cosc.pd new file mode 100644 index 00000000..bbc4941c --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_cosc.pd @@ -0,0 +1,63 @@ +#N canvas 47 54 885 488 10; +#N canvas 0 0 452 302 Hz_to_period_length 0; +#X floatatom 125 238 0 0 0; +#X obj 125 142 t b f; +#X text 164 238 period length in samples (float); +#X floatatom 125 80 0 0 0; +#X obj 125 206 / 1; +#X text 170 79 frequency in Hz; +#X obj 53 142 samplerate~; +#X obj 53 119 loadbang; +#X floatatom 125 175 5 0 0; +#X connect 1 0 8 0; +#X connect 1 1 4 1; +#X connect 3 0 1 0; +#X connect 4 0 0 0; +#X connect 6 0 8 0; +#X connect 7 0 6 0; +#X connect 8 0 4 0; +#X restore 78 302 pd Hz_to_period_length; +#X obj 71 32 cnv 15 15 15 empty empty vasp.cosc 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 450 300 graph1 0; +#X array bufcosc1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 500 96 graph; +#N canvas 0 0 400 276 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufcosc1 \, symbol bufcosc2; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 781 387 pd init; +#X text 71 83 optional argument/right inlet: frequency in period length +in samples; +#X obj 77 241 vasp.update; +#X obj 77 218 vasp.* 0.5; +#X msg 503 360 vasp bufcosc1 bufcosc2; +#N canvas 40 55 247 122 clear_buffers 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 503 383 pd clear_buffers; +#N canvas 0 0 450 300 graph1 0; +#X array bufcosc2 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 501 228 graph; +#X text 71 63 vasp complex sine wave generator; +#X text 241 123 generate a complex sinewave; +#X text 241 135 at 1 Hz into two buffers; +#X obj 77 194 vasp.cosc 44100; +#X msg 77 127 vasp bufcosc1 bufcosc2; +#X floatatom 162 168 7 0 0; +#X text 239 168 set period length (samples); +#X obj 79 424 VASP-HELP; +#X connect 6 0 5 0; +#X connect 7 0 8 0; +#X connect 13 0 6 0; +#X connect 14 0 13 0; +#X connect 15 0 13 1; diff --git a/externals/grill/vasp/pd-help/vasp_cpowi.pd b/externals/grill/vasp/pd-help/vasp_cpowi.pd new file mode 100644 index 00000000..8d5d8047 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_cpowi.pd @@ -0,0 +1,84 @@ +#N canvas 28 51 892 605 10; +#N canvas 92 108 411 413 inside 0; +#X obj 66 154 soundfiler; +#X obj 84 238 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 214 206 resize \$1; +#X obj 67 53 loadbang; +#X obj 66 178 t b f f; +#X obj 67 101 filelisthandler \$0; +#X msg 67 133 read -resize \$1 bufcpowi1; +#X obj 214 228 s bufcpowi1; +#X obj 224 252 s bufcpowi2; +#X msg 67 79 1; +#X connect 0 0 5 0; +#X connect 3 0 8 0; +#X connect 3 0 9 0; +#X connect 4 0 10 0; +#X connect 5 0 2 0; +#X connect 5 1 1 0; +#X connect 5 2 3 0; +#X connect 6 0 7 0; +#X connect 7 0 0 0; +#X connect 10 0 6 0; +#X restore 693 501 pd inside; +#X obj 75 32 cnv 15 15 15 empty empty vasp.cpowi 0 10 1 14 -262144 +-1 0; +#X obj 77 139 filelist \$0; +#X obj 59 482 vasp.update; +#X obj 59 502 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 59 442 vasp.c!fft; +#X obj 59 264 vasp.cfft; +#X obj 59 284 vasp.update; +#X obj 59 304 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 360 498 dac~; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 494 498 pd clear_buffers; +#X obj 360 455 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 382 452 play; +#X text 494 453 clear; +#X text 74 61 complex integer power function; +#X text 74 75 complex sample ^ n; +#X text 74 101 argument: exponent; +#X msg 59 244 vasp bufcpowi1 bufcpowi2; +#X obj 470 111 wavedisplay-simple bufcpowi1 \$0; +#X obj 471 254 wavedisplay-simple bufcpowi2 \$0; +#X obj 360 475 tabplay~ bufcpowi1; +#X msg 494 475 vasp bufcpowi1 bufcpowi2; +#X obj 59 368 vasp.update; +#X obj 59 388 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 59 328 vasp bufcpowi1 bufcpowi2; +#X obj 59 348 vasp.cpowi 2; +#X msg 59 422 vasp bufcpowi1 bufcpowi2; +#X obj 59 462 vasp.opt; +#X text 75 88 needs two vectors (or more complex pairs); +#X obj 59 552 VASP-HELP; +#X text 222 242 1 transform to frequency domain; +#X text 219 310 2 complex int power function; +#X text 217 404 3 transform back to time domain; +#X connect 3 0 4 0; +#X connect 5 0 27 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 11 0 20 0; +#X connect 17 0 6 0; +#X connect 20 0 9 0; +#X connect 20 0 9 1; +#X connect 21 0 10 0; +#X connect 22 0 23 0; +#X connect 24 0 25 0; +#X connect 25 0 22 0; +#X connect 26 0 5 0; +#X connect 27 0 3 0; diff --git a/externals/grill/vasp/pd-help/vasp_crsub.pd b/externals/grill/vasp/pd-help/vasp_crsub.pd new file mode 100644 index 00000000..8a70d962 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_crsub.pd @@ -0,0 +1,22 @@ +#N canvas 262 173 566 417 10; +#X text 56 204 differences in lengths are adjusted to smaller vector +of each pair; +#X text 59 142 c \, d ... right operand; +#X text 59 127 a \, b ... left operand; +#X text 59 83 e+if=(c+id)-(a+ib); +#X text 59 112 e \, f ... target buffers; +#X text 59 170 vasp.c- needs 2 vectors per operand which are treated +as pairs; +#X text 59 67 complex inverse substraction; +#X obj 55 34 cnv 15 15 15 empty empty vasp.c!- 0 10 1 14 -262144 -1 +0; +#X obj 286 96 vasp.c!-; +#X text 46 287 related objects:; +#X obj 265 330 vasp.c!/; +#X obj 182 288 vasp.c=; +#X obj 265 309 vasp.c/; +#X obj 265 288 vasp.c*; +#X obj 52 377 VASP-HELP; +#X text 94 377 - vasp overview; +#X obj 182 309 vasp.c+; +#X obj 182 330 vasp.c-; diff --git a/externals/grill/vasp/pd-help/vasp_cset.pd b/externals/grill/vasp/pd-help/vasp_cset.pd new file mode 100644 index 00000000..b317f1d2 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_cset.pd @@ -0,0 +1,20 @@ +#N canvas 232 203 575 403 10; +#X text 57 188 differences in lengths are adjusted to smaller vector +of each pair; +#X text 58 124 c \, d is the target; +#X text 58 109 a \, b is the source; +#X text 58 84 (a+ib)=(c+id); +#X text 58 153 vasp.c= needs 2 vectors per operand which are treated +as pairs; +#X text 58 68 complex =; +#X obj 55 34 cnv 15 15 15 empty empty vasp.c= 0 10 1 14 -262144 -1 +0; +#X obj 291 90 vasp.c=; +#X text 58 265 related objects:; +#X obj 194 308 vasp.c!-; +#X obj 277 308 vasp.c!/; +#X obj 277 287 vasp.c/; +#X obj 277 266 vasp.c*; +#X obj 194 287 vasp.c-; +#X obj 57 352 VASP-HELP; +#X obj 194 266 vasp.c+; diff --git a/externals/grill/vasp/pd-help/vasp_csqr.pd b/externals/grill/vasp/pd-help/vasp_csqr.pd new file mode 100644 index 00000000..23554fe5 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_csqr.pd @@ -0,0 +1,79 @@ +#N canvas 28 51 892 642 10; +#N canvas 92 108 415 417 inside 0; +#X obj 66 154 soundfiler; +#X obj 84 238 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 214 206 resize \$1; +#X obj 67 53 loadbang; +#X obj 66 178 t b f f; +#X obj 67 101 filelisthandler \$0; +#X msg 67 79 3; +#X obj 214 228 s bufcsqr1; +#X obj 224 252 s bufcsqr2; +#X msg 67 133 read -resize \$1 bufcsqr1; +#X connect 0 0 5 0; +#X connect 3 0 8 0; +#X connect 3 0 9 0; +#X connect 4 0 7 0; +#X connect 5 0 2 0; +#X connect 5 1 1 0; +#X connect 5 2 3 0; +#X connect 6 0 10 0; +#X connect 7 0 6 0; +#X connect 10 0 0 0; +#X restore 685 477 pd inside; +#X obj 75 32 cnv 15 15 15 empty empty vasp.csqr 0 10 1 14 -262144 -1 +0; +#X obj 77 139 filelist \$0; +#X obj 59 482 vasp.update; +#X obj 59 502 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 59 442 vasp.c!fft; +#X obj 59 264 vasp.cfft; +#X obj 59 284 vasp.update; +#X obj 59 304 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 352 474 dac~; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 486 474 pd clear_buffers; +#X obj 352 431 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 374 428 play; +#X text 486 429 clear; +#X obj 59 368 vasp.update; +#X obj 59 388 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 59 462 vasp.opt; +#X text 74 75 complex sample ^ 2; +#X msg 59 244 vasp bufcsqr1 bufcsqr2; +#X msg 59 328 vasp bufcsqr1 bufcsqr2; +#X obj 59 348 vasp.csqr; +#X msg 59 422 vasp bufcsqr1 bufcsqr2; +#X obj 352 451 tabplay~ bufcsqr1; +#X msg 486 451 vasp bufcsqr1 bufcsqr2; +#X obj 383 123 wavedisplay-simple bufcsqr1 \$0; +#X obj 383 258 wavedisplay-simple bufcsqr2 \$0; +#X text 75 88 needs two vectors (or multiple complex pairs); +#X obj 57 580 VASP-HELP; +#X connect 3 0 4 0; +#X connect 5 0 16 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 11 0 22 0; +#X connect 14 0 15 0; +#X connect 16 0 3 0; +#X connect 18 0 6 0; +#X connect 19 0 20 0; +#X connect 20 0 14 0; +#X connect 21 0 5 0; +#X connect 22 0 9 0; +#X connect 22 0 9 1; +#X connect 23 0 10 0; diff --git a/externals/grill/vasp/pd-help/vasp_csub.pd b/externals/grill/vasp/pd-help/vasp_csub.pd new file mode 100644 index 00000000..35cd2bd7 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_csub.pd @@ -0,0 +1,21 @@ +#N canvas 262 173 610 462 10; +#X text 62 147 c \, d ... right operand; +#X text 62 132 a \, b ... left operand; +#X text 62 117 e \, f ... target buffers; +#X text 60 201 differences in lengths are adjusted to smaller vector +of each pair; +#X text 62 87 e+if=(a+ib)-(c+id); +#X text 61 169 vasp.c- needs 2 vectors per operand which are treated +as pairs; +#X text 62 71 complex subtraction; +#X obj 57 23 cnv 15 15 15 empty empty vasp.c- 0 10 1 14 -262144 -1 +0; +#X obj 297 94 vasp.c-; +#X text 46 287 related objects:; +#X obj 182 330 vasp.c!-; +#X obj 265 330 vasp.c!/; +#X obj 182 288 vasp.c=; +#X obj 265 309 vasp.c/; +#X obj 265 288 vasp.c*; +#X obj 52 377 VASP-HELP; +#X obj 182 309 vasp.c+; diff --git a/externals/grill/vasp/pd-help/vasp_csubr.pd b/externals/grill/vasp/pd-help/vasp_csubr.pd new file mode 100644 index 00000000..ed2e3027 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_csubr.pd @@ -0,0 +1,21 @@ +#N canvas 266 193 568 419 10; +#X text 56 204 differences in lengths are adjusted to smaller vector +of each pair; +#X text 59 142 c \, d ... right operand; +#X text 59 127 a \, b ... left operand; +#X text 59 83 e+if=(c+id)-(a+ib); +#X text 59 112 e \, f ... target buffers; +#X text 59 170 vasp.c- needs 2 vectors per operand which are treated +as pairs; +#X text 59 67 complex inverse substraction; +#X obj 55 34 cnv 15 15 15 empty empty vasp.c!- 0 10 1 14 -262144 -1 +0; +#X obj 286 96 vasp.c!-; +#X text 46 287 related objects:; +#X obj 265 330 vasp.c!/; +#X obj 182 288 vasp.c=; +#X obj 265 309 vasp.c/; +#X obj 265 288 vasp.c*; +#X obj 52 377 VASP-HELP; +#X obj 182 309 vasp.c+; +#X obj 182 330 vasp.c-; diff --git a/externals/grill/vasp/pd-help/vasp_dframes.pd b/externals/grill/vasp/pd-help/vasp_dframes.pd new file mode 100644 index 00000000..327ff98e --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_dframes.pd @@ -0,0 +1,65 @@ +#N canvas 97 138 905 512 10; +#X obj 62 303 vasp.osc 22050; +#X obj 58 31 cnv 15 15 15 empty empty vasp.frames+ 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 450 300 graph1 0; +#X array bufdfram1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 530 149 graph; +#N canvas 0 0 402 278 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufdfram1; +#X msg 140 45 symbol bufdfram2; +#X connect 0 0 2 0; +#X connect 0 0 3 0; +#X connect 2 0 1 0; +#X connect 3 0 1 0; +#X restore 714 408 pd init; +#X obj 62 335 vasp.update; +#X text 119 397 abbreviation; +#N canvas 0 0 450 300 graph1 0; +#X array bufdfram2 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 530 268 graph; +#X text 56 98 !!!all vectors of a vasp have the same framesize/length!!! +; +#X obj 77 252 prepend set; +#X obj 62 220 vasp.frames+ 30000; +#X obj 63 396 vasp.f+; +#X obj 63 452 VASP-HELP; +#X text 57 69 adds a value to the frames of a vasp; +#X text 58 83 argument/right inlet: value in frames; +#X obj 278 432 vasp.osc 22050; +#X obj 278 455 vasp.update; +#X obj 278 258 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 +10 -24198 -1 -1 -161 256; +#X obj 278 277 * 100; +#X floatatom 313 280 12 0 0; +#X msg 62 192 vasp 0 bufdfram1; +#X text 62 164 add 30000 frames to a buffer with length 0; +#X obj 296 351 vasp.= 0; +#X obj 278 306 t b b f; +#X obj 278 408 vasp.frames+ 0; +#X msg 278 380 vasp 30000 bufdfram2; +#X msg 296 330 vasp bufdfram2; +#X text 278 217 add an amount \, to subtract; +#X text 278 231 try negative values; +#X msg 77 274; +#X connect 0 0 4 0; +#X connect 8 0 28 0; +#X connect 9 0 8 0; +#X connect 9 0 0 0; +#X connect 14 0 15 0; +#X connect 16 0 17 0; +#X connect 17 0 18 0; +#X connect 17 0 22 0; +#X connect 19 0 9 0; +#X connect 22 0 24 0; +#X connect 22 1 25 0; +#X connect 22 2 23 1; +#X connect 23 0 14 0; +#X connect 24 0 23 0; +#X connect 25 0 21 0; diff --git a/externals/grill/vasp/pd-help/vasp_dif.pd b/externals/grill/vasp/pd-help/vasp_dif.pd new file mode 100644 index 00000000..039671ca --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_dif.pd @@ -0,0 +1,49 @@ +#N canvas 96 158 863 464 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.dif 0 10 1 14 -262144 -1 +0; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 469 375 pd clear_buffer; +#X obj 77 365 vasp.update; +#X obj 77 243 vasp.update; +#X obj 77 340 vasp.opt; +#X obj 77 315 vasp.dif; +#X text 70 61 vasp differential function; +#X text 70 77 argument/right inlet: repetition count (default 1); +#X obj 77 154 vasp.- 0.5; +#X obj 77 177 vasp.abs; +#X obj 77 199 vasp.- 0.25; +#X obj 77 220 vasp.* 4; +#N canvas 0 0 450 300 graph1 0; +#X array bufdif 20 float 0; +#X coords 0 1 19 -1 300 100 1; +#X restore 441 173 graph; +#N canvas 0 0 396 272 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 1 5 \; \$1 xlabel 1.1 0 5 10 15 \; \$1 +yticks 0 0.25 2 \; \$1 ylabel 20.5 -1 -0.5 0 0.5 1; +#X msg 33 45 symbol bufdif; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 690 378 pd init; +#X msg 469 354 vasp bufdif; +#X obj 77 130 vasp.phasor 10; +#X msg 77 103 vasp bufdif; +#X msg 77 293 vasp bufdif; +#X text 170 293 find the gradient of the curve; +#X text 187 101 generate triangular wave; +#X obj 79 422 VASP-HELP; +#X connect 4 0 2 0; +#X connect 5 0 4 0; +#X connect 8 0 9 0; +#X connect 9 0 10 0; +#X connect 10 0 11 0; +#X connect 11 0 3 0; +#X connect 14 0 1 0; +#X connect 15 0 8 0; +#X connect 16 0 15 0; +#X connect 17 0 5 0; diff --git a/externals/grill/vasp/pd-help/vasp_div.pd b/externals/grill/vasp/pd-help/vasp_div.pd new file mode 100644 index 00000000..2b2363e9 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_div.pd @@ -0,0 +1,42 @@ +#N canvas 193 184 764 384 10; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 45 79 vasp.update; +#X obj 45 56 vasp.= 0; +#X obj 45 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 522 282 pd clear_buffer; +#N canvas 0 0 450 300 graph1 0; +#X array bufdiv 88200 float 0; +#X coords 0 1 88199 -1 300 120 1; +#X restore 401 42 graph; +#N canvas 0 0 398 274 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufdiv; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 655 282 pd init; +#X obj 51 19 cnv 15 15 15 empty empty vasp./ 0 10 1 14 -262144 -1 0 +; +#X text 127 122 generate a sine wave at 1Hz; +#X text 44 82 optional argument/right inlet: divisor; +#X text 44 67 vasp division; +#X msg 522 262 vasp bufdiv; +#X obj 51 271 vasp.update; +#X obj 51 204 vasp.osc 44100; +#X obj 51 231 vasp./ 2; +#X msg 51 175 vasp bufdiv; +#X obj 51 334 VASP-HELP; +#X obj 51 144 t b f; +#X obj 51 123 nbx 5 14 -1e+037 1e+037 0 1 empty empty empty 0 -6 0 +10 -24198 -1 -1 2 256; +#X connect 7 0 0 0; +#X connect 9 0 10 0; +#X connect 10 0 8 0; +#X connect 11 0 9 0; +#X connect 13 0 11 0; +#X connect 13 1 10 1; +#X connect 14 0 13 0; diff --git a/externals/grill/vasp/pd-help/vasp_divr.pd b/externals/grill/vasp/pd-help/vasp_divr.pd new file mode 100644 index 00000000..ee67e6c4 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_divr.pd @@ -0,0 +1,37 @@ +#N canvas 193 184 768 388 10; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 45 79 vasp.update; +#X obj 45 56 vasp.= 0; +#X obj 45 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 403 225 pd clear_buffer; +#N canvas 0 0 450 300 graph1 0; +#X array bufrdiv 88200 float 0; +#X coords 0 1 88199 -1 300 120 1; +#X restore 401 42 graph; +#N canvas 0 0 400 276 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufrdiv; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 668 245 pd init; +#X obj 51 19 cnv 15 15 15 empty empty vasp.!/ 0 10 1 14 -262144 -1 +0; +#X msg 403 205 vasp bufrdiv; +#X text 44 67 vasp reverse division (value/sample); +#X text 44 82 optional argument/right inlet: denominator; +#X obj 49 219 vasp.update; +#X msg 49 124 vasp bufrdiv; +#X text 137 124 generate a ramp from 1 to 2; +#X obj 49 186 vasp.!/ 1; +#X text 136 185 1/x; +#X obj 48 298 VASP-HELP; +#X obj 49 151 vasp.= env 1 0 2 88200; +#X connect 4 0 0 0; +#X connect 8 0 13 0; +#X connect 10 0 7 0; +#X connect 13 0 10 0; diff --git a/externals/grill/vasp/pd-help/vasp_doffset.pd b/externals/grill/vasp/pd-help/vasp_doffset.pd new file mode 100644 index 00000000..c1f7b32c --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_doffset.pd @@ -0,0 +1,28 @@ +#N canvas 199 140 620 413 10; +#X text 55 80 argument/right inlet: value; +#X obj 41 11 cnv 15 15 15 empty empty vasp.offset+ 0 10 1 14 -262144 +-1 0; +#X text 57 323 abbreviation; +#X floatatom 149 151 0 0 0; +#X obj 58 201 prepend set; +#X obj 58 172 vasp.offset+ 300; +#X msg 58 128 vasp bufoffsd1; +#X msg 58 234; +#X floatatom 336 151 0 0 0; +#X obj 245 201 prepend set; +#X obj 245 172 vasp.offset+ 300; +#X msg 245 128 vasp bufoffsd1 220 bufoffsd2 100; +#X msg 245 234; +#X obj 147 324 vasp.o+; +#X text 55 63 change the offset of a vasp (relatively); +#X obj 471 286 table bufoffsd1; +#X obj 471 313 table bufoffsd2; +#X obj 58 365 VASP-HELP; +#X connect 3 0 5 1; +#X connect 4 0 7 0; +#X connect 5 0 4 0; +#X connect 6 0 5 0; +#X connect 8 0 10 1; +#X connect 9 0 12 0; +#X connect 10 0 9 0; +#X connect 11 0 10 0; diff --git a/externals/grill/vasp/pd-help/vasp_dsize.pd b/externals/grill/vasp/pd-help/vasp_dsize.pd new file mode 100644 index 00000000..b8c47396 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_dsize.pd @@ -0,0 +1,39 @@ +#N canvas 85 111 905 540 10; +#X obj 58 31 cnv 15 15 15 empty empty vasp.size+ 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 408 284 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 2 5 \; \$1 xlabel 1.1 0 10 20 30 40 50 +\; \$1 yticks 0 0.25 2; +#X msg 33 45 symbol bufdsize; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 714 408 pd init; +#X text 119 392 abbreviation; +#X text 58 83 argument/right inlet: value in samples; +#N canvas 0 0 450 300 graph1 0; +#X array bufdsize 176 float 0; +#X coords 0 1 175 -1 300 100 1; +#X restore 453 153 graph; +#X text 62 433 related objects:; +#X obj 343 460 vasp.frames; +#X obj 183 460 vasp.size?; +#X obj 259 460 vasp.size*; +#X obj 259 437 vasp.size/; +#X msg 62 152 vasp bufdsize; +#X text 56 67 add an amount to the size of a buffer/array; +#X obj 62 225 vasp.size+ 10; +#X obj 62 271 vasp.size?; +#X floatatom 62 304 5 0 0; +#X obj 63 392 vasp.s+; +#X obj 183 436 vasp.size; +#X obj 62 504 VASP-HELP; +#X obj 135 199 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 +10 -24198 -1 -1 0 256; +#X obj 62 129 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 +-1; +#X connect 10 0 12 0; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X connect 18 0 12 1; +#X connect 19 0 10 0; diff --git a/externals/grill/vasp/pd-help/vasp_equ.pd b/externals/grill/vasp/pd-help/vasp_equ.pd new file mode 100644 index 00000000..36c5ce74 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_equ.pd @@ -0,0 +1,53 @@ +#N canvas 28 91 940 545 10; +#X obj 62 41 cnv 15 15 15 empty empty vasp.== 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 450 300 graph1 0; +#X array bufequ 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 512 119 graph; +#N canvas 0 0 402 278 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufequ \, symbol bufequ1; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 766 421 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array bufequ1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 512 248 graph; +#X text 60 104 argument/right inlet: value; +#X text 166 293 copy to new buffer; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 564 426 pd clear_buffers; +#X text 60 80 equal; +#X msg 564 399 vasp bufequ bufequ1; +#X text 173 149 generate a function; +#X msg 61 150 vasp bufequ; +#X text 406 248 1/true; +#X text 405 288 0/false; +#X text 164 359 test if a part of the function is equal to -1; +#X obj 58 431 VASP-HELP; +#X obj 60 384 vasp.update; +#X msg 60 294 vasp bufequ1; +#X obj 60 326 vasp.= bufequ; +#X obj 60 357 vasp.== -1; +#X obj 61 218 vasp.update; +#X obj 61 178 vasp.= env 0 0 1 22049 0.3 22050 0.3 44099 -1 44100 -1 +66149 1 66150 0 88200; +#X connect 8 0 6 0; +#X connect 10 0 20 0; +#X connect 16 0 17 0; +#X connect 17 0 18 0; +#X connect 18 0 15 0; +#X connect 20 0 19 0; diff --git a/externals/grill/vasp/pd-help/vasp_exp.pd b/externals/grill/vasp/pd-help/vasp_exp.pd new file mode 100644 index 00000000..902ebc33 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_exp.pd @@ -0,0 +1,42 @@ +#N canvas 51 74 827 464 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.exp 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 408 284 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufexp; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 608 330 pd init; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 463 330 pd clear_buffer; +#X obj 77 197 vasp.update; +#X text 71 63 e ^ sample; +#X text 72 81 exponential function; +#X obj 77 150 vasp.osc 22050; +#X obj 77 172 vasp.* 0.5; +#X msg 77 127 vasp bufexp; +#X msg 463 307 vasp bufexp; +#N canvas 0 0 450 300 graph1 0; +#X array bufexp 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 341 144 graph; +#X obj 78 372 VASP-HELP; +#X obj 77 316 vasp.update; +#X msg 77 246 vasp bufexp; +#X obj 77 291 vasp.opt; +#X obj 77 269 vasp.exp; +#X connect 6 0 7 0; +#X connect 7 0 3 0; +#X connect 8 0 6 0; +#X connect 9 0 2 0; +#X connect 13 0 15 0; +#X connect 14 0 12 0; +#X connect 15 0 14 0; diff --git a/externals/grill/vasp/pd-help/vasp_fhp.pd b/externals/grill/vasp/pd-help/vasp_fhp.pd new file mode 100644 index 00000000..9b5eff80 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_fhp.pd @@ -0,0 +1,89 @@ +#N canvas 47 54 891 554 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.fhp 0 10 1 14 -262144 -1 +0; +#X obj 76 247 vasp.update; +#X obj 76 224 vasp.* 0.5; +#X obj 401 449 dac~; +#X obj 401 405 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 423 404 play; +#N canvas 40 55 281 170 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 533 449 pd clear_buffer; +#X text 180 178 generate white noise; +#X obj 76 201 vasp.noise; +#X obj 76 270 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 77 391 vasp.update; +#X obj 77 414 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#N canvas 92 108 341 266 init 0; +#X obj 110 180 s \$0-sample-length; +#X msg 177 126 resize \$1; +#X obj 177 79 loadbang; +#X msg 177 100 88200; +#X obj 177 148 s buffhp; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 1 0; +#X connect 3 0 0 0; +#X restore 672 447 pd init; +#N canvas 0 0 458 308 Hz_to_period_length 0; +#X floatatom 125 242 0 0 0; +#X obj 125 142 t b f; +#X text 158 223 period length in samples (float); +#X floatatom 125 80 0 0 0; +#X obj 125 206 / 1; +#X text 170 79 frequency in Hz; +#X obj 53 142 samplerate~; +#X obj 53 119 loadbang; +#X floatatom 125 175 5 0 0; +#X connect 1 0 8 0; +#X connect 1 1 4 1; +#X connect 3 0 1 0; +#X connect 4 0 0 0; +#X connect 6 0 8 0; +#X connect 7 0 6 0; +#X connect 8 0 4 0; +#X restore 78 457 pd Hz_to_period_length; +#X text 71 63 vasp high pass filter (FIR); +#X text 70 78 first argument: cutoff frequency in period length; +#X text 70 92 second argument: q-factor from 1 to infinite (integer) +default 1; +#X text 70 119 right inlet: cutoff and q-factor (list); +#X obj 421 188 wavedisplay-simple buffhp \$0; +#X msg 76 179 vasp buffhp; +#X msg 77 330 vasp buffhp; +#X floatatom 201 298 5 0 0; +#X floatatom 260 298 5 0 0; +#X text 195 278 cutoff; +#X text 261 277 q-factor; +#X obj 201 345 pack; +#X obj 401 426 tabplay~ buffhp; +#X msg 533 426 vasp buffhp; +#X obj 260 319 t b f; +#X obj 77 366 vasp.fhp 220; +#X obj 78 503 VASP-HELP; +#X connect 1 0 9 0; +#X connect 2 0 1 0; +#X connect 4 0 26 0; +#X connect 8 0 2 0; +#X connect 10 0 11 0; +#X connect 19 0 8 0; +#X connect 20 0 29 0; +#X connect 21 0 25 0; +#X connect 22 0 28 0; +#X connect 25 0 29 1; +#X connect 26 0 3 0; +#X connect 26 0 3 1; +#X connect 27 0 6 0; +#X connect 28 0 25 0; +#X connect 28 1 25 1; +#X connect 29 0 10 0; diff --git a/externals/grill/vasp/pd-help/vasp_fix.pd b/externals/grill/vasp/pd-help/vasp_fix.pd new file mode 100644 index 00000000..871a1d33 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_fix.pd @@ -0,0 +1,64 @@ +#N canvas 40 76 961 604 10; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 45 79 vasp.update; +#X obj 45 56 vasp.= 0; +#X obj 45 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 567 519 pd clear_buffer; +#X obj 51 19 cnv 15 15 15 empty empty vasp.fix 0 10 1 14 -262144 -1 +0; +#X obj 52 493 VASP-HELP; +#X text 43 57 NAN (not a number) - values become 0; +#N canvas 0 0 450 300 graph1 0; +#X array buffix1 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 539 58 graph; +#N canvas 0 0 390 266 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100 +\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1; +#X msg 33 45 symbol buffix1 \, symbol buffix2 \, symbol buffix3; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 799 523 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array buffix2 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 539 207 graph; +#N canvas 0 0 450 300 graph1 0; +#X array buffix3 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 539 353 graph; +#X msg 567 490 vasp buffix1 buffix2 buffix3; +#X obj 142 254 vasp.log; +#X obj 246 392 vasp.u; +#X obj 246 365 vasp.fix; +#X obj 142 393 vasp.u; +#X obj 142 332 vasp.exp; +#X text 152 362 no fix; +#X obj 57 179 vasp.u; +#X text 212 253 values < 0 become NANs; +#X text 803 324 fixed; +#X text 802 18 source; +#X text 814 179 NANs; +#X msg 57 121 vasp buffix1; +#X obj 57 202 vasp.-> buffix2; +#X obj 142 292 vasp.-> buffix3; +#X obj 246 334 vasp.exp; +#X text 142 421 NANs; +#X text 246 420 fixed; +#X text 157 121 generate sine wave; +#X obj 57 157 vasp.osc 21; +#X text 316 365 NANs become 0; +#X connect 8 0 0 0; +#X connect 9 0 22 0; +#X connect 11 0 10 0; +#X connect 13 0 12 0; +#X connect 15 0 21 0; +#X connect 20 0 27 0; +#X connect 21 1 9 0; +#X connect 22 0 13 0; +#X connect 22 1 23 0; +#X connect 23 0 11 0; +#X connect 27 0 15 0; diff --git a/externals/grill/vasp/pd-help/vasp_flp.pd b/externals/grill/vasp/pd-help/vasp_flp.pd new file mode 100644 index 00000000..ab720f99 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_flp.pd @@ -0,0 +1,86 @@ +#N canvas 47 54 883 546 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.flp 0 10 1 14 -262144 -1 +0; +#X obj 76 247 vasp.update; +#X obj 76 224 vasp.* 0.5; +#X obj 401 449 dac~; +#X obj 401 405 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 423 404 play; +#N canvas 40 55 281 170 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 533 449 pd clear_buffer; +#X text 180 178 generate white noise; +#X obj 76 201 vasp.noise; +#X obj 76 270 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#N canvas 92 108 343 268 init 0; +#X obj 110 180 s \$0-sample-length; +#X msg 177 126 resize \$1; +#X obj 177 79 loadbang; +#X msg 177 100 88200; +#X obj 177 148 s bufflp; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 1 0; +#X connect 3 0 0 0; +#X restore 672 447 pd init; +#N canvas 0 0 456 306 Hz_to_period_length 0; +#X floatatom 125 242 0 0 0; +#X obj 125 142 t b f; +#X text 158 223 period length in samples (float); +#X floatatom 125 80 0 0 0; +#X obj 125 206 / 1; +#X text 170 79 frequency in Hz; +#X obj 53 142 samplerate~; +#X obj 53 119 loadbang; +#X floatatom 125 175 5 0 0; +#X connect 1 0 8 0; +#X connect 1 1 4 1; +#X connect 3 0 1 0; +#X connect 4 0 0 0; +#X connect 6 0 8 0; +#X connect 7 0 6 0; +#X connect 8 0 4 0; +#X restore 78 457 pd Hz_to_period_length; +#X text 70 78 first argument: cutoff frequency in period length; +#X text 70 92 second argument: q-factor from 1 to infinite (integer) +default 1; +#X text 70 119 right inlet: cutoff and q-factor (list); +#X text 71 63 vasp low pass filter (FIR); +#X msg 76 179 vasp bufflp; +#X obj 428 165 wavedisplay-simple bufflp \$0; +#X msg 533 426 vasp bufflp; +#X obj 401 426 tabplay~ bufflp; +#X obj 78 496 VASP-HELP; +#X obj 77 371 vasp.update; +#X obj 77 394 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X floatatom 201 298 5 0 0; +#X floatatom 260 298 5 0 0; +#X text 195 278 cutoff; +#X text 261 277 q-factor; +#X obj 201 318 pack; +#X msg 77 297 vasp bufflp; +#X obj 77 347 vasp.flp 220; +#X connect 1 0 9 0; +#X connect 2 0 1 0; +#X connect 4 0 19 0; +#X connect 8 0 2 0; +#X connect 16 0 8 0; +#X connect 18 0 6 0; +#X connect 19 0 3 0; +#X connect 19 0 3 1; +#X connect 21 0 22 0; +#X connect 23 0 27 0; +#X connect 24 0 27 1; +#X connect 27 0 29 1; +#X connect 28 0 29 0; +#X connect 29 0 21 0; diff --git a/externals/grill/vasp/pd-help/vasp_frames.pd b/externals/grill/vasp/pd-help/vasp_frames.pd new file mode 100644 index 00000000..6ee8ce96 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_frames.pd @@ -0,0 +1,60 @@ +#N canvas 79 77 899 565 10; +#X obj 58 31 cnv 15 15 15 empty empty vasp.frames 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 450 300 graph1 0; +#X array buffram1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 530 149 graph; +#N canvas 0 0 400 276 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol buffram1; +#X msg 140 45 symbol buffram2; +#X connect 0 0 2 0; +#X connect 0 0 3 0; +#X connect 2 0 1 0; +#X connect 3 0 1 0; +#X restore 714 408 pd init; +#X text 119 397 abbreviation; +#N canvas 0 0 450 300 graph1 0; +#X array buffram2 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 530 268 graph; +#X obj 62 303 vasp.osc 22050; +#X obj 62 335 vasp.update; +#X msg 62 165 vasp buffram1; +#X obj 62 225 vasp.frames 30000; +#X obj 90 258 prepend set; +#X msg 90 280; +#X obj 233 226 vasp.frames 22050; +#X obj 233 335 vasp.update; +#X obj 261 258 prepend set; +#X msg 233 164 vasp buffram1 buffram2 11050; +#X floatatom 330 197 5 0 0 0 - - -; +#X obj 233 303 vasp.osc 11025; +#X msg 261 280; +#X obj 62 397 vasp.f; +#X obj 61 498 VASP-HELP; +#X text 57 69 set the number of frames of a vasp; +#X text 58 83 argument/right inlet: value in frames; +#X text 60 429 related objects:; +#X obj 61 451 vasp.size; +#X obj 150 451 vasp.f?; +#X obj 223 451 vasp.f=; +#X text 57 100 the number of frames is limited by the size of a buffer/array! +; +#X text 57 129 all vectors of a vasp have the same frame count/length! +; +#X connect 5 0 6 0; +#X connect 7 0 8 0; +#X connect 8 0 9 0; +#X connect 8 0 5 0; +#X connect 9 0 10 0; +#X connect 11 0 13 0; +#X connect 11 0 16 0; +#X connect 13 0 17 0; +#X connect 14 0 11 0; +#X connect 15 0 11 1; +#X connect 16 0 12 0; diff --git a/externals/grill/vasp/pd-help/vasp_gate.pd b/externals/grill/vasp/pd-help/vasp_gate.pd new file mode 100644 index 00000000..7dfcda6e --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_gate.pd @@ -0,0 +1,74 @@ +#N canvas 36 36 808 584 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.gate 0 10 1 14 -262144 -1 +0; +#X obj 71 131 filelist \$0; +#N canvas 92 108 418 383 inside 0; +#X obj 66 169 soundfiler; +#X obj 84 253 s \$0-sample-length; +#X obj 66 223 s \$0-draw_display; +#X msg 214 221 resize \$1; +#X obj 66 60 loadbang; +#X obj 66 193 t b f f; +#X obj 66 113 filelisthandler \$0; +#X msg 66 91 1; +#X obj 214 243 s bufgate1; +#X obj 225 264 s bufgate2; +#X msg 66 145 read -resize \$1 bufgate1; +#X connect 0 0 5 0; +#X connect 3 0 8 0; +#X connect 3 0 9 0; +#X connect 4 0 7 0; +#X connect 5 0 2 0; +#X connect 5 1 1 0; +#X connect 5 2 3 0; +#X connect 6 0 10 0; +#X connect 7 0 6 0; +#X connect 10 0 0 0; +#X restore 668 495 pd inside; +#N canvas 40 55 281 170 clear_buffers 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 479 495 pd clear_buffers; +#X obj 60 272 vasp.update; +#X obj 60 292 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X text 69 52 gate buffer content with a value; +#X obj 419 261 wavedisplay-simple bufgate2 \$0; +#X obj 419 112 wavedisplay-simple bufgate1 \$0; +#X msg 60 232 vasp bufgate2; +#X obj 60 252 vasp.= bufgate1; +#X msg 479 475 vasp bufgate1 bufgate2; +#X text 161 229 copy from bufgate1 to bufgate2; +#X obj 337 495 dac~; +#X obj 337 457 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 358 455 play; +#X obj 337 475 tabplay~ bufgate2; +#X text 71 66 optional argument/right inlet: value (usually from 0-1 +to gate the soundfile sample for sample (not like a compressor!); +#X obj 58 497 VASP-HELP; +#X obj 60 391 vasp.update; +#X floatatom 133 349 5 0 0; +#X obj 60 411 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 60 324 vasp bufgate2; +#X obj 60 371 vasp.gate 0.2; +#X text 177 348 value; +#X text 159 321 gate the buffer content; +#X connect 4 0 5 0; +#X connect 9 0 10 0; +#X connect 10 0 4 0; +#X connect 11 0 3 0; +#X connect 14 0 16 0; +#X connect 16 0 13 0; +#X connect 16 0 13 1; +#X connect 19 0 21 0; +#X connect 20 0 23 1; +#X connect 22 0 23 0; +#X connect 23 0 19 0; diff --git a/externals/grill/vasp/pd-help/vasp_gather.pd b/externals/grill/vasp/pd-help/vasp_gather.pd new file mode 100644 index 00000000..8f5e2969 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_gather.pd @@ -0,0 +1,64 @@ +#N canvas 112 58 831 625 10; +#X text 403 160 gather as many vasps as you want and put them out (bang) +; +#X text 71 74 gather several vasps into one; +#X text 70 90 argument: vasps to gather before output; +#X text 71 143 right inlet: stores the different vasps; +#X text 70 110 left inlet: outputs a vasp immediately \, causes output +of vasps gathered in right inlet (bang); +#X text 72 163 use vasp.gather like the int/float object; +#X text 398 444 !vasps can have more vectors \, but just one length! +; +#X text 398 464 gather will always take the length from the shortest +of all gathered vasps for the new one!; +#X obj 71 37 cnv 15 15 15 empty empty vasp.gather 0 10 1 14 -262144 +-1 0; +#X msg 486 242 vasp bufgather4; +#X msg 471 221 vasp bufgather3; +#X msg 410 178 bang; +#X msg 456 201 vasp bufgather2; +#X msg 410 314; +#X obj 410 291 prepend set; +#X obj 410 268 vasp.gather; +#X msg 447 178 vasp bufgather1; +#X msg 167 450 vasp bufgather4; +#X msg 233 200 vasp bufgather2; +#X msg 78 200 bang; +#X obj 78 291 prepend set; +#X msg 117 200 vasp bufgather1; +#X msg 151 429 vasp bufgather3; +#X msg 78 386 bang; +#X msg 137 409 vasp bufgather2; +#X msg 78 520; +#X obj 78 497 prepend set; +#X obj 78 474 vasp.gather 2; +#X msg 125 386 vasp bufgather1; +#X text 71 366 gather two vasps (opt. argument) an put them out; +#X obj 77 561 VASP-HELP; +#N canvas 274 433 336 148 tables 0; +#X obj 105 39 table bufgather1; +#X obj 105 61 table bufgather2; +#X obj 105 84 table bufgather3; +#X obj 105 106 table bufgather4; +#X restore 422 552 pd tables; +#X obj 78 268 vasp.gather; +#X msg 78 314; +#X connect 9 0 15 1; +#X connect 10 0 15 1; +#X connect 11 0 15 0; +#X connect 12 0 15 1; +#X connect 14 0 13 0; +#X connect 15 0 14 0; +#X connect 16 0 15 1; +#X connect 17 0 27 1; +#X connect 18 0 32 1; +#X connect 19 0 32 0; +#X connect 20 0 33 0; +#X connect 21 0 32 0; +#X connect 22 0 27 1; +#X connect 23 0 27 0; +#X connect 24 0 27 1; +#X connect 26 0 25 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 32 0 20 0; diff --git a/externals/grill/vasp/pd-help/vasp_geq.pd b/externals/grill/vasp/pd-help/vasp_geq.pd new file mode 100644 index 00000000..c0339b41 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_geq.pd @@ -0,0 +1,50 @@ +#N canvas 44 207 837 466 10; +#X obj 62 41 cnv 15 15 15 empty empty vasp.>= 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 450 300 graph1 0; +#X array bufgeq 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 408 84 graph; +#N canvas 0 0 398 274 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufgeq \, symbol bufgeq1; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 662 388 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array bufgeq1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 408 213 graph; +#X text 60 94 argument/right inlet: value; +#X obj 61 172 vasp.osc 44100; +#X obj 61 194 vasp.update; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 460 390 pd clear_buffers; +#X msg 460 364 vasp bufgeq bufgeq1; +#X text 60 80 sample >= value; +#X msg 61 150 vasp bufgeq; +#X obj 57 418 VASP-HELP; +#X obj 58 366 vasp.update; +#X floatatom 119 308 5 0 0; +#X text 164 236 copy to new buffer; +#X msg 58 236 vasp bufgeq1; +#X obj 58 262 vasp.= bufgeq; +#X obj 58 335 vasp.>= 0.4; +#X connect 5 0 6 0; +#X connect 8 0 7 0; +#X connect 10 0 5 0; +#X connect 13 0 17 1; +#X connect 15 0 16 0; +#X connect 16 0 17 0; +#X connect 17 0 12 0; diff --git a/externals/grill/vasp/pd-help/vasp_gtr.pd b/externals/grill/vasp/pd-help/vasp_gtr.pd new file mode 100644 index 00000000..41b2bf9c --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_gtr.pd @@ -0,0 +1,52 @@ +#N canvas 44 207 839 468 10; +#X obj 62 41 cnv 15 15 15 empty empty vasp.> 0 10 1 14 -262144 -1 0 +; +#N canvas 0 0 450 300 graph1 0; +#X array bufgtr 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 439 87 graph; +#N canvas 0 0 396 272 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufgtr \, symbol bufgtr1; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 693 391 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array bufgtr1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 439 216 graph; +#X text 60 94 argument/right inlet: value; +#X obj 61 172 vasp.osc 44100; +#X obj 61 194 vasp.update; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 491 393 pd clear_buffers; +#X text 60 80 sample > value; +#X msg 61 150 vasp bufgtr; +#X msg 491 367 vasp bufgtr bufgtr1; +#X text 338 218 1/true; +#X text 337 258 0/false; +#X obj 57 418 VASP-HELP; +#X obj 58 366 vasp.update; +#X floatatom 113 308 5 0 0; +#X text 164 230 copy to new buffer; +#X obj 58 335 vasp.> 0.4; +#X msg 58 236 vasp bufgtr1; +#X obj 58 262 vasp.= bufgtr; +#X connect 5 0 6 0; +#X connect 9 0 5 0; +#X connect 10 0 7 0; +#X connect 15 0 17 1; +#X connect 17 0 14 0; +#X connect 18 0 19 0; +#X connect 19 0 17 0; diff --git a/externals/grill/vasp/pd-help/vasp_imm.pd b/externals/grill/vasp/pd-help/vasp_imm.pd new file mode 100644 index 00000000..b44e4fda --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_imm.pd @@ -0,0 +1,77 @@ +#N canvas 51 36 891 586 10; +#X obj 61 33 cnv 15 15 15 empty empty vasp.imm 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 261 214 clear_buffer 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 656 460 pd clear_buffer; +#X obj 51 533 VASP-HELP; +#X obj 159 477 vasp.!; +#X text 58 476 abbreviation:; +#X obj 57 216 vasp.imm 88200; +#X obj 154 218 vasp.imm 88200; +#X obj 254 218 vasp.imm 88200; +#X obj 57 241 vasp.noise; +#X obj 154 268 vasp.max; +#X obj 57 316 vasp.-> bufnotimm; +#X obj 154 369 vasp.update; +#N canvas 0 0 450 300 graph1 0; +#X array bufnotimm 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 511 69 graph; +#N canvas 0 0 394 270 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufnotimm; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 760 461 pd init; +#X obj 57 191 t b b b; +#X obj 355 447 dac~; +#X obj 355 399 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 +-1; +#X text 377 398 play; +#X obj 355 422 tabplay~ bufnotimm; +#X msg 656 435 vasp bufnotimm; +#X obj 57 290 vasp.min; +#X obj 154 243 vasp.osc 882; +#X obj 57 266 vasp.* 0.1; +#X obj 254 268 vasp.* 0.2; +#X obj 254 243 vasp.osc 3.4; +#X text 61 55 create an immediate vasp; +#X text 360 217 create three immediate vasps; +#X text 111 164 <-- click me; +#X text 55 124 argument/right inlet: length in samples; +#X text 55 86 immediate vasps are temporary buffers that are created +on demand and deleted after usage in a command chain.; +#X obj 57 165 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 +-1; +#X text 361 239 and compose them; +#X text 363 318 copy the result to an existing buffer/array; +#X connect 5 0 8 0; +#X connect 6 0 21 0; +#X connect 7 0 24 0; +#X connect 8 0 22 0; +#X connect 9 0 20 1; +#X connect 10 1 11 0; +#X connect 14 0 5 0; +#X connect 14 1 6 0; +#X connect 14 2 7 0; +#X connect 16 0 18 0; +#X connect 18 0 15 0; +#X connect 18 0 15 1; +#X connect 19 0 1 0; +#X connect 20 0 10 0; +#X connect 21 0 9 0; +#X connect 22 0 20 0; +#X connect 23 0 9 1; +#X connect 24 0 23 0; +#X connect 30 0 14 0; diff --git a/externals/grill/vasp/pd-help/vasp_int.pd b/externals/grill/vasp/pd-help/vasp_int.pd new file mode 100644 index 00000000..e53ec66a --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_int.pd @@ -0,0 +1,40 @@ +#N canvas 95 158 862 404 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.int 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 450 300 graph1 0; +#X array bufint 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 465 124 graph; +#N canvas 0 0 398 274 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufint; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 737 285 pd init; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 521 284 pd clear_buffer; +#X text 70 61 vasp integral function; +#X msg 521 263 vasp bufint; +#X msg 77 131 vasp bufint; +#X obj 77 178 vasp.update; +#X text 70 77 argument: repetition count; +#X obj 76 336 VASP-HELP; +#X obj 77 289 vasp.update; +#X msg 77 211 vasp bufint; +#X obj 77 242 vasp.int; +#X obj 77 266 vasp.opt; +#X obj 77 153 vasp.window lin; +#X connect 5 0 3 0; +#X connect 6 0 14 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 13 0 10 0; +#X connect 14 0 7 0; diff --git a/externals/grill/vasp/pd-help/vasp_iwindow.pd b/externals/grill/vasp/pd-help/vasp_iwindow.pd new file mode 100644 index 00000000..10db2b49 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_iwindow.pd @@ -0,0 +1,61 @@ +#N canvas 58 39 870 560 10; +#X obj 62 41 cnv 15 15 15 empty empty vasp.!window 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 450 300 graph1 0; +#X array bufiwindow 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 512 119 graph; +#N canvas 0 0 408 284 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufiwindow; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 771 320 pd init; +#N canvas 0 0 194 221 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 569 326 pd clear_buffers; +#X text 173 148 generate a function; +#X obj 61 278 vasp.u; +#X floatatom 194 186 5 0 0; +#X text 259 185 0..4; +#X msg 231 215 lin; +#X msg 231 240 sin; +#X msg 231 265 hanning; +#X msg 231 290 hamming; +#X msg 231 315 blackman; +#X text 275 214 0; +#X text 275 236 1; +#X text 295 260 2; +#X text 300 289 3; +#X text 300 316 4; +#X obj 132 401 vasp.window; +#X obj 132 426 vasp.*window; +#X text 60 396 see also:; +#X obj 322 426 vasp.*xwindow; +#X obj 225 426 vasp.*!window; +#X text 60 104 argument/right inlet: name or number of name; +#X text 60 80 generate window functions; +#X msg 569 301 vasp bufiwindow; +#X obj 322 401 vasp.xwindow; +#X msg 61 149 vasp bufiwindow; +#X obj 61 226 vasp.!window lin; +#X obj 60 503 VASP-HELP; +#X connect 6 0 28 1; +#X connect 8 0 28 1; +#X connect 9 0 28 1; +#X connect 10 0 28 1; +#X connect 11 0 28 1; +#X connect 12 0 28 1; +#X connect 25 0 3 0; +#X connect 27 0 28 0; +#X connect 28 0 5 0; diff --git a/externals/grill/vasp/pd-help/vasp_join.pd b/externals/grill/vasp/pd-help/vasp_join.pd new file mode 100644 index 00000000..3d48406b --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_join.pd @@ -0,0 +1,26 @@ +#N canvas 239 111 493 440 10; +#X text 51 62 join several vasps into one; +#X text 51 78 argument: number of vasps to join; +#X text 51 95 left inlet triggers the output; +#X obj 51 19 cnv 15 15 15 empty empty vasp.join 0 10 1 14 -262144 -1 +0; +#X obj 62 382 VASP-HELP; +#X msg 230 159 vasp bufjoin1 bufjoin2 bufjoin3; +#X obj 128 214 prepend set; +#X obj 61 305 prepend set; +#X obj 61 191 vasp.split 2; +#X obj 61 282 vasp.join 2; +#X msg 61 159 vasp bufjoin1 bufjoin2; +#X obj 310 337 table bufjoin1; +#X obj 310 360 table bufjoin2; +#X obj 310 384 table bufjoin3; +#X msg 128 238; +#X msg 61 329; +#X connect 5 0 8 0; +#X connect 6 0 14 0; +#X connect 7 0 15 0; +#X connect 8 0 9 0; +#X connect 8 1 9 1; +#X connect 8 2 6 0; +#X connect 9 0 7 0; +#X connect 10 0 8 0; diff --git a/externals/grill/vasp/pd-help/vasp_leq.pd b/externals/grill/vasp/pd-help/vasp_leq.pd new file mode 100644 index 00000000..85b55609 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_leq.pd @@ -0,0 +1,52 @@ +#N canvas 56 200 877 460 10; +#X obj 62 41 cnv 15 15 15 empty empty vasp.<= 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 450 300 graph1 0; +#X array bufleq 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 489 91 graph; +#N canvas 0 0 400 276 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufleq \, symbol bufleq1; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 743 395 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array bufleq1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 489 220 graph; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 541 397 pd clear_buffers; +#X msg 541 371 vasp bufleq bufleq1; +#X text 389 220 1/true; +#X text 388 260 0/false; +#X text 60 94 argument/right inlet: value; +#X obj 61 172 vasp.osc 44100; +#X obj 61 194 vasp.update; +#X obj 58 366 vasp.update; +#X floatatom 119 308 5 0 0; +#X text 164 230 copy to new buffer; +#X obj 58 335 vasp.<= 0.4; +#X text 60 80 sample <= value; +#X msg 61 150 vasp bufleq; +#X msg 58 236 vasp bufleq1; +#X obj 58 262 vasp.= bufleq; +#X obj 57 418 VASP-HELP; +#X connect 5 0 4 0; +#X connect 9 0 10 0; +#X connect 12 0 14 1; +#X connect 14 0 11 0; +#X connect 16 0 9 0; +#X connect 17 0 18 0; +#X connect 18 0 14 0; diff --git a/externals/grill/vasp/pd-help/vasp_list.pd b/externals/grill/vasp/pd-help/vasp_list.pd new file mode 100644 index 00000000..6764e257 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_list.pd @@ -0,0 +1,28 @@ +#N canvas 93 206 852 414 10; +#X text 60 80 outputs the values of all samples of a vasp as list; +#X obj 74 32 cnv 15 15 15 empty empty vasp.? 0 10 1 14 -262144 -1 0 +; +#N canvas 0 0 450 300 graph1 0; +#X array buflist 20 float 0; +#X coords 0 1 19 -1 300 100 1; +#X restore 389 143 graph; +#N canvas 0 0 392 268 init 0; +#X obj 33 19 loadbang; +#X msg 33 45 symbol buflist; +#X msg 33 73 \; \$1 xticks 0 1 5 \; \$1 xlabel 1.1 0 5 10 15 \; \$1 +yticks 0 0.25 2 \; \$1 ylabel 20.5 -1 -0.5 0 0.5 1; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X restore 677 302 pd init; +#X obj 99 205 vasp.?; +#X msg 99 130 vasp buflist; +#X obj 99 173 vasp.update; +#X obj 99 237 prepend set; +#X obj 95 373 VASP-HELP; +#X obj 99 151 vasp.window lin; +#X msg 99 284; +#X connect 4 0 7 0; +#X connect 5 0 9 0; +#X connect 6 0 4 0; +#X connect 7 0 10 0; +#X connect 9 0 6 0; diff --git a/externals/grill/vasp/pd-help/vasp_log.pd b/externals/grill/vasp/pd-help/vasp_log.pd new file mode 100644 index 00000000..4e8c839f --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_log.pd @@ -0,0 +1,50 @@ +#N canvas 47 54 892 462 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.log 0 10 1 14 -262144 -1 +0; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 494 337 pd clear_buffer; +#X text 71 63 ln (sample); +#X text 72 81 natural logarithm; +#X text 170 281 calculate the natural logarithm; +#X msg 494 314 vasp buflog; +#X text 167 184 draw a line from 1 to a value (def 1001); +#X text 193 127 value; +#N canvas 0 0 450 300 graph1 0; +#X array buflog 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 493 168 graph; +#N canvas 0 0 390 266 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100 +\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1; +#X msg 33 45 symbol buflog; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 756 336 pd init; +#X text 170 303 and optimize to values between (-1) and 1; +#X obj 69 329 vasp.update; +#X obj 69 305 vasp.opt; +#X obj 69 282 vasp.log; +#X msg 69 185 vasp buflog; +#X obj 69 232 vasp.* 1000; +#X obj 69 258 vasp.+ 1; +#X obj 133 147 t b f; +#X obj 70 405 VASP-HELP; +#X obj 69 207 vasp.window lin; +#X obj 133 129 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 +10 -24198 -1 -1 1 256; +#X connect 5 0 1 0; +#X connect 12 0 11 0; +#X connect 13 0 12 0; +#X connect 14 0 19 0; +#X connect 15 0 16 0; +#X connect 16 0 13 0; +#X connect 17 0 14 0; +#X connect 17 1 15 1; +#X connect 19 0 15 0; +#X connect 20 0 17 0; diff --git a/externals/grill/vasp/pd-help/vasp_lwr.pd b/externals/grill/vasp/pd-help/vasp_lwr.pd new file mode 100644 index 00000000..f2f5f021 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_lwr.pd @@ -0,0 +1,52 @@ +#N canvas 44 207 839 468 10; +#X obj 62 41 cnv 15 15 15 empty empty vasp.< 0 10 1 14 -262144 -1 0 +; +#N canvas 0 0 450 300 graph1 0; +#X array buflwr 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 480 90 graph; +#N canvas 0 0 394 270 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol buflwr \, symbol buflwr1; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 734 394 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array buflwr1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 480 219 graph; +#X text 60 80 sample < value; +#X text 60 94 argument/right inlet: value; +#X msg 61 150 vasp buflwr; +#X obj 61 172 vasp.osc 44100; +#X obj 61 194 vasp.update; +#X text 164 234 copy to new buffer; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 532 396 pd clear_buffers; +#X msg 532 370 vasp buflwr buflwr1; +#X text 378 219 1/true; +#X text 377 259 0/false; +#X obj 58 366 vasp.update; +#X obj 58 262 vasp.= buflwr; +#X msg 58 236 vasp buflwr1; +#X floatatom 113 308 5 0 0; +#X obj 58 335 vasp.< 0.4; +#X obj 59 418 VASP-HELP; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 11 0 10 0; +#X connect 15 0 18 0; +#X connect 16 0 15 0; +#X connect 17 0 18 1; +#X connect 18 0 14 0; diff --git a/externals/grill/vasp/pd-help/vasp_max.pd b/externals/grill/vasp/pd-help/vasp_max.pd new file mode 100644 index 00000000..92e25c7e --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_max.pd @@ -0,0 +1,51 @@ +#N canvas 53 20 825 522 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.max 0 10 1 14 -262144 -1 +0; +#N canvas 40 55 281 170 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 400 405 pd clear_buffer; +#N canvas 0 0 450 300 graph1 0; +#X array bufmax 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 400 114 graph; +#N canvas 0 0 398 274 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 43 symbol bufmax \, symbol bufmax1; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 675 411 pd init; +#X obj 73 144 vasp.osc 44100; +#X obj 73 167 vasp.update; +#X text 68 58 take maximum of vasp and argument; +#X text 70 75 argument/right inlet: value; +#X msg 73 123 vasp bufmax; +#N canvas 0 0 450 300 graph1 0; +#X array bufmax1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 400 251 graph; +#X text 625 70 source; +#X obj 72 281 vasp.= bufmax; +#X msg 72 255 vasp bufmax1; +#X obj 72 334 vasp.update; +#X msg 400 382 vasp bufmax bufmax1; +#X text 162 121 generate a sine wave at 1 Hz; +#X text 178 251 copy to new buffer; +#X obj 72 309 vasp.max -0.4; +#X obj 65 435 VASP-HELP; +#X text 177 327 set all values < -0.4 to -0.4; +#X connect 4 0 5 0; +#X connect 8 0 4 0; +#X connect 11 0 17 0; +#X connect 12 0 11 0; +#X connect 14 0 1 0; +#X connect 17 0 13 0; diff --git a/externals/grill/vasp/pd-help/vasp_mcosc.pd b/externals/grill/vasp/pd-help/vasp_mcosc.pd new file mode 100644 index 00000000..46d729f5 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_mcosc.pd @@ -0,0 +1,68 @@ +#N canvas 14 55 990 494 10; +#N canvas 4 20 456 306 Hz_to_period_length 0; +#X floatatom 135 238 0 0 0; +#X obj 135 142 t b f; +#X text 136 260 period length in samples (float); +#X floatatom 135 80 0 0 0; +#X obj 135 206 / 1; +#X text 180 79 frequency in Hz; +#X obj 53 142 samplerate~; +#X obj 53 119 loadbang; +#X floatatom 135 175 5 0 0; +#X connect 1 0 8 0; +#X connect 1 1 4 1; +#X connect 3 0 1 0; +#X connect 4 0 0 0; +#X connect 6 0 8 0; +#X connect 7 0 6 0; +#X connect 8 0 4 0; +#X restore 65 415 pd Hz_to_period_length; +#X obj 71 32 cnv 15 15 15 empty empty vasp.*cosc 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 450 300 graph1 0; +#X array bufmcosc1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 563 101 graph; +#N canvas 0 0 402 278 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufmcosc1 \, symbol bufmcosc2; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 846 418 pd init; +#N canvas 40 55 247 122 clear_buffers 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 568 414 pd clear_buffers; +#N canvas 0 0 450 300 graph1 0; +#X array bufmcosc2 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 566 259 graph; +#X text 71 63 multiplies a complex buffer with a complex sine wave +; +#X text 71 83 argument/right inlet: frequency in period length in samples +; +#X msg 568 391 vasp bufmcosc1 bufmcosc2; +#X obj 65 179 vasp.update; +#X msg 65 127 vasp bufmcosc1 bufmcosc2; +#X text 246 127 generate a ramp from 0 to 1; +#X text 742 70 *real part of the cosc; +#X text 713 227 *imaginary part of the cosc; +#X obj 65 357 vasp.update; +#X obj 65 334 vasp.* 0.5; +#X msg 65 267 vasp bufmcosc1 bufmcosc2; +#X obj 65 311 vasp.*cosc 44100; +#X obj 64 448 VASP-HELP; +#X obj 65 154 vasp.window lin; +#X text 245 265 multiply the ramp with a complex sine wave; +#X connect 8 0 4 0; +#X connect 10 0 19 0; +#X connect 15 0 14 0; +#X connect 16 0 17 0; +#X connect 17 0 15 0; +#X connect 19 0 9 0; diff --git a/externals/grill/vasp/pd-help/vasp_mframes.pd b/externals/grill/vasp/pd-help/vasp_mframes.pd new file mode 100644 index 00000000..ead17da8 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_mframes.pd @@ -0,0 +1,63 @@ +#N canvas 80 119 908 535 10; +#X obj 62 323 vasp.osc 22050; +#X obj 58 31 cnv 15 15 15 empty empty vasp.frames* 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 450 300 graph1 0; +#X array bufmfram1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 530 149 graph; +#N canvas 0 0 404 280 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufmfram1; +#X msg 140 45 symbol bufmfram2; +#X connect 0 0 2 0; +#X connect 0 0 3 0; +#X connect 2 0 1 0; +#X connect 3 0 1 0; +#X restore 813 459 pd init; +#X obj 62 355 vasp.update; +#X text 117 412 abbreviation; +#N canvas 0 0 450 300 graph1 0; +#X array bufmfram2 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 530 268 graph; +#X text 54 103 !!!all vectors of a vasp have the same framesize/length!!! +; +#X obj 77 274 prepend set; +#X obj 233 323 vasp.osc 22050; +#X obj 233 355 vasp.update; +#X text 58 83 argument/right inlet: value; +#X obj 233 239 vasp.frames* 2; +#X obj 62 187 vasp.-> bufmfram2; +#X obj 255 271 prepend set; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 528 439 pd clear_buffer; +#X msg 528 418 vasp bufmfram1 bufmfram2; +#X msg 62 153 vasp 30000 bufmfram1; +#X obj 61 411 vasp.f*; +#X obj 161 453 vasp.frames; +#X text 53 454 related objects:; +#X obj 243 453 vasp.frames+; +#X text 59 66 multiply the number of frames of a vasp by a value; +#X obj 59 495 VASP-HELP; +#X msg 77 297; +#X msg 255 294; +#X connect 0 0 4 0; +#X connect 8 0 24 0; +#X connect 9 0 10 0; +#X connect 12 0 14 0; +#X connect 12 0 9 0; +#X connect 13 0 8 0; +#X connect 13 0 0 0; +#X connect 13 1 12 0; +#X connect 14 0 25 0; +#X connect 16 0 15 0; +#X connect 17 0 13 0; diff --git a/externals/grill/vasp/pd-help/vasp_min.pd b/externals/grill/vasp/pd-help/vasp_min.pd new file mode 100644 index 00000000..f2448cbe --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_min.pd @@ -0,0 +1,51 @@ +#N canvas 57 40 836 521 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.min 0 10 1 14 -262144 -1 +0; +#N canvas 40 55 281 170 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 412 403 pd clear_buffer; +#N canvas 0 0 450 300 graph1 0; +#X array bufmin 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 412 112 graph; +#N canvas 0 0 400 276 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 43 symbol bufmin \, symbol bufmin1; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 687 409 pd init; +#X obj 73 144 vasp.osc 44100; +#X obj 73 167 vasp.update; +#X text 70 75 argument/right inlet: value; +#N canvas 0 0 450 300 graph1 0; +#X array bufmin1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 412 249 graph; +#X text 666 74 source; +#X text 68 58 take minimum of vasp and argument; +#X msg 73 123 vasp bufmin; +#X msg 412 380 vasp bufmin bufmin1; +#X text 162 121 generate a sine wave at 1 Hz; +#X text 178 251 copy to new buffer; +#X obj 72 354 vasp.update; +#X msg 72 255 vasp bufmin1; +#X obj 72 281 vasp.= bufmin; +#X obj 72 328 vasp.min 0.4; +#X obj 66 460 VASP-HELP; +#X text 177 327 set all values > 0.4 to 0.4; +#X connect 4 0 5 0; +#X connect 10 0 4 0; +#X connect 11 0 1 0; +#X connect 15 0 16 0; +#X connect 16 0 17 0; +#X connect 17 0 14 0; diff --git a/externals/grill/vasp/pd-help/vasp_minmax.pd b/externals/grill/vasp/pd-help/vasp_minmax.pd new file mode 100644 index 00000000..5e0f8397 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_minmax.pd @@ -0,0 +1,59 @@ +#N canvas 58 24 940 639 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.minmax 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 450 300 graph1 0; +#X array bufmm1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 546 71 graph; +#N canvas 0 0 408 284 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 yticks 0 0.25 2 \; \$1 +ylabel 94000 -1 -0.5 0 0.5 1; +#X msg 33 45 symbol bufmm1 \, symbol bufmm2 \, symbol bufmm3 \, symbol +bufmm4; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 875 594 pd init; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 65 491 pd clear_buffer; +#X obj 77 178 vasp.update; +#N canvas 0 0 450 300 graph1 0; +#X array bufmm2 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 546 212 graph; +#N canvas 0 0 450 300 graph1 0; +#X array bufmm3 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 547 356 graph; +#X text 780 334 min values; +#X text 786 480 max values; +#X obj 76 315 vasp.update; +#X obj 76 294 vasp.minmax; +#X obj 65 534 VASP-HELP; +#N canvas 0 0 450 300 graph1 0; +#X array bufmm4 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 548 499 graph; +#X text 788 45 source1; +#X text 797 191 source2; +#X obj 77 152 vasp.cosc 44100; +#X msg 77 127 vasp bufmm1 bufmm2; +#X obj 76 266 vasp.c-> bufmm3 bufmm4; +#X msg 76 242 vasp bufmm1 bufmm2; +#X text 228 295 compare the two buffers; +#X text 227 264 copy and; +#X msg 65 468 vasp bufmm1 bufmm2 bufmm3 bufmm4; +#X text 71 63 compare two vasps and assign lower values to the first +and higher values to the second buffer; +#X text 210 125 generate a complex sine wave at 1 Hz; +#X connect 10 0 9 0; +#X connect 15 0 4 0; +#X connect 16 0 15 0; +#X connect 17 1 10 0; +#X connect 18 0 17 0; +#X connect 21 0 3 0; diff --git a/externals/grill/vasp/pd-help/vasp_mirr.pd b/externals/grill/vasp/pd-help/vasp_mirr.pd new file mode 100644 index 00000000..9096f0b8 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_mirr.pd @@ -0,0 +1,45 @@ +#N canvas 24 75 805 395 10; +#X obj 75 32 cnv 15 15 15 empty empty vasp.mirr 0 10 1 14 -262144 -1 +0; +#X text 453 269 clear; +#N canvas 0 0 413 295 clear_buffer 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 453 313 pd clear_buffer; +#X msg 453 290 vasp bufmirr; +#X text 75 52 mirrors a vasp (reverse); +#X obj 69 204 vasp.update; +#X msg 69 156 vasp bufmirr; +#X obj 69 181 vasp.mirr; +#X obj 68 312 VASP-HELP; +#N canvas 0 0 450 300 graph1 0; +#X array bufmirr 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 342 75 graph; +#N canvas 0 0 390 266 init 0; +#X obj 33 19 loadbang; +#X msg 33 45 symbol buflist; +#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100 +\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1; +#X obj 32 227 vasp.u; +#X msg 32 182 vasp bufmirr; +#X obj 32 205 vasp.= env 0 0 1 20 -1 100; +#X obj 32 160 loadbang; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 4 0 5 0; +#X connect 5 0 3 0; +#X connect 6 0 4 0; +#X restore 578 313 pd init; +#X obj 69 135 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 +-1; +#X connect 3 0 2 0; +#X connect 6 0 7 0; +#X connect 7 0 5 0; +#X connect 11 0 6 0; diff --git a/externals/grill/vasp/pd-help/vasp_miwindow.pd b/externals/grill/vasp/pd-help/vasp_miwindow.pd new file mode 100644 index 00000000..3719874c --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_miwindow.pd @@ -0,0 +1,64 @@ +#N canvas 44 117 889 563 10; +#X obj 62 41 cnv 15 15 15 empty empty vasp.*!window 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 450 300 graph1 0; +#X array bufmiwindow 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 512 119 graph; +#N canvas 0 0 408 284 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufmiwindow; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 771 320 pd init; +#N canvas 0 0 194 221 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 569 327 pd clear_buffers; +#X obj 63 495 VASP-HELP; +#X obj 61 302 vasp.u; +#X floatatom 194 210 5 0 0; +#X text 259 209 0..4; +#X msg 231 239 lin; +#X msg 231 264 sin; +#X msg 231 289 hanning; +#X msg 231 314 hamming; +#X msg 231 339 blackman; +#X text 275 238 0; +#X text 275 260 1; +#X text 295 284 2; +#X text 300 313 3; +#X text 300 335 4; +#X obj 225 401 vasp.!window; +#X text 60 396 see also:; +#X obj 322 426 vasp.*xwindow; +#X text 60 102 argument/right inlet: name or number of name; +#X text 60 80 generate window functions; +#X obj 322 401 vasp.xwindow; +#X obj 134 401 vasp.window; +#X obj 61 174 vasp.osc 3000; +#X text 182 156 generate a sine wave; +#X text 182 178 and multiply it with a window function; +#X msg 569 302 vasp bufmiwindow; +#X msg 61 149 vasp bufmiwindow; +#X obj 61 250 vasp.*!window lin; +#X obj 134 426 vasp.*window; +#X connect 6 0 30 1; +#X connect 8 0 30 1; +#X connect 9 0 30 1; +#X connect 10 0 30 1; +#X connect 11 0 30 1; +#X connect 12 0 30 1; +#X connect 25 0 30 0; +#X connect 28 0 3 0; +#X connect 29 0 25 0; +#X connect 30 0 5 0; diff --git a/externals/grill/vasp/pd-help/vasp_mod.pd b/externals/grill/vasp/pd-help/vasp_mod.pd new file mode 100644 index 00000000..f5551c88 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_mod.pd @@ -0,0 +1,48 @@ +#N canvas 35 127 922 431 10; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 613 298 pd clear_buffer; +#X text 366 125 ramp from 0-1; +#X obj 286 174 vasp.update; +#X obj 51 173 vasp.update; +#X text 132 126 a sine wave at 1Hz or; +#X obj 51 149 vasp.osc 44100; +#X text 54 77 optional argument/right inlet: divisor; +#X text 54 60 modulo function / remainder of a division; +#X obj 62 31 cnv 15 15 15 empty empty vasp.% 0 10 1 14 -262144 -1 0 +; +#N canvas 0 0 450 300 graph1 0; +#X array bufmod 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 485 110 graph; +#N canvas 0 0 394 270 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufmod; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 760 300 pd init; +#X msg 51 126 vasp bufmod; +#X msg 613 273 vasp bufmod; +#X msg 286 127 vasp bufmod; +#X obj 100 292 vasp.update; +#X floatatom 161 245 0 0 0; +#X obj 100 268 vasp.% 0.25; +#X text 187 260 modulo; +#X msg 100 219 vasp bufmod; +#X obj 53 388 VASP-HELP; +#X obj 286 148 vasp.window lin; +#X connect 5 0 3 0; +#X connect 11 0 5 0; +#X connect 12 0 0 0; +#X connect 13 0 20 0; +#X connect 15 0 16 1; +#X connect 16 0 14 0; +#X connect 18 0 16 0; +#X connect 20 0 2 0; diff --git a/externals/grill/vasp/pd-help/vasp_mosc.pd b/externals/grill/vasp/pd-help/vasp_mosc.pd new file mode 100644 index 00000000..416d86dd --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_mosc.pd @@ -0,0 +1,80 @@ +#N canvas 47 54 883 486 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.*osc 0 10 1 14 -262144 -1 +0; +#X obj 77 195 vasp.update; +#X obj 77 172 vasp.* 0.5; +#X obj 402 397 dac~; +#X obj 402 353 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 424 352 play; +#X text 71 63 multiplies a sine wave with a buffer content; +#X text 70 78 argument/right inlet: frequency in period length in samples +; +#N canvas 40 55 281 170 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 534 397 pd clear_buffer; +#X msg 534 374 vasp bufmosc; +#X msg 77 127 vasp bufmosc; +#X text 181 126 generate white noise; +#X obj 77 149 vasp.noise; +#X obj 77 218 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 427 174 wavedisplay-simple bufmosc \$0; +#X obj 402 374 tabplay~ bufmosc; +#N canvas 92 108 339 264 init 0; +#X obj 110 180 s \$0-sample-length; +#X msg 177 126 resize \$1; +#X obj 177 79 loadbang; +#X msg 177 100 88200; +#X obj 177 148 s bufmosc; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 1 0; +#X connect 3 0 0 0; +#X restore 673 395 pd init; +#N canvas 4 20 454 304 Hz_to_period_length 0; +#X floatatom 136 242 0 0 0; +#X obj 136 142 t b f; +#X text 169 223 period length in samples (float); +#X floatatom 136 80 0 0 0; +#X obj 136 206 / 1; +#X text 181 79 frequency in Hz; +#X obj 53 142 samplerate~; +#X obj 53 119 loadbang; +#X floatatom 136 175 5 0 0; +#X connect 1 0 8 0; +#X connect 1 1 4 1; +#X connect 3 0 1 0; +#X connect 4 0 0 0; +#X connect 6 0 8 0; +#X connect 7 0 6 0; +#X connect 8 0 4 0; +#X restore 79 405 pd Hz_to_period_length; +#X text 188 379 ringmod-example; +#X obj 79 380 ringmod_example; +#X text 188 263 with 2Hz; +#X text 186 245 generate an amplitude modulation; +#X msg 78 245 vasp bufmosc; +#X obj 78 268 vasp.*osc 22050; +#X obj 78 292 vasp.update; +#X obj 78 315 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 60 460 VASP-HELP; +#X connect 1 0 13 0; +#X connect 2 0 1 0; +#X connect 4 0 15 0; +#X connect 9 0 8 0; +#X connect 10 0 12 0; +#X connect 12 0 2 0; +#X connect 15 0 3 0; +#X connect 15 0 3 1; +#X connect 22 0 23 0; +#X connect 23 0 24 0; +#X connect 24 0 25 0; diff --git a/externals/grill/vasp/pd-help/vasp_mphasor.pd b/externals/grill/vasp/pd-help/vasp_mphasor.pd new file mode 100644 index 00000000..5ad39ce7 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_mphasor.pd @@ -0,0 +1,78 @@ +#N canvas 47 54 883 486 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.*phasor 0 10 1 14 -262144 +-1 0; +#X obj 77 195 vasp.update; +#X obj 77 172 vasp.* 0.5; +#X obj 394 397 dac~; +#X obj 394 353 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 416 352 play; +#X text 70 78 argument/right inlet: frequency in period length in samples +; +#N canvas 40 55 281 170 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 534 397 pd clear_buffer; +#X text 188 126 generate white noise; +#X obj 77 149 vasp.noise; +#X obj 77 218 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#N canvas 92 108 341 266 init 0; +#X obj 110 180 s \$0-sample-length; +#X msg 177 126 resize \$1; +#X obj 177 79 loadbang; +#X msg 177 100 88200; +#X obj 177 148 s bufmphasor; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 1 0; +#X connect 3 0 0 0; +#X restore 673 395 pd init; +#N canvas 4 20 454 304 Hz_to_period_length 0; +#X floatatom 135 242 0 0 0; +#X obj 135 142 t b f; +#X text 168 223 period length in samples (float); +#X floatatom 135 80 0 0 0; +#X obj 135 206 / 1; +#X text 180 79 frequency in Hz; +#X obj 53 142 samplerate~; +#X obj 53 119 loadbang; +#X floatatom 135 175 5 0 0; +#X connect 1 0 8 0; +#X connect 1 1 4 1; +#X connect 3 0 1 0; +#X connect 4 0 0 0; +#X connect 6 0 8 0; +#X connect 7 0 6 0; +#X connect 8 0 4 0; +#X restore 80 396 pd Hz_to_period_length; +#X text 72 63 multiplies a saw tooth ramp with a buffer content; +#X msg 77 127 vasp bufmphasor; +#X obj 464 158 wavedisplay-simple bufmphasor \$0; +#X msg 534 374 vasp bufmphasor; +#X obj 394 374 tabplay~ bufmphasor; +#X text 207 243 generate an amplitude modulation; +#X text 208 258 with 2Hz; +#X obj 78 292 vasp.update; +#X obj 78 315 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 78 268 vasp.*phasor 22050; +#X msg 78 245 vasp bufmphasor; +#X obj 79 449 VASP-HELP; +#X connect 1 0 10 0; +#X connect 2 0 1 0; +#X connect 4 0 17 0; +#X connect 9 0 2 0; +#X connect 14 0 9 0; +#X connect 16 0 7 0; +#X connect 17 0 3 0; +#X connect 17 0 3 1; +#X connect 20 0 21 0; +#X connect 22 0 20 0; +#X connect 23 0 22 0; diff --git a/externals/grill/vasp/pd-help/vasp_msize.pd b/externals/grill/vasp/pd-help/vasp_msize.pd new file mode 100644 index 00000000..6053bf6f --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_msize.pd @@ -0,0 +1,38 @@ +#N canvas 85 111 836 513 10; +#X obj 58 31 cnv 15 15 15 empty empty vasp.size/ 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 450 300 graph1 0; +#X array bufmsize 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 453 152 graph; +#X obj 252 439 vasp.frames; +#X text 62 415 related objects:; +#X floatatom 120 319 5 0 0; +#X obj 252 417 vasp.size; +#X obj 253 373 vasp.s/; +#X obj 62 217 vasp.size* 2; +#X obj 177 217 vasp.size/ 2; +#X obj 193 31 cnv 15 15 15 empty empty vasp.size* 0 10 1 14 -262144 +-1 0; +#X text 57 69 divide and multiplicate the size of a buffer/array; +#X text 59 371 abbreviations:; +#X obj 175 372 vasp.s*; +#X obj 120 289 vasp.size?; +#X obj 176 439 vasp.size?; +#N canvas 0 0 412 288 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 2 5 \; \$1 xlabel 1.1 0 10 20 30 40 50 +\; \$1 yticks 0 0.25 2; +#X msg 33 45 symbol bufmsize; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 714 408 pd init; +#X obj 176 416 vasp.s+; +#X msg 62 152 vasp bufmsize; +#X msg 177 152 vasp bufmsize; +#X obj 58 481 VASP-HELP; +#X connect 7 0 13 0; +#X connect 8 0 13 0; +#X connect 13 0 4 0; +#X connect 17 0 7 0; +#X connect 18 0 8 0; diff --git a/externals/grill/vasp/pd-help/vasp_mul.pd b/externals/grill/vasp/pd-help/vasp_mul.pd new file mode 100644 index 00000000..de6420b4 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_mul.pd @@ -0,0 +1,135 @@ +#N canvas 162 101 824 443 10; +#N canvas 40 55 247 122 clear_buffers 0; +#X obj 45 79 vasp.update; +#X obj 45 56 vasp.= 0; +#X obj 45 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 362 340 pd clear_buffers; +#X text 60 57 optional argument/right inlet: multiplier; +#X text 62 41 multiplies a vasp; +#X obj 62 19 cnv 15 15 15 empty empty vasp.* 0 10 1 14 -262144 -1 0 +; +#N canvas 0 0 450 300 graph168 0; +#X array bufmul 88200 float 0; +#X coords 0 1 88199 -1 300 120 1; +#X restore 390 67 graph; +#N canvas 0 0 394 270 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufmul; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 662 331 pd init; +#X msg 362 319 vasp bufmul; +#X text 182 315 <- click to open; +#N canvas 32 40 910 552 envelope_example 0; +#X text 167 179 generate noise; +#X text 148 346 normalize the vasp; +#X obj 59 344 vasp.opt; +#X obj 59 321 vasp.flp 2205; +#X obj 59 297 vasp.abs; +#X obj 60 204 vasp.noise; +#X text 74 32 use vasp.* to multiply an envelope to noise; +#X msg 60 183 vasp bufmul1; +#X text 796 105 bufmul1; +#X obj 438 485 dac~; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 662 492 pd clear_buffers; +#X obj 438 435 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 463 431 play; +#X obj 536 122 wavedisplay-simple bufmul1 \$0; +#X obj 536 274 wavedisplay-simple bufmul2 \$0; +#X text 797 256 bufmul2; +#X obj 80 79 filelist \$0; +#N canvas 92 108 393 368 inside 0; +#X obj 66 154 soundfiler; +#X obj 84 238 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 214 206 resize \$1; +#X obj 214 159 loadbang; +#X obj 67 53 loadbang; +#X msg 214 180 88200; +#X obj 66 178 t b f f; +#X obj 67 101 filelisthandler \$0; +#X obj 224 252 s bufmul2; +#X obj 214 228 s bufmul1; +#X msg 67 133 read -resize \$1 bufmul2; +#X msg 67 79 2; +#X connect 0 0 7 0; +#X connect 3 0 9 0; +#X connect 3 0 10 0; +#X connect 4 0 6 0; +#X connect 5 0 12 0; +#X connect 6 0 3 0; +#X connect 6 0 1 0; +#X connect 7 0 2 0; +#X connect 7 1 1 0; +#X connect 7 2 3 0; +#X connect 8 0 11 0; +#X connect 11 0 0 0; +#X connect 12 0 8 0; +#X restore 780 493 pd inside; +#X obj 438 458 tabplay~ bufmul1; +#X msg 662 466 vasp bufmul1 bufmul2; +#X text 221 79 into buffer bufmul2; +#X obj 60 225 vasp.update; +#X obj 60 247 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 59 275 vasp bufmul2; +#X obj 59 367 vasp.update; +#X obj 59 389 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X text 147 296 get absolute values; +#X text 153 422 multiply noise with the envelope; +#X obj 60 470 vasp.update; +#X obj 60 492 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 60 422 vasp bufmul1; +#X obj 60 444 vasp.* bufmul2; +#X text 157 329 get the envelope (2Hz); +#X text 156 316 filter the values with a lowpass to; +#X connect 2 0 24 0; +#X connect 3 0 2 0; +#X connect 4 0 3 0; +#X connect 5 0 21 0; +#X connect 7 0 5 0; +#X connect 11 0 18 0; +#X connect 18 0 9 0; +#X connect 18 0 9 1; +#X connect 19 0 10 0; +#X connect 21 0 22 0; +#X connect 23 0 4 0; +#X connect 24 0 25 0; +#X connect 28 0 29 0; +#X connect 30 0 31 0; +#X connect 31 0 28 0; +#X restore 45 315 pd envelope_example; +#X obj 45 255 vasp.update; +#X msg 45 173 vasp bufmul; +#X obj 45 375 VASP-HELP; +#X obj 45 119 nbx 5 14 -1 1 0 1 empty empty empty 0 -6 0 10 -24198 +-1 -1 0.5 256; +#X obj 45 140 t b f; +#X obj 45 200 vasp.osc 4410; +#X text 138 132 and change gain; +#X text 136 118 generate sine wave; +#X obj 45 229 vasp.* 0.5; +#X connect 6 0 0 0; +#X connect 10 0 14 0; +#X connect 12 0 13 0; +#X connect 13 0 10 0; +#X connect 13 1 17 1; +#X connect 14 0 17 0; +#X connect 17 0 9 0; diff --git a/externals/grill/vasp/pd-help/vasp_multi.pd b/externals/grill/vasp/pd-help/vasp_multi.pd new file mode 100644 index 00000000..337d562b --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_multi.pd @@ -0,0 +1,20 @@ +#N canvas 266 151 546 412 10; +#X text 51 63 outputs a vasp multiple times; +#X obj 43 28 cnv 15 15 15 empty empty vasp.multi 0 10 1 14 -262144 +-1 0; +#X obj 56 111 table bufm 88200; +#X obj 223 232 prepend set; +#X text 51 80 argument: number of outlets (default 2); +#X text 109 312 abbreviation; +#X obj 56 232 prepend set; +#X msg 56 156 vasp 22050 bufm 44100 0; +#X obj 56 190 vasp.multi 2; +#X obj 58 311 vasp.m; +#X obj 58 366 VASP-HELP; +#X msg 56 257; +#X msg 223 257; +#X connect 3 0 12 0; +#X connect 6 0 11 0; +#X connect 7 0 8 0; +#X connect 8 0 6 0; +#X connect 8 1 3 0; diff --git a/externals/grill/vasp/pd-help/vasp_mwindow.pd b/externals/grill/vasp/pd-help/vasp_mwindow.pd new file mode 100644 index 00000000..e14dbb28 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_mwindow.pd @@ -0,0 +1,64 @@ +#N canvas 44 117 889 563 10; +#X obj 62 41 cnv 15 15 15 empty empty vasp.*window 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 450 300 graph1 0; +#X array bufmwindow 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 512 119 graph; +#N canvas 0 0 406 282 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufmwindow; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 771 320 pd init; +#N canvas 0 0 194 221 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 569 325 pd clear_buffers; +#X obj 63 495 VASP-HELP; +#X obj 61 302 vasp.u; +#X floatatom 194 210 5 0 0; +#X text 259 209 0..4; +#X msg 231 239 lin; +#X msg 231 264 sin; +#X msg 231 289 hanning; +#X msg 231 314 hamming; +#X msg 231 339 blackman; +#X text 275 238 0; +#X text 275 260 1; +#X text 295 284 2; +#X text 300 313 3; +#X text 300 340 4; +#X obj 225 401 vasp.!window; +#X text 60 396 see also:; +#X obj 322 426 vasp.*xwindow; +#X obj 225 426 vasp.*!window; +#X text 60 104 argument/right inlet: name or number of name; +#X text 60 80 generate window functions; +#X obj 322 401 vasp.xwindow; +#X msg 61 149 vasp bufmwindow; +#X obj 61 250 vasp.*window lin; +#X obj 134 401 vasp.window; +#X msg 569 301 vasp bufmwindow; +#X obj 61 178 vasp.osc 3000; +#X text 182 156 generate a sine wave; +#X text 183 173 and multiply it with a window function; +#X connect 6 0 26 1; +#X connect 8 0 26 1; +#X connect 9 0 26 1; +#X connect 10 0 26 1; +#X connect 11 0 26 1; +#X connect 12 0 26 1; +#X connect 25 0 29 0; +#X connect 26 0 5 0; +#X connect 28 0 3 0; +#X connect 29 0 26 0; diff --git a/externals/grill/vasp/pd-help/vasp_mxwindow.pd b/externals/grill/vasp/pd-help/vasp_mxwindow.pd new file mode 100644 index 00000000..615af950 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_mxwindow.pd @@ -0,0 +1,64 @@ +#N canvas 68 99 889 563 10; +#X obj 62 41 cnv 15 15 15 empty empty vasp.*xwindow 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 450 300 graph1 0; +#X array bufmxwindow 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 512 119 graph; +#N canvas 0 0 410 286 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufmxwindow; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 771 320 pd init; +#N canvas 0 0 194 221 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 569 327 pd clear_buffers; +#X obj 63 495 VASP-HELP; +#X obj 61 302 vasp.u; +#X floatatom 194 210 5 0 0; +#X text 259 209 0..4; +#X msg 231 239 lin; +#X msg 231 264 sin; +#X msg 231 289 hanning; +#X msg 231 314 hamming; +#X msg 231 339 blackman; +#X text 275 238 0; +#X text 275 260 1; +#X text 295 284 2; +#X text 300 313 3; +#X text 300 335 4; +#X obj 225 401 vasp.!window; +#X text 60 396 see also:; +#X text 60 102 argument/right inlet: name or number of name; +#X text 60 80 generate window functions; +#X obj 322 401 vasp.xwindow; +#X obj 134 401 vasp.window; +#X obj 61 174 vasp.osc 3000; +#X text 182 156 generate a sine wave; +#X text 182 178 and multiply it with a window function; +#X obj 134 426 vasp.*window; +#X msg 569 302 vasp bufmxwindow; +#X obj 225 426 vasp.*!window; +#X msg 61 149 vasp bufmxwindow; +#X obj 61 250 vasp.*xwindow lin; +#X connect 6 0 31 1; +#X connect 8 0 31 1; +#X connect 9 0 31 1; +#X connect 10 0 31 1; +#X connect 11 0 31 1; +#X connect 12 0 31 1; +#X connect 24 0 31 0; +#X connect 28 0 3 0; +#X connect 30 0 24 0; +#X connect 31 0 5 0; diff --git a/externals/grill/vasp/pd-help/vasp_neq.pd b/externals/grill/vasp/pd-help/vasp_neq.pd new file mode 100644 index 00000000..15f3c905 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_neq.pd @@ -0,0 +1,52 @@ +#N canvas 28 91 938 543 10; +#X obj 62 41 cnv 15 15 15 empty empty vasp.!= 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 450 300 graph1 0; +#X array bufneq1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 512 119 graph; +#N canvas 0 0 404 280 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufneq1 \, symbol bufneq2; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 766 421 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array bufneq2 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 512 248 graph; +#X text 59 98 argument/right inlet: value; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 564 426 pd clear_buffers; +#X text 417 248 1/true; +#X text 416 288 0/false; +#X text 60 80 not equal; +#X msg 564 399 vasp bufneq1 bufneq2; +#X text 166 358 test if a part of the function is not equal to -1; +#X obj 62 383 vasp.update; +#X obj 62 356 vasp.!= -1; +#X obj 62 325 vasp.= bufneq1; +#X msg 62 298 vasp bufneq2; +#X obj 53 444 VASP-HELP; +#X text 173 149 generate a function; +#X msg 61 150 vasp bufequ; +#X obj 61 218 vasp.update; +#X obj 61 178 vasp.= env 0 0 1 22049 0.3 22050 0.3 44099 -1 44100 -1 +66149 1 66150 0 88200; +#X connect 9 0 5 0; +#X connect 12 0 11 0; +#X connect 13 0 12 0; +#X connect 14 0 13 0; +#X connect 17 0 19 0; +#X connect 19 0 18 0; diff --git a/externals/grill/vasp/pd-help/vasp_noise.pd b/externals/grill/vasp/pd-help/vasp_noise.pd new file mode 100644 index 00000000..59e2e38b --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_noise.pd @@ -0,0 +1,43 @@ +#N canvas 56 83 867 431 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.noise 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 450 300 graph1 0; +#X array bufnoise 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 412 131 graph; +#N canvas 0 0 400 276 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufnoise; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 692 310 pd init; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 547 310 pd clear_buffer; +#X obj 415 311 dac~; +#X obj 415 267 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 437 266 play; +#X text 71 63 vasp noise generator; +#X obj 415 288 tabplay~ bufnoise; +#X msg 547 287 vasp bufnoise; +#X obj 77 217 vasp.update; +#X obj 77 194 vasp.* 0.5; +#X msg 77 126 vasp bufnoise; +#X text 175 125 generate white noise; +#X obj 77 171 vasp.noise; +#X obj 65 369 VASP-HELP; +#X connect 5 0 8 0; +#X connect 8 0 4 0; +#X connect 8 0 4 1; +#X connect 9 0 3 0; +#X connect 11 0 10 0; +#X connect 12 0 14 0; +#X connect 14 0 11 0; diff --git a/externals/grill/vasp/pd-help/vasp_nonzero.pd b/externals/grill/vasp/pd-help/vasp_nonzero.pd new file mode 100644 index 00000000..137f7abd --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_nonzero.pd @@ -0,0 +1,160 @@ +#N canvas 96 126 848 577 10; +#X obj 62 32 cnv 15 15 15 empty empty vasp.?? 0 10 1 14 -262144 -1 +0; +#X text 64 66 outputs all samples of a vasp that are unequal zero; +#X text 64 95 right outlet: sample value; +#X text 65 83 left outlet: sample index; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 512 453 pd clear_buffers; +#X msg 512 427 vasp bufnonzero bufnonzero1; +#N canvas 92 108 504 435 inside 0; +#X obj 87 206 soundfiler; +#X obj 305 257 s \$0-sample-length; +#X obj 87 260 s \$0-draw_display; +#X msg 235 258 resize \$1; +#X obj 235 280 s bufnonzero1; +#X obj 245 304 s bufnonzero; +#X msg 235 232 44100; +#N canvas 0 0 691 318 menuhandler 0; +#X obj 69 270 outlet; +#X msg 111 216 color \$1 \$2; +#X obj 183 270 outlet; +#X msg 225 216 color \$1 \$2; +#X obj 297 270 outlet; +#X msg 339 216 color \$1 \$2; +#X obj 411 79 r \$0-plastic; +#X obj 411 270 outlet; +#X obj 453 241 s \$0-plastic-color; +#X msg 453 216 color \$1 \$2; +#X obj 69 79 r \$0-bass; +#X obj 183 79 r \$0-beat; +#X obj 297 79 r \$0-fly; +#X obj 111 241 s \$0-bass-color; +#X obj 225 241 s \$0-beat-color; +#X obj 339 241 s \$0-fly-color; +#X obj 69 108 t b b b; +#X obj 183 108 t b b b; +#X obj 297 108 t b b b; +#X obj 411 108 t b b b; +#X msg 111 133 6 12; +#X msg 79 133 1 10; +#X msg 191 133 1 10; +#X msg 225 133 6 12; +#X msg 306 133 1 10; +#X msg 339 133 6 12; +#X msg 419 132 1 10; +#X msg 453 133 6 12; +#X connect 1 0 13 0; +#X connect 3 0 14 0; +#X connect 5 0 15 0; +#X connect 6 0 19 0; +#X connect 9 0 8 0; +#X connect 10 0 16 0; +#X connect 11 0 17 0; +#X connect 12 0 18 0; +#X connect 16 0 0 0; +#X connect 16 1 21 0; +#X connect 16 2 20 0; +#X connect 17 0 2 0; +#X connect 17 1 22 0; +#X connect 17 2 23 0; +#X connect 18 0 4 0; +#X connect 18 1 24 0; +#X connect 18 2 25 0; +#X connect 19 0 7 0; +#X connect 19 1 26 0; +#X connect 19 2 27 0; +#X connect 20 0 1 0; +#X connect 21 0 3 0; +#X connect 21 0 5 0; +#X connect 21 0 9 0; +#X connect 22 0 1 0; +#X connect 22 0 5 0; +#X connect 22 0 9 0; +#X connect 23 0 3 0; +#X connect 24 0 1 0; +#X connect 24 0 3 0; +#X connect 24 0 9 0; +#X connect 25 0 5 0; +#X connect 26 0 5 0; +#X connect 26 0 3 0; +#X connect 26 0 1 0; +#X connect 27 0 9 0; +#X restore 77 43 pd menuhandler; +#X obj 235 211 loadbang; +#X obj 41 107 loadbang; +#X msg 87 230 bang; +#X msg 77 79 read bass.aif bufnonzero; +#X msg 103 107 read beat.aif bufnonzero; +#X msg 129 133 read fly.aif bufnonzero; +#X msg 156 160 read plastic.aif bufnonzero; +#X connect 0 0 10 0; +#X connect 3 0 4 0; +#X connect 3 0 5 0; +#X connect 6 0 3 0; +#X connect 6 0 1 0; +#X connect 7 0 11 0; +#X connect 7 1 12 0; +#X connect 7 2 13 0; +#X connect 7 3 14 0; +#X connect 8 0 6 0; +#X connect 9 0 12 0; +#X connect 10 0 2 0; +#X connect 11 0 0 0; +#X connect 12 0 0 0; +#X connect 13 0 0 0; +#X connect 14 0 0 0; +#X restore 708 457 pd inside; +#X obj 462 101 wavedisplay-simple bufnonzero \$0; +#X obj 463 243 wavedisplay-simple bufnonzero1 \$0; +#X obj 81 151 hdl 15 1 0 6 \$0-beat empty empty 0 -6 1152 8 -262144 +-1 -1 0; +#X obj 81 151 cnv 15 90 15 empty \$0-beat-color beat.aif 5 8 576 8 +-225271 -33289 0; +#X obj 81 169 hdl 15 1 0 6 \$0-fly empty empty 0 -6 1152 8 -262144 +-1 -1 0; +#X obj 81 169 cnv 15 90 15 empty \$0-fly-color fly.aif 5 8 576 8 -166441 +-233017 0; +#X obj 81 133 hdl 15 1 0 6 \$0-bass empty empty 0 -6 1152 8 -262144 +-1 -1 0; +#X obj 81 133 cnv 15 90 15 empty \$0-bass-color bass.aif 5 8 576 8 +-166441 -233017 0; +#X obj 81 187 hdl 15 1 0 6 \$0-plastic empty empty 0 -6 1152 8 -262144 +-1 -1 0; +#X obj 81 187 cnv 15 90 15 empty \$0-plastic-color plastic.aif 5 8 +576 8 -166441 -233017 0; +#X text 723 83 source; +#X text 728 224 peaks; +#X obj 62 258 vasp.= bufnonzero; +#X msg 62 229 vasp bufnonzero1; +#X obj 62 309 vasp.update; +#X obj 115 330 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 62 285 vasp.peaks 0.0004; +#X text 140 388 sample index; +#X text 177 455 sample values; +#X obj 62 346 vasp.??; +#X text 183 228 copy to new buffer \, find peaks; +#X obj 62 389 prepend set; +#X obj 99 455 prepend set; +#X msg 62 415; +#X msg 99 481; +#X obj 34 521 VASP-HELP; +#X connect 5 0 4 0; +#X connect 19 0 23 0; +#X connect 20 0 19 0; +#X connect 21 0 22 0; +#X connect 21 0 26 0; +#X connect 23 0 21 0; +#X connect 26 0 28 0; +#X connect 26 1 29 0; +#X connect 28 0 30 0; +#X connect 29 0 31 0; diff --git a/externals/grill/vasp/pd-help/vasp_offset.pd b/externals/grill/vasp/pd-help/vasp_offset.pd new file mode 100644 index 00000000..214d0284 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_offset.pd @@ -0,0 +1,30 @@ +#N canvas 192 165 707 400 10; +#X text 55 83 argument/right inlet: value; +#X text 55 69 set the offset of a vasp (into a buffer); +#X text 55 98 ---! vasp.offs sets all vectors to the same offset !--- +; +#X obj 41 11 cnv 15 15 15 empty empty vasp.offset 0 10 1 14 -262144 +-1 0; +#X text 57 323 abbreviation; +#X floatatom 143 175 0 0 0; +#X obj 58 221 prepend set; +#X msg 58 148 vasp bufoffs1; +#X obj 58 196 vasp.offset 300; +#X floatatom 330 175 0 0 0; +#X obj 245 221 prepend set; +#X msg 245 148 vasp bufoffs1 220 bufoffs2 100; +#X obj 245 196 vasp.offset 300; +#X obj 157 322 vasp.o; +#X obj 55 370 VASP-HELP; +#X obj 521 273 table bufoffs1; +#X obj 522 300 table bufoffs2; +#X msg 58 254; +#X msg 245 254; +#X connect 5 0 8 1; +#X connect 6 0 17 0; +#X connect 7 0 8 0; +#X connect 8 0 6 0; +#X connect 9 0 12 1; +#X connect 10 0 18 0; +#X connect 11 0 12 0; +#X connect 12 0 10 0; diff --git a/externals/grill/vasp/pd-help/vasp_offsetd.pd b/externals/grill/vasp/pd-help/vasp_offsetd.pd new file mode 100644 index 00000000..037a01b6 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_offsetd.pd @@ -0,0 +1,28 @@ +#N canvas 191 100 545 439 10; +#X text 55 80 argument/right inlet: value; +#X text 55 63 change the offset to a vasp (relatively); +#X obj 41 11 cnv 15 15 15 empty empty vasp.offset+ 0 10 1 14 -262144 +-1 0; +#X text 57 323 abbreviation; +#X floatatom 149 151 0 0 0; +#X msg 58 234 vasp -1 bufoffsd1 300 0; +#X obj 58 201 prepend set; +#X obj 58 177 vasp.offset+ 300; +#X msg 58 128 vasp bufoffsd1; +#X floatatom 336 151 0 0 0; +#X msg 245 234 vasp -1 bufoffs+1 520 0 bufoffsd2 400 0; +#X obj 245 201 prepend set; +#X obj 245 174 vasp.offset+ 300; +#X obj 138 324 vasp.o+; +#X msg 245 128 vasp bufoffsd1 220 bufoffsd2 100; +#X obj 359 284 table bufoffsd1 88200; +#X obj 359 305 table bufoffsd2 88200; +#X obj 57 386 VASP-HELP; +#X connect 4 0 7 1; +#X connect 6 0 5 0; +#X connect 7 0 6 0; +#X connect 8 0 7 0; +#X connect 9 0 12 1; +#X connect 11 0 10 0; +#X connect 12 0 11 0; +#X connect 14 0 12 0; diff --git a/externals/grill/vasp/pd-help/vasp_offsetq.pd b/externals/grill/vasp/pd-help/vasp_offsetq.pd new file mode 100644 index 00000000..e2a35dde --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_offsetq.pd @@ -0,0 +1,25 @@ +#N canvas 243 134 633 339 10; +#X obj 56 30 cnv 15 15 15 empty empty vasp.offset? 0 10 1 14 -262144 +-1 0; +#X text 42 59 get a single vectored vasp's offset; +#X obj 45 131 cnv 15 74 17 empty empty empty 20 12 0 14 -258699 -66577 +0; +#X obj 226 132 cnv 15 74 17 empty empty empty 20 12 0 14 -258699 -66577 +0; +#X floatatom 226 163 0 0 0; +#X floatatom 45 162 0 0 0; +#X obj 226 132 vasp.offset?; +#X obj 45 131 vasp.offset?; +#X msg 226 107 vasp buffoffsetq 220 buffoffsetq 300; +#X msg 45 106 vasp 200 buffoffsetq 300; +#X text 228 89 more than 1 vector. watch pd window!; +#X text 52 278 abbreviation; +#X obj 148 275 vasp.o; +#X obj 148 275 cnv 15 44 17 empty empty empty 20 12 0 14 -258699 -66577 +0; +#X obj 148 275 vasp.o?; +#X obj 278 221 table buffoffsetq 88200; +#X connect 6 0 4 0; +#X connect 7 0 5 0; +#X connect 8 0 6 0; +#X connect 9 0 7 0; diff --git a/externals/grill/vasp/pd-help/vasp_opt.pd b/externals/grill/vasp/pd-help/vasp_opt.pd new file mode 100644 index 00000000..97fd05b7 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_opt.pd @@ -0,0 +1,71 @@ +#N canvas 36 36 786 555 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.opt 0 10 1 14 -262144 -1 +0; +#X obj 72 113 filelist \$0; +#X obj 340 453 dac~; +#X obj 340 415 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 361 413 play; +#N canvas 92 108 338 379 inside 0; +#X obj 66 169 soundfiler; +#X obj 91 253 s \$0-sample-length; +#X obj 66 223 s \$0-draw_display; +#X obj 66 47 loadbang; +#X obj 66 113 filelisthandler \$0; +#X msg 66 145 read -resize \$1 bufopt; +#X msg 66 91 3; +#X obj 66 193 t b f; +#X connect 0 0 7 0; +#X connect 3 0 6 0; +#X connect 4 0 5 0; +#X connect 5 0 0 0; +#X connect 6 0 4 0; +#X connect 7 0 2 0; +#X connect 7 1 1 0; +#X restore 607 456 pd inside; +#X obj 59 440 vasp.update; +#X obj 59 460 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X text 69 59 optimise a vasp (normalize); +#X text 70 73 right outlet: the previous maximum set to 1; +#X obj 342 136 wavedisplay-simple bufopt \$0; +#X obj 340 433 tabplay~ bufopt; +#X msg 482 433 vasp bufopt; +#N canvas 40 55 281 170 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 482 453 pd clear_buffer; +#X msg 59 338 vasp bufopt; +#X obj 59 361 vasp.amax?; +#X text 58 317 or use vasp.amax? to optimise buffer content; +#X floatatom 114 399 12 0 0; +#X obj 59 419 vasp./; +#X text 123 381 current absolute maximum; +#X obj 59 269 vasp.update; +#X obj 59 289 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 59 204 vasp bufopt; +#X obj 59 227 vasp.opt; +#X floatatom 102 250 8 0 0; +#X obj 60 514 VASP-HELP; +#X text 102 514 - vasp overview; +#X connect 3 0 11 0; +#X connect 6 0 7 0; +#X connect 11 0 2 0; +#X connect 11 0 2 1; +#X connect 12 0 13 0; +#X connect 14 0 15 0; +#X connect 15 0 18 0; +#X connect 15 1 17 0; +#X connect 17 0 18 1; +#X connect 18 0 6 0; +#X connect 20 0 21 0; +#X connect 22 0 23 0; +#X connect 23 0 20 0; +#X connect 23 1 24 0; diff --git a/externals/grill/vasp/pd-help/vasp_osc.pd b/externals/grill/vasp/pd-help/vasp_osc.pd new file mode 100644 index 00000000..0c34f5ae --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_osc.pd @@ -0,0 +1,63 @@ +#N canvas 47 54 873 437 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.osc 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 450 300 graph1 0; +#X array bufosc 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 412 131 graph; +#N canvas 0 0 400 276 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufosc; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 692 310 pd init; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 547 310 pd clear_buffer; +#X text 71 83 optional argument/right inlet: frequency in period length +in samples; +#X obj 415 311 dac~; +#X obj 415 267 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 437 266 play; +#X text 71 63 vasp sine wave generator; +#X text 175 125 generate a sine wave at 1 kHz; +#X obj 415 288 tabplay~ bufosc; +#X msg 547 287 vasp bufosc; +#N canvas 4 20 454 304 Hz_to_period_length 0; +#X floatatom 139 242 0 0 0; +#X obj 139 142 t b f; +#X text 172 223 period length in samples (float); +#X floatatom 139 80 0 0 0; +#X obj 139 206 / 1; +#X text 184 79 frequency in Hz; +#X obj 53 142 samplerate~; +#X obj 53 119 loadbang; +#X floatatom 139 175 5 0 0; +#X connect 1 0 8 0; +#X connect 1 1 4 1; +#X connect 3 0 1 0; +#X connect 4 0 0 0; +#X connect 6 0 8 0; +#X connect 7 0 6 0; +#X connect 8 0 4 0; +#X restore 81 311 pd Hz_to_period_length; +#X obj 77 217 vasp.update; +#X obj 77 194 vasp.* 0.5; +#X msg 77 127 vasp bufosc; +#X obj 77 171 vasp.osc 44.1; +#X obj 66 380 VASP-HELP; +#X connect 6 0 10 0; +#X connect 10 0 5 0; +#X connect 10 0 5 1; +#X connect 11 0 3 0; +#X connect 14 0 13 0; +#X connect 15 0 16 0; +#X connect 16 0 14 0; diff --git a/externals/grill/vasp/pd-help/vasp_part.pd b/externals/grill/vasp/pd-help/vasp_part.pd new file mode 100644 index 00000000..45a49b5e --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_part.pd @@ -0,0 +1,34 @@ +#N canvas 218 99 717 545 10; +#X text 69 160 right outlet: a vasp with remaining length (if there +is one) of the input vasp; +#X text 69 144 left outlet: the new vasps one after the other; +#X obj 71 47 cnv 15 15 15 empty empty vasp.part 0 10 1 14 -262144 -1 +0; +#X obj 199 275 print rest; +#X obj 78 274 print; +#X obj 78 242 vasp.part 100 100 100; +#X text 189 206 vasp.part generates 3 new vasps and a rest vasp; +#X msg 78 207 vasp bufpart1; +#X obj 125 430 print rest; +#X obj 76 430 print; +#X msg 284 360 100 200 300 500 100 200; +#X obj 76 392 vasp.part; +#X text 272 323 the input vasp defines the maximum lengths of the vasps +at the output; +#X msg 76 328 vasp 1100 bufpart1 bufpart2; +#X text 202 430 so there are just 4 vasps and no rest.... watch pd +window; +#X obj 66 498 VASP-HELP; +#X text 67 101 left inlet: a vasp to define the buffername and the +maximum length; +#X obj 441 477 table bufpart1 2000; +#X obj 441 499 table bufpart2 2000; +#X text 67 84 generates vasps with certain lengths; +#X text 67 131 argument/ right inlet: vasps lengths (list); +#X connect 5 0 4 0; +#X connect 5 1 3 0; +#X connect 7 0 5 0; +#X connect 10 0 11 1; +#X connect 11 0 9 0; +#X connect 11 1 8 0; +#X connect 13 0 11 0; diff --git a/externals/grill/vasp/pd-help/vasp_peaks.pd b/externals/grill/vasp/pd-help/vasp_peaks.pd new file mode 100644 index 00000000..7cfc0fd0 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_peaks.pd @@ -0,0 +1,89 @@ +#N canvas 152 40 822 598 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.peaks 0 10 1 14 -262144 +-1 0; +#X obj 71 131 filelist \$0; +#N canvas 40 55 281 170 clear_buffers 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 479 495 pd clear_buffers; +#X obj 60 292 vasp.update; +#X obj 58 433 vasp.update; +#X obj 58 453 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 60 312 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 337 495 dac~; +#X obj 337 457 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 358 455 play; +#X text 70 66 argument/right inlet: density value 0-1; +#X text 172 231 copy to new buffer \, find valleys; +#X floatatom 151 307 12 0 0; +#X obj 151 328 * 88200; +#X floatatom 151 350 5 0 0; +#X obj 58 412 vasp.opt; +#X text 679 99 source; +#X text 69 52 find the local maxima of a buffer content; +#X text 69 81 outlet: current density value; +#X msg 60 227 vasp bufpeaks2; +#X obj 337 475 tabplay~ bufpeaks1; +#X msg 479 475 vasp bufpeaks1 bufpeaks2; +#X obj 399 117 wavedisplay-simple bufpeaks1 \$0; +#X obj 399 271 wavedisplay-simple bufpeaks2 \$0; +#N canvas 92 108 428 393 inside 0; +#X obj 66 169 soundfiler; +#X obj 84 253 s \$0-sample-length; +#X obj 66 223 s \$0-draw_display; +#X msg 214 221 resize \$1; +#X obj 66 47 loadbang; +#X obj 66 193 t b f f; +#X obj 66 113 filelisthandler \$0; +#X msg 66 91 2; +#X obj 66 69 t b b; +#X msg 99 91 88200; +#X obj 214 243 s bufpeaks1; +#X obj 225 264 s bufpeaks2; +#X msg 66 145 read \$1 bufpeaks1; +#X connect 0 0 5 0; +#X connect 3 0 10 0; +#X connect 3 0 11 0; +#X connect 4 0 8 0; +#X connect 5 0 2 0; +#X connect 5 1 1 0; +#X connect 5 2 3 0; +#X connect 6 0 12 0; +#X connect 7 0 6 0; +#X connect 8 0 7 0; +#X connect 8 1 9 0; +#X connect 9 0 5 0; +#X connect 12 0 0 0; +#X restore 668 495 pd inside; +#X msg 58 389 vasp bufpeaks2; +#X text 673 252 peaks; +#X text 191 348 peak count; +#X text 230 306 actual peak density; +#X text 166 273 target peak density as argument; +#X text 171 390 optimize the buffer content; +#X obj 60 251 vasp.= bufpeaks1; +#X obj 60 272 vasp.peaks 0.001; +#X obj 49 531 VASP-HELP; +#X connect 3 0 6 0; +#X connect 4 0 5 0; +#X connect 8 0 20 0; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X connect 15 0 4 0; +#X connect 19 0 31 0; +#X connect 20 0 7 0; +#X connect 20 0 7 1; +#X connect 21 0 2 0; +#X connect 25 0 15 0; +#X connect 31 0 32 0; +#X connect 32 0 3 0; +#X connect 32 1 12 0; diff --git a/externals/grill/vasp/pd-help/vasp_phasor.pd b/externals/grill/vasp/pd-help/vasp_phasor.pd new file mode 100644 index 00000000..38695a08 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_phasor.pd @@ -0,0 +1,67 @@ +#N canvas 47 54 871 435 10; +#N canvas 4 20 454 304 Hz_to_period_length 1; +#X floatatom 138 238 0 0 0; +#X obj 138 142 t b f; +#X text 138 259 period length in samples (float); +#X floatatom 138 80 0 0 0; +#X obj 138 206 / 1; +#X text 183 79 frequency in Hz; +#X obj 53 142 samplerate~; +#X obj 53 119 loadbang; +#X floatatom 138 175 5 0 0; +#X connect 1 0 8 0; +#X connect 1 1 4 1; +#X connect 3 0 1 0; +#X connect 4 0 0 0; +#X connect 6 0 8 0; +#X connect 7 0 6 0; +#X connect 8 0 4 0; +#X restore 78 302 pd Hz_to_period_length; +#X obj 71 32 cnv 15 15 15 empty empty vasp.phasor 0 10 1 14 -262144 +-1 0; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 547 310 pd clear_buffer; +#X text 71 83 optional argument/right inlet: frequency in period length +in samples; +#X obj 415 311 dac~; +#X obj 415 267 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 437 266 play; +#X text 71 63 vasp saw tooth ramp generator; +#X obj 415 288 tabplay~ bufphasor; +#X msg 547 287 vasp bufphasor; +#X obj 414 124 wavedisplay-simple bufphasor \$0; +#N canvas 92 108 276 288 inside 0; +#X obj 63 149 s \$0-sample-length; +#X msg 103 103 resize \$1; +#X obj 103 56 loadbang; +#X msg 103 77 88200; +#X obj 103 124 s bufphasor; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 1 0; +#X connect 3 0 0 0; +#X restore 680 311 pd inside; +#X obj 77 217 vasp.update; +#X obj 77 194 vasp.* 0.5; +#X msg 77 127 vasp bufphasor; +#X text 188 124 generate saw tooth at 20 Hz; +#X floatatom 168 151 5 0 0; +#X obj 77 239 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 77 171 vasp.phasor 2205; +#X obj 77 371 VASP-HELP; +#X connect 5 0 8 0; +#X connect 8 0 4 0; +#X connect 8 0 4 1; +#X connect 9 0 2 0; +#X connect 12 0 17 0; +#X connect 13 0 12 0; +#X connect 14 0 18 0; +#X connect 16 0 18 1; +#X connect 18 0 13 0; diff --git a/externals/grill/vasp/pd-help/vasp_polar.pd b/externals/grill/vasp/pd-help/vasp_polar.pd new file mode 100644 index 00000000..e5314f9f --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_polar.pd @@ -0,0 +1,90 @@ +#N canvas 28 7 948 670 10; +#N canvas 92 108 559 430 inside 0; +#X obj 66 154 soundfiler; +#X obj 84 238 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 214 206 resize \$1; +#X obj 214 159 loadbang; +#X obj 67 53 loadbang; +#X msg 214 180 88200; +#X obj 66 178 t b f f; +#X obj 67 101 filelisthandler \$0; +#X msg 67 79 4; +#X obj 214 228 s bufpol1; +#X obj 224 252 s bufpol2; +#X msg 67 133 read \$1 bufpol1; +#X obj 236 278 s bufpola; +#X obj 246 302 s bufpolp; +#X obj 226 123 s \$0-bounds; +#X msg 226 101 ylabel 315 -3.14 0 3.14 \, bounds 0 3.5 300 -3.5; +#X connect 0 0 7 0; +#X connect 3 0 10 0; +#X connect 3 0 11 0; +#X connect 3 0 13 0; +#X connect 3 0 14 0; +#X connect 4 0 6 0; +#X connect 5 0 9 0; +#X connect 5 0 16 0; +#X connect 6 0 3 0; +#X connect 6 0 1 0; +#X connect 7 0 2 0; +#X connect 7 1 1 0; +#X connect 7 2 3 0; +#X connect 8 0 12 0; +#X connect 9 0 8 0; +#X connect 12 0 0 0; +#X connect 16 0 15 0; +#X restore 360 610 pd inside; +#X obj 75 32 cnv 15 15 15 empty empty vasp.polar 0 10 1 14 -262144 +-1 0; +#X obj 72 91 filelist \$0; +#X obj 59 223 vasp.cfft; +#X obj 59 244 vasp.update; +#X obj 59 267 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X text 551 318 0 Hz; +#X text 687 317 sr/2; +#X text 206 474 <-- click to open; +#X text 816 319 44.1 kHz; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 254 610 pd clear_buffers; +#X text 254 565 clear; +#X msg 59 200 vasp bufpol1 bufpol2; +#X obj 546 51 wavedisplay-simple bufpol1 \$0; +#X obj 546 194 wavedisplay-simple bufpol2 \$0; +#X text 71 53 cartesian to polar coordinate conversion; +#X text 202 201 transform into real and imaginary part; +#X text 229 313 real/imaginary -> amplitude/phase; +#X obj 59 473 phase-random_example; +#X obj 59 380 vasp.update; +#X obj 59 403 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 59 314 vasp bufpol1 bufpol2; +#X obj 59 357 vasp.polar; +#X obj 56 622 VASP-HELP; +#X obj 546 365 wavedisplay-simple bufpola \$0; +#X obj 546 518 wavedisplay-simple bufpolp \$0; +#X obj 59 335 vasp.c-> bufpola bufpolp; +#X msg 254 587 vasp bufpol1 bufpol2 bufpola bufpolp; +#X obj 546 497 r \$0-bounds; +#X text 788 31 real part; +#X text 759 173 imaginary part; +#X text 791 345 amplitude; +#X text 812 497 phase; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 12 0 3 0; +#X connect 19 0 20 0; +#X connect 21 0 26 0; +#X connect 22 0 19 0; +#X connect 26 1 22 0; +#X connect 27 0 10 0; +#X connect 28 0 25 0; diff --git a/externals/grill/vasp/pd-help/vasp_pow.pd b/externals/grill/vasp/pd-help/vasp_pow.pd new file mode 100644 index 00000000..1ee54241 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_pow.pd @@ -0,0 +1,44 @@ +#N canvas 47 54 867 462 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.pow 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 410 286 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufpow; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 608 330 pd init; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 463 330 pd clear_buffer; +#X obj 77 197 vasp.update; +#N canvas 0 0 450 300 graph1 0; +#X array bufpow 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 341 144 graph; +#X text 72 81 vasp power function; +#X text 71 93 argument/right inlet: exponent; +#X msg 77 127 vasp bufpow; +#X msg 463 308 vasp bufpow; +#X obj 77 150 vasp.osc 44100; +#X obj 77 172 vasp.* 0.2; +#X text 71 63 sample ^ x; +#X obj 77 329 vasp.update; +#X msg 77 246 vasp bufpow; +#X obj 77 303 vasp.pow 0.1; +#X floatatom 144 279 5 0 0; +#X text 202 278 exponent; +#X obj 79 397 VASP-HELP; +#X connect 7 0 9 0; +#X connect 8 0 2 0; +#X connect 9 0 10 0; +#X connect 10 0 3 0; +#X connect 13 0 14 0; +#X connect 14 0 12 0; +#X connect 15 0 14 1; diff --git a/externals/grill/vasp/pd-help/vasp_qamax.pd b/externals/grill/vasp/pd-help/vasp_qamax.pd new file mode 100644 index 00000000..00c47f4b --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_qamax.pd @@ -0,0 +1,75 @@ +#N canvas 57 40 901 555 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.amax? 0 10 1 14 -262144 +-1 0; +#X obj 492 462 dac~; +#X obj 492 418 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 514 417 play; +#N canvas 40 55 281 170 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 624 462 pd clear_buffer; +#X obj 74 116 filelist \$0; +#N canvas 92 108 400 365 inside 0; +#X obj 66 154 soundfiler; +#X obj 84 238 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 214 206 resize \$1; +#X obj 66 50 loadbang; +#X obj 66 178 t b f f; +#X obj 66 98 filelisthandler \$0; +#X msg 66 76 3; +#X msg 66 130 read -resize \$1 bufamax; +#X obj 214 228 s bufamax; +#X connect 0 0 5 0; +#X connect 3 0 9 0; +#X connect 4 0 7 0; +#X connect 5 0 2 0; +#X connect 5 1 1 0; +#X connect 5 2 3 0; +#X connect 6 0 8 0; +#X connect 7 0 6 0; +#X connect 8 0 0 0; +#X restore 755 462 pd inside; +#X text 70 75 right outlet: calculated value; +#X text 72 58 max-value of the absolute values of a vasp; +#X obj 492 439 tabplay~ bufamax; +#X msg 624 439 vasp bufamax; +#X obj 484 219 wavedisplay-simple bufamax \$0; +#X msg 72 405 vasp bufamax; +#X obj 72 451 vasp.update; +#X obj 72 476 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 72 428 vasp.opt; +#X text 173 402 or use vasp.opt which does the same; +#X floatatom 128 272 5 0 0; +#X msg 73 215 vasp bufamax; +#X obj 73 238 vasp.amax?; +#X text 166 216 find the absolute maximum of this soundfile; +#X msg 73 305 vasp bufamax; +#X obj 73 328 vasp./; +#X obj 73 351 vasp.update; +#X obj 73 376 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X text 171 271 -> current absolute maximum; +#X obj 63 520 VASP-HELP; +#X text 169 327 use it to optimize buffer content; +#X connect 2 0 9 0; +#X connect 9 0 1 0; +#X connect 9 0 1 1; +#X connect 10 0 4 0; +#X connect 12 0 15 0; +#X connect 13 0 14 0; +#X connect 15 0 13 0; +#X connect 17 0 22 1; +#X connect 18 0 19 0; +#X connect 19 1 17 0; +#X connect 21 0 22 0; +#X connect 22 0 23 0; +#X connect 23 0 24 0; diff --git a/externals/grill/vasp/pd-help/vasp_qamin.pd b/externals/grill/vasp/pd-help/vasp_qamin.pd new file mode 100644 index 00000000..6635dd85 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_qamin.pd @@ -0,0 +1,53 @@ +#N canvas 57 40 879 499 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.amin? 0 10 1 14 -262144 +-1 0; +#N canvas 40 55 281 170 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 616 427 pd clear_buffer; +#X text 72 58 min-value of the absolute values of a vasp; +#X text 70 75 right outlet: calculated value; +#X msg 616 404 vasp bufamin; +#X msg 50 192 vasp bufamin; +#X obj 50 215 vasp.amin?; +#X floatatom 105 249 5 0 0; +#X text 148 248 -> current absolute minimum; +#X obj 48 429 VASP-HELP; +#N canvas 0 0 450 300 graph1 0; +#X array bufamin 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 535 123 graph; +#N canvas 0 0 398 274 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100 +\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1; +#X msg 33 45 symbol bufamin; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 772 429 pd init; +#X obj 48 311 vasp.abs; +#X msg 48 290 vasp bufamin; +#X obj 48 332 vasp.u; +#X obj 51 128 vasp.noise; +#X msg 51 106 vasp bufamin; +#X text 148 106 1 create random values; +#X obj 51 149 vasp.u; +#X text 150 193 2 find the absolute minimum of this soundfile; +#X text 139 291 3 to control the result display the absolute values +; +#X text 55 387 related objects; +#X obj 172 386 vasp.min; +#X obj 246 386 vasp.min?; +#X connect 4 0 1 0; +#X connect 5 0 6 0; +#X connect 6 1 7 0; +#X connect 12 0 14 0; +#X connect 13 0 12 0; +#X connect 15 0 18 0; +#X connect 16 0 15 0; diff --git a/externals/grill/vasp/pd-help/vasp_qchannel.pd b/externals/grill/vasp/pd-help/vasp_qchannel.pd new file mode 100644 index 00000000..8bb34876 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_qchannel.pd @@ -0,0 +1,10 @@ +#N canvas 35 145 460 376 10; +#X obj 58 31 cnv 15 15 15 empty empty vasp.channel? 0 10 1 14 -262144 +-1 0; +#X text 58 212 related object; +#X text 53 125 (MaxMSP version of vasp); +#X obj 60 165 vasp.channel?; +#X text 58 71 get channel index of 0th vector in vasp; +#X text 55 107 only useful for interleaved stereo-files; +#X obj 162 211 vasp.channel; +#X obj 61 280 VASP-HELP; diff --git a/externals/grill/vasp/pd-help/vasp_qframes.pd b/externals/grill/vasp/pd-help/vasp_qframes.pd new file mode 100644 index 00000000..bfc0535c --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_qframes.pd @@ -0,0 +1,27 @@ +#N canvas 207 210 709 402 10; +#X obj 58 31 cnv 15 15 15 empty empty vasp.frames? 0 10 1 14 -262144 +-1 0; +#X text 372 130 get the maximum vasp length of both buffers; +#X floatatom 372 211 0 0 0; +#X obj 372 181 vasp.frames?; +#X floatatom 212 211 0 0 0; +#X obj 212 181 vasp.frames?; +#X text 212 130 get the buffer length; +#X msg 372 155 vasp bufframq bufframq1; +#X msg 212 155 vasp bufframq; +#X obj 418 273 table bufframq 88200; +#X obj 418 296 table bufframq1 44100; +#X floatatom 45 210 0 0 0; +#X obj 45 180 vasp.frames?; +#X msg 45 154 vasp 400 bufframq 300; +#X text 106 312 abbreviation; +#X obj 49 312 vasp.f?; +#X obj 41 357 VASP-HELP; +#X text 44 64 get a vasp's frame count (length) in frames; +#X text 45 129 get the vasp's length; +#X connect 3 0 2 0; +#X connect 5 0 4 0; +#X connect 7 0 3 0; +#X connect 8 0 5 0; +#X connect 12 0 11 0; +#X connect 13 0 12 0; diff --git a/externals/grill/vasp/pd-help/vasp_qmax.pd b/externals/grill/vasp/pd-help/vasp_qmax.pd new file mode 100644 index 00000000..43226edc --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_qmax.pd @@ -0,0 +1,44 @@ +#N canvas 57 40 757 367 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.max? 0 10 1 14 -262144 -1 +0; +#N canvas 40 55 281 170 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 468 280 pd clear_buffer; +#N canvas 0 0 450 300 graph1 0; +#X array bufqmax 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 339 115 graph; +#N canvas 0 0 396 272 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 43 symbol bufqmax; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 615 284 pd init; +#X text 70 75 right outlet: max value; +#X obj 73 144 vasp.osc 44100; +#X obj 73 165 vasp.* 0.5; +#X obj 73 186 vasp.update; +#X msg 73 123 vasp bufqmax; +#X text 68 58 get maximum sample value of a vasp; +#X msg 468 257 vasp bufqmax; +#X floatatom 124 285 5 0 0; +#X msg 75 230 vasp bufqmax; +#X obj 75 251 vasp.max?; +#X text 167 282 >>>> maximum value; +#X obj 64 339 VASP-HELP; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 8 0 5 0; +#X connect 10 0 1 0; +#X connect 12 0 13 0; +#X connect 13 1 11 0; diff --git a/externals/grill/vasp/pd-help/vasp_qmin.pd b/externals/grill/vasp/pd-help/vasp_qmin.pd new file mode 100644 index 00000000..f205f105 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_qmin.pd @@ -0,0 +1,44 @@ +#N canvas 57 40 817 436 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.min? 0 10 1 14 -262144 -1 +0; +#N canvas 40 55 281 170 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 468 280 pd clear_buffer; +#N canvas 0 0 450 300 graph1 0; +#X array bufqmin 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 339 115 graph; +#N canvas 0 0 394 270 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufqmin; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 615 284 pd init; +#X text 68 58 get minimum sample value of a vasp; +#X text 70 75 right outlet: max value; +#X msg 468 257 vasp bufqmin; +#X msg 73 123 vasp bufqmin; +#X obj 73 144 vasp.osc 44100; +#X obj 73 165 vasp.* 0.5; +#X obj 73 186 vasp.update; +#X floatatom 124 285 5 0 0; +#X obj 75 251 vasp.min?; +#X msg 75 230 vasp bufqmin; +#X text 167 282 >>>> minimum value; +#X obj 56 344 VASP-HELP; +#X connect 6 0 1 0; +#X connect 7 0 8 0; +#X connect 8 0 9 0; +#X connect 9 0 10 0; +#X connect 12 1 11 0; +#X connect 13 0 12 0; diff --git a/externals/grill/vasp/pd-help/vasp_qoffset.pd b/externals/grill/vasp/pd-help/vasp_qoffset.pd new file mode 100644 index 00000000..22c6575c --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_qoffset.pd @@ -0,0 +1,19 @@ +#N canvas 307 266 648 378 10; +#X obj 44 28 cnv 15 15 15 empty empty vasp.offset? 0 10 1 14 -262144 +-1 0; +#X text 42 59 get a single vectored vasp's offset; +#X text 52 278 abbreviation; +#X obj 150 278 vasp.o?; +#X obj 411 295 table buffoffsetq 88200; +#X floatatom 45 162 0 0 0; +#X obj 45 131 vasp.offset?; +#X msg 45 106 vasp 200 buffoffsetq 300; +#X floatatom 226 163 0 0 0; +#X obj 226 132 vasp.offset?; +#X msg 226 107 vasp buffoffsetq 220 buffoffsetq 300; +#X text 228 88 more than 1 vector. watch pd window!; +#X obj 45 325 VASP-HELP; +#X connect 6 0 5 0; +#X connect 7 0 6 0; +#X connect 9 0 8 0; +#X connect 10 0 9 0; diff --git a/externals/grill/vasp/pd-help/vasp_qrmax.pd b/externals/grill/vasp/pd-help/vasp_qrmax.pd new file mode 100644 index 00000000..3018e79b --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_qrmax.pd @@ -0,0 +1,99 @@ +#N canvas 36 36 881 653 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.rmax? 0 10 1 14 -262144 +-1 0; +#X obj 289 135 filelist \$0; +#N canvas 92 108 410 375 inside 0; +#X obj 63 217 soundfiler; +#X obj 184 273 s \$0-sample-length; +#X obj 63 271 s \$0-draw_display; +#X msg 214 206 resize \$1; +#X obj 63 49 loadbang; +#X obj 63 161 filelisthandler \$0; +#X msg 63 139 2; +#X obj 214 228 s bufqrmax1; +#X obj 225 250 s bufqrmax2; +#X msg 63 193 read \$1 bufqrmax1; +#X obj 63 76 t b b; +#X msg 214 134 88200; +#X obj 63 241 t b; +#X connect 0 0 12 0; +#X connect 3 0 7 0; +#X connect 3 0 8 0; +#X connect 4 0 10 0; +#X connect 5 0 9 0; +#X connect 6 0 5 0; +#X connect 9 0 0 0; +#X connect 10 0 6 0; +#X connect 10 1 11 0; +#X connect 11 0 3 0; +#X connect 11 0 1 0; +#X connect 12 0 2 0; +#X restore 719 546 pd inside; +#X text 70 75 right outlet: calculated value; +#X text 70 92 needs two vectors; +#N canvas 40 55 281 170 clear_buffers 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 520 545 pd clear_buffers; +#X obj 373 544 dac~; +#X obj 373 501 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 395 498 play; +#X text 72 58 maximum value of the radius values of a complex vasp +; +#X obj 465 130 wavedisplay-simple bufqrmax1 \$0; +#X obj 465 267 wavedisplay-simple bufqrmax2 \$0; +#X msg 520 522 vasp bufqrmax1 bufqrmax2; +#X obj 51 538 vasp.update; +#X obj 51 558 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 53 162 vasp.cfft; +#X obj 53 182 vasp.update; +#X obj 53 202 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 53 142 vasp bufqrmax1 bufqrmax2; +#X obj 53 432 vasp.update; +#X obj 53 452 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 53 392 vasp bufqrmax1 bufqrmax2; +#X obj 53 412 vasp.c!fft; +#X text 49 482 or use vasp.ropt which does the same; +#X msg 51 498 vasp bufqrmax1 bufqrmax2; +#X obj 51 518 vasp.ropt; +#X obj 373 521 tabplay~ bufqrmax1; +#X floatatom 108 309 5 0 0; +#X obj 53 327 vasp./; +#X obj 53 347 vasp.update; +#X obj 53 367 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 53 254 vasp.rmax?; +#X text 150 308 -> current maximum; +#X text 136 346 use it to optimise radius; +#X msg 53 234 vasp bufqrmax1 bufqrmax2; +#X msg 53 282 vasp bufqrmax1 bufqrmax2; +#X obj 50 618 VASP-HELP; +#X connect 7 0 26 0; +#X connect 12 0 5 0; +#X connect 13 0 14 0; +#X connect 15 0 16 0; +#X connect 16 0 17 0; +#X connect 18 0 15 0; +#X connect 19 0 20 0; +#X connect 21 0 22 0; +#X connect 22 0 19 0; +#X connect 24 0 25 0; +#X connect 25 0 13 0; +#X connect 26 0 6 0; +#X connect 26 0 6 1; +#X connect 27 0 28 1; +#X connect 28 0 29 0; +#X connect 29 0 30 0; +#X connect 31 1 27 0; +#X connect 34 0 31 0; +#X connect 35 0 28 0; diff --git a/externals/grill/vasp/pd-help/vasp_qrmin.pd b/externals/grill/vasp/pd-help/vasp_qrmin.pd new file mode 100644 index 00000000..6b3a6b96 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_qrmin.pd @@ -0,0 +1,59 @@ +#N canvas 57 40 879 562 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.rmin? 0 10 1 14 -262144 +-1 0; +#X obj 70 140 filelist \$0; +#N canvas 92 108 402 367 inside 0; +#X obj 66 154 soundfiler; +#X obj 84 238 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 214 206 resize \$1; +#X obj 66 50 loadbang; +#X obj 66 178 t b f f; +#X obj 66 98 filelisthandler \$0; +#X msg 66 130 read -resize \$1 bufqrmin1; +#X obj 214 228 s bufqrmin1; +#X obj 225 250 s bufqrmin2; +#X msg 66 76 4; +#X connect 0 0 5 0; +#X connect 3 0 8 0; +#X connect 3 0 9 0; +#X connect 4 0 10 0; +#X connect 5 0 2 0; +#X connect 5 1 1 0; +#X connect 5 2 3 0; +#X connect 6 0 7 0; +#X connect 7 0 0 0; +#X connect 10 0 6 0; +#X restore 678 426 pd inside; +#X text 70 75 right outlet: calculated value; +#X text 72 58 min-value of the radius values of a complex vasp; +#X text 70 95 needs two vectors; +#X obj 434 93 wavedisplay-simple bufqrmin1 \$0; +#X obj 434 238 wavedisplay-simple bufqrmin2 \$0; +#X obj 60 280 vasp.cfft; +#X obj 60 302 vasp.update; +#X obj 60 325 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 60 258 vasp bufqrmin1 bufqrmin2; +#N canvas 40 55 281 170 clear_buffers 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 436 422 pd clear_buffers; +#X msg 436 399 vasp bufqrmin1 bufqrmin2; +#X floatatom 110 417 12 0 0; +#X text 112 435 -> current absolute minimum; +#X obj 55 383 vasp.rmin?; +#X msg 55 360 vasp bufqrmin1 bufqrmin2; +#X obj 41 508 VASP-HELP; +#X connect 8 0 9 0; +#X connect 9 0 10 0; +#X connect 11 0 8 0; +#X connect 13 0 12 0; +#X connect 16 1 14 0; +#X connect 17 0 16 0; diff --git a/externals/grill/vasp/pd-help/vasp_qsize.pd b/externals/grill/vasp/pd-help/vasp_qsize.pd new file mode 100644 index 00000000..2ea1b884 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_qsize.pd @@ -0,0 +1,31 @@ +#N canvas 85 111 907 542 10; +#X obj 58 31 cnv 15 15 15 empty empty vasp.size? 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 408 284 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 2 5 \; \$1 xlabel 1.1 0 10 20 30 40 50 +\; \$1 yticks 0 0.25 2; +#X msg 33 45 symbol bufqsize; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 714 408 pd init; +#X text 119 374 abbreviation; +#X obj 62 225 vasp.size 100; +#N canvas 0 0 450 300 graph1 0; +#X array bufqsize 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 453 153 graph; +#X floatatom 135 200 5 0 0; +#X obj 175 417 vasp.frames; +#X text 62 415 related objects:; +#X msg 62 152 vasp bufqsize; +#X obj 62 266 vasp.size?; +#X floatatom 62 302 5 0 0; +#X obj 63 374 vasp.s?; +#X obj 256 417 vasp.size; +#X obj 62 463 VASP-HELP; +#X text 57 69 get the size of a referenced buffer/array; +#X connect 3 0 9 0; +#X connect 5 0 3 1; +#X connect 8 0 3 0; +#X connect 9 0 10 0; diff --git a/externals/grill/vasp/pd-help/vasp_qvector.pd b/externals/grill/vasp/pd-help/vasp_qvector.pd new file mode 100644 index 00000000..67c681da --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_qvector.pd @@ -0,0 +1,13 @@ +#N canvas 257 69 511 284 10; +#X text 52 66 get the number of vectors of a vasp; +#X obj 51 19 cnv 15 15 15 empty empty vasp.n? 0 10 1 14 -262144 -1 +0; +#X obj 57 169 cnv 15 44 17 empty empty empty 20 12 0 14 -258699 -66577 +0; +#X floatatom 57 218 0 0 0; +#X obj 57 169 vasp.n?; +#X msg 57 112 vasp bufqn1; +#X msg 137 112 vasp bufqn1 bufqn2 bufqn3; +#X connect 4 0 3 0; +#X connect 5 0 4 0; +#X connect 6 0 4 0; diff --git a/externals/grill/vasp/pd-help/vasp_qvectors.pd b/externals/grill/vasp/pd-help/vasp_qvectors.pd new file mode 100644 index 00000000..d4725441 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_qvectors.pd @@ -0,0 +1,17 @@ +#N canvas 261 89 556 365 10; +#X text 52 66 get the number of vectors of a vasp; +#X obj 51 19 cnv 15 15 15 empty empty vasp.n? 0 10 1 14 -262144 -1 +0; +#X floatatom 57 218 0 0 0; +#X obj 57 169 vasp.n?; +#X msg 57 112 vasp bufqn1; +#X msg 147 113 vasp bufqn1 bufqn2 bufqn3; +#X obj 54 318 VASP-HELP; +#X obj 438 86 table bufqn1; +#X obj 438 107 table bufqn2; +#X obj 438 128 table bufqn3; +#X obj 151 277 vasp.n?; +#X text 53 279 abbreviation:; +#X connect 3 0 2 0; +#X connect 4 0 3 0; +#X connect 5 0 3 0; diff --git a/externals/grill/vasp/pd-help/vasp_radd.pd b/externals/grill/vasp/pd-help/vasp_radd.pd new file mode 100644 index 00000000..f28aebc8 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_radd.pd @@ -0,0 +1,84 @@ +#N canvas 63 27 894 612 10; +#N canvas 415 205 410 337 inside 0; +#X obj 66 154 soundfiler; +#X obj 222 207 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 259 138 resize \$1; +#X obj 259 91 loadbang; +#X obj 67 53 loadbang; +#X msg 259 112 88200; +#X obj 67 101 filelisthandler \$0; +#X msg 67 79 4; +#X msg 67 133 read -resize \$1 bufradd1; +#X obj 259 160 s bufradd1; +#X obj 269 183 s bufradd2; +#X obj 66 178 t b; +#X connect 0 0 12 0; +#X connect 3 0 10 0; +#X connect 3 0 11 0; +#X connect 4 0 6 0; +#X connect 5 0 8 0; +#X connect 6 0 3 0; +#X connect 6 0 1 0; +#X connect 7 0 9 0; +#X connect 8 0 7 0; +#X connect 9 0 0 0; +#X connect 12 0 2 0; +#X restore 772 512 pd inside; +#X obj 75 32 cnv 15 15 15 empty empty vasp.r+ 0 10 1 14 -262144 -1 +0; +#X obj 73 134 filelist \$0; +#X obj 65 512 vasp.update; +#X obj 65 535 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 65 489 vasp.c!fft; +#X obj 65 260 vasp.cfft; +#X obj 65 281 vasp.update; +#X obj 65 302 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 343 514 dac~; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 477 514 pd clear_buffers; +#X obj 343 471 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 365 468 play; +#X text 477 469 clear; +#X text 71 53 add avalue to a radius; +#X text 71 65 argument/right inlet: value (offset); +#X text 72 82 needs two vectors; +#X obj 522 272 wavedisplay-simple bufradd2 \$0; +#X obj 521 116 wavedisplay-simple bufradd1 \$0; +#X msg 65 239 vasp bufradd1 bufradd2; +#X msg 65 465 vasp bufradd1 bufradd2; +#X obj 343 491 tabplay~ bufradd1; +#X msg 477 491 vasp bufradd1 bufradd2; +#X obj 65 405 vasp.update; +#X obj 65 426 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 65 325 vasp bufradd1 bufradd2; +#X obj 65 379 vasp.r+ 0.05; +#X floatatom 132 352 5 0 0; +#X text 183 350 value; +#X obj 59 579 VASP-HELP; +#X connect 3 0 4 0; +#X connect 5 0 3 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 11 0 21 0; +#X connect 19 0 6 0; +#X connect 20 0 5 0; +#X connect 21 0 9 0; +#X connect 21 0 9 1; +#X connect 22 0 10 0; +#X connect 23 0 24 0; +#X connect 25 0 26 0; +#X connect 26 0 23 0; +#X connect 27 0 26 1; diff --git a/externals/grill/vasp/pd-help/vasp_radio.pd b/externals/grill/vasp/pd-help/vasp_radio.pd new file mode 100644 index 00000000..0f26c220 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_radio.pd @@ -0,0 +1,28 @@ +#N canvas 128 36 361 454 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.radio 0 10 1 14 -262144 +-1 0; +#X obj 66 406 VASP-HELP; +#X text 71 63 filters radio messages; +#X floatatom 208 126 5 0 0; +#X msg 208 146 vasp buf; +#X msg 51 126 radio prior 1; +#X msg 208 172 env 0 1 2; +#X msg 208 195 5 5; +#X obj 74 267 vasp.radio; +#X msg 51 150 radio loglvl 3; +#X obj 74 298 prepend set; +#X obj 177 300 prepend set; +#X text 73 350 radio; +#X text 177 351 other; +#X msg 74 323; +#X msg 177 327; +#X connect 3 0 8 0; +#X connect 4 0 8 0; +#X connect 5 0 8 0; +#X connect 6 0 8 0; +#X connect 7 0 8 0; +#X connect 8 0 10 0; +#X connect 8 1 11 0; +#X connect 9 0 8 0; +#X connect 10 0 14 0; +#X connect 11 0 15 0; diff --git a/externals/grill/vasp/pd-help/vasp_rect.pd b/externals/grill/vasp/pd-help/vasp_rect.pd new file mode 100644 index 00000000..77f74d9f --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_rect.pd @@ -0,0 +1,87 @@ +#N canvas 15 40 916 673 10; +#N canvas 92 108 375 293 inside 0; +#X obj 66 154 soundfiler; +#X obj 184 208 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 221 138 resize \$1; +#X obj 221 91 loadbang; +#X obj 67 53 loadbang; +#X msg 221 112 88200; +#X obj 67 101 filelisthandler \$0; +#X msg 67 79 4; +#X obj 221 160 s bufrect1; +#X obj 231 184 s bufrect2; +#X msg 67 133 read \$1 bufrect1; +#X obj 66 178 t b; +#X connect 0 0 12 0; +#X connect 3 0 9 0; +#X connect 3 0 10 0; +#X connect 4 0 6 0; +#X connect 5 0 8 0; +#X connect 6 0 3 0; +#X connect 6 0 1 0; +#X connect 7 0 11 0; +#X connect 8 0 7 0; +#X connect 11 0 0 0; +#X connect 12 0 2 0; +#X restore 777 531 pd inside; +#X obj 75 32 cnv 15 15 15 empty empty vasp.rect 0 10 1 14 -262144 -1 +0; +#X obj 72 91 filelist \$0; +#X obj 59 327 vasp.update; +#X obj 59 347 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 59 220 vasp.cfft; +#X obj 59 240 vasp.update; +#X obj 59 260 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X text 205 573 <-- click to open; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 567 527 pd clear_buffers; +#X text 567 482 clear; +#X obj 59 306 vasp.polar; +#X text 229 283 real/imaginary -> amplitude/phase; +#X obj 59 573 phase-random_example; +#X text 71 53 polar to cartesian coordinate conversion; +#X obj 512 116 wavedisplay-simple bufrect1 \$0; +#X obj 514 261 wavedisplay-simple bufrect2 \$0; +#X text 738 94 real/amplitude; +#X text 729 240 imaginary/phase; +#X msg 59 200 vasp bufrect1 bufrect2; +#X text 230 201 transform with cfft to real/imaginary; +#X obj 59 418 vasp.update; +#X obj 59 438 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 59 496 vasp.cfft; +#X obj 59 516 vasp.update; +#X obj 59 536 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 59 476 vasp bufrect1 bufrect2; +#X obj 59 397 vasp.rect; +#X text 223 374 amplitude/phase -> real/imaginary; +#X text 231 477 transform with inverse cfft to time domain; +#X msg 567 504 vasp bufrect1 bufrect2; +#X msg 59 285 vasp bufrect1 bufrect2; +#X msg 59 376 vasp bufrect1 bufrect2; +#X obj 58 622 VASP-HELP; +#X connect 3 0 4 0; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 11 0 3 0; +#X connect 19 0 5 0; +#X connect 21 0 22 0; +#X connect 23 0 24 0; +#X connect 24 0 25 0; +#X connect 26 0 23 0; +#X connect 27 0 21 0; +#X connect 30 0 9 0; +#X connect 31 0 11 0; +#X connect 32 0 27 0; diff --git a/externals/grill/vasp/pd-help/vasp_rfft.pd b/externals/grill/vasp/pd-help/vasp_rfft.pd new file mode 100644 index 00000000..d7bbb31f --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_rfft.pd @@ -0,0 +1,74 @@ +#N canvas 24 75 893 495 10; +#X obj 75 32 cnv 15 15 15 empty empty vasp.rfft 0 10 1 14 -262144 -1 +0; +#N canvas 92 108 371 312 inside 0; +#X obj 66 154 soundfiler; +#X obj 180 207 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 234 164 resize \$1; +#X obj 234 117 loadbang; +#X obj 67 53 loadbang; +#X msg 234 138 88200; +#X obj 67 101 filelisthandler \$0; +#X msg 67 79 3; +#X obj 234 186 s bufrfft; +#X msg 67 133 read \$1 bufrfft; +#X obj 66 178 t b; +#X connect 0 0 11 0; +#X connect 3 0 9 0; +#X connect 4 0 6 0; +#X connect 5 0 8 0; +#X connect 6 0 3 0; +#X connect 6 0 1 0; +#X connect 7 0 10 0; +#X connect 8 0 7 0; +#X connect 10 0 0 0; +#X connect 11 0 2 0; +#X restore 761 385 pd inside; +#X obj 329 388 dac~; +#X obj 329 345 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 351 342 play; +#X text 463 343 clear; +#X obj 69 121 filelist \$0; +#X msg 463 365 vasp bufrfft; +#N canvas 0 0 413 295 clear_buffer 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 463 388 pd clear_buffer; +#X obj 329 365 tabplay~ bufrfft; +#X obj 519 137 wavedisplay-simple bufrfft \$0; +#X text 157 345 inverse real fft; +#X obj 68 371 vasp.update; +#X obj 68 394 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 68 320 vasp bufrfft; +#X obj 68 345 vasp.r!fft; +#X text 71 60 real fft; +#X text 72 73 in opposite to cfft there is only one real input buffer +; +#X text 73 86 imaginary part of the fft is assumed to be zero; +#X text 157 239 real fft; +#X obj 68 265 vasp.update; +#X obj 68 288 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 68 214 vasp bufrfft; +#X obj 68 239 vasp.rfft; +#X obj 61 456 VASP-HELP; +#X text 103 456 - vasp overview; +#X connect 3 0 9 0; +#X connect 7 0 8 0; +#X connect 9 0 2 0; +#X connect 9 0 2 1; +#X connect 12 0 13 0; +#X connect 14 0 15 0; +#X connect 15 0 12 0; +#X connect 20 0 21 0; +#X connect 22 0 23 0; +#X connect 23 0 20 0; diff --git a/externals/grill/vasp/pd-help/vasp_rframes.pd b/externals/grill/vasp/pd-help/vasp_rframes.pd new file mode 100644 index 00000000..f20ada29 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_rframes.pd @@ -0,0 +1,63 @@ +#N canvas 80 119 908 535 10; +#X obj 62 323 vasp.osc 22050; +#X obj 58 31 cnv 15 15 15 empty empty vasp.frames/ 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 450 300 graph1 0; +#X array bufrfram1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 530 149 graph; +#N canvas 0 0 404 280 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufrfram1; +#X msg 140 45 symbol bufrfram2; +#X connect 0 0 2 0; +#X connect 0 0 3 0; +#X connect 2 0 1 0; +#X connect 3 0 1 0; +#X restore 813 459 pd init; +#X obj 62 355 vasp.update; +#X text 117 412 abbreviation; +#N canvas 0 0 450 300 graph1 0; +#X array bufrfram2 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 530 268 graph; +#X text 54 103 !!!all vectors of a vasp have the same framesize/length!!! +; +#X obj 77 274 prepend set; +#X obj 233 323 vasp.osc 22050; +#X obj 233 355 vasp.update; +#X text 58 83 argument/right inlet: value; +#X obj 62 187 vasp.-> bufrfram2; +#X msg 77 297 vasp 66150 bufrfram1 0 0; +#X obj 255 271 prepend set; +#X msg 255 294 vasp 33075 bufrfram2 0 0; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 528 439 pd clear_buffer; +#X msg 528 418 vasp bufrfram1 bufrfram2; +#X obj 161 453 vasp.frames; +#X text 53 454 related objects:; +#X obj 243 453 vasp.frames+; +#X text 59 66 divide the number of frames of a vasp by a value; +#X msg 62 153 vasp 66150 bufrfram1; +#X obj 233 239 vasp.frames/ 2; +#X obj 61 411 vasp.f/; +#X obj 59 495 VASP-HELP; +#X connect 0 0 4 0; +#X connect 8 0 13 0; +#X connect 9 0 10 0; +#X connect 12 0 8 0; +#X connect 12 0 0 0; +#X connect 12 1 23 0; +#X connect 14 0 15 0; +#X connect 17 0 16 0; +#X connect 22 0 12 0; +#X connect 23 0 14 0; +#X connect 23 0 9 0; diff --git a/externals/grill/vasp/pd-help/vasp_rgate.pd b/externals/grill/vasp/pd-help/vasp_rgate.pd new file mode 100644 index 00000000..cee131b5 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_rgate.pd @@ -0,0 +1,86 @@ +#N canvas 36 36 808 624 10; +#X obj 72 26 cnv 15 15 15 empty empty vasp.rgate 0 10 1 14 -262144 +-1 0; +#X obj 76 157 filelist \$0; +#N canvas 40 55 281 170 clear_buffers 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 481 518 pd clear_buffers; +#X obj 63 291 vasp.update; +#X obj 63 311 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 401 162 wavedisplay-simple bufrgate1 \$0; +#X obj 402 319 wavedisplay-simple bufrgate2 \$0; +#X msg 63 251 vasp bufrgate1 bufrgate2; +#X obj 63 271 vasp.cfft; +#X obj 63 504 vasp.update; +#X obj 63 524 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 63 464 vasp bufrgate1 bufrgate2; +#X obj 63 484 vasp.c!fft; +#X obj 296 518 dac~; +#X obj 296 480 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 317 483 play; +#X obj 296 498 tabplay~ bufrgate1; +#X msg 481 498 vasp bufrgate1 bufrgate2; +#X text 71 49 gate the radius of a complex buffer content with a value +; +#X text 72 96 needs two buffers (real/imaginary); +#X text 71 66 argument/right inlet: value (usually from 0-1) to gate +the radius; +#N canvas 384 183 438 403 inside 0; +#X obj 66 169 soundfiler; +#X obj 184 290 s \$0-sample-length; +#X obj 66 223 s \$0-draw_display; +#X msg 214 221 resize \$1; +#X obj 66 47 loadbang; +#X obj 66 113 filelisthandler \$0; +#X obj 214 243 s bufrgate1; +#X obj 225 264 s bufrgate2; +#X msg 66 91 2; +#X msg 95 91 88200; +#X obj 66 68 t b b; +#X msg 66 145 read \$1 bufrgate1; +#X obj 66 193 t b; +#X connect 0 0 12 0; +#X connect 3 0 6 0; +#X connect 3 0 7 0; +#X connect 3 0 1 0; +#X connect 4 0 10 0; +#X connect 5 0 11 0; +#X connect 8 0 5 0; +#X connect 9 0 3 0; +#X connect 10 0 8 0; +#X connect 10 1 9 0; +#X connect 11 0 0 0; +#X connect 12 0 2 0; +#X restore 670 518 pd inside; +#X obj 63 413 vasp.update; +#X obj 63 433 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 63 329 vasp bufrgate1 bufrgate2; +#X obj 63 393 vasp.rgate 0.2; +#X floatatom 142 367 5 0 0; +#X text 192 366 value; +#X obj 56 582 VASP-HELP; +#X connect 3 0 4 0; +#X connect 7 0 8 0; +#X connect 8 0 3 0; +#X connect 9 0 10 0; +#X connect 11 0 12 0; +#X connect 12 0 9 0; +#X connect 14 0 16 0; +#X connect 16 0 13 0; +#X connect 16 0 13 1; +#X connect 17 0 2 0; +#X connect 22 0 23 0; +#X connect 24 0 25 0; +#X connect 25 0 22 0; +#X connect 26 0 25 1; diff --git a/externals/grill/vasp/pd-help/vasp_rifft.pd b/externals/grill/vasp/pd-help/vasp_rifft.pd new file mode 100644 index 00000000..037981a2 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_rifft.pd @@ -0,0 +1,75 @@ +#N canvas 24 75 823 495 10; +#X obj 75 32 cnv 15 15 15 empty empty vasp.r!fft 0 10 1 14 -262144 +-1 0; +#N canvas 92 108 373 314 inside 0; +#X obj 66 154 soundfiler; +#X obj 187 209 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 235 166 resize \$1; +#X obj 235 119 loadbang; +#X obj 67 53 loadbang; +#X msg 235 140 88200; +#X obj 67 101 filelisthandler \$0; +#X msg 67 79 4; +#X msg 67 133 read \$1 bufrifft; +#X obj 235 188 s bufrifft; +#X obj 66 178 t b; +#X connect 0 0 11 0; +#X connect 3 0 10 0; +#X connect 4 0 6 0; +#X connect 5 0 8 0; +#X connect 6 0 3 0; +#X connect 6 0 1 0; +#X connect 7 0 9 0; +#X connect 8 0 7 0; +#X connect 9 0 0 0; +#X connect 11 0 2 0; +#X restore 627 390 pd inside; +#X obj 329 388 dac~; +#X obj 329 345 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 351 342 play; +#X text 463 343 clear; +#X obj 69 121 filelist \$0; +#N canvas 0 0 413 295 clear_buffer 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 463 388 pd clear_buffer; +#X text 157 239 real fft; +#X obj 68 265 vasp.update; +#X obj 68 288 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 68 238 vasp.rfft; +#X text 72 73 in opposite to cfft there is only one real input buffer +; +#X text 73 86 imaginary part of the fft is assumed to be zero; +#X text 71 60 inverse real fft; +#X msg 463 365 vasp bufrifft; +#X obj 329 365 tabplay~ bufrifft; +#X msg 68 214 vasp bufrifft; +#X obj 372 144 wavedisplay-simple bufrifft \$0; +#X text 645 127 source; +#X text 157 345 inverse real fft; +#X obj 68 371 vasp.update; +#X obj 68 394 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 68 345 vasp.r!fft; +#X msg 68 320 vasp bufrifft; +#X obj 61 461 VASP-HELP; +#X text 103 461 - vasp overview; +#X connect 3 0 16 0; +#X connect 9 0 10 0; +#X connect 11 0 9 0; +#X connect 15 0 7 0; +#X connect 16 0 2 0; +#X connect 16 0 2 1; +#X connect 17 0 11 0; +#X connect 21 0 22 0; +#X connect 23 0 21 0; +#X connect 24 0 23 0; diff --git a/externals/grill/vasp/pd-help/vasp_rmax.pd b/externals/grill/vasp/pd-help/vasp_rmax.pd new file mode 100644 index 00000000..6a05cd58 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_rmax.pd @@ -0,0 +1,81 @@ +#N canvas 36 36 881 625 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.rmax 0 10 1 14 -262144 -1 +0; +#X obj 71 131 filelist \$0; +#N canvas 92 108 410 375 inside 0; +#X obj 66 154 soundfiler; +#X obj 177 275 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 214 206 resize \$1; +#X obj 66 50 loadbang; +#X obj 66 98 filelisthandler \$0; +#X msg 66 76 2; +#X msg 214 146 88200; +#X msg 66 130 read \$1 bufrmax1; +#X obj 214 228 s bufrmax1; +#X obj 225 250 s bufrmax2; +#X obj 66 178 t b; +#X connect 0 0 11 0; +#X connect 3 0 9 0; +#X connect 3 0 10 0; +#X connect 4 0 7 0; +#X connect 4 0 6 0; +#X connect 5 0 8 0; +#X connect 6 0 5 0; +#X connect 7 0 3 0; +#X connect 7 0 1 0; +#X connect 8 0 0 0; +#X connect 11 0 2 0; +#X restore 700 501 pd inside; +#X text 70 92 needs two vectors; +#N canvas 40 55 281 170 clear_buffers 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 501 500 pd clear_buffers; +#X obj 354 499 dac~; +#X obj 354 456 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 376 453 play; +#X obj 60 252 vasp.cfft; +#X obj 60 272 vasp.update; +#X obj 60 484 vasp.update; +#X obj 60 504 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 60 464 vasp.c!fft; +#X text 72 58 set radius to a maximum value; +#X text 70 75 argument/right inlet: value; +#X msg 60 232 vasp bufrmax1 bufrmax2; +#X obj 448 136 wavedisplay-simple bufrmax1 \$0; +#X obj 449 281 wavedisplay-simple bufrmax2 \$0; +#X msg 60 444 vasp bufrmax1 bufrmax2; +#X obj 354 476 tabplay~ bufrmax1; +#X msg 501 477 vasp bufrmax1 bufrmax2; +#X obj 60 292 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 60 324 vasp bufrmax1 bufrmax2; +#X obj 60 391 vasp.update; +#X obj 60 371 vasp.rmax 0.2; +#X floatatom 133 348 5 0 0; +#X obj 60 411 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 50 564 VASP-HELP; +#X connect 6 0 19 0; +#X connect 8 0 9 0; +#X connect 9 0 21 0; +#X connect 10 0 11 0; +#X connect 12 0 10 0; +#X connect 15 0 8 0; +#X connect 18 0 12 0; +#X connect 19 0 5 0; +#X connect 19 0 5 1; +#X connect 20 0 4 0; +#X connect 22 0 24 0; +#X connect 23 0 26 0; +#X connect 24 0 23 0; +#X connect 25 0 24 1; diff --git a/externals/grill/vasp/pd-help/vasp_rmin.pd b/externals/grill/vasp/pd-help/vasp_rmin.pd new file mode 100644 index 00000000..6eb7fc75 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_rmin.pd @@ -0,0 +1,84 @@ +#N canvas 36 36 802 593 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.rmin 0 10 1 14 -262144 -1 +0; +#X obj 71 131 filelist \$0; +#N canvas 92 108 416 329 inside 0; +#X obj 66 169 soundfiler; +#X obj 179 223 s \$0-sample-length; +#X obj 66 223 s \$0-draw_display; +#X msg 214 153 resize \$1; +#X obj 66 38 loadbang; +#X obj 66 113 filelisthandler \$0; +#X msg 66 91 2; +#X msg 214 95 88200; +#X obj 214 175 s bufrmin1; +#X obj 225 196 s bufrmin2; +#X msg 66 145 read \$1 bufrmin1; +#X obj 66 63 t b b; +#X obj 66 193 t b; +#X connect 0 0 12 0; +#X connect 3 0 8 0; +#X connect 3 0 9 0; +#X connect 4 0 11 0; +#X connect 5 0 10 0; +#X connect 6 0 5 0; +#X connect 7 0 3 0; +#X connect 7 0 1 0; +#X connect 10 0 0 0; +#X connect 11 0 6 0; +#X connect 11 1 7 0; +#X connect 12 0 2 0; +#X restore 640 502 pd inside; +#X text 71 83 needs two vectors; +#N canvas 40 55 281 170 clear_buffers 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 480 500 pd clear_buffers; +#X obj 334 499 dac~; +#X obj 334 461 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 355 459 play; +#X obj 60 252 vasp.cfft; +#X obj 60 272 vasp.update; +#X obj 60 484 vasp.update; +#X obj 60 504 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 60 464 vasp.c!fft; +#X text 71 66 argument/right inlet: value; +#X obj 60 292 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X text 71 49 set radius to a minimum value; +#X msg 60 232 vasp bufrmin1 bufrmin2; +#X msg 60 444 vasp bufrmin1 bufrmin2; +#X obj 374 257 wavedisplay-simple bufrmin2 \$0; +#X obj 334 479 tabplay~ bufrmin1; +#X msg 480 480 vasp bufrmin1 bufrmin2; +#X obj 374 119 wavedisplay-simple bufrmin1 \$0; +#X obj 60 391 vasp.update; +#X floatatom 139 352 5 0 0; +#X obj 60 411 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 60 324 vasp bufrmin1 bufrmin2; +#X obj 60 371 vasp.rmin 0.05; +#X obj 55 559 VASP-HELP; +#X text 97 559 - vasp overview; +#X connect 6 0 19 0; +#X connect 8 0 9 0; +#X connect 9 0 14 0; +#X connect 10 0 11 0; +#X connect 12 0 10 0; +#X connect 16 0 8 0; +#X connect 17 0 12 0; +#X connect 19 0 5 0; +#X connect 19 0 5 1; +#X connect 20 0 4 0; +#X connect 22 0 24 0; +#X connect 23 0 26 1; +#X connect 25 0 26 0; +#X connect 26 0 22 0; diff --git a/externals/grill/vasp/pd-help/vasp_ropt.pd b/externals/grill/vasp/pd-help/vasp_ropt.pd new file mode 100644 index 00000000..c1975b8e --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_ropt.pd @@ -0,0 +1,86 @@ +#N canvas 36 36 806 598 10; +#X obj 72 26 cnv 15 15 15 empty empty vasp.ropt 0 10 1 14 -262144 -1 +0; +#X obj 76 131 filelist \$0; +#N canvas 40 55 281 170 clear_buffers 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 507 536 pd clear_buffers; +#X obj 63 291 vasp.update; +#X obj 63 311 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 442 164 wavedisplay-simple bufropt1 \$0; +#X obj 443 321 wavedisplay-simple bufropt2 \$0; +#X msg 63 251 vasp bufropt1 bufropt2; +#X obj 63 271 vasp.cfft; +#X obj 63 504 vasp.update; +#X obj 63 524 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 63 464 vasp bufropt1 bufropt2; +#X obj 63 484 vasp.c!fft; +#X obj 344 538 dac~; +#X obj 344 500 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 365 503 play; +#X obj 344 518 tabplay~ bufropt1; +#X msg 507 516 vasp bufropt1 bufropt2; +#N canvas 92 108 436 386 inside 0; +#X obj 66 169 soundfiler; +#X obj 84 253 s \$0-sample-length; +#X obj 66 223 s \$0-draw_display; +#X msg 214 221 resize \$1; +#X obj 66 47 loadbang; +#X obj 66 193 t b f f; +#X obj 66 113 filelisthandler \$0; +#X obj 214 243 s bufropt1; +#X obj 225 264 s bufropt2; +#X msg 95 91 88200; +#X obj 66 68 t b b; +#X msg 66 145 read \$1 bufropt1; +#X msg 66 91 3; +#X connect 0 0 5 0; +#X connect 3 0 7 0; +#X connect 3 0 8 0; +#X connect 4 0 10 0; +#X connect 5 0 2 0; +#X connect 5 1 1 0; +#X connect 5 2 3 0; +#X connect 6 0 11 0; +#X connect 9 0 5 0; +#X connect 10 0 12 0; +#X connect 10 1 9 0; +#X connect 11 0 0 0; +#X connect 12 0 6 0; +#X restore 696 536 pd inside; +#X text 71 49 optimise the radius of a complex buffer content; +#X text 71 66 right outlet: the previous maximum; +#X text 72 84 needs two vectors; +#X text 227 345 optimise; +#X text 224 251 transform to frequency domain; +#X text 224 462 transform to time domain; +#X obj 63 393 vasp.update; +#X obj 63 413 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 63 346 vasp bufropt1 bufropt2; +#X obj 63 373 vasp.ropt 0.2; +#X obj 51 569 VASP-HELP; +#X text 93 569 - vasp overview; +#X connect 3 0 4 0; +#X connect 7 0 8 0; +#X connect 8 0 3 0; +#X connect 9 0 10 0; +#X connect 11 0 12 0; +#X connect 12 0 9 0; +#X connect 14 0 16 0; +#X connect 16 0 13 0; +#X connect 16 0 13 1; +#X connect 17 0 2 0; +#X connect 25 0 26 0; +#X connect 27 0 28 0; +#X connect 28 0 25 0; diff --git a/externals/grill/vasp/pd-help/vasp_rot.pd b/externals/grill/vasp/pd-help/vasp_rot.pd new file mode 100644 index 00000000..b7aaec0f --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_rot.pd @@ -0,0 +1,48 @@ +#N canvas 24 75 850 525 10; +#X obj 75 32 cnv 15 15 15 empty empty vasp.rot 0 10 1 14 -262144 -1 +0; +#X text 463 343 clear; +#N canvas 0 0 413 295 clear_buffer 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 463 388 pd clear_buffer; +#X text 72 73 optional argument/right inlet: value; +#X text 71 60 rotate buffer content; +#X msg 463 365 vasp bufrot; +#X obj 68 333 vasp.update; +#X floatatom 123 280 0 0 0; +#X msg 68 246 vasp bufrot; +#X obj 59 467 VASP-HELP; +#X obj 72 192 vasp.u; +#X obj 72 170 vasp.= env 0 0 1 20 -1 100; +#X obj 180 427 vasp.shift; +#X obj 260 427 vasp.xrot; +#X text 55 426 related objects:; +#N canvas 0 0 450 300 graph1 0; +#X array bufrot 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 443 130 graph; +#N canvas 0 0 398 274 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100 +\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1; +#X msg 33 45 symbol bufrot; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 698 395 pd init; +#X msg 72 145 vasp bufrot; +#X obj 68 305 vasp.rot 7; +#X text 193 139 1 create envelope; +#X text 193 245 2 rotate buffer content; +#X connect 5 0 2 0; +#X connect 7 0 18 1; +#X connect 8 0 18 0; +#X connect 11 0 10 0; +#X connect 17 0 11 0; +#X connect 18 0 6 0; diff --git a/externals/grill/vasp/pd-help/vasp_rpeaks.pd b/externals/grill/vasp/pd-help/vasp_rpeaks.pd new file mode 100644 index 00000000..5891e6d1 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_rpeaks.pd @@ -0,0 +1,94 @@ +#N canvas 36 36 814 590 10; +#X obj 72 26 cnv 15 15 15 empty empty vasp.rpeaks 0 10 1 14 -262144 +-1 0; +#X obj 76 131 filelist \$0; +#N canvas 40 55 281 170 clear_buffers 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 500 505 pd clear_buffers; +#X obj 65 264 vasp.update; +#X obj 65 284 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 411 132 wavedisplay-simple bufrpeaks1 \$0; +#X obj 412 289 wavedisplay-simple bufrpeaks2 \$0; +#X msg 65 224 vasp bufrpeaks1 bufrpeaks2; +#X obj 65 244 vasp.cfft; +#X obj 65 510 vasp.update; +#X obj 65 530 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 65 426 vasp bufrpeaks1 bufrpeaks2; +#X obj 65 446 vasp.c!fft; +#X obj 337 507 dac~; +#X obj 337 469 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 358 472 play; +#X obj 337 487 tabplay~ bufrpeaks1; +#X msg 500 485 vasp bufrpeaks1 bufrpeaks2; +#N canvas 92 108 442 392 inside 0; +#X obj 66 169 soundfiler; +#X obj 135 260 s \$0-sample-length; +#X obj 66 223 s \$0-draw_display; +#X msg 247 217 resize \$1; +#X obj 66 47 loadbang; +#X obj 66 113 filelisthandler \$0; +#X obj 247 239 s bufrpeaks1; +#X obj 258 260 s bufrpeaks2; +#X msg 247 183 88200; +#X obj 66 68 t b b; +#X msg 66 145 read \$1 bufrpeaks1; +#X obj 66 193 t b; +#X msg 66 91 2; +#X connect 0 0 11 0; +#X connect 3 0 6 0; +#X connect 3 0 7 0; +#X connect 4 0 9 0; +#X connect 5 0 10 0; +#X connect 8 0 1 0; +#X connect 8 0 3 0; +#X connect 9 0 12 0; +#X connect 9 1 8 0; +#X connect 10 0 0 0; +#X connect 11 0 2 0; +#X connect 12 0 5 0; +#X restore 689 505 pd inside; +#X text 71 65 argument/right inlet: density (0-1); +#X text 72 97 needs two vectors (real and imaginary); +#X obj 65 467 vasp.opt; +#X obj 65 489 vasp.* 0.5; +#X text 71 49 find radius peaks of a complex vasp; +#X text 71 81 right outlet: current peaks density; +#X obj 65 374 vasp.update; +#X obj 65 394 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 65 308 vasp bufrpeaks1 bufrpeaks2; +#X floatatom 156 331 5 0 0; +#X floatatom 156 398 12 0 0; +#X obj 65 354 vasp.rpeaks 0.05; +#X text 206 329 density; +#X obj 156 376 * 88200; +#X text 242 396 current peaks; +#X obj 46 559 VASP-HELP; +#X connect 3 0 4 0; +#X connect 7 0 8 0; +#X connect 8 0 3 0; +#X connect 9 0 10 0; +#X connect 11 0 12 0; +#X connect 12 0 21 0; +#X connect 14 0 16 0; +#X connect 16 0 13 0; +#X connect 16 0 13 1; +#X connect 17 0 2 0; +#X connect 21 0 22 0; +#X connect 22 0 9 0; +#X connect 25 0 26 0; +#X connect 27 0 30 0; +#X connect 28 0 30 1; +#X connect 30 0 25 0; +#X connect 30 1 32 0; +#X connect 32 0 29 0; diff --git a/externals/grill/vasp/pd-help/vasp_rpow.pd b/externals/grill/vasp/pd-help/vasp_rpow.pd new file mode 100644 index 00000000..cbfb4bc6 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_rpow.pd @@ -0,0 +1,83 @@ +#N canvas 28 51 932 647 10; +#N canvas 92 108 417 419 inside 0; +#X obj 66 154 soundfiler; +#X obj 84 238 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 214 206 resize \$1; +#X obj 67 53 loadbang; +#X obj 66 178 t b f f; +#X obj 67 101 filelisthandler \$0; +#X msg 67 79 1; +#X msg 67 133 read -resize \$1 bufrpow1; +#X obj 214 228 s bufrpow1; +#X obj 224 252 s bufrpow2; +#X connect 0 0 5 0; +#X connect 3 0 9 0; +#X connect 3 0 10 0; +#X connect 4 0 7 0; +#X connect 5 0 2 0; +#X connect 5 1 1 0; +#X connect 5 2 3 0; +#X connect 6 0 8 0; +#X connect 7 0 6 0; +#X connect 8 0 0 0; +#X restore 685 477 pd inside; +#X obj 75 32 cnv 15 15 15 empty empty vasp.rpow 0 10 1 14 -262144 -1 +0; +#X obj 77 139 filelist \$0; +#X obj 59 508 vasp.update; +#X obj 59 528 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 59 487 vasp.c!fft; +#X obj 59 264 vasp.cfft; +#X obj 59 284 vasp.update; +#X obj 59 304 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 352 474 dac~; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 486 474 pd clear_buffers; +#X obj 352 431 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 374 428 play; +#X text 486 429 clear; +#X text 73 60 radius ^ x; +#X text 73 75 power function for the radius values of a complex vasp +; +#X text 73 92 argument/right inlet: exponent; +#X text 73 107 needs two vectors; +#X msg 59 244 vasp bufrpow1 bufrpow2; +#X msg 59 467 vasp bufrpow1 bufrpow2; +#X obj 364 130 wavedisplay-simple bufrpow1 \$0; +#X obj 365 276 wavedisplay-simple bufrpow2 \$0; +#X obj 352 451 tabplay~ bufrpow1; +#X msg 486 451 vasp bufrpow1 bufrpow2; +#X obj 59 413 vasp.update; +#X obj 59 433 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 59 339 vasp bufrpow1 bufrpow2; +#X obj 59 393 vasp.rpow 2; +#X floatatom 120 366 5 0 0 0 - - -; +#X text 170 363 exponent; +#X obj 51 591 VASP-HELP; +#X connect 3 0 4 0; +#X connect 5 0 3 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 11 0 22 0; +#X connect 18 0 6 0; +#X connect 19 0 5 0; +#X connect 22 0 9 0; +#X connect 22 0 9 1; +#X connect 23 0 10 0; +#X connect 24 0 25 0; +#X connect 26 0 27 0; +#X connect 27 0 24 0; +#X connect 28 0 27 1; diff --git a/externals/grill/vasp/pd-help/vasp_rsize.pd b/externals/grill/vasp/pd-help/vasp_rsize.pd new file mode 100644 index 00000000..ad7d8da3 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_rsize.pd @@ -0,0 +1,37 @@ +#N canvas 85 111 909 544 10; +#X obj 58 31 cnv 15 15 15 empty empty vasp.size/ 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 410 286 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 2 5 \; \$1 xlabel 1.1 0 10 20 30 40 50 +\; \$1 yticks 0 0.25 2; +#X msg 33 45 symbol bufrsize; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 714 408 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array bufrsize 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 453 152 graph; +#X obj 175 416 vasp.frames; +#X text 62 415 related objects:; +#X floatatom 120 319 5 0 0; +#X obj 256 416 vasp.size; +#X obj 256 374 vasp.s/; +#X msg 62 152 vasp bufrsize; +#X msg 177 152 vasp bufrsize; +#X obj 62 217 vasp.size* 2; +#X obj 177 217 vasp.size/ 2; +#X obj 193 31 cnv 15 15 15 empty empty vasp.size* 0 10 1 14 -262144 +-1 0; +#X text 57 69 divide and multiplicate the size of a buffer/array; +#X text 59 371 abbreviations:; +#X obj 175 375 vasp.s*; +#X obj 120 289 vasp.size?; +#X obj 331 416 vasp.size?; +#X obj 62 463 VASP-HELP; +#X connect 8 0 10 0; +#X connect 9 0 11 0; +#X connect 10 0 16 0; +#X connect 11 0 16 0; +#X connect 16 0 5 0; diff --git a/externals/grill/vasp/pd-help/vasp_rvalleys.pd b/externals/grill/vasp/pd-help/vasp_rvalleys.pd new file mode 100644 index 00000000..20170c20 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_rvalleys.pd @@ -0,0 +1,91 @@ +#N canvas 36 36 837 642 10; +#X obj 72 26 cnv 15 15 15 empty empty vasp.rval 0 10 1 14 -262144 -1 +0; +#X obj 76 131 filelist \$0; +#N canvas 40 55 281 170 clear_buffers 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 500 505 pd clear_buffers; +#X obj 65 263 vasp.update; +#X obj 65 283 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 411 132 wavedisplay-simple bufrval1 \$0; +#X obj 412 289 wavedisplay-simple bufrval2 \$0; +#X msg 65 223 vasp bufrval1 bufrval2; +#X obj 65 243 vasp.cfft; +#X obj 65 510 vasp.update; +#X obj 65 530 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 65 426 vasp bufrval1 bufrval2; +#X obj 65 446 vasp.c!fft; +#X obj 337 507 dac~; +#X obj 337 469 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 358 472 play; +#X obj 337 487 tabplay~ bufrval1; +#X msg 500 485 vasp bufrval1 bufrval2; +#N canvas 92 108 440 390 inside 0; +#X obj 66 169 soundfiler; +#X obj 135 260 s \$0-sample-length; +#X obj 66 223 s \$0-draw_display; +#X msg 247 217 resize \$1; +#X obj 66 47 loadbang; +#X obj 66 113 filelisthandler \$0; +#X obj 247 239 s bufrval1; +#X obj 258 260 s bufrval2; +#X msg 247 183 88200; +#X obj 66 68 t b b; +#X msg 66 145 read \$1 bufrval1; +#X msg 66 91 3; +#X obj 66 193 t b; +#X connect 0 0 12 0; +#X connect 3 0 6 0; +#X connect 3 0 7 0; +#X connect 4 0 9 0; +#X connect 5 0 10 0; +#X connect 8 0 1 0; +#X connect 8 0 3 0; +#X connect 9 0 11 0; +#X connect 9 1 8 0; +#X connect 10 0 0 0; +#X connect 11 0 5 0; +#X connect 12 0 2 0; +#X restore 689 505 pd inside; +#X text 71 49 find radius valleys of a complex vasp; +#X text 71 65 argument/right inlet: density (0-1); +#X text 72 97 needs two vectors (real and imaginary); +#X obj 65 467 vasp.opt; +#X obj 65 489 vasp.* 0.5; +#X text 71 81 right outlet: the current density; +#X obj 65 382 vasp.update; +#X obj 65 402 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 65 308 vasp bufrval1 bufrval2; +#X floatatom 168 342 5 0 0; +#X floatatom 168 383 12 0 0; +#X text 257 382 current density; +#X obj 65 362 vasp.rvalleys 0.05; +#X obj 54 595 VASP-HELP; +#X connect 3 0 4 0; +#X connect 7 0 8 0; +#X connect 8 0 3 0; +#X connect 9 0 10 0; +#X connect 11 0 12 0; +#X connect 12 0 22 0; +#X connect 14 0 16 0; +#X connect 16 0 13 0; +#X connect 16 0 13 1; +#X connect 17 0 2 0; +#X connect 22 0 23 0; +#X connect 23 0 9 0; +#X connect 25 0 26 0; +#X connect 27 0 31 0; +#X connect 28 0 31 1; +#X connect 31 0 25 0; +#X connect 31 1 29 0; diff --git a/externals/grill/vasp/pd-help/vasp_set.pd b/externals/grill/vasp/pd-help/vasp_set.pd new file mode 100644 index 00000000..161b4774 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_set.pd @@ -0,0 +1,90 @@ +#N canvas 21 60 881 576 10; +#X obj 61 33 cnv 15 15 15 empty empty vasp.= 0 10 1 14 -262144 -1 0 +; +#X text 56 66 set a vasp to a value; +#X text 55 81 optional argument/right inlet: value/vasp; +#X msg 56 166 vasp bufset; +#X obj 56 188 vasp.noise; +#X obj 56 211 vasp.* 0.5; +#X text 142 164 generate noise; +#X obj 56 232 vasp.update; +#X obj 56 254 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 56 385 vasp.= 0; +#X obj 112 342 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 56 406 vasp.update; +#X obj 56 426 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X text 446 103 select a region by drawing inside the wavedisplay: +mouse+spacebar (select) or mouse+"s" (shift).; +#N canvas 109 162 310 376 tovaspdata 0; +#X obj 107 305 outlet; +#X obj 107 92 unpack; +#X obj 107 232 runden; +#X obj 107 210 - 0; +#X text 191 251 offset; +#X obj 107 156 t b f; +#X obj 107 185 0; +#X text 111 250 length; +#X obj 188 233 runden; +#X obj 107 274 pack; +#X obj 107 72 change2; +#X obj 107 115 t f f; +#X obj 107 47 inlet; +#X connect 1 0 11 0; +#X connect 1 1 6 1; +#X connect 2 0 9 0; +#X connect 3 0 2 0; +#X connect 5 0 6 0; +#X connect 5 1 3 1; +#X connect 6 0 3 0; +#X connect 8 0 9 1; +#X connect 9 0 0 0; +#X connect 10 0 1 0; +#X connect 11 0 5 0; +#X connect 11 1 8 0; +#X connect 12 0 10 0; +#X restore 447 302 pd tovaspdata; +#X msg 447 330 set vasp \$1 bufset \$2; +#X obj 447 145 wavedisplay-select bufset \$0; +#X msg 56 315 vasp bufset; +#X text 134 314 set all samples to zero; +#X text 136 339 set selected samples to zero; +#N canvas 0 0 261 214 clear_buffer 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 559 465 pd clear_buffer; +#X msg 559 439 vasp bufset; +#X text 177 472 <-- click to open more examples; +#X text 57 138 use vasp.= to clear a buffer; +#X obj 53 473 vaspset_examples; +#X obj 51 533 VASP-HELP; +#N canvas 280 291 407 308 inside 0; +#X obj 82 165 s \$0-sample-length; +#X msg 138 90 resize \$1; +#X obj 138 43 loadbang; +#X msg 138 64 88200; +#X obj 138 112 s bufset; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 1 0; +#X connect 3 0 0 0; +#X restore 709 420 pd inside; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 5 0 7 0; +#X connect 7 0 8 0; +#X connect 9 0 11 0; +#X connect 10 0 9 0; +#X connect 11 0 12 0; +#X connect 14 0 15 0; +#X connect 15 0 9 0; +#X connect 17 0 9 0; +#X connect 21 0 20 0; diff --git a/externals/grill/vasp/pd-help/vasp_sframes.pd b/externals/grill/vasp/pd-help/vasp_sframes.pd new file mode 100644 index 00000000..510f50b4 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_sframes.pd @@ -0,0 +1,136 @@ +#N canvas 39 37 929 624 10; +#X obj 58 31 cnv 15 15 15 empty empty vasp.frames= 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 450 300 graph1 0; +#X array bufsfram1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 544 107 graph; +#N canvas 0 0 392 216 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufsfram1; +#X msg 140 45 symbol bufsfram2; +#X connect 0 0 2 0; +#X connect 0 0 3 0; +#X connect 2 0 1 0; +#X connect 3 0 1 0; +#X restore 798 498 pd init; +#X obj 57 402 vasp.update; +#X text 113 443 abbreviation; +#N canvas 0 0 450 300 graph1 0; +#X array bufsfram2 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 545 227 graph; +#X text 56 87 argument/right inlet: value in samples; +#X obj 57 442 vasp.f+; +#X obj 55 559 VASP-HELP; +#X obj 57 378 vasp.noise; +#X obj 58 200 vasp.update; +#X msg 58 153 vasp bufsfram1; +#X msg 57 261 vasp bufsfram1; +#X obj 57 284 vasp.frames= 0.7; +#X obj 58 176 vasp.= env -1 0 1 44100 -1 88200; +#X floatatom 148 305 12 0 0 0 - - -; +#X text 57 104 right outlet: frames relatively to the starting point +of the search; +#X text 147 319 since the search runs from the end to the left \, this +value is negative; +#X obj 57 356 vasp.-> bufsfram2; +#X obj 57 502 vasp.o=; +#X obj 190 148 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 +-1; +#X text 222 148 1 generate a ramp; +#X obj 190 260 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 +-1; +#X text 218 274 the value 0.7 appears in the ramp; +#X text 218 259 2 generate noise until the position \, where; +#N canvas 77 60 429 598 dir_and_target 0; +#X text 46 56 forward; +#X text 48 154 backward; +#X text 31 22 search direction; +#X text 58 369 both; +#X text 28 401 negative; +#X text 58 337 positive; +#X text 28 314 target slope; +#X text 46 99 both (nearest); +#X obj 185 228 vasp.noise; +#X obj 185 249 vasp.u; +#X msg 110 156 dir -1; +#X msg 111 121 dir 0; +#X msg 110 59 dir 1; +#X obj 185 90 t a b; +#X obj 210 111 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144 +-1 -1; +#X text 228 111 (clear); +#X floatatom 234 175 12 0 0 0 - - -; +#X msg 126 336 slope 1; +#X msg 110 367 slope 0; +#X msg 97 399 slope -1; +#X obj 239 355 t a b; +#X obj 264 376 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144 +-1 -1; +#X text 282 376 (clear); +#X floatatom 300 423 12 0 0 0 - - -; +#X text 29 290 find values with positive and/or negative slope; +#X obj 185 197 vasp.-> bufsfram2; +#X obj 239 481 vasp.noise; +#X obj 239 502 vasp.u; +#X obj 239 450 vasp.-> bufsfram2; +#X obj 239 400 vasp.f= 0.2; +#X obj 185 153 vasp.f= 0; +#X msg 185 71 vasp 44101 bufsfram1; +#X msg 239 336 vasp 0 bufsfram1; +#X connect 8 0 9 0; +#X connect 10 0 30 0; +#X connect 11 0 30 0; +#X connect 12 0 30 0; +#X connect 13 0 30 0; +#X connect 13 1 14 0; +#X connect 17 0 29 0; +#X connect 18 0 29 0; +#X connect 19 0 29 0; +#X connect 20 0 29 0; +#X connect 20 1 21 0; +#X connect 25 1 8 0; +#X connect 26 0 27 0; +#X connect 28 1 26 0; +#X connect 29 0 28 0; +#X connect 29 1 23 0; +#X connect 30 0 25 0; +#X connect 30 1 16 0; +#X connect 31 0 13 0; +#X connect 32 0 20 0; +#X restore 586 418 pd dir_and_target; +#X obj 538 415 cnv 15 15 15 empty empty --> 0 10 0 14 -262144 -24198 +0; +#X msg 562 464 vasp bufsfram2; +#N canvas 249 259 328 183 clear 0; +#X obj 74 54 inlet; +#X obj 74 77 vasp.= 0; +#X obj 74 100 vasp.u; +#X obj 168 53 r \$0-clear; +#X msg 168 76 vasp bufsfram2; +#X obj 168 99 vasp.= 0; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X restore 562 490 pd clear; +#X text 537 398 3 more features!; +#X text 56 56 search for a value (starting at the end) and set the +length of the vasp according to it; +#X text 55 482 related objects:; +#X obj 139 502 vasp.f; +#X obj 204 502 vasp.s; +#X connect 9 0 3 0; +#X connect 11 0 14 0; +#X connect 12 0 13 0; +#X connect 13 0 18 0; +#X connect 13 1 15 0; +#X connect 14 0 10 0; +#X connect 18 1 9 0; +#X connect 20 0 11 0; +#X connect 22 0 12 0; +#X connect 27 0 28 0; diff --git a/externals/grill/vasp/pd-help/vasp_shift.pd b/externals/grill/vasp/pd-help/vasp_shift.pd new file mode 100644 index 00000000..46b2e408 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_shift.pd @@ -0,0 +1,57 @@ +#N canvas 24 75 875 494 10; +#X obj 75 32 cnv 15 15 15 empty empty vasp.shift 0 10 1 14 -262144 +-1 0; +#X text 520 322 clear; +#N canvas 0 0 413 295 clear_buffer 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 520 367 pd clear_buffer; +#X text 71 60 shifts buffer content to a sample index; +#X text 72 73 optional argument/right inlet: value; +#X msg 520 344 vasp bufshift; +#X obj 70 354 vasp.update; +#X msg 70 228 vasp bufshift; +#X floatatom 143 259 0 0 0 0 - - -; +#X obj 59 430 VASP-HELP; +#N canvas 0 0 450 300 graph1 0; +#X array bufshift 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 436 125 graph; +#N canvas 0 0 396 272 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100 +\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1; +#X msg 33 45 symbol bufshift; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 673 368 pd init; +#X obj 70 327 vasp.shift 10; +#X obj 70 178 vasp.u; +#X msg 70 133 vasp bufshift; +#X text 187 132 1 draw envelope; +#X text 184 230 2 shift content; +#X obj 262 397 vasp.xrot; +#X text 57 396 related objects:; +#X obj 182 397 vasp.xshift; +#X msg 199 260 fill 0; +#X msg 199 280 fill 1; +#X msg 199 300 fill 2; +#X text 245 260 no filling; +#X text 244 300 fill with edge-value; +#X text 245 280 zero filling (default); +#X obj 70 156 vasp.= env 0.5 0 1 20 -1 100; +#X connect 5 0 2 0; +#X connect 7 0 12 0; +#X connect 8 0 12 1; +#X connect 12 0 6 0; +#X connect 14 0 26 0; +#X connect 20 0 12 0; +#X connect 21 0 12 0; +#X connect 22 0 12 0; +#X connect 26 0 13 0; diff --git a/externals/grill/vasp/pd-help/vasp_sign.pd b/externals/grill/vasp/pd-help/vasp_sign.pd new file mode 100644 index 00000000..83062d7e --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_sign.pd @@ -0,0 +1,42 @@ +#N canvas 95 158 858 400 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.sign 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 450 300 graph1 0; +#X array bufsign 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 465 124 graph; +#N canvas 0 0 396 272 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufsign; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 737 285 pd init; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 521 284 pd clear_buffer; +#X text 178 134 generate a sinewave; +#X obj 77 178 vasp.u; +#X text 70 77 samples == 0 stay 0; +#X text 70 95 samples < 0 become -1; +#X text 70 61 samples > 0 become 1; +#X msg 77 135 vasp bufsign; +#X obj 77 156 vasp.osc 44100; +#X msg 521 263 vasp bufsign; +#X obj 77 322 vasp.update; +#X obj 77 291 vasp.sign; +#X msg 77 260 vasp bufsign; +#X text 79 237 use sign to generate a square wave out of a sine wave +; +#X obj 46 370 VASP-HELP; +#X connect 9 0 10 0; +#X connect 10 0 5 0; +#X connect 11 0 3 0; +#X connect 13 0 12 0; +#X connect 14 0 13 0; diff --git a/externals/grill/vasp/pd-help/vasp_size.pd b/externals/grill/vasp/pd-help/vasp_size.pd new file mode 100644 index 00000000..11fbf1c8 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_size.pd @@ -0,0 +1,43 @@ +#N canvas 85 111 842 540 10; +#X obj 58 31 cnv 15 15 15 empty empty vasp.size 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 406 282 init 0; +#X obj 33 19 loadbang; +#X msg 33 45 symbol bufsize; +#X msg 33 73 \; \$1 xticks 0 2 5 \; \$1 xlabel 1.1 0 10 20 30 40 50 +\; \$1 yticks 0 0.25 2; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X restore 714 408 pd init; +#X text 119 392 abbreviation; +#X obj 62 335 vasp.update; +#X obj 90 258 prepend set; +#X msg 62 196 vasp bufsize; +#X obj 62 225 vasp.size 100; +#N canvas 0 0 450 300 graph1 0; +#X array bufsize 133 float 0; +#X coords 0 1 132 -1 300 100 1; +#X restore 453 153 graph; +#X text 57 69 change the size of a buffer/array; +#X obj 62 303 vasp.osc 16; +#X obj 63 392 vasp.s; +#X text 62 433 related objects:; +#X obj 343 460 vasp.frames; +#X obj 183 460 vasp.size?; +#X obj 183 436 vasp.s+; +#X obj 259 460 vasp.size*; +#X obj 259 437 vasp.size/; +#X obj 62 504 VASP-HELP; +#X obj 62 157 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 +10 -24198 -1 -1 133 256; +#X obj 62 175 t b f; +#X msg 90 280; +#X text 58 83 argument/right inlet: value in frames; +#X connect 4 0 20 0; +#X connect 5 0 6 0; +#X connect 6 0 4 0; +#X connect 6 0 9 0; +#X connect 9 0 3 0; +#X connect 18 0 19 0; +#X connect 19 0 5 0; +#X connect 19 1 6 1; diff --git a/externals/grill/vasp/pd-help/vasp_soffset.pd b/externals/grill/vasp/pd-help/vasp_soffset.pd new file mode 100644 index 00000000..8a515a2a --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_soffset.pd @@ -0,0 +1,153 @@ +#N canvas 31 15 964 662 10; +#X text 54 77 argument/right inlet: value; +#X obj 58 27 cnv 15 15 15 empty empty vasp.offset= 0 10 1 14 -262144 +-1 0; +#X text 68 587 abbreviation; +#X obj 75 272 prepend set; +#N canvas 0 0 450 300 graph1 0; +#X array bufsoffs1 1000 float 0; +#X coords 0 1 999 -1 300 100 1; +#X restore 551 88 graph; +#N canvas 466 356 387 251 init 0; +#X obj 33 19 loadbang; +#X msg 33 45 symbol bufsoffs1; +#X msg 151 45 symbol bufsoffs2; +#X msg 33 71 \; \$1 xticks 0 100 10 \; \$1 xlabel 1.1 0 200 300 500 +700 800 1000 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 1100 -1 -0.5 0 0.5 +1; +#X connect 0 0 1 0; +#X connect 0 0 2 0; +#X connect 1 0 3 0; +#X connect 2 0 3 0; +#X restore 802 556 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array bufsoffs2 1000 float 0; +#X coords 0 1 999 -1 300 100 1; +#X restore 551 207 graph; +#X obj 64 177 vasp.u; +#X msg 63 130 vasp bufsoffs1; +#X msg 64 221 vasp bufsoffs1; +#X msg 75 293 vasp 701 bufsoffs1 299 0; +#X obj 64 367 vasp.noise; +#X obj 64 388 vasp.u; +#X obj 159 591 vasp.o=; +#X obj 259 592 VASP-HELP; +#X text 54 95 right outlet: relative offset position in frames; +#X text 201 128 1 generate a ramp; +#X text 199 220 2 generate noise \, and start at the point \,; +#X obj 64 325 vasp.o?; +#X msg 64 346 vasp bufsoffs2 \$1; +#X text 54 59 search for a value set it as offset; +#X floatatom 161 271 5 0 0; +#X obj 170 130 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 +-1; +#X obj 170 221 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 +-1; +#N canvas 0 0 261 214 clear_buffer 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 683 549 pd clear_buffer; +#X msg 683 528 vasp bufsoffs2; +#X text 703 508 clear second buffer; +#X obj 683 509 bng 15 250 50 0 empty \$0-clear empty 0 -6 576 8 -262144 +-1 -1; +#X obj 162 445 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 +-1; +#N canvas 77 60 409 578 dir_and_target 0; +#X text 46 56 forward; +#X text 48 154 backward; +#X text 31 22 search direction; +#X text 58 369 both; +#X text 28 401 negative; +#X text 58 337 positive; +#X text 28 314 target slope; +#X text 46 99 both (nearest); +#X obj 183 210 vasp.noise; +#X obj 183 231 vasp.u; +#X msg 183 189 vasp bufsoffs2 \$1; +#X msg 110 156 dir -1; +#X msg 111 121 dir 0; +#X msg 110 59 dir 1; +#X obj 183 164 vasp.o?; +#X obj 185 90 t a b; +#X obj 210 111 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144 +-1 -1; +#X text 228 111 (clear); +#X obj 185 135 vasp.offset= 0.1; +#X msg 185 71 vasp bufsoffs1 500; +#X floatatom 276 161 5 0 0; +#X msg 126 336 slope 1; +#X msg 110 367 slope 0; +#X msg 97 399 slope -1; +#X obj 239 484 vasp.noise; +#X obj 239 505 vasp.u; +#X msg 239 463 vasp bufsoffs2 \$1; +#X obj 239 438 vasp.o?; +#X obj 239 355 t a b; +#X obj 264 376 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144 +-1 -1; +#X text 282 376 (clear); +#X obj 239 400 vasp.offset= 0.1; +#X floatatom 330 426 5 0 0; +#X text 29 290 find values with positive and/or negative slope; +#X msg 239 336 vasp bufsoffs1; +#X connect 8 0 9 0; +#X connect 10 0 8 0; +#X connect 11 0 18 0; +#X connect 12 0 18 0; +#X connect 13 0 18 0; +#X connect 14 0 10 0; +#X connect 15 0 18 0; +#X connect 15 1 16 0; +#X connect 18 0 14 0; +#X connect 18 1 20 0; +#X connect 19 0 15 0; +#X connect 21 0 31 0; +#X connect 22 0 31 0; +#X connect 23 0 31 0; +#X connect 24 0 25 0; +#X connect 26 0 24 0; +#X connect 27 0 26 0; +#X connect 28 0 31 0; +#X connect 28 1 29 0; +#X connect 31 0 27 0; +#X connect 31 1 32 0; +#X connect 34 0 28 0; +#X restore 612 422 pd dir_and_target; +#X obj 64 151 vasp.= env -1 0 1 500 -1 1000; +#X obj 102 496 t a b; +#X obj 127 517 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144 +-1 -1; +#X text 145 517 (clear); +#X text 148 418 the search always starts at the offsetpoint; +#X text 566 403 more features!; +#X obj 564 419 cnv 15 15 15 empty empty --> 0 10 0 14 -262144 -24198 +0; +#X text 214 232 where the ramp is at 0.2; +#X obj 64 242 vasp.offset= 0.2; +#X text 189 443 3 start searching at frame 501; +#X msg 102 475 vasp bufsoffs1 501; +#X connect 3 0 10 0; +#X connect 8 0 30 0; +#X connect 9 0 38 0; +#X connect 11 0 12 0; +#X connect 18 0 19 0; +#X connect 19 0 11 0; +#X connect 22 0 8 0; +#X connect 23 0 9 0; +#X connect 25 0 24 0; +#X connect 27 0 25 0; +#X connect 28 0 40 0; +#X connect 30 0 7 0; +#X connect 31 0 38 0; +#X connect 31 1 32 0; +#X connect 38 0 18 0; +#X connect 38 0 3 0; +#X connect 38 1 21 0; +#X connect 40 0 31 0; diff --git a/externals/grill/vasp/pd-help/vasp_spit.pd b/externals/grill/vasp/pd-help/vasp_spit.pd new file mode 100644 index 00000000..be3d60a1 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_spit.pd @@ -0,0 +1,46 @@ +#N canvas 190 73 663 567 10; +#X text 62 76 spit out vectors of a vasp (one vector after the other) +; +#X text 62 92 argument: number of outlets (if more than 1 \, outputs +from right to left); +#X obj 57 19 cnv 15 15 15 empty empty vasp.spit 0 10 1 14 -262144 -1 +0; +#X text 211 304 spits out one vector after the other from right to +left; +#X obj 119 335 print b; +#X obj 63 335 print a; +#X obj 63 305 vasp.spit 3; +#X msg 63 271 vasp bufspit1 bufspit2; +#X obj 178 335 print c; +#X obj 234 335 print ready; +#X obj 118 220 print b; +#X obj 63 220 print a; +#X text 63 118 most right outlet: bang when ready; +#X msg 63 160 vasp bufspit1 bufspit2 bufspit3; +#X obj 63 188 vasp.spit; +#X text 144 189 spits out one vector after the other out of 1 outlet +; +#X msg 237 271 vasp bufspit1 bufspit2 bufspit3; +#X text 171 428 if more vectors than outlets \, see what it does!; +#X obj 118 459 print b; +#X obj 63 459 print a; +#X msg 63 399 vasp bufspit1 bufspit2 bufspit3; +#X obj 63 429 vasp.spit 2; +#X obj 174 459 print ready; +#X obj 50 519 VASP-HELP; +#X obj 487 483 table bufspit1; +#X obj 487 504 table bufspit2; +#X obj 487 525 table bufspit3; +#X connect 6 0 5 0; +#X connect 6 1 4 0; +#X connect 6 2 8 0; +#X connect 6 3 9 0; +#X connect 7 0 6 0; +#X connect 13 0 14 0; +#X connect 14 0 11 0; +#X connect 14 1 10 0; +#X connect 16 0 6 0; +#X connect 20 0 21 0; +#X connect 21 0 19 0; +#X connect 21 1 18 0; +#X connect 21 2 22 0; diff --git a/externals/grill/vasp/pd-help/vasp_split.pd b/externals/grill/vasp/pd-help/vasp_split.pd new file mode 100644 index 00000000..44f3f70b --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_split.pd @@ -0,0 +1,27 @@ +#N canvas 221 195 631 478 10; +#X text 56 100 most right outlet: rest (if there is one) of vectors +in a new vasp \, otherwise: bang; +#X text 56 70 split a vasp into its vectors; +#X text 56 85 argument: number of vectors to split; +#X obj 57 38 cnv 15 15 15 empty empty vasp.split 0 10 1 14 -262144 +-1 0; +#X obj 130 215 prepend set; +#X obj 63 310 prepend set; +#X obj 63 278 vasp.join 2; +#X msg 241 153 vasp bufsplit1 bufsplit2 bufsplit3; +#X obj 63 187 vasp.split 2; +#X msg 63 153 vasp bufsplit1 bufsplit2; +#X obj 53 410 VASP-HELP; +#X obj 340 367 table bufsplit1; +#X obj 340 391 table bufsplit2; +#X obj 340 413 table bufsplit3; +#X msg 63 339; +#X msg 130 239; +#X connect 4 0 15 0; +#X connect 5 0 14 0; +#X connect 6 0 5 0; +#X connect 7 0 8 0; +#X connect 8 0 6 0; +#X connect 8 1 6 1; +#X connect 8 2 4 0; +#X connect 9 0 8 0; diff --git a/externals/grill/vasp/pd-help/vasp_sqr.pd b/externals/grill/vasp/pd-help/vasp_sqr.pd new file mode 100644 index 00000000..74f84aed --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_sqr.pd @@ -0,0 +1,38 @@ +#N canvas 47 54 800 409 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.sqr 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 412 288 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufsqr; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 622 327 pd init; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 362 325 pd clear_buffer; +#X obj 77 173 vasp.update; +#N canvas 0 0 450 300 graph1 0; +#X array bufsqr 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 363 170 graph; +#X obj 77 150 vasp.osc 44100; +#X text 71 63 sample ^ 2; +#X msg 77 127 vasp bufsqr; +#X text 184 124 generate a 1 Hz sinewave; +#X msg 362 303 vasp bufsqr; +#X obj 77 297 vasp.update; +#X obj 77 271 vasp.sqr; +#X msg 77 246 vasp bufsqr; +#X obj 45 375 VASP-HELP; +#X connect 5 0 3 0; +#X connect 7 0 5 0; +#X connect 9 0 2 0; +#X connect 11 0 10 0; +#X connect 12 0 11 0; diff --git a/externals/grill/vasp/pd-help/vasp_sqrt.pd b/externals/grill/vasp/pd-help/vasp_sqrt.pd new file mode 100644 index 00000000..3f940f25 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_sqrt.pd @@ -0,0 +1,38 @@ +#N canvas 47 54 800 409 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.sqrt 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 414 290 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufsqrt; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 622 327 pd init; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 362 325 pd clear_buffer; +#X obj 77 173 vasp.update; +#N canvas 0 0 450 300 graph1 0; +#X array bufsqrt 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 363 170 graph; +#X obj 77 150 vasp.osc 44100; +#X text 184 124 generate a 1 Hz sinewave; +#X text 71 63 vasp square root; +#X msg 77 127 vasp bufsqrt; +#X msg 362 303 vasp bufsqrt; +#X obj 77 297 vasp.update; +#X msg 77 246 vasp bufsqrt; +#X obj 77 271 vasp.sqrt; +#X obj 65 354 VASP-HELP; +#X connect 5 0 3 0; +#X connect 8 0 5 0; +#X connect 9 0 2 0; +#X connect 11 0 12 0; +#X connect 12 0 10 0; diff --git a/externals/grill/vasp/pd-help/vasp_ssqr.pd b/externals/grill/vasp/pd-help/vasp_ssqr.pd new file mode 100644 index 00000000..71630451 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_ssqr.pd @@ -0,0 +1,96 @@ +#N canvas 47 54 816 469 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.ssqr 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 416 292 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufssqr; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 622 327 pd init; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 362 325 pd clear_buffer; +#X obj 77 173 vasp.update; +#N canvas 0 0 450 300 graph1 0; +#X array bufssqr 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 363 170 graph; +#X obj 77 150 vasp.osc 44100; +#X text 184 124 generate a 1 Hz sinewave; +#X msg 77 127 vasp bufssqr; +#X msg 362 303 vasp bufssqr; +#X text 71 63 signed sample ^ 2; +#N canvas 4 20 834 463 listen_to_ssqr 0; +#X obj 71 32 cnv 15 15 15 empty empty listen_to_ssqr 0 10 1 14 -262144 +-1 0; +#X obj 391 309 dac~; +#X obj 391 265 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 413 264 play; +#N canvas 40 55 281 170 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 523 309 pd clear_buffer; +#X obj 79 99 filelist \$0; +#N canvas 92 108 394 359 inside 0; +#X obj 66 154 soundfiler; +#X obj 84 238 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 214 206 resize \$1; +#X obj 66 50 loadbang; +#X obj 66 178 t b f f; +#X obj 66 98 filelisthandler \$0; +#X msg 66 76 4; +#X msg 66 130 read -resize \$1 bufssqr1; +#X obj 214 228 s bufssqr1; +#X connect 0 0 5 0; +#X connect 3 0 9 0; +#X connect 4 0 7 0; +#X connect 5 0 2 0; +#X connect 5 1 1 0; +#X connect 5 2 3 0; +#X connect 6 0 8 0; +#X connect 7 0 6 0; +#X connect 8 0 0 0; +#X restore 682 310 pd inside; +#X obj 373 112 wavedisplay-simple bufssqr1 \$0; +#X obj 391 286 tabplay~ bufssqr1; +#X msg 523 286 vasp bufssqr1; +#X obj 73 283 vasp.update; +#X obj 73 306 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 73 238 vasp.ssqr; +#X obj 73 259 vasp.opt; +#X msg 73 215 vasp bufssqr1; +#X connect 2 0 8 0; +#X connect 8 0 1 0; +#X connect 8 0 1 1; +#X connect 9 0 4 0; +#X connect 10 0 11 0; +#X connect 12 0 13 0; +#X connect 13 0 10 0; +#X connect 14 0 12 0; +#X restore 75 352 pd listen_to_ssqr; +#X text 199 352 <-- click to open; +#X obj 77 297 vasp.update; +#X msg 77 247 vasp bufssqr; +#X obj 77 271 vasp.ssqr; +#X obj 66 422 VASP-HELP; +#X connect 5 0 3 0; +#X connect 7 0 5 0; +#X connect 8 0 2 0; +#X connect 13 0 14 0; +#X connect 14 0 12 0; diff --git a/externals/grill/vasp/pd-help/vasp_ssqrt.pd b/externals/grill/vasp/pd-help/vasp_ssqrt.pd new file mode 100644 index 00000000..c94cfd12 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_ssqrt.pd @@ -0,0 +1,96 @@ +#N canvas 47 54 818 471 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.ssqrt 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 418 294 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufssqrt; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 622 327 pd init; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 362 325 pd clear_buffer; +#X obj 77 173 vasp.update; +#N canvas 0 0 450 300 graph1 0; +#X array bufssqrt 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 363 170 graph; +#X obj 77 150 vasp.osc 44100; +#X text 184 124 generate a 1 Hz sinewave; +#X text 208 352 <-- click to open; +#X text 71 63 signed square root; +#X msg 77 127 vasp bufssqrt; +#N canvas 4 20 840 469 listen_to_ssqrt 0; +#X obj 71 32 cnv 15 15 15 empty empty listen_to_ssqrt 0 10 1 14 -262144 +-1 0; +#X obj 391 309 dac~; +#X obj 391 265 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 413 264 play; +#N canvas 40 55 281 170 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 523 309 pd clear_buffer; +#X obj 79 99 filelist \$0; +#N canvas 96 128 398 363 inside 0; +#X obj 66 154 soundfiler; +#X obj 84 238 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 214 206 resize \$1; +#X obj 66 50 loadbang; +#X obj 66 178 t b f f; +#X obj 66 98 filelisthandler \$0; +#X msg 66 76 4; +#X msg 66 130 read -resize \$1 bufssqrt1; +#X obj 214 228 s bufssqrt1; +#X connect 0 0 5 0; +#X connect 3 0 9 0; +#X connect 4 0 7 0; +#X connect 5 0 2 0; +#X connect 5 1 1 0; +#X connect 5 2 3 0; +#X connect 6 0 8 0; +#X connect 7 0 6 0; +#X connect 8 0 0 0; +#X restore 682 310 pd inside; +#X obj 391 286 tabplay~ bufssqrt1; +#X msg 523 286 vasp bufssqrt1; +#X obj 361 111 wavedisplay-simple bufssqrt1 \$0; +#X obj 73 283 vasp.update; +#X obj 73 306 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 73 259 vasp.opt; +#X msg 73 215 vasp bufssqrt1; +#X obj 73 238 vasp.ssqrt; +#X connect 2 0 7 0; +#X connect 7 0 1 0; +#X connect 7 0 1 1; +#X connect 8 0 4 0; +#X connect 10 0 11 0; +#X connect 12 0 10 0; +#X connect 13 0 14 0; +#X connect 14 0 12 0; +#X restore 75 352 pd listen_to_ssqrt; +#X msg 362 303 vasp bufssqrt; +#X obj 77 297 vasp.update; +#X msg 77 246 vasp bufssqrt; +#X obj 77 271 vasp.ssqrt; +#X obj 73 413 VASP-HELP; +#X connect 5 0 3 0; +#X connect 9 0 5 0; +#X connect 11 0 2 0; +#X connect 13 0 14 0; +#X connect 14 0 12 0; diff --git a/externals/grill/vasp/pd-help/vasp_sub.pd b/externals/grill/vasp/pd-help/vasp_sub.pd new file mode 100644 index 00000000..2d074d31 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_sub.pd @@ -0,0 +1,54 @@ +#N canvas 28 239 963 381 10; +#N canvas 44 75 276 122 clear_buffer 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 738 292 pd clear_buffer; +#X text 376 62 optional argument/right inlet: right operand; +#X text 376 45 subtracts a value or a vasp from a vasp; +#X text 62 62 optional argument/right inlet: right operand; +#X text 62 45 adds a value or a vasp to a vasp; +#X obj 62 19 cnv 15 15 15 empty empty vasp.+ 0 10 1 14 -262144 -1 0 +; +#X obj 378 20 cnv 15 15 15 empty empty vasp.- 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 450 300 graph167 0; +#X array bufsub 88200 float 0; +#X coords 0 1 88199 -1 300 120 1; +#X restore 629 93 graph; +#X text 139 190 shift all values + 0.5; +#X text 141 167 half the amplitude; +#X obj 65 212 vasp.update; +#X obj 65 189 vasp.+ 0.5; +#X obj 65 144 vasp.osc 44100; +#X obj 65 166 vasp.* 0.5; +#X text 169 145 generate a 1Hz sine wave; +#X msg 65 112 vasp bufsub; +#X msg 738 271 vasp bufsub; +#N canvas 0 0 396 272 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufsub; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 881 291 pd init; +#X text 455 189 shift all values - 0.5; +#X obj 380 212 vasp.update; +#X obj 380 189 vasp.- 0.5; +#X obj 380 144 vasp.osc 44100; +#X obj 380 166 vasp.* 0.5; +#X msg 380 112 vasp bufsub; +#X obj 61 313 VASP-HELP; +#X connect 11 0 10 0; +#X connect 12 0 13 0; +#X connect 13 0 11 0; +#X connect 15 0 12 0; +#X connect 16 0 0 0; +#X connect 20 0 19 0; +#X connect 21 0 22 0; +#X connect 22 0 20 0; +#X connect 23 0 21 0; diff --git a/externals/grill/vasp/pd-help/vasp_subr.pd b/externals/grill/vasp/pd-help/vasp_subr.pd new file mode 100644 index 00000000..42a6c5c1 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_subr.pd @@ -0,0 +1,48 @@ +#N canvas 193 184 770 390 10; +#N canvas 40 55 247 122 clear_buffer 0; +#X obj 45 79 vasp.update; +#X obj 45 56 vasp.= 0; +#X obj 45 26 inlet; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 514 282 pd clear_buffer; +#X text 49 91 optional argument/right inlet: right operand; +#X text 49 76 subtracts a value or a vasp from a vasp; +#X text 49 60 reverse subtraction; +#N canvas 0 0 450 300 graph1 0; +#X array bufsubr 88200 float 0; +#X coords 0 1 88199 -1 300 120 1; +#X restore 370 102 graph; +#N canvas 0 0 396 272 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufsubr; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 647 283 pd init; +#X msg 514 262 vasp bufsubr; +#X obj 51 19 cnv 15 15 15 empty empty vasp.!- 0 10 1 14 -262144 -1 +0; +#X obj 52 236 vasp.update; +#X msg 52 136 vasp bufsubr; +#X obj 50 321 VASP-HELP; +#X obj 52 168 vasp.osc 4410; +#X obj 182 135 nbx 5 14 -50 50 0 1 empty empty empty 0 -6 0 10 -24198 +-1 -1 0 256; +#X obj 182 154 * 0.01; +#X obj 182 193 t b f; +#X obj 52 213 vasp.!-; +#X floatatom 182 175 5 0 0; +#X obj 52 191 vasp.* 0.5; +#X connect 6 0 0 0; +#X connect 9 0 11 0; +#X connect 11 0 17 0; +#X connect 12 0 13 0; +#X connect 13 0 16 0; +#X connect 14 0 9 0; +#X connect 14 1 15 1; +#X connect 15 0 8 0; +#X connect 16 0 14 0; +#X connect 17 0 15 0; diff --git a/externals/grill/vasp/pd-help/vasp_sync.pd b/externals/grill/vasp/pd-help/vasp_sync.pd new file mode 100644 index 00000000..1da5d849 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_sync.pd @@ -0,0 +1,81 @@ +#N canvas 95 103 854 570 10; +#N canvas 92 108 403 405 inside 0; +#X obj 87 206 soundfiler; +#X obj 105 290 s \$0-sample-length; +#X obj 87 260 s \$0-draw_display; +#X msg 235 258 resize \$1; +#X obj 235 211 loadbang; +#X obj 235 280 s bufsync1; +#X obj 245 304 s bufsync2; +#X msg 235 232 88200; +#X msg 87 184 read -resize \$1 bufsync1; +#X obj 87 230 t b f f; +#X obj 87 112 loadbang; +#X obj 87 160 filelisthandler \$0; +#X msg 87 138 3; +#X connect 0 0 9 0; +#X connect 3 0 5 0; +#X connect 3 0 6 0; +#X connect 4 0 7 0; +#X connect 7 0 3 0; +#X connect 7 0 1 0; +#X connect 8 0 0 0; +#X connect 9 0 2 0; +#X connect 9 1 1 0; +#X connect 9 2 3 0; +#X connect 10 0 12 0; +#X connect 11 0 8 0; +#X connect 12 0 11 0; +#X restore 711 485 pd inside; +#X obj 463 297 wavedisplay-simple bufsync2 \$0; +#X obj 463 155 wavedisplay-simple bufsync1 \$0; +#X obj 75 32 cnv 15 15 15 empty empty vasp.sync 0 10 1 14 -262144 -1 +0; +#X text 53 64 syncs two or more vasps; +#X msg 61 253 vasp bufsync1 bufsync2; +#X obj 61 284 vasp.cfft; +#X obj 122 335 vasp.= 0; +#X obj 334 440 tabplay~ bufsync1; +#X obj 353 460 tabplay~ bufsync2; +#X obj 334 484 dac~; +#X obj 61 409 vasp.update; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 149 483 pd clear_buffers; +#X obj 61 431 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 122 313 vasp.upper; +#X obj 61 388 vasp.c!fft; +#X msg 149 457 vasp bufsync1 bufsync2; +#X text 709 137 bufsync1; +#X text 713 281 bufsync2; +#X obj 61 366 vasp.sync 2; +#X text 54 79 vasp.sync waits until all inlets have received a vasp +and then outputs them and resets its status; +#X text 143 365 outputs vasps after every inlet received one; +#X obj 60 156 filelist \$0; +#X obj 334 416 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 356 413 play; +#X text 55 111 argument: number of vasps to be synced (default 2); +#X obj 48 525 VASP-HELP; +#X connect 5 0 6 0; +#X connect 6 0 14 0; +#X connect 6 0 19 0; +#X connect 7 0 19 1; +#X connect 8 0 10 0; +#X connect 9 0 10 1; +#X connect 11 0 13 0; +#X connect 14 0 7 0; +#X connect 15 0 11 0; +#X connect 16 0 12 0; +#X connect 19 0 15 0; +#X connect 23 0 9 0; +#X connect 23 0 8 0; diff --git a/externals/grill/vasp/pd-help/vasp_tilt.pd b/externals/grill/vasp/pd-help/vasp_tilt.pd new file mode 100644 index 00000000..eb80e3b3 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_tilt.pd @@ -0,0 +1,100 @@ +#N canvas 21 60 945 604 10; +#X obj 55 36 cnv 15 15 15 empty empty vasp.tilt 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 261 214 clear_buffer 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 672 527 pd clear_buffer; +#X obj 51 533 VASP-HELP; +#N canvas 0 0 450 300 graph1 0; +#X array buftilt1 100 float 1; +#A 0 0.32 0.32 0.74 0.2 -0.0400002 -0.24 -0.48 -0.0400002 0.2 0.36 +0.0199998 -0.1 -0.18 -0.24 -0.2 -0.0800002 -0.0600002 0.14 -0.0400002 +-0.2 0.0399998 0.0399998 0.0399998 0.0599998 0.0799999 0.0899999 0.0999999 +0.14 0.18 0.24 0.28 0.32 0.38 0.42 0.48 0.5 0.5 0.44 0.36 0.2 0.0599998 +-0.0600002 -0.2 -0.34 -0.44 -0.44 -0.46 -0.4 -0.34 -0.24 -0.12 -0.1 +-0.2 -0.28 -0.36 -0.44 -0.48 -0.48 -0.48 -0.48 -0.46 -0.44 -0.52 -0.52 +-0.48 -0.4 0.46 0.46 0.46 0.46 0.46 0.44 0.34 0.2 0.0999999 -1.3411e-007 +-0.0800002 -0.12 -0.13 -0.14 -0.16 -0.14 -0.0600002 0.56 0.58 0.6 0.6 +0.52 0.44 0.36 0.26 -0.72 0.22 0.68 0.74 0.76 0.66 0.66 0.76 0.82; +#X coords 0 1 99 -1 300 100 1; +#X restore 561 61 graph; +#N canvas 0 0 433 215 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100 +\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1; +#X msg 33 45 symbol buftilt1 \, symbol buftilt2; +#X obj 295 27 loadbang; +#X obj 295 71 s \$0-ratio; +#X msg 295 49 1.5; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X connect 3 0 5 0; +#X connect 5 0 4 0; +#X restore 811 524 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array buftilt2 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 564 202 graph; +#X text 501 55 SOURCE; +#X obj 394 358 pack; +#X obj 394 332 t b f; +#X text 331 285 ratio; +#X text 197 422 needs one or two args; +#X text 198 439 ratio \, center; +#X text 231 284 edge; +#X text 243 168 none; +#X text 244 195 linear; +#X text 231 261 zero (default); +#X text 243 220 4 point (default); +#X text 243 141 in place (dirty); +#X obj 127 447 vasp.u; +#X obj 127 421 vasp.tilt; +#X obj 394 309 nbx 5 14 -1000 1000 0 1 empty empty empty 0 -6 0 10 +-24198 -1 -1 54 256; +#X obj 331 309 nbx 5 14 -3 3 0 0 empty \$0-ratio empty 0 -6 576 10 +-24198 -1 -1 1.5 256; +#X text 394 285 center sample; +#X msg 181 262 fill 0; +#X msg 181 288 fill 1; +#X msg 183 142 inter 0; +#X msg 183 168 inter 1; +#X msg 183 194 inter 2; +#X msg 183 220 inter 3; +#X obj 36 160 bng 15 250 50 0 empty \$0-trigger empty 0 -6 576 8 -262144 +-1 -1; +#X obj 394 399 bng 15 250 50 0 \$0-trigger empty empty 0 -6 1152 8 +-262144 -1 -1; +#X msg 36 179 vasp buftilt1; +#X obj 36 205 vasp.-> buftilt2; +#X msg 672 501 vasp buftilt2; +#X text 55 86 optional argument/right inlet: list of ratio and center +sample; +#X obj 160 493 vasp.xtilt; +#X text 56 492 related object:; +#X text 55 63 resample buffer data around a center sample; +#X obj 394 379 t b l; +#X connect 7 0 38 0; +#X connect 8 0 7 0; +#X connect 8 1 7 1; +#X connect 19 0 18 0; +#X connect 20 0 8 0; +#X connect 21 0 7 0; +#X connect 23 0 19 0; +#X connect 24 0 19 0; +#X connect 25 0 19 0; +#X connect 26 0 19 0; +#X connect 27 0 19 0; +#X connect 28 0 19 0; +#X connect 29 0 31 0; +#X connect 31 0 32 0; +#X connect 32 1 19 0; +#X connect 33 0 1 0; +#X connect 38 0 30 0; +#X connect 38 1 19 1; diff --git a/externals/grill/vasp/pd-help/vasp_update.pd b/externals/grill/vasp/pd-help/vasp_update.pd new file mode 100644 index 00000000..ce47a313 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_update.pd @@ -0,0 +1,36 @@ +#N canvas 213 175 703 499 10; +#X msg 62 292 vasp bufup; +#X obj 62 313 vasp.= 0; +#X text 145 226 update the graphics; +#X text 136 125 generate a sine wave; +#X obj 62 185 vasp.osc 22050; +#X obj 58 41 cnv 15 15 15 empty empty vasp.update 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 450 300 graph1 0; +#X array bufup 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 347 141 graph; +#N canvas 0 0 396 272 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufup; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 607 383 pd init; +#X obj 62 227 vasp.update; +#X msg 62 125 vasp bufup; +#X obj 62 374 vasp.u; +#X msg 62 351 vasp bufup; +#X obj 57 424 VASP-HELP; +#X text 58 92 use vasp.update at the end of a chain of vasp operations +; +#X text 57 69 updates the graphic display of the array; +#X text 145 291 set the buffer to zero; +#X text 147 345 and display the changes; +#X text 114 374 (abbreviation); +#X connect 0 0 1 0; +#X connect 4 0 8 0; +#X connect 9 0 4 0; +#X connect 11 0 10 0; diff --git a/externals/grill/vasp/pd-help/vasp_v.pd b/externals/grill/vasp/pd-help/vasp_v.pd new file mode 100644 index 00000000..6f5e1452 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_v.pd @@ -0,0 +1,50 @@ +#N canvas 44 85 957 492 10; +#X obj 58 31 cnv 15 15 15 empty empty vasp 0 10 1 14 -262144 -1 0; +#N canvas 0 0 450 300 graph1 0; +#X array bufvasp1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 594 161 graph; +#N canvas 0 0 396 220 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufvasp1; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 818 420 pd init; +#X obj 57 375 vasp.update; +#X obj 57 354 vasp.noise; +#X text 57 66 stores and outputs a vasp; +#X obj 58 231 vasp.update; +#X obj 58 205 vasp.= 0.35; +#X obj 58 174 vasp 50000 bufvasp1 10000; +#X obj 57 332 vasp; +#X msg 101 287 set vasp 2000 bufvasp1 66666; +#X msg 125 310 vasp 2000 bufvasp1 11111; +#X text 58 83 syntax: vasp [length] [name] [offset] [channel] \, etc. +; +#X obj 58 146 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 +-1; +#X obj 57 286 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 +-1; +#X text 231 169 output vasp referencing a buffer region; +#X text 231 183 with length of 50000 and starting at frame 10000; +#X text 231 208 set region to value 0.35; +#X text 230 232 update graphics; +#X text 231 149 <-- click to start command chain; +#X text 292 287 1 use "set" to define region non triggering \, then +bang; +#X text 291 307 2 right inlet: alternatively to set message; +#X text 230 362 bang triggers output of predefined vasp; +#X text 56 101 (see syntax description of vasp message in VASP-HELP) +; +#X obj 59 429 VASP-HELP; +#X connect 4 0 3 0; +#X connect 7 0 6 0; +#X connect 8 0 7 0; +#X connect 9 0 4 0; +#X connect 10 0 9 0; +#X connect 11 0 9 1; +#X connect 13 0 8 0; +#X connect 14 0 9 0; diff --git a/externals/grill/vasp/pd-help/vasp_valleys.pd b/externals/grill/vasp/pd-help/vasp_valleys.pd new file mode 100644 index 00000000..f2a11fab --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_valleys.pd @@ -0,0 +1,86 @@ +#N canvas 36 36 847 582 10; +#X obj 71 32 cnv 15 15 15 empty empty vasp.valleys 0 10 1 14 -262144 +-1 0; +#X obj 71 131 filelist \$0; +#N canvas 92 108 424 389 inside 0; +#X obj 66 169 soundfiler; +#X obj 84 253 s \$0-sample-length; +#X obj 66 223 s \$0-draw_display; +#X msg 214 221 resize \$1; +#X obj 66 47 loadbang; +#X obj 66 193 t b f f; +#X obj 66 113 filelisthandler \$0; +#X msg 66 91 2; +#X obj 66 69 t b b; +#X msg 99 91 88200; +#X msg 66 145 read \$1 bufvalleys1; +#X obj 214 243 s bufvalleys1; +#X obj 225 264 s bufvalleys2; +#X connect 0 0 5 0; +#X connect 3 0 11 0; +#X connect 3 0 12 0; +#X connect 4 0 8 0; +#X connect 5 0 2 0; +#X connect 5 1 1 0; +#X connect 5 2 3 0; +#X connect 6 0 10 0; +#X connect 7 0 6 0; +#X connect 8 0 7 0; +#X connect 8 1 9 0; +#X connect 9 0 5 0; +#X connect 10 0 0 0; +#X restore 668 495 pd inside; +#N canvas 40 55 281 170 clear_buffers 0; +#X obj 54 79 vasp.update; +#X obj 54 56 vasp.= 0; +#X obj 54 26 inlet; +#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 485 495 pd clear_buffers; +#X obj 60 292 vasp.update; +#X obj 58 433 vasp.update; +#X obj 58 453 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 60 312 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 337 495 dac~; +#X obj 337 457 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 358 455 play; +#X text 69 52 find the local minima of a buffer content; +#X text 70 66 argument/right inlet: density value 0-1; +#X obj 446 118 wavedisplay-simple bufvalleys1 \$0; +#X obj 60 252 vasp.= bufvalleys1; +#X text 183 231 copy to new buffer \, find valleys; +#X msg 60 232 vasp bufvalleys2; +#X floatatom 163 312 12 0 0; +#X obj 60 272 vasp.valleys 0.001; +#X obj 163 333 * 88200; +#X obj 337 475 tabplay~ bufvalleys1; +#X floatatom 163 355 5 0 0; +#X obj 447 272 wavedisplay-simple bufvalleys2 \$0; +#X obj 58 412 vasp.opt; +#X msg 58 391 vasp bufvalleys2; +#X msg 485 475 vasp bufvalleys1 bufvalleys2; +#X text 718 100 source; +#X text 712 253 valleys; +#X text 69 81 outlet: current density value; +#X text 185 389 optimize the buffer content; +#X obj 44 530 VASP-HELP; +#X connect 4 0 7 0; +#X connect 5 0 6 0; +#X connect 9 0 20 0; +#X connect 14 0 18 0; +#X connect 16 0 14 0; +#X connect 17 0 19 0; +#X connect 18 0 4 0; +#X connect 18 1 17 0; +#X connect 19 0 21 0; +#X connect 20 0 8 0; +#X connect 20 0 8 1; +#X connect 23 0 5 0; +#X connect 24 0 23 0; +#X connect 25 0 3 0; diff --git a/externals/grill/vasp/pd-help/vasp_vector.pd b/externals/grill/vasp/pd-help/vasp_vector.pd new file mode 100644 index 00000000..9a669067 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_vector.pd @@ -0,0 +1,31 @@ +#N canvas 300 150 599 451 10; +#X obj 51 19 cnv 15 15 15 empty empty vasp.n 0 10 1 14 -262144 -1 0 +; +#X text 53 55 get a vector of a vasp; +#X text 53 79 argument/right inlet: index of vector; +#X obj 58 193 prepend set; +#X obj 175 166 vasp.n 1; +#X obj 175 193 prepend set; +#X obj 54 356 VASP-HELP; +#X text 445 161 index starts at 0; +#X obj 315 313 table bufn1; +#X obj 315 335 table bufn2; +#X obj 315 357 table bufn3; +#X msg 58 121 vasp bufn1 bufn2 bufn3; +#X obj 58 166 vasp.n 0; +#X obj 300 193 prepend set; +#X msg 300 219; +#X msg 175 219; +#X msg 58 220; +#X obj 300 166 vasp.n 2; +#X obj 154 308 vasp.n; +#X text 58 310 abbreviation:; +#X connect 3 0 16 0; +#X connect 4 0 5 0; +#X connect 5 0 15 0; +#X connect 11 0 4 0; +#X connect 11 0 12 0; +#X connect 11 0 17 0; +#X connect 12 0 3 0; +#X connect 13 0 14 0; +#X connect 17 0 13 0; diff --git a/externals/grill/vasp/pd-help/vasp_vectors.pd b/externals/grill/vasp/pd-help/vasp_vectors.pd new file mode 100644 index 00000000..e93cbbb0 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_vectors.pd @@ -0,0 +1,13 @@ +#N canvas 257 69 509 282 10; +#X text 52 66 get the number of vectors of a vasp; +#X obj 51 19 cnv 15 15 15 empty empty vasp.n? 0 10 1 14 -262144 -1 +0; +#X obj 57 169 cnv 15 44 17 empty empty empty 20 12 0 14 -258699 -66577 +0; +#X floatatom 57 218 0 0 0; +#X msg 57 112 vasp bufn?1; +#X msg 137 112 vasp bufn?1 bufn?2 bufn?3; +#X obj 57 169 vasp.n?; +#X connect 4 0 6 0; +#X connect 5 0 6 0; +#X connect 6 0 3 0; diff --git a/externals/grill/vasp/pd-help/vasp_window.pd b/externals/grill/vasp/pd-help/vasp_window.pd new file mode 100644 index 00000000..eefd92cf --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_window.pd @@ -0,0 +1,62 @@ +#N canvas 44 117 891 565 10; +#X obj 62 41 cnv 15 15 15 empty empty vasp.window 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 450 300 graph1 0; +#X array bufwindow 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 512 119 graph; +#N canvas 0 0 404 280 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufwindow; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 771 320 pd init; +#N canvas 0 0 194 221 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 569 325 pd clear_buffers; +#X text 173 149 generate a function; +#X obj 63 495 VASP-HELP; +#X msg 569 301 vasp bufwindow; +#X msg 61 149 vasp bufwindow; +#X obj 61 278 vasp.u; +#X floatatom 194 186 5 0 0; +#X text 259 185 0..4; +#X msg 231 215 lin; +#X msg 231 240 sin; +#X msg 231 265 hanning; +#X msg 231 290 hamming; +#X msg 231 315 blackman; +#X text 275 214 0; +#X text 275 236 1; +#X text 295 260 2; +#X text 300 289 3; +#X text 300 316 4; +#X obj 132 426 vasp.*window; +#X obj 225 401 vasp.!window; +#X text 60 396 see also:; +#X obj 322 426 vasp.*xwindow; +#X obj 225 426 vasp.*!window; +#X obj 61 226 vasp.window lin; +#X text 60 80 generate window functions; +#X obj 322 401 vasp.xwindow; +#X text 60 104 argument/right inlet: name or number of name (def linear) +; +#X connect 6 0 3 0; +#X connect 7 0 26 0; +#X connect 9 0 26 1; +#X connect 11 0 26 1; +#X connect 12 0 26 1; +#X connect 13 0 26 1; +#X connect 14 0 26 1; +#X connect 15 0 26 1; +#X connect 26 0 8 0; diff --git a/externals/grill/vasp/pd-help/vasp_xmirr.pd b/externals/grill/vasp/pd-help/vasp_xmirr.pd new file mode 100644 index 00000000..863ecfaa --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_xmirr.pd @@ -0,0 +1,86 @@ +#N canvas 48 7 827 616 10; +#N canvas 92 108 411 413 inside 0; +#X obj 66 154 soundfiler; +#X obj 84 238 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 214 206 resize \$1; +#X obj 67 53 loadbang; +#X obj 66 178 t b f f; +#X obj 67 101 filelisthandler \$0; +#X msg 67 133 read -resize \$1 bufxmirr1; +#X obj 214 228 s bufxmirr1; +#X obj 224 252 s bufxmirr2; +#X msg 67 79 4; +#X connect 0 0 5 0; +#X connect 3 0 8 0; +#X connect 3 0 9 0; +#X connect 4 0 10 0; +#X connect 5 0 2 0; +#X connect 5 1 1 0; +#X connect 5 2 3 0; +#X connect 6 0 7 0; +#X connect 7 0 0 0; +#X connect 10 0 6 0; +#X restore 643 547 pd inside; +#X obj 79 100 filelist \$0; +#X obj 69 234 vasp.cfft; +#X obj 327 546 dac~; +#N canvas 0 0 413 295 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 461 546 pd clear_buffers; +#X obj 327 503 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 349 500 play; +#X text 461 501 clear; +#X obj 75 32 cnv 15 15 15 empty empty vasp.xmirr 0 10 1 14 -262144 +-1 0; +#X text 75 52 mirrors a vasp symmetrical; +#X obj 472 303 wavedisplay-simple bufxmirr2 \$0; +#X obj 472 150 wavedisplay-simple bufxmirr1 \$0; +#X msg 69 213 vasp bufxmirr1 bufxmirr2; +#X obj 69 298 vasp.update; +#X obj 69 319 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X obj 69 277 vasp.= 0; +#X obj 69 256 vasp.upper; +#X msg 461 523 vasp bufxmirr1 bufxmirr2; +#X obj 69 484 vasp.update; +#X obj 69 507 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 69 440 vasp bufxmirr1 bufxmirr2; +#X obj 69 461 vasp.cfft; +#X obj 327 523 tabplay~ bufxmirr1; +#X obj 69 393 vasp.update; +#X obj 69 414 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 69 351 vasp bufxmirr1 bufxmirr2; +#X obj 69 372 vasp.xmirr; +#X obj 57 574 VASP-HELP; +#X text 332 88 revert the frequency spectrum; +#X text 332 103 of the example sound; +#X text 249 226 and clear upper part; +#X text 247 351 2 revert spectrum; +#X text 245 440 3 inverse fourier transform; +#X text 248 209 1 fourier transform; +#X connect 2 0 16 0; +#X connect 5 0 22 0; +#X connect 12 0 2 0; +#X connect 13 0 14 0; +#X connect 15 0 13 0; +#X connect 16 0 15 0; +#X connect 17 0 4 0; +#X connect 18 0 19 0; +#X connect 20 0 21 0; +#X connect 21 0 18 0; +#X connect 22 0 3 0; +#X connect 22 0 3 1; +#X connect 23 0 24 0; +#X connect 25 0 26 0; +#X connect 26 0 23 0; diff --git a/externals/grill/vasp/pd-help/vasp_xrot.pd b/externals/grill/vasp/pd-help/vasp_xrot.pd new file mode 100644 index 00000000..95b0ed02 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_xrot.pd @@ -0,0 +1,48 @@ +#N canvas 24 75 779 480 10; +#X obj 75 32 cnv 15 15 15 empty empty vasp.xrot 0 10 1 14 -262144 -1 +0; +#X text 445 307 clear; +#N canvas 0 0 413 295 clear_buffer 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 445 352 pd clear_buffer; +#X text 72 73 optional argument/right inlet: value; +#X text 71 60 rotate buffer content; +#X msg 445 329 vasp bufxrot; +#X obj 68 333 vasp.update; +#X floatatom 129 281 0 0 0; +#X msg 68 257 vasp bufxrot; +#X obj 56 436 VASP-HELP; +#N canvas 0 0 450 300 graph1 0; +#X array bufxrot 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 436 125 graph; +#N canvas 488 326 314 207 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100 +\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1; +#X msg 33 45 symbol bufxrot; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 683 355 pd init; +#X obj 69 195 vasp.u; +#X obj 69 172 vasp.= env 1 0 -1 10 0 50 -1 90 1 99; +#X msg 69 150 vasp bufxrot; +#X text 197 148 1 create envelope; +#X obj 68 305 vasp.xrot 6; +#X text 197 251 2 rotate symmetrically; +#X text 54 387 related objects:; +#X obj 179 388 vasp.xshift; +#X obj 259 388 vasp.rot; +#X connect 5 0 2 0; +#X connect 7 0 16 1; +#X connect 8 0 16 0; +#X connect 13 0 12 0; +#X connect 14 0 13 0; +#X connect 16 0 6 0; diff --git a/externals/grill/vasp/pd-help/vasp_xshift.pd b/externals/grill/vasp/pd-help/vasp_xshift.pd new file mode 100644 index 00000000..121e43d2 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_xshift.pd @@ -0,0 +1,57 @@ +#N canvas 24 75 858 509 10; +#X obj 75 32 cnv 15 15 15 empty empty vasp.xshift 0 10 1 14 -262144 +-1 0; +#X text 463 343 clear; +#N canvas 0 0 413 295 clear_buffer 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 463 388 pd clear_buffer; +#X text 72 73 optional argument/right inlet: value; +#X msg 463 365 vasp bufxshift; +#X text 71 60 shifts buffer content symmetrically; +#X obj 68 333 vasp.update; +#X floatatom 141 279 0 0 0; +#X msg 68 236 vasp bufxshift; +#X obj 59 429 VASP-HELP; +#N canvas 0 0 450 300 graph1 0; +#X array bufxshift 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 436 125 graph; +#N canvas 488 326 312 205 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100 +\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1; +#X msg 33 45 symbol bufxshift; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 683 355 pd init; +#X obj 68 305 vasp.xshift 9; +#X obj 69 195 vasp.u; +#X msg 69 150 vasp bufxshift; +#X obj 69 172 vasp.= env 1 0 -1 10 0 50 -1 90 1 99; +#X text 197 148 1 create envelope; +#X text 196 230 2 shift symmetrically; +#X obj 262 403 vasp.xrot; +#X text 57 402 related objects:; +#X obj 182 403 vasp.xshift; +#X msg 225 278 fill 0; +#X msg 225 298 fill 1; +#X msg 225 318 fill 2; +#X text 271 278 no filling; +#X text 270 318 fill with edge-value; +#X text 271 298 zero filling (default); +#X connect 4 0 2 0; +#X connect 7 0 12 1; +#X connect 8 0 12 0; +#X connect 12 0 6 0; +#X connect 14 0 15 0; +#X connect 15 0 13 0; +#X connect 21 0 12 0; +#X connect 22 0 12 0; +#X connect 23 0 12 0; diff --git a/externals/grill/vasp/pd-help/vasp_xtilt.pd b/externals/grill/vasp/pd-help/vasp_xtilt.pd new file mode 100644 index 00000000..c42c69e1 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_xtilt.pd @@ -0,0 +1,107 @@ +#N canvas 21 60 881 576 10; +#X obj 55 36 cnv 15 15 15 empty empty vasp.xtilt 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 261 214 clear_buffer 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 575 494 pd clear_buffer; +#X text 177 472 <-- click to open more examples; +#X obj 51 533 VASP-HELP; +#N canvas 0 0 450 300 graph1 0; +#X array bufxtilt1 100 float 1; +#A 0 1 -0.113512 0.171341 0.733251 -0.444804 0.13461 0.0181519 0.0751111 +-0.291489 -0.0661841 0.0808672 0.10525 -0.0372648 0.00712331 0.0321534 +0.00104712 -0.0797996 -0.0100332 0.038871 -0.00962814 -0.00245443 -0.0208043 +0.0418052 -0.0442626 -0.010092 -0.000713352 0.0310329 -0.0158379 -0.0325648 +0.0180381 -0.0174225 -0.0255639 -0.0137052 0.0219752 -0.00454053 -0.0387019 +-0.00129492 -0.00332361 -6.52102e-005 -0.0333087 0.00495665 0.00179575 +-0.0311061 -0.0221767 -0.00117427 0.000104884 -0.033587 -0.00918416 +0.00931789 -0.0172503 -0.0146257 0.0200174 0.00741167 -9.19656e-005 +-0.0248526 0.0180017 0.0184785 -0.000738001 0.00187258 0.0148586 0.0289194 +-0.0124819 0.000630443 0.0266685 0.0156491 0.0058523 0.0141721 0.0336186 +-0.00179237 -0.00582341 0.0232202 0.0428296 0.0249123 -0.00400539 0.0269429 +0.0367591 0.000278026 0.0241991 0.039058 0.0259654 -0.015077 0.0321762 +0.0799587 -0.035893 0.038519 0.024746 0.189796 -0.054207 -0.0128485 +-0.0301806 0.0762237 0.106943 0.0307454 0.226911 -0.221356 0.172835 +0.0519878 0.4068 -0.293863 -0.035514; +#X coords 0 1 99 -1 300 100 1; +#X restore 481 75 graph; +#N canvas 0 0 435 217 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100 +\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1; +#X obj 295 27 loadbang; +#X obj 295 71 s \$0-ratio; +#X msg 33 45 symbol bufxtilt1 \, symbol bufxtilt2; +#X msg 295 49 1.5; +#X connect 0 0 4 0; +#X connect 2 0 5 0; +#X connect 4 0 1 0; +#X connect 5 0 3 0; +#X restore 712 492 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array bufxtilt2 100 float 0; +#X coords 0 1 99 -1 300 100 1; +#X restore 483 205 graph; +#X text 420 58 SOURCE; +#X obj 344 357 pack; +#X obj 344 331 t b f; +#X text 281 284 ratio; +#X text 201 404 needs one or two args; +#X text 201 427 ratio \, center; +#X text 236 264 edge; +#X text 243 144 none; +#X text 243 173 linear; +#X text 236 241 zero (default); +#X text 242 199 4 point (default); +#X text 243 121 in place (dirty); +#X obj 128 435 vasp.u; +#X obj 344 308 nbx 5 14 -1000 1000 0 0 empty empty empty 0 -6 0 10 +-24198 -1 -1 0 256; +#X obj 281 308 nbx 5 14 -3 3 0 0 empty \$0-ratio empty 0 -6 576 10 +-24198 -1 -1 1.5 256; +#X text 344 284 center sample; +#X msg 181 242 fill 0; +#X msg 181 268 fill 1; +#X msg 183 122 inter 0; +#X msg 183 148 inter 1; +#X msg 183 174 inter 2; +#X msg 183 200 inter 3; +#X obj 36 135 bng 15 250 50 0 empty \$0-trigger empty 0 -6 576 8 -262144 +-1 -1; +#X obj 344 401 bng 15 250 50 0 \$0-trigger empty empty 0 -6 1152 8 +-262144 -1 -1; +#X text 55 82 optional argument/right inlet: list of ratio and center +sample; +#X obj 53 473 xtilt_example; +#X text 575 444 clear; +#X msg 575 468 vasp bufxtilt2; +#X text 55 59 resample buffer data symmetrically; +#X msg 36 159 vasp bufxtilt1; +#X obj 36 185 vasp.-> bufxtilt2; +#X obj 128 409 vasp.xtilt; +#X obj 344 379 t b l; +#X connect 8 0 39 0; +#X connect 9 0 8 0; +#X connect 9 1 8 1; +#X connect 20 0 9 0; +#X connect 21 0 8 0; +#X connect 23 0 38 0; +#X connect 24 0 38 0; +#X connect 25 0 38 0; +#X connect 26 0 38 0; +#X connect 27 0 38 0; +#X connect 28 0 38 0; +#X connect 29 0 36 0; +#X connect 34 0 1 0; +#X connect 36 0 37 0; +#X connect 37 1 38 0; +#X connect 38 0 19 0; +#X connect 39 0 30 0; +#X connect 39 1 38 1; diff --git a/externals/grill/vasp/pd-help/vasp_xwindow.pd b/externals/grill/vasp/pd-help/vasp_xwindow.pd new file mode 100644 index 00000000..7d6e4179 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_xwindow.pd @@ -0,0 +1,61 @@ +#N canvas 58 39 897 607 10; +#X obj 62 41 cnv 15 15 15 empty empty vasp.xwindow 0 10 1 14 -262144 +-1 0; +#N canvas 0 0 450 300 graph1 0; +#X array bufxwindow 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 512 119 graph; +#N canvas 0 0 406 282 init 0; +#X obj 33 19 loadbang; +#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100 +66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5 +1; +#X msg 33 45 symbol bufxwindow; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 771 320 pd init; +#N canvas 0 0 194 221 clear_buffers 0; +#X obj 49 73 vasp.= 0; +#X obj 49 49 inlet; +#X obj 49 97 vasp.u; +#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X restore 569 326 pd clear_buffers; +#X text 173 148 generate a function; +#X obj 60 503 VASP-HELP; +#X msg 61 149 vasp bufxwindow; +#X msg 569 301 vasp bufxwindow; +#X obj 61 278 vasp.u; +#X floatatom 194 186 5 0 0; +#X text 259 185 0..4; +#X msg 231 215 lin; +#X msg 231 240 sin; +#X msg 231 265 hanning; +#X msg 231 290 hamming; +#X msg 231 315 blackman; +#X text 275 214 0; +#X text 275 236 1; +#X text 295 260 2; +#X text 300 289 3; +#X text 300 316 4; +#X obj 61 226 vasp.xwindow lin; +#X obj 132 401 vasp.window; +#X obj 132 426 vasp.*window; +#X obj 225 401 vasp.!window; +#X text 60 396 see also:; +#X obj 322 426 vasp.*xwindow; +#X obj 225 426 vasp.*!window; +#X text 60 104 argument/right inlet: name or number of name; +#X text 60 80 generate window functions; +#X connect 6 0 21 0; +#X connect 7 0 3 0; +#X connect 9 0 21 1; +#X connect 11 0 21 1; +#X connect 12 0 21 1; +#X connect 13 0 21 1; +#X connect 14 0 21 1; +#X connect 15 0 21 1; +#X connect 21 0 8 0; -- cgit v1.2.1