%% This is the package dspblocks
%%
%% (c) Paolo Prandoni <paolo.prandoni _at_ epfl.ch>
%%
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN archives
%% in directory macros/latex/base/lppl.txt.
%%
%% DESCRIPTION:
%% `dspblocks' is a companion package to dsptricks; it contains a
%% set of macros to draw the types of block diagrams commonly
%% used in DSP theory
%%
%% v1.1, November 2023
%%
% required packages:
\RequirePackage{calc}
\RequirePackage{fp}
\RequirePackage{pst-xkey}
\RequirePackage{fmtcount}
\RequirePackage{ifthen}
%
\ProvidesPackage{dspblocks}[2023/11/08 package for signal processing graphics]
% turn off FP messages
\FPmessagesfalse
\makeatletter
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%% Set up BLOCK DIAGRAM plot
%
% \begin{psdrawBDmatrix}[OPTIONS]{X_SPACING}{Y_SPACING}
%
% X_SPACING
% Y_SPACING vertical and horizontal spacing
%
% Once in Block diagram mode the following commands are available
% (they all create nodes)
%
% \BDadd adder
% \BDmul multiplier
% \BDdelay z^{-1} delay block
% \BDdelayN{N} z^{-N} delay block
% \BDfilter{text} filter box
% \BDfilterMulti{text} multiline filter box
% \BDsplit splitting point (dot)
% \BDupsmp{K} upsampler by K
% \BDdwsmp{K} downsampler by K
%
\def\BDwidth{1.2pt}
\psset{xunit=1mm,yunit=1mm,linewidth=\BDwidth}
\def\BDadd{[mnode=circle] +}%
\def\BDsub{[mnode=circle] -}%
\def\BDmul{[mnode=circle] $\times$}%
\def\BDdelay{\psframebox[framesep=.3]{$z^{-1}$}}%
\def\BDdelayN#1{\psframebox[framesep=.3]{$z^{-#1}$}}%
\def\BDfilter#1{\psframebox[framesep=.3]{#1}}%
\def\BDfilterMulti#1{\psframebox%
{\begin{tabular}{c} #1 \end{tabular}}}%
\def\BDsplit{[mnode=dot,linewidth=1.5pt]}%
\def\BDupsmp#1{[mnode=circle] $#1 \uparrow$}%
\def\BDdwsmp#1{[mnode=circle] $#1 \downarrow$}%
\def\BDsampler{\raisebox{-14.6pt}{
\psset{xunit=1em,yunit=1em,linewidth=1.2pt}%
\pspicture(-2.6,-1.8)(1,1.8)%
\psline(-3,0)(-1.6,0)(0.7,1.2)
\psline(0.8,0)(1,0)
\psarc[linewidth=1pt]{<-}(-1.2,0){1.4em}{-10}{55}
\endpspicture}}
\newcommand{\BDsamplerFramed}[1][1em]{
\newskip\tmpLen \tmpLen=#1%
\raisebox{-1.5\tmpLen}{%
\psframebox[linewidth=1.2pt]{%
\psset{unit=#1,linearc=0}%
\pspicture(-3.1,-2)(3,2)%
\psline(-2.8,-0.2)(-1.6,-0.2)(1.2,1.4)%
\psline(1.1,-0.2)(1.8,-0.2)%
\psarc[linewidth=1pt]{<-}(-1.6,0){2}{-10}{55}%
\endpspicture}}}
\newcommand{\BDlowpass}[1][1em]{%
\newskip\tmpLen \tmpLen=#1%
\raisebox{-1.5\tmpLen}{%
\psframebox[linewidth=1.2pt]{%
\psset{unit=#1,linearc=0}%
\pspicture(-3.1,-2)(3,2)%
\psline{->}(-2.8,-1)(2.8,-1)%
\psline{->}(0,-1.8)(0,2)%
\psline[linewidth=1.5pt](-1,-1)(-1,0.8)(1,0.8)(1,-1)%
\endpspicture}}}
\newcommand{\BDsinc}[1][1em]{%
\newskip\tmpLen \tmpLen=#1%
\raisebox{-1.5\tmpLen}{%
\psframebox[linewidth=1.2pt]{%
\psset{unit=#1,linearc=0}%
\pspicture(-3.1,-2)(3,2)%
\psline{->}(-2.8,-.5)(2.8,-.5)%
\psline{->}(0,-1.8)(0,2)%
\psplot[linewidth=1pt, plotpoints=500,linejoin=1]{-2.5}{2.5}{x \dspSinc{0}{0.5} 1.5 mul .5 sub}%
\endpspicture}}}
\newcommand{\BDclip}[1][1em]{
\newskip\tmpLen \tmpLen=#1%
\raisebox{-1.5\tmpLen}{%
\psframebox[linewidth=1.2pt]{%
\psset{unit=#1,linearc=0,linewidth=2pt}%
\pspicture(-3,-2)(3,2)%
\psline[linecolor=gray](-2,-0)(2,-0)%
\psline(-1.5,-1.7)(0,-1.7)(0,1.7)(1.5,1.7)%
\endpspicture}}}
\newenvironment{dspBlocks}[2]{%
\begin{psmatrix}[colsep=#1,rowsep=#2,emnode=R] }{%
\end{psmatrix}
}
\newcommand{\BDConnH}[5][]{\ncline[#1]{->}{#2,#3}{#2,#4}\taput{#5}}
\newcommand{\BDConnHNext}[2]{\FPupn\n{#2 1 add 0 trunc}\ncline{->}{#1,#2}{#1,\n}}
\newcommand{\BDConnV}[5][]{\ncline[#1]{->}{#2,#3}{#4,#3}\tlput{#5}}
\makeatother
