Modificar la apariencia del filtro en pst-optexp

Modificar la apariencia del filtro en pst-optexp

Me gustaría cambiar la apariencia de los filtros disponibles en pst-optexp:

ingrese la descripción de la imagen aquí

Hay tres ondas en cada caja de filtro. Quiero que los que tienen una barra sean rojos y los demás permanezcan negros. ¿Cómo puedo hacer eso?

Código:

\documentclass[margin=0]{standalone}
\usepackage{pst-optexp}
\begin{document}
\begin{pspicture}(7,3)
  \psset[optexp]{fiber=none,usefiberstyle}
  \newpsstyle{Fiber}{linecolor=red,linewidth=2\pslinewidth}
  \newpsstyle{Beam}{linestyle=none,fillstyle=solid,fillcolor=red,opacity=1}
  \pnodes(2,2){Laser}(3,2){BS}(4,2){LP}(5,2){HP}(6,2){BP}
  \optbox[optboxsize=2 1,innerlabel,position=start](Laser)(Laser){LASER}
  \optfilter[filtertype=bandstop,filtersize=0.5,labeloffset=0.5,labelangle=-180](BS)(BS){BS}
  \optfilter[filtertype=lowpass,filtersize=0.5,labeloffset=0.5,labelangle=-180](LP)(LP){LP}
  \optfilter[filtertype=highpass,filtersize=0.5,labeloffset=0.5,labelangle=-180](HP)(HP){HP}
  \optfilter[filtertype=bandpass,filtersize=0.5,labeloffset=0.5,labelangle=-180](BP)(BP){BP}
  \drawwidebeam[beamwidth=0.1] {1-5}
\end{pspicture}
\end{document}

Editar: intenté agregar linecolor=red a los filtros pero todo el cuadro se vuelve rojo. Sólo necesito que las ondas cortadas sean rojas. Resultado Esperado:

ingrese la descripción de la imagen aquí

Respuesta1

ingrese la descripción de la imagen aquí

Agregué una línea y modifiqué una segunda. Ambos están marcados en la fuente a continuación.

\documentclass[margin=0]{standalone}
\usepackage{pst-optexp}
\begin{document}
\begin{pspicture}(7,3)
  \psset[optexp]{fiber=none,usefiberstyle}
  \newpsstyle{FilterStyle}{linecolor=red}% <<< Define FilterStyle
  \newpsstyle{Fiber}{linecolor=black,linewidth=1\pslinewidth}% <<< Set linecolor to black
  \newpsstyle{Beam}{linestyle=none,fillstyle=solid,fillcolor=red,opacity=1}
  \pnodes(2,2){Laser}(3,2){BS}(4,2){LP}(5,2){HP}(6,2){BP}
  \optbox[optboxsize=2 1,innerlabel,position=start](Laser)(Laser){LASER}
  \optfilter[filtertype=bandstop,filtersize=0.5,labeloffset=0.5,labelangle=-180](BS)(BS){BS}
  \optfilter[filtertype=lowpass,filtersize=0.5,labeloffset=0.5,labelangle=-180](LP)(LP){LP}
  \optfilter[filtertype=highpass,filtersize=0.5,labeloffset=0.5,labelangle=-180](HP)(HP){HP}
  \optfilter[filtertype=bandpass,filtersize=0.5,labeloffset=0.5,labelangle=-180](BP)(BP){BP}
  \drawwidebeam[beamwidth=0.1] {1-5}
\end{pspicture}
\end{document}

información relacionada