%%%%%%%%%%%other general purpose devices%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%fuse, relay, light source, bell, buzzer, siren%%%%%%%
%%%%%%%microphone, earphone, loudspeaker, crystal resonator, spark gap %
%%%antenna, dipole, loop antenna, battery, glow lamp%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%discharge lamp, fluorescent lamp,

%%body of the sensor or converter
\newcommand{\bodysen}{
\multiput(0,0)(0,10){2}{\line(-1,0){20}}
\put(0,0){\line(0,1){10}}
\put(-20,0){\line(-1,1){5}}
\put(-20,10){\line(-1,-1){5}}
}

%sensor
\newcommand{\sensor}[1]{
\put(0,0){\bodysen}
\put(-12,4){#1}
}

%head
\newcommand{\head}[1]{
\put(0,0){\bodysen}
   \ifnum#1=1       %%%%mechanical stereo receiving
\put(-22,5){\vector(1,1){4}}
\put(-22,5){\vector(1,-1){4}}
\put(-22.5,2.5){\line(-1,-1){4}}
    \fi  \ifnum#1=2  %%%magnetic mono receiving
\put(-12,5){\vector(1,0){4}}
\put(-8,5){\oval(4,4)[r]}
    \fi  \ifnum#1=3  %%%magnetic mono recording
\put(-12,5){\vector(-1,0){4}}
\put(-8,5){\oval(4,4)[r]}
    \fi  \ifnum#1=4  %%%magnetic cleaning
\put(-16,4){$\times $}
\put(-8,5){\oval(4,4)[r]}
    \fi \ifnum#1=5  %%%magnetic receiving, recording, cleaning
\put(-12,5){\vector(-1,0){4}}
\put(-12,5){\vector(1,0){4}}
\put(-20,4){$\times $}
\put(-8,5){\oval(4,4)[r]}
    \fi \ifnum#1=6  %%%optical receiving
\put(-12,5){\vector(1,0){4}}
\multiput(-29,12)(2,2){2}{\vector(1,-1){4}}
    \fi
}




%horizontal fuse
\newcommand{\hfuse}{
\put(0,0){\line(1,0){20}}
\put(5,-2){\framebox(10,4){}}
}
%vertical fuse
\newcommand{\vfuse}{
\put(0,0){\line(0,1){20}}
\put(-2,5){\framebox(4,10){}}
}
%horizontal relay
\newcommand{\hrelay}{
\multiput(0,0)(9,0){2}{\line(1,0){5}}
\put(5,-5){\framebox(4,10){}}
  }
%vertical relay
\newcommand{\vrelay}{
\multiput(0,0)(0,9){2}{\line(0,1){5}}
\put(-5,5){\framebox(10,4){}}
 }
%light source (general)
\newcommand{\hlight}{
\multiput(0,0)(15,0){2}{\line(1,0){5}}
\put(10,0){\circle{10}}
\put(6.5,3.5){\line(1,-1){7}}
\put(13.5,3.5){\line(-1,-1){7}}
}
%light source (general)
\newcommand{\vlight}{
\multiput(0,0)(0,15){2}{\line(0,1){5}}
\put(0,10){\circle{10}}
\put(3.5,6.5){\line(-1,1){7}}
\put(3.5,13.5){\line(-1,-1){7}}
}
% bell
\newcommand{\bell}{
\put(0,0){\line(0,1){2}}
\put(4,0){\line(0,1){2}}
\put(2,2){\oval(7,7)[t]}
\put(-1.5,2){\line(1,0){7}}
}
% buzzer
\newcommand{\buzzer}{
\put(0,0){\line(0,1){2}}
\put(4,0){\line(0,1){2}}
\put(2,5){\oval(7,7)[b]}
\put(-1.5,5){\line(1,0){7}}
}
%siren
\newcommand{\siren}{
\put(0,0){\line(0,1){2}}
\put(4,0){\line(0,1){2}}
\put(-2,2){\line(1,1){4}}
\put(6,2){\line(-1,1){4}}
\put(-2,2){\line(1,0){8}}
}
\newcommand{\microphone}[1]{
\put(0,0){\circle{10}}
  \ifx#1R                    %right
\multiput(5,-5)(0.1,0){5}{\line(0,1){10}}
  \fi \ifx#1L                %left
\multiput(-5,-5)(-0.1,0){5}{\line(0,1){10}}
  \fi
}
%earphone
\newcommand{\earphone}[1]{
\put(-2.5,0){\framebox(5,7)}
 \ifx#1R
\multiput(2.5,-1)(0.1,0){10}{\line(0,1){9}}
 \fi \ifx#1L
\multiput(-2.5,-1)(-0.1,0){10}{\line(0,1){9}}
 \fi
}
%loudspeaker
\newcommand{\loudspeaker}[1]{
\put(-2.5,0){\framebox(5,7)}
  \ifx#1R
\put(2.5,0){\line(1,-1){4}}
\put(2.5,7){\line(1,1){4}}
\put(6.5,-4){\line(0,1){15}}
  \fi \ifx#1L
\put(-2.5,0){\line(-1,-1){4}}
\put(-2.5,7){\line(-1,1){4}}
\put(-6.5,-4){\line(0,1){15}}
  \fi
}
%vertical crystal rezonator
\newcommand{\vcrystal}{
\put(0,0){\line(0,1){5}}
\put(-3,5){\line(1,0){6}}
\put(-5,6){\framebox(10,2)}
\put(-3,9){\line(1,0){6}}
\put(0,9){\line(0,1){5}}
}
%horizontal crystal rezonator
\newcommand{\hcrystal}{
\put(0,0){\line(1,0){5}}
\put(5,-3){\line(0,1){6}}
\put(6,-5){\framebox(2,10)}
\put(9,-3){\line(0,1){6}}
\put(9,0){\line(1,0){5}}
}
%horizontal spark gap
\newcommand{\hgap}{
\put(0,0){\vector(1,0){3.5}}
\put(10,0){\vector(-1,0){3.5}}
}
%vertical spark gap
\newcommand{\vgap}{
\put(0,0){\vector(0,1){3.5}}
\put(0,10){\vector(0,-1){3.5}}
}
%antenna
\newcommand{\antenna}[1]{
\put(0,0){\line(0,1){20}}
\put(0,13){\line(-1,2){3.5}}
\put(0,13){\line(1,2){3.5}}
 \ifnum#1=0              %transmiting
\put(0,10){\vector(0,1){0}}
 \fi
 \ifnum#1=1              %receiving
\put(0,5){\vector(0,-1){0}}
 \fi
 \ifnum#1=2              %transmission and receive alternate
\put(0,10){\vector(0,1){0}}
\put(0,4){\vector(0,-1){0}}
 \fi
 \ifnum#1=3              %transmission and receive simultaneous
\put(0,7){\vector(0,1){0}}
\put(0,7){\vector(0,-1){0}}
 \fi
}
\newcommand{\dipole}[1]{
\multiput(0,0)(5,0){2}{\line(0,1){5}}
\multiput(-10,5)(15,0){2}{\line(1,0){10}}
   \ifnum#1=0         %dipole
 \fi
   \ifnum#1=1         % folded dipole
\put(-10,10){\line(1,0){25}}
\multiput(-10,5)(25,0){2}{\line(0,1){5}}
 \fi
}
\newcommand{\loopant}{
\multiput(0,0)(5,0){2}{\line(0,1){5}}
\put(0,5){\line(-1,1){12}}
\put(5,5){\line(1,1){12}}
\put(-12,17){\line(1,1){14.5}}
\put(17,17){\line(-1,1){14.5}}
}
%galvanic cell
\newcommand{\cell}[2]{
  \ifx#1R               %+ right
    \put(0,0){\line(1,0){4.5}}
    \put(4.5,-2.5){\line(0,1){5}}
    \put(5.5,-5){\line(0,1){10}}
    \put(5.5,0){\line(1,0){4.5}}
    \put(0,2){$-$}
    \put(7,2){$+$}
       \ifx#2Y
         \multiput(0,10)(0,-2){2}{\vector(1,-1){4}}
       \fi
  \fi
  \ifx#1L              %+left
    \put(0,0){\line(1,0){4.5}}
    \put(4.5,-5){\line(0,1){10}}
    \put(5.5,-2.5){\line(0,1){5}}
    \put(5.5,0){\line(1,0){4.5}}
    \put(0,2){$+$}
    \put(7,2){$-$}
        \ifx#2Y
         \multiput(10,10)(0,-2){2}{\vector(-1,-1){4}}
       \fi
  \fi
  \ifx#1U              %+up
    \put(0,0){\line(0,1){4.5}}
    \put(-2.5,4.5){\line(1,0){5}}
    \put(-5,5.5){\line(1,0){10}}
    \put(0,5.5){\line(0,1){4.5}}
    \put(2,1){$-$}
    \put(2,7.5){$+$}
       \ifx#2Y
         \multiput(-10,-2)(0,2){2}{\vector(1,1){4}}
       \fi
  \fi
  \ifx#1D             %+down
    \put(0,0){\line(0,1){4.5}}
    \put(-5,4.5){\line(1,0){10}}
    \put(-2.5,5.5){\line(1,0){5}}
    \put(0,5.5){\line(0,1){4.5}}
    \put(2,1){$+$}
    \put(2,7.5){$-$}
       \ifx#2Y
         \multiput(-10,12)(0,-2){2}{\vector(1,-1){4}}
       \fi
  \fi
}

%horizontal glow lamp
\newcommand{\hglow}{
\multiput(0,0)(13,0){2}{\line(1,0){7}}
\multiput(7.5,0)(5,0){2}{\circle{1}}
\multiput(7,-2)(6,0){2}{\line(0,1){4}}
\put(9,-2.5){\circle*{1}}
\put(10,0){\circle{10}}
}
%vertical glow lamp
\newcommand{\vglow}{
\multiput(0,0)(0,13){2}{\line(0,1){7}}
\multiput(0,7.5)(0,5){2}{\circle{1}}
\multiput(-2,7)(0,6){2}{\line(1,0){4}}
\put(2.5,9){\circle*{1}}
\put(0,10){\circle{10}}
}

%horizontal discharge lamp
\newcommand{\hdlamp}{
\multiput(0,0)(14,0){2}{\line(1,0){6}}
\multiput(6.5,0)(7,0){2}{\circle{1}}
\put(9,-1.5){\circle*{1}}
\put(6,0){\oval(6,6)[l]}
\put(14,0){\oval(6,6)[r]}
\multiput(6,-3)(0,6){2}{\line(1,0){8}}
}

%vertical discharge lamp
\newcommand{\vdlamp}{
\multiput(0,0)(0,14){2}{\line(0,1){6}}
\multiput(0,6.5)(0,7){2}{\circle{1}}
\put(1.5,9){\circle*{1}}
\put(0,6){\oval(6,6)[b]}
\put(0,14){\oval(6,6)[t]}
\multiput(-3,6)(6,0){2}{\line(0,1){8}}
}

%horizontal fluorescent lamp
\newcommand{\hflamp}{
\put(3,0){\oval(4,4)[r]}
\multiput(0,-2)(0,4){2}{\line(1,0){3}}
\put(17,0){\oval(4,4)[l]}
\multiput(17,-2)(0,4){2}{\line(1,0){3}}
\put(8,-1.5){\circle*{1}}
\put(6,0){\oval(6,6)[l]}
\put(14,0){\oval(6,6)[r]}
\multiput(6,-3)(0,6){2}{\line(1,0){8}}
}

%vertical fluorescent lamp
\newcommand{\vflamp}{
\put(0,3){\oval(4,4)[t]}
\multiput(-2,0)(4,0){2}{\line(0,1){3}}
\put(0,17){\oval(4,4)[b]}
\multiput(-2,17)(4,0){2}{\line(0,1){3}}
\put(1.5,8){\circle*{1}}
\put(0,6){\oval(6,6)[b]}
\put(0,14){\oval(6,6)[t]}
\multiput(-3,6)(6,0){2}{\line(0,1){8}}
}

\endinput