Edit and compile if you like:
\documentclass[border=3pt]{standalone}% Drawing\usepackage{tikz}% Tikz Library\usetikzlibrary{angles, quotes, shapes, decorations.markings, calc, arrows.meta}% Styles%% Left and Bottom Right Rays' Style\tikzset{ray/.style = {postaction=decorate,decoration={markings,mark=at position .52 with \arrow{stealth},mark=between positions 0.1 and 0.4 step 0.5cm with with{\draw[fill=red, draw=red] circle [radius=1pt];\draw[red, {Latex[length=1.3mm, width=1.5mm]}-{Latex[length=1.3mm, width=1.5mm]}] (0,-7pt) -- (0,7pt);},mark=between positions 0.6 and 0.9 step 0.5cm with with{\draw[fill=red, draw = red] circle[radius=1pt];\draw[red, {Latex[length=1.3mm, width=1.5mm]}-{Latex[length=1.3mm, width=1.5mm]}] (0,-7pt) -- (0,7pt);},}}}% Upper Right Ray Style\tikzset{polray/.style = {postaction=decorate,decoration={markings,mark=at position .52 with \arrow{stealth},mark=between positions 0.1 and 0.4 step 0.5cm with with{\draw[fill=red, draw=red] circle [radius=1pt];},mark=between positions 0.6 and 0.9 step 0.5cm with with{\draw[fill=red, draw = red] circle[radius=1pt];} }}}% Notation\usepackage{amsmath}\begin{document}% Right Angle Mark\def\MarkRightAngle[size=#1](#2,#3,#4){\draw[thick] ($(#3)!#1!(#2)$) -- ($($(#3)!#1!(#2)$)!#1!90:(#2)$) -- ($(#3)!#1!(#4)$)}\begin{tikzpicture}[line cap=round, line join=round]% % Grid% \draw[dotted, black!20] (0,0) grid (8,8);%% \node at (-2ex,-2ex) {$0$};
Click to download: brewster-angle.tex
Open in Overleaf: brewster-angle.tex
This file is available on GitHub.
See more on the author page of Alexandros Tsagkaropolulos.