Edit and compile if you like:
\documentclass[border=3pt]{standalone}% Drawing\usepackage{tikz}% Tikz Library\usetikzlibrary{3d, shapes.multipart}% Styles\tikzset{>=latex} % for LaTeX arrow head\tikzset{axis/.style={black, thick,->}}\tikzset{vector/.style={>=stealth,->}}\tikzset{every text node part/.style={align=center}}% New Command%% Viewing Screen\newcommand{\rect}[1]{%\begin{scope}[canvas is xz plane at y=1.2]\draw[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[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[thick, fill=black!10] (-1.2,-1.2) rectangle (1.2,1.2);\draw[thick, fill=black!10, dashed] (0,0) circle (0.65cm);\foreach \i in {0,45,...,360}{\draw[thick, dashed] (0,0) -- ({0.65*cos(\i)}, {0.65*sin(\i)});}\end{scope}}%% Draw Line in Polar Coordinates from (0,0) to (t,theta)\newcommand{\cdraw}[2]{\draw[very thick, -stealth, red] (0,0) -- ({#1*cos(#2)}, {#1*sin(#2)});}% Notation\usepackage{amsmath}\begin{document}
Click to download: unpolarized.tex
Open in Overleaf: unpolarized.tex
This file is available on GitHub.
See more on the author page of Alexandros Tsagkaropolulos.