Modifique a aparência do filtro em pst-optexp

Modifique a aparência do filtro em pst-optexp

Gostaria de alterar a aparência dos filtros disponíveis no pst-optexp:

insira a descrição da imagem aqui

Existem três ondas em cada caixa de filtro. Quero que aqueles com barra sejam vermelhos e os outros permaneçam pretos. Como eu posso fazer isso?

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: tentei adicionar linecolor=red aos filtros, mas a caixa inteira ficou vermelha. Preciso apenas que as ondas cortadas fiquem vermelhas. Resultado esperado:

insira a descrição da imagem aqui

Responder1

insira a descrição da imagem aqui

Eu adicionei uma linha e modifiquei uma segunda. Ambos estão marcados na fonte abaixo.

\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}

informação relacionada