Edit and compile if you like:
\documentclass{standalone}% Drawing\usepackage{tikz}% Tikz Library\usetikzlibrary{3d, shapes.multipart, angles, quotes}% Tikz Styles\tikzset{>=latex}\tikzset{axis/.style={black, very thick, ->}}\tikzset{ef/.style={very thick, red}}\tikzset{vec/.style={black, -{Latex[length=0.8mm]}}}\tikzset{every text node part/.style={align=center}}% New Command%% Draw Line in Poar Coordinates from (0,0) to (r, theta)\newcommand{\cdraw}[2]{\draw[very thick, -stealth, red] (0,0) -- ({#1*cos(#2)}, {#1*sin(#2)});}%% Rectangles%%%Viewing Screen\newcommand{\rect}[1]{%\begin{scope}[canvas is xz plane at y=1.2]\draw[line join=round, thick, fill=black!40] (#1,-1.2) rectangle (#1+0.2,1.2);\end{scope}%\begin{scope}[canvas is xy plane at z=1.2]\draw[line join=round, thick, fill=black!25](#1,-1.2) rectangle (#1+0.2,1.2);\end{scope}%\begin{scope}[canvas is yz plane at x=#1]\draw[line join=round, thick, fill=black!10] (-1.2,-1.2) rectangle (1.2,1.2);\draw[line join=round, thick, fill=black!10, dashed] (-{0.8*cos(45)}, -{0.8*sin(45)}) -- ({0.8*cos(45)}, {0.8*sin(45)});\end{scope}}%%% Polarizer\newcommand{\polarizer}[2]{%\begin{scope}[canvas is xz plane at y=1.2]\draw[line join=round, thick, fill=black!40] (#1,-1.2) rectangle (#1+0.2,1.2);\end{scope}%\begin{scope}[canvas is xy plane at z=1.2]
Click to download: polarizer-analyzer.tex
Open in Overleaf: polarizer-analyzer.tex
This file is available on GitHub.
See more on the author page of Alexandros Tsagkaropolulos.