GopherProxy

%% The LaTeX package tikzfill - version 1.0.1 (2023/08/08)
%% tikzlibraryfill.rhombus.code.tex: filling with rhombus patterns
%%
%% -------------------------------------------------------------------------------------------
%% Copyright (c) 2022-2023 by Prof. Dr. Dr. Thomas F. Sturm <thomas dot sturm at unibw dot de>
%% -------------------------------------------------------------------------------------------
%%
%% This work may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either version 1.3
%% of this license or (at your option) any later version.
%% The latest version of this license is in
%% http://www.latex-project.org/lppl.txt
%% and version 1.3 or later is part of all distributions of LaTeX
%% version 2005/12/01 or later.
%%
%% This work has the LPPL maintenance status `author-maintained'.
%%
%% This work consists of all files listed in README.md
%%
\ProvidesFile{tikzlibraryfill.rhombus.code.tex}[2022/07/15 v0.0.1 Rhombus pattern library]

\usetikzlibrary{patterns.meta}

\ifx\ExplSyntaxOn\undefined
\input expl3-generic\relax
\fi
\ExplSyntaxOn

\fp_new:N \l__tikzfill_rho_angle_fp
\fp_new:N \l__tikzfill_rho_d_fp
\fp_new:N \l__tikzfill_rho_s_fp

\tl_new:N \l__tikzfill_rho_dsize_tl
\tl_new:N \l__tikzfill_rho_linewidth_tl
\tl_new:N \l__tikzfill_rho_matrix_a_tl
\tl_new:N \l__tikzfill_rho_matrix_b_tl
\tl_new:N \l__tikzfill_rho_matrix_c_tl
\tl_new:N \l__tikzfill_rho_matrix_d_tl
\tl_new:N \l__tikzfill_rho_poffset_tl
\tl_new:N \l__tikzfill_rho_psize_tl
\tl_new:N \l__tikzfill_rho_size_tl

\pgfdeclarepattern
{
name = rhombus,
parameters =
{
\pgfkeysvalueof{/pgf/pattern~keys/size},
\pgfkeysvalueof{/pgf/pattern~keys/angle},
\pgfkeysvalueof{/pgf/pattern~keys/ratio},
\pgfkeysvalueof{/pgf/pattern~keys/xshift},
\pgfkeysvalueof{/pgf/pattern~keys/yshift},
\pgfkeysvalueof{/pgf/pattern~keys/line~width},
\pgfkeysvalueof{/pgf/pattern~keys/pos},
\pgfkeysvalueof{/pgf/pattern~keys/band},
\pgfkeysvalueof{/pgf/pattern~keys/_fill_},
},
defaults =
{
size /.initial = 10mm,
angle /.initial = -40,
ratio /.initial = 2,
xshift /.initial = 0pt,
yshift /.initial = 0pt,
line~width /.initial = 0.4pt,
pos /.initial = 1,
band /.initial = 0,
_fill_ /.initial = 1,
fill /.style = { _fill_=1 },
draw /.style = { _fill_=0 },
},
set~up~code =
{
\tl_set:Nx \l__tikzfill_rho_linewidth_tl { \fp_to_dim:n { \pgfkeysvalueof{/pgf/pattern~keys/line~width} } }

\fp_set:Nn \l_tmpa_fp { \pgfkeysvalueof{/pgf/pattern~keys/size} }
\tl_set:Nx \l__tikzfill_rho_size_tl { \fp_to_dim:N \l_tmpa_fp }
\tl_set:Nx \l__tikzfill_rho_dsize_tl { \fp_to_dim:n { 2 * \l_tmpa_fp } }

\fp_set:Nn \l_tmpb_fp { min ( 1, max( 0, \pgfkeysvalueof{/pgf/pattern~keys/pos} )) }
\tl_set:Nx \l__tikzfill_rho_psize_tl { \fp_to_dim:n { \l_tmpa_fp * \l_tmpb_fp } }
\tl_set:Nx \l__tikzfill_rho_poffset_tl { \fp_to_dim:n { \l_tmpa_fp * (1-\l_tmpb_fp)/2 } }

\fp_set:Nn \l__tikzfill_rho_angle_fp { \pgfkeysvalueof{/pgf/pattern~keys/angle} }

\fp_set:Nn \l_tmpa_fp { max( 1 , \pgfkeysvalueof{/pgf/pattern~keys/ratio} ) }
\fp_set:Nn \l_tmpa_fp { \l_tmpa_fp*\l_tmpa_fp }
\fp_set:Nn \l__tikzfill_rho_s_fp{ (\l_tmpa_fp-1)/(\l_tmpa_fp+1) }

\fp_set:Nn \l__tikzfill_rho_d_fp { sqrt( 1 - \l__tikzfill_rho_s_fp * \l__tikzfill_rho_s_fp ) }
\fp_set:Nn \l_tmpb_fp
{
\l__tikzfill_rho_angle_fp - atand( \l__tikzfill_rho_d_fp / ( 1 + \l__tikzfill_rho_s_fp ) )
}
\fp_set:Nn \l_tmpa_fp { cosd(\l_tmpb_fp) }
\fp_set:Nn \l_tmpb_fp { sind(\l_tmpb_fp) }

\tl_set:Nx \l__tikzfill_rho_matrix_a_tl { \fp_to_decimal:N \l_tmpa_fp }
\tl_set:Nx \l__tikzfill_rho_matrix_b_tl { \fp_to_decimal:N \l_tmpb_fp }
\tl_set:Nx \l__tikzfill_rho_matrix_c_tl { \fp_to_decimal:n
{
\l__tikzfill_rho_s_fp * \l_tmpa_fp - \l__tikzfill_rho_d_fp * \l_tmpb_fp
}}
\tl_set:Nx \l__tikzfill_rho_matrix_d_tl { \fp_to_decimal:n
{
\l__tikzfill_rho_s_fp * \l_tmpb_fp + \l__tikzfill_rho_d_fp * \l_tmpa_fp
}}
},
bottom~left = { \pgfpoint{-\l__tikzfill_rho_linewidth_tl}{-\l__tikzfill_rho_linewidth_tl} },
top~right = { \pgfpoint{\l__tikzfill_rho_dsize_tl+\l__tikzfill_rho_linewidth_tl}
{\l__tikzfill_rho_dsize_tl+\l__tikzfill_rho_linewidth_tl} },
tile~size = { \pgfqpoint{\l__tikzfill_rho_dsize_tl}{\l__tikzfill_rho_dsize_tl} },
tile~transformation =
{
\pgftransformshift
{
\pgfpoint{ \pgfkeysvalueof{/pgf/pattern~keys/xshift} }
{ \pgfkeysvalueof{/pgf/pattern~keys/yshift} }
}
\pgftransformcm{\l__tikzfill_rho_matrix_a_tl}{\l__tikzfill_rho_matrix_b_tl}
{\l__tikzfill_rho_matrix_c_tl}{\l__tikzfill_rho_matrix_d_tl}
{\pgfpointorigin}
},
code =
{
\int_set:Nn \l_tmpa_int { \pgfkeysvalueof{/pgf/pattern~keys/band} }
\int_compare:nNnF \l_tmpa_int = 1
{
\pgfpathrectangle{\pgfqpoint{\l__tikzfill_rho_poffset_tl}{\l__tikzfill_rho_poffset_tl}}
{\pgfqpoint{\l__tikzfill_rho_psize_tl}{\l__tikzfill_rho_psize_tl}}
\pgfpathrectangle{\pgfpoint{\l__tikzfill_rho_size_tl+\l__tikzfill_rho_poffset_tl}{\l__tikzfill_rho_size_tl+\l__tikzfill_rho_poffset_tl}}
{\pgfqpoint{\l__tikzfill_rho_psize_tl}{\l__tikzfill_rho_psize_tl}}
}
\int_compare:nNnT \l_tmpa_int > 0
{
\pgfpathrectangle{\pgfpoint{\l__tikzfill_rho_poffset_tl}{\l__tikzfill_rho_size_tl+\l__tikzfill_rho_poffset_tl}}
{\pgfqpoint{\l__tikzfill_rho_psize_tl}{\l__tikzfill_rho_psize_tl}}
\pgfpathrectangle{\pgfpoint{\l__tikzfill_rho_size_tl+\l__tikzfill_rho_poffset_tl}{\l__tikzfill_rho_poffset_tl}}
{\pgfqpoint{\l__tikzfill_rho_psize_tl}{\l__tikzfill_rho_psize_tl}}
}
\int_compare:nNnTF { \pgfkeysvalueof{/pgf/pattern~keys/_fill_} } = 1
{
\pgfusepath{fill}
}
{
\pgfsetlinewidth{\l__tikzfill_rho_linewidth_tl}
\pgfusepath{draw}
}
}
}

\tikzset{
pattern~rhombus /.style =
{
pattern={rhombus[#1]}
}
}

\ExplSyntaxOff