% $Id: test-patterns.tex 1 2021-05-15 22:12:05Z reinhard $

% Copyright (C) 2019 Reinhard Kotucha <reinhard.kotucha@web.de>
% 
% You may freely use, modify, and/or distribute this file.

%\pdfvariable pageattr {/Group << /S /Transparency /I true /CS /DeviceRGB>>}

\font\sf=cmss10

\input luagraphlib
\luagraphicfile{antpattern.lua}

\advance\hoffset by 4cm

\canvasrule=0pt

\pdfextension info {
  /Author (Reinhard Kotucha)
  /Title (SM701 patterns)
  /Creator (LuaTeX with luagraphlib)
  /Subject (Sinclair SM701 (EXXXX) radiation patterns)
}

\directlua{default = {
    antpattern = {
      gainref = 'dipole',
      offset = 0,
      lambda = function (a) return a[2], a[1] end,
      bgcolor = {1, 1, .9},
      fillcolor = {0.9, 0.9, 1},
      strokecolor = {0.561, 0.078, 0.008},
    }
  }
}

\newdimen\canvaswd \canvaswd = 120mm
\newdimen\canvasht \canvasht = 120mm

\begindocument

{\bf Sinclair SM701 902 MHz horizontal}

\begin{canvas}(\canvaswd, \canvasht)
  \at(\w/2,\h/2){\luagraphic{antpattern('data/ant/sm701_902h.data')}}
\end{canvas}

{\bf Sinclair SM701 902 MHz vertical}

\begin{canvas}(120mm, 120mm)
  \at(\w/2, \h/2){\luagraphic{antpattern('data/ant/sm701_902v.data')}}
\end{canvas}

\newpage

{\bf Sinclair SM701 915 MHz horizontal}

\begin{canvas}(120mm, 120mm)
  \at(\w/2,\h/2){\luagraphic{antpattern('data/ant/sm701_915h.data')}}
\end{canvas}

{\bf Sinclair SM701 915 MHz vertical}

\begin{canvas}(120mm, 120mm)
  \at(\w/2,\h/2){\luagraphic{antpattern('data/ant/sm701_915v.data')}}
\end{canvas}

\newpage

{\bf Sinclair SM701 928 MHz horizontal}

\begin{canvas}(120mm, 120mm)
  \at(\w/2,\h/2){\luagraphic{antpattern('data/ant/sm701_928h.data')}}
\end{canvas}

{\bf Sinclair SM701 928 MHz vertical}

\begin{canvas}(120mm, 120mm)
  \at(\w/2,\h/2){\luagraphic{antpattern('data/ant/sm701_928v.data')}}
\end{canvas}

\newpage

\directlua{default.antpattern.offset = 10}


{\bf Sinclair SM701 902 MHz horizontal}

\begin{canvas}(120mm, 120mm)
  \at(\w/2,\h/2){\luagraphic{antpattern('data/ant/sm701_902h+10.data')}}
\end{canvas}

{\bf Sinclair SM701 902 MHz vertical}

\begin{canvas}(120mm, 120mm)
  \at(\w/2,\h/2){\luagraphic{antpattern('data/ant/sm701_902v+10.data')}}
\end{canvas}

\newpage

{\bf Sinclair SM701 915 MHz horizontal}

\begin{canvas}(120mm, 120mm)
  \at(\w/2,\h/2){\luagraphic{antpattern('data/ant/sm701_915h+10.data')}}
\end{canvas}

{\bf Sinclair SM701 915 MHz vertical}

\begin{canvas}(120mm, 120mm)
  \at(\w/2,\h/2){\luagraphic{antpattern('data/ant/sm701_915v+10.data')}}
\end{canvas}

\newpage

{\bf Sinclair SM701 928 MHz horizontal}

\begin{canvas}(120mm, 120mm)
  \at(\w/2, \h/2){\luagraphic{antpattern('data/ant/sm701_928h+10.data')}}
\end{canvas}

{\bf Sinclair SM701 928 MHz vertical}

\begin{canvas}(120mm, 120mm)
  \at(\w/2,\h/2){\luagraphic{antpattern('data/ant/sm701_928v+10.data')}}
\end{canvas}

\bye

% Local Variables:
%  mode: TeX
%  TeX-master: t
%  TeX-engine: luatex
%  indent-tabs-mode: nil
%  coding: utf-8-unix
% End:
% vim:set tabstop=2 expandtab: