From 97cb872d132a919193e708be702ddaa14d9e4f83 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Mon, 4 May 2020 21:23:10 +0000
Subject: psbao (3may20)

git-svn-id: svn://tug.org/texlive/trunk@55013 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/latex/psbao/psbao.sty | 50 +++++++++++------------------
 1 file changed, 18 insertions(+), 32 deletions(-)

(limited to 'Master/texmf-dist/tex/latex/psbao')

diff --git a/Master/texmf-dist/tex/latex/psbao/psbao.sty b/Master/texmf-dist/tex/latex/psbao/psbao.sty
index ac6ff8ee3db..8127c6ef5ab 100644
--- a/Master/texmf-dist/tex/latex/psbao/psbao.sty
+++ b/Master/texmf-dist/tex/latex/psbao/psbao.sty
@@ -25,7 +25,6 @@
 \RequirePackage{pstricks,calc,ifthen,cool,etex}
 %\RequirePackage{pstricks,pst-node,calc,ifthen,cool,etex}
 \newcommand{\psbao}{\textsf{psbao}}
-%\newsavebox{\stmarkbox}
 \newcounter{boardrow}
 \newcounter{boardcol}
 \newcounter{ghalaku} % granaio sud
@@ -134,25 +133,19 @@
 
 \initbao
 \setbaounit{0.6cm}
-%\newcommand{\hatchangle}{-42.5} % non usato
 \newlength{\tmplx}
 \newlength{\tmply}
-%\newlength{\tmpxa}% non usato
-%\newlength{\tmpxb}% non usato
-%\newlength{\tmpya}% non usato
-%\newlength{\tmpyb}% non usato
 \newcounter{tmpc}
 
 \newcommand{\pointbox}[1]{%
 \raisebox{-0.5\height+0.5\depth}[0pt][0pt]{\makebox[0pt]{#1}}%
 }
 
-%\newcommand{\baolabelformat}[1]{{\sffamily #1}}
 \newcommand{\baolabelformat}[1]{%
 {\sffamily {\footnotesize{#1}}}%
 }
 
-\newcommand{\baoxposition}[1]{%
+\newcommand\baoxposition[1]{%
 	\ifx#1B 0\else%
 	\ifx#1A 1\else%
 	\ifx#1a 2\else%
@@ -307,8 +300,7 @@
  \setcounter{ghalaka}{0}
  }%
 
-\renewcommand{\seeds}[3]{%
-% \kete[\stmark]{##2}{\conx{##2}{##3}}%
+	\renewcommand\seeds[3]{%
  \def\stmark{\pointbox{##1}}%
  % Here should be used the macro \conx
  \nord=9
@@ -334,23 +326,9 @@
  \fi
 }%
 %
-\newcommand{\baoarrow}[2]
-{
-
+	\newcommand\baoarrow[2]{
 \conx{##1}{##2}
-%\pstriangle[gangle=90](\baoyposition{\value{tmpc}},\baoxposition{##1})(1,.5)
-% It doesn't work! It doesn't accept the multiplication of \baoxposition,
-% I will be greatful for any help.
-\psdots[dotstyle=triangle*,dotscale=2](\baoyposition{\value{tmpc}},.5\baoxposition{##1})
-%\psline[linewidth=1.4pt,
-%        linecolor=black,
-%        linestyle=solid,
-%        arrowscale=1.5]%
-%		{>-}%
-%		(\baoyposition{\b},\baoxposition{##1})
-%		(\baoyposition{\b},\baoxposition{##1})
-%		(0.1\baoyposition{##2},\baoxposition{\b})%
-%}		
+		\psdots[dotstyle=triangle*,dotscale=1.5](\baoyposition{\thetmpc},\pscalculate{\baoxposition{##1}-.5})
 }%
 }{}%
 
@@ -409,9 +387,6 @@
 \def\psbaosetboardsizes(#1,#2)(#3,#4){%
   \def\psbaollx{#1}%
   \def\psbaolly{#2}%
-%  \ifthenelse{#3 > \value{boardcol}}
-%   {\def\psbaourx{\value{boardcol}}}
-%   {\def\psbaourx{#3}}%
   \def\psbaourx{#3}%
 %  \ifthenelse{#4 > \value{boardrow}}
 %   {\def\psbaoury{\value{boardrow}}}
@@ -422,7 +397,6 @@
 \newboolean{withindices}%
 \setboolean{withindices}{true}%
 
-% psbaopartialboard[8](0,0)(8,4)
 \newenvironment{psbaopartialboard}[2][8]
 {%
 	\setcounter{boardcol}{8}%
@@ -554,8 +528,10 @@
 {%
   \end{psbaopartialboard}%
 }
+% numero di semi indefinito
 \newcommand{\nomark}{\relax}%
 \newcommand{\factor}{0.28284271247461901}% = 2/5 * sin(1/4 * pi)
+
 \newcommand{\markma}{%
 	\psline[linewidth=1.4pt](-\factor,-\factor)(\factor,\factor)%
 	\psline[linewidth=1.4pt](-\factor,\factor)(\factor,-\factor)%
@@ -565,7 +541,6 @@
 	{%
 	\psline[linewidth=1.4pt](.5\baoxunit,-.5\baoxunit)
 	\psline[linewidth=1.4pt](.5\baoxunit,.5\baoxunit)
-	%\pstriangle(-.1\baoxunit,0.1\baoxunit)%
 	}%
 }%
 \newcommand{\markdx}{%
@@ -573,7 +548,6 @@
 	{%
 	\psline(-.5\baoxunit,-.5\baoxunit)
 	\psline(-.5\baoxunit,.5\baoxunit)
-	%\pstriangle(-.1\baoxunit,0.1\baoxunit)%
 	}%
 }%
 \newcommand{\marksl}{%
@@ -598,6 +572,18 @@
     linestyle=none]%
 	 (-0.5\baoxunit,-0.5\baoyunit)(0.5\baoxunit,0.5\baoyunit)%
 }%
+\newcommand{\markmt}{%
+	\rput(.5\baoxunit,0)%
+{%
+	\psline(-.5\baoxunit,-.5\baoxunit)
+	\psline(-.5\baoxunit,.5\baoxunit)
+}%
+	\rput(-.5\baoxunit,0)%
+{%
+	\psline[linewidth=1.4pt](.5\baoxunit,-.5\baoxunit)
+	\psline[linewidth=1.4pt](.5\baoxunit,.5\baoxunit)
+}%
+}%
 
 \newcommand{\seeds}[1]{%
   \setlength{\tmply}{-0.5\baoxunit + 0.5ex}%
-- 
cgit v1.2.3