texlive[68863] Master/texmf-dist: writeongrid (15nov23)
commits+karl at tug.org
commits+karl at tug.org
Wed Nov 15 22:09:02 CET 2023
Revision: 68863
https://tug.org/svn/texlive?view=revision&revision=68863
Author: karl
Date: 2023-11-15 22:09:01 +0100 (Wed, 15 Nov 2023)
Log Message:
-----------
writeongrid (15nov23)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-doc-en.pdf
trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-doc-en.tex
trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-doc-fr.pdf
trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-doc-fr.tex
trunk/Master/texmf-dist/tex/latex/writeongrid/WriteOnGrid.sty
Added Paths:
-----------
trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-5x5-A5.pdf
trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-5x5-A5.tex
trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Ruled-A5.pdf
trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Ruled-A5.tex
trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Seyes-A5.pdf
trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Seyes-A5.tex
Added: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-5x5-A5.pdf
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-5x5-A5.pdf
===================================================================
--- trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-5x5-A5.pdf 2023-11-15 21:08:45 UTC (rev 68862)
+++ trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-5x5-A5.pdf 2023-11-15 21:09:01 UTC (rev 68863)
Property changes on: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-5x5-A5.pdf
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/pdf
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-5x5-A5.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-5x5-A5.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-5x5-A5.tex 2023-11-15 21:09:01 UTC (rev 68863)
@@ -0,0 +1,27 @@
+% !TeX TXS-program:compile = txs:///arara
+% arara: pdflatex: {shell: no, synctex: yes, interaction: batchmode}
+% arara: pdflatex: {shell: no, synctex: yes, interaction: batchmode} if found('log', '(undefined references|Please rerun|Rerun to get)')
+
+\documentclass[a5paper,11pt]{article}
+\usepackage{WriteOnGrid}
+\usepackage{lipsum}
+\usepackage{frcursive}
+
+\begin{document}
+
+\thispagestyle{empty}
+
+\begin{PleinePageCinqCinq}[FormatPapier=A5,NumLignes]
+%entête
+\LignePapierCinqCinq[Echelle=1.25,Ligne=1]{C. PIERQUET \hfill \LaTeX}
+%titre
+\LignePapierCinqCinq[Echelle=1.25,Ligne=2,Couleur=red]<center>{\underline{\cursive\bfseries Devoir 1}}
+%cadre de notes
+\CadreNoteCinqCinq{3}
+%ligne pour un petit titre
+\LignePapierCinqCinq[Echelle=1.25,Ligne=8,Couleur=green!50!black]{\sffamily\underline{Exercice 1 :}}
+%%paragraphe lipsum avec une échelle de 1.15 := calcul de l'interligne
+\ParagraphePapierCinqCinq[Ligne=10,Echelle=1.15,Espacement=\fpeval{10/1.15}]{\cursive\lipsum[1][1-7]}
+\end{PleinePageCinqCinq}
+
+\end{document}
\ No newline at end of file
Property changes on: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-5x5-A5.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Ruled-A5.pdf
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Ruled-A5.pdf
===================================================================
--- trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Ruled-A5.pdf 2023-11-15 21:08:45 UTC (rev 68862)
+++ trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Ruled-A5.pdf 2023-11-15 21:09:01 UTC (rev 68863)
Property changes on: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Ruled-A5.pdf
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/pdf
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Ruled-A5.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Ruled-A5.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Ruled-A5.tex 2023-11-15 21:09:01 UTC (rev 68863)
@@ -0,0 +1,27 @@
+% !TeX TXS-program:compile = txs:///arara
+% arara: pdflatex: {shell: no, synctex: yes, interaction: batchmode}
+% arara: pdflatex: {shell: no, synctex: yes, interaction: batchmode} if found('log', '(undefined references|Please rerun|Rerun to get)')
+
+\documentclass[a5paper,11pt]{article}
+\usepackage{WriteOnGrid}
+\usepackage{lipsum}
+\usepackage{frcursive}
+
+\begin{document}
+
+\thispagestyle{empty}
+
+\begin{PleinePageRuled}[FormatPapier=A5,NumLignes]
+%entête
+\LignePapierRuled[Echelle=1.25,Ligne=1]{C. PIERQUET \hfill \LaTeX}
+%titre
+\LignePapierRuled[Echelle=1.25,Ligne=2,Couleur=red]<center>{\underline{\cursive\bfseries Devoir 1}}
+%cadre de notes
+\CadreNoteRuled{3}
+%ligne pour un petit titre
+\LignePapierRuled[Echelle=1.25,Ligne=8,Couleur=green!50!black]{\sffamily\underline{Exercice 1 :}}
+%paragraphe lipsum avec une échelle de 1.15 := calcul de l'interligne
+\ParagraphePapierRuled[Ligne=10,Echelle=1.15,Espacement=\fpeval{9/1.15}]{\cursive\lipsum[1][1-7]}
+\end{PleinePageRuled}
+
+\end{document}
\ No newline at end of file
Property changes on: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Ruled-A5.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Seyes-A5.pdf
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Seyes-A5.pdf
===================================================================
--- trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Seyes-A5.pdf 2023-11-15 21:08:45 UTC (rev 68862)
+++ trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Seyes-A5.pdf 2023-11-15 21:09:01 UTC (rev 68863)
Property changes on: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Seyes-A5.pdf
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/pdf
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Seyes-A5.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Seyes-A5.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Seyes-A5.tex 2023-11-15 21:09:01 UTC (rev 68863)
@@ -0,0 +1,27 @@
+% !TeX TXS-program:compile = txs:///arara
+% arara: pdflatex: {shell: no, synctex: yes, interaction: batchmode}
+% arara: pdflatex: {shell: no, synctex: yes, interaction: batchmode} if found('log', '(undefined references|Please rerun|Rerun to get)')
+
+\documentclass[a5paper,11pt]{article}
+\usepackage{WriteOnGrid}
+\usepackage{lipsum}
+\usepackage{frcursive}
+
+\begin{document}
+
+\thispagestyle{empty}
+
+\begin{PleinePageSeyes}[FormatPapier=A5,NumLignes,ReglureSeyes=2.5]
+%entête
+\LignePapierSeyes[Echelle=2,Ligne=1]{C. PIERQUET \hfill LaTeX}
+%titre
+\LignePapierSeyes[Echelle=2,Ligne=2,Couleur=red]<center>{\underline{\cursive\bfseries Devoir 1}}
+%cadre de notes
+\CadreNoteSeyes[2]{3}
+%ligne pour un petit titre
+\LignePapierSeyes[Echelle=2,Ligne=6,Couleur=green!50!black]{\sffamily\underline{Exercice 1 :}}
+%paragraphe lipsum avec une échelle de 1.5
+\ParagraphePapierSeyes[Ligne=7,Echelle=1.5]{\cursive\lipsum[1][1-7]}
+\end{PleinePageSeyes}
+
+\end{document}
\ No newline at end of file
Property changes on: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-Seyes-A5.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-doc-en.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-doc-en.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-doc-en.tex 2023-11-15 21:08:45 UTC (rev 68862)
+++ trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-doc-en.tex 2023-11-15 21:09:01 UTC (rev 68863)
@@ -45,8 +45,8 @@
\setlength{\parindent}{0pt}
\definecolor{LightGray}{gray}{0.9}
-\def\TPversion{0.1.4}
-\def\TPdate{09/08/2023}
+\def\TPversion{0.1.5}
+\def\TPdate{15/11/2023}
\usepackage[most]{tcolorbox}
\tcbuselibrary{minted}
@@ -501,8 +501,10 @@
\part*{History}
-\verb|v0.1.4|~:~~~~\texttt{xcolor} isn't loadeed with \textsf{[table,svgnames]})
+\verb|v0.1.4|~:~~~~New \texttt{[keys]} + enhancements for paragraphs, for french version (for the moment\dots)
+\verb|v0.1.4|~:~~~~\texttt{xcolor} isn't loaded with \textsf{[table,svgnames]})
+
\verb|v0.1.3|~:~~~~Command to display a grid (w/o writing on it)
\verb|v0.1.2|~:~~~~Shortcuts for default colors + small bugfixes
Modified: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-doc-fr.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-doc-fr.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-doc-fr.tex 2023-11-15 21:08:45 UTC (rev 68862)
+++ trunk/Master/texmf-dist/doc/latex/writeongrid/WriteOnGrid-doc-fr.tex 2023-11-15 21:09:01 UTC (rev 68863)
@@ -48,8 +48,8 @@
\setlength{\parindent}{0pt}
\definecolor{LightGray}{gray}{0.9}
-\def\TPversion{0.1.4}
-\def\TPdate{09 août 2023}
+\def\TPversion{0.1.5}
+\def\TPdate{15 novembre 2023}
\usepackage[most]{tcolorbox}
\tcbuselibrary{minted}
@@ -290,6 +290,7 @@
\item \Cle{Elargir} pour préciser les carreaux de débordements, sous la forme unique \texttt{\textcolor{red}{G}\textcolor{blue}{D}} ou par côté \texttt{\textcolor{red}{G}/\textcolor{blue}{D}} ;\hfill~défaut : \Cle{0}
\item le booléen \Cle{Cadre} pour afficher le cadre de base du quadrillage ;\hfill~défaut : \Cle{false}
\item la clé \Cle{Grille}, parmi \Cle{5x5 / Seyes / Ruled}, pour spécifier le type de quadrillage ;\hfill~défaut : \Cle{5x5}
+ \item la clé \Cle{ReglureSeyes} pour paramétrer (en mm) la réglure dans le cas de lignes Seyes ;\hfill~défaut : \Cle{2}
\item la clé \Cle{CouleurBarreSeyes} pour rajouter un trait vertical pour le papier Seyes .\hfill~défaut : \Cle{red!75}
\end{itemize}
@@ -303,13 +304,11 @@
\medskip
\begin{PresentationCode}{listing only}
-%des cadres ont été rajoutés pour la sortie
-
%18x4 grands carreaux, sans dépassement, couleurs adaptées, sans marge/barre
-\AffQuadrillage[NbCarreaux=18x4,Grille=Seyes,AffBarre=false]<\CoulSeyes>
+\AffQuadrillage[NbCarreaux=16x4,Grille=Seyes,ReglureSeyes=2.5,AffBarre=false]<\CoulSeyes>
%36x8 petits carreaux, avec débordements 3/3, couleur PapierGris
-\AffQuadrillage[NbCarreaux=36x8,Elargir=3/3]<PapierGris>
+\AffQuadrillage[NbCarreaux=36x6,Elargir=3/3]<PapierGris>
%12x3 lignes "Ruled", sans débordements, couleur Ruled, centré, avec marge
\begin{center}
@@ -319,7 +318,7 @@
\medskip
-\AffQuadrillage[NbCarreaux=18x4,Grille=Seyes,AffBarre=false]<\CoulSeyes>
+\AffQuadrillage[NbCarreaux=18x4,Grille=Seyes,ReglureSeyes=2.5,AffBarre=false]<\CoulSeyes>
\medskip
@@ -351,6 +350,7 @@
\item \Cle{Elargir} pour préciser les carreaux de débordements, sous la forme unique \texttt{\textcolor{red}{G}\textcolor{blue}{D}} ou par côté \texttt{\textcolor{red}{G}/\textcolor{blue}{D}} ;\hfill~défaut : \Cle{0}
\item le booléen \Cle{Cadre} pour afficher le cadre de base du quadrillage ;\hfill~défaut : \Cle{false}
\item la clé \Cle{Grille}, parmi \Cle{5x5 / Seyes / Ruled}, pour spécifier le type de quadrillage ;\hfill~défaut : \Cle{5x5}
+ \item la clé \Cle{ReglureSeyes} pour paramétrer (en mm) la réglure dans le cas de lignes Seyes ;\hfill~défaut : \Cle{2}
\item la clé \Cle{CouleurBarreSeyes} pour rajouter un trait vertical pour le papier Seyes .\hfill~défaut : \Cle{red!75}
\end{itemize}
@@ -475,7 +475,7 @@
Il s'agit ici de créer le quadrillage Seyes sur la page complète, comme pour la copie d'un élève !
-Dans ce cas, le type de papier utilisé \textbf{doit} être \texttt{a4}, et les unités sont fixées à 1~cm !
+Il est possible de paramétrer le type de papier (A4, A5 ou Lxh), et les marges sont adaptées automatiquement pour coller au type de papier.
\smallskip
@@ -505,7 +505,9 @@
\item la clé \Cle{CouleurP} pour la couleur des \textit{gros traits} ;\hfill~défaut : \Cle{PapierRose}
\item la clé \Cle{CouleurS} pour la couleur des \textit{petits traits} ;\hfill~défaut : \Cle{PapierGris}
\item la clé \Cle{CouleurMarge} pour la couleur du trait de la marge ;\hfill~défaut : \Cle{red!75}
- \item le booléen \Cle{NumLignes} pour afficher le numéro des lignes (pour aider !). \hfill~défaut : \Cle{false}
+ \item le booléen \Cle{NumLignes} pour afficher le numéro des lignes (pour aider !) ; \hfill~défaut : \Cle{false}
+ \item la cle \Cle{ReglureSeyes} pour spécifier la réglure, en mm ;\hfill~défaut : \Cle{2}
+ \item la cle \Cle{FormatPapier} parmi \Cle{A4 / A5 / lxh}. \hfill~défaut : \Cle{A4}
\end{itemize}
\subsection{La commande pour saisir une ligne}
@@ -526,7 +528,7 @@
\item la clé \Cle{Couleur} pour spécifier une couleur globale pour le texte ;\hfill~défaut : \Cle{black}
\item la clé \Cle{Echelle} pour spécifier une échelle globale pour le texte ;\hfill~défaut : \Cle{1}
\item la clé \Cle{Ligne} pour spécifier le numéro de ligne sur lequel on souhaite écrire ;\hfill~défaut : \Cle{1}
- \item la clé \Cle{Largeur} pour spécifier la largeur (en cm) de la boîte dans laquelle le texte sera placé.\hfill~défaut : \Cle{16.8}
+ \item la clé \Cle{Largeur} pour spécifier la largeur (en cm) de la boîte dans laquelle le texte sera placé.\hfill~défaut : \Cle{auto}
\end{itemize}
Le deuxième argument, \textit{optionnel} et entre \texttt{<...>}, permet de spécifier l'alignement souhaité pour la ligne, parmi \Cle{left/center/right}, et vaut \Cle{left} par défaut.
@@ -565,9 +567,9 @@
\begin{itemize}
\item la clé \Cle{Couleur} pour spécifier une couleur globale pour le texte ;\hfill~défaut : \Cle{black}
- \item la clé \Cle{TaillePolice} pour spécifier la taille, en points, du texte ;\hfill~défaut : \Cle{1}
- \item la clé \Cle{Espacement}, en points, pour que l'interligne soit OK ;\hfill~défaut : \Cle{22.792}
- \item la clé \Cle{Largeur} pour la largeur (en cm) de la boîte dans laquelle le paragraphe sera placé.\hfill~défaut : \Cle{16.8}
+ \item la clé \Cle{Echelle} pour spécifier une échelle pour le texte ; \hfill~défaut : \Cle{1}
+ \item la clé \Cle{Espacement} (éventuellement à \textit{calculer} avec une échelle), pour que l'interligne soit OK ;\hfill~défaut : \Cle{auto}
+ \item la clé \Cle{Largeur} pour la largeur (en cm) de la boîte dans laquelle le paragraphe sera placé.\hfill~défaut : \Cle{auto}
\end{itemize}
Le deuxième argument, \textit{optionnel} et entre \texttt{<...>}, permet de spécifier l'alignement souhaité pour la ligne, parmi \Cle{left/center/right/justify}, et vaut \Cle{justify} par défaut.
@@ -618,7 +620,7 @@
\end{align*}
}
%un paragraphe multiligne, avec police agrandie
- \ParagraphePapierSeyes[TaillePolice=14,Ligne=30]
+ \ParagraphePapierSeyes[Echelle=1.15,Ligne=30]
{BlablablaBlablabla.\\BlablablaBlablablaBlablablaBlablabla.}
\end{PleinePageSeyes}
\end{PresentationCode}
@@ -658,12 +660,50 @@
\end{align*}
}
%un paragraphe multiligne, avec police aggrandie
- \ParagraphePapierSeyes[TaillePolice=14,Ligne=30]
+ \ParagraphePapierSeyes[Echelle=1.15,Ligne=30]
{BlablablaBlablabla.\\BlablablaBlablablaBlablablaBlablabla.}
\end{PleinePageSeyes}
\pagebreak
+\subsection{Exemple \og détaillé \fg{} en mode A5}
+
+Un exemple \textit{détaillé}, avec le rendu en page suivante, avec quelques commentaires pour expliquer.
+
+\begin{PresentationCode}{listing only}
+\documentclass[a5paper,11pt]{article}
+\usepackage{WriteOnGrid}
+\usepackage{lipsum}
+\usepackage{frcursive}
+
+\begin{document}
+
+\thispagestyle{empty}
+
+\begin{PleinePageSeyes}[FormatPapier=A5,NumLignes,ReglureSeyes=2.5]
+ %entête
+ \LignePapierSeyes[Echelle=2,Ligne=1]{C. PIERQUET \hfill LaTeX}
+ %titre
+ \LignePapierSeyes[Echelle=2,Ligne=2,Couleur=red]<center>{\underline{\cursive\bfseries Devoir 1}}
+ %cadre de notes
+ \CadreNoteSeyes[2]{3}
+ %ligne pour un petit titre
+ \LignePapierSeyes[Echelle=2,Ligne=6,Couleur=green!50!black]{\sffamily\underline{Exercice 1 :}}
+ %paragraphe lipsum avec une échelle de 1.5
+ \ParagraphePapierSeyes[Ligne=7,Echelle=1.5]{\cursive\lipsum[1][1-7]}
+\end{PleinePageSeyes}
+
+\end{document}
+\end{PresentationCode}
+
+\pagebreak
+
+\fbox{%
+\includegraphics{WriteOnGrid-Seyes-A5.pdf}
+}
+
+\pagebreak
+
\section{Pages type 5x5 et College Ruled}
\subsection{Fonctionnement global}
@@ -706,8 +746,9 @@
\LignePapierCinqCinq[Echelle=1.25,Ligne=3,Couleur=red]<center>{\underline{\cursive\bfseries Devoir 2}}
\CadreNoteCinqCinq{4}
\LignePapierCinqCinq[Echelle=1.25,Ligne=9,Couleur=green!50!black]{\sffamily\underline{Exercice 1 :}}
- \ParagraphePapierCinqCinq[Ligne=11]{\cursive\lipsum[1]}
- \ParagraphePapierCinqCinq[Ligne=30]
+ %echelle de 1.25 et espacement de 10mm (2 lignes) := calcul 10/1.25 pour l'espacement
+ \ParagraphePapierCinqCinq[Ligne=11,Echelle=1.25,Espacement=\fpeval{10/1.25}]{\cursive\lipsum[1]}
+ \ParagraphePapierCinqCinq[Ligne=38]
{%
On essaye avec des maths $1+\frac12=\frac32$ en mode ligne avec des lignes assez longues pour voir
ce que ça peut donner\ldots Et une intégrale $\int_0^1 2x dx = 1$.\\On essaye en passant à la ligne !!!
@@ -723,8 +764,9 @@
\LignePapierRuled[Echelle=1.25,Ligne=2,Couleur=red]<center>{\underline{\cursive\bfseries Devoir 3}}
\CadreNoteRuled{3}
\LignePapierRuled[Echelle=1.25,Ligne=8,Couleur=green!50!black]{\sffamily\underline{Exercice 1 :}}
- \ParagraphePapierRuled[Ligne=9]{\cursive\lipsum[1]}
- \ParagraphePapierRuled[Ligne=22]
+ %echelle de 1.33 et espacement de 9mm (1 ligne) := calcul 9/1.33 pour l'espacement
+ \ParagraphePapierRuled[Ligne=9,Echelle=1.33,Espacement=\fpeval{9/1.25}]{\cursive\lipsum[1]}
+ \ParagraphePapierRuled[Ligne=28]
{%
On essaye avec des maths $1+\frac12=\frac32$ en mode ligne avec des lignes assez longues pour voir
ce que ça peut donner\ldots Et une intégrale $\int_0^1 2x dx = 1$.\\On essaye en passant à la ligne !!!
@@ -741,8 +783,9 @@
\LignePapierCinqCinq[Echelle=1.25,Ligne=3,Couleur=red]<center>{\underline{\cursive\bfseries Devoir 2}}
\CadreNoteCinqCinq{4}
\LignePapierCinqCinq[Echelle=1.25,Ligne=9,Couleur=green!50!black]{\sffamily\underline{Exercice 1 :}}
- \ParagraphePapierCinqCinq[Ligne=11]{\cursive\lipsum[1]}
- \ParagraphePapierCinqCinq[Ligne=30]
+ %echelle de 1.25 et espacement de 10mm (2 lignes) := calcul 10/1.25 pour l'espacement
+ \ParagraphePapierCinqCinq[Ligne=11,Echelle=1.25,Espacement=\fpeval{10/1.25}]{\cursive\lipsum[1]}
+ \ParagraphePapierCinqCinq[Ligne=38]
{%
On essaye avec des maths $1+\frac12=\frac32$ en mode ligne avec des lignes assez longues pour voir
ce que ça peut donner\ldots Et une intégrale $\int_0^1 2x dx = 1$.\\On essaye en passant à la ligne !!!
@@ -758,8 +801,8 @@
\LignePapierRuled[Echelle=1.25,Ligne=2,Couleur=red]<center>{\underline{\cursive\bfseries Devoir 3}}
\CadreNoteRuled{3}
\LignePapierRuled[Echelle=1.25,Ligne=8,Couleur=green!50!black]{\sffamily\underline{Exercice 1 :}}
- \ParagraphePapierRuled[Ligne=9]{\cursive\lipsum[1]}
- \ParagraphePapierRuled[Ligne=22]
+ \ParagraphePapierRuled[Ligne=9,Echelle=1.33,Espacement=\fpeval{9/1.33}]{\cursive\lipsum[1]}
+ \ParagraphePapierRuled[Ligne=28]
{%
On essaye avec des maths $1+\frac12=\frac32$ en mode ligne avec des lignes assez longues pour voir
ce que ça peut donner\ldots Et une intégrale $\int_0^1 2x dx = 1$.\\On essaye en passant à la ligne !!!
@@ -770,6 +813,10 @@
\section{Historique}
+\verb|v0.1.5|~:~~~~Possibilité de spécifier la réglure pour les quadrillages de type \textsf{Seyes} + meilleure gestion des paragraphes.
+
+\phantom{\texttt{v0.1.5}}~:~~~~Amélioration de la gestion des paragraphes en mode \textsf{pleine page}.
+
\verb|v0.1.4|~:~~~~Modification de la gestion des couleurs (\texttt{xcolor} n'est plus chargé avec \textsf{[table,svgnames]})
\verb|v0.1.3|~:~~~~Ajout d'une commande pour afficher (sans écrire dessus) une grille
Modified: trunk/Master/texmf-dist/tex/latex/writeongrid/WriteOnGrid.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/writeongrid/WriteOnGrid.sty 2023-11-15 21:08:45 UTC (rev 68862)
+++ trunk/Master/texmf-dist/tex/latex/writeongrid/WriteOnGrid.sty 2023-11-15 21:09:01 UTC (rev 68863)
@@ -2,7 +2,8 @@
% licence : Released under the LaTeX Project Public License v1.3c or later, see http://www.latex-project.org/lppl.txtf
\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{WriteOnGrid}[2023/08/09 v0.1.4 package to write on grid lines]
+\ProvidesPackage{WriteOnGrid}[2023/11/15 v0.1.5 package to write on grid lines]
+% 0.1.5 Choix de la réglure pour le seyes (en pretest) + amélioration de la gestion des paragraphes
% 0.1.4 Suppression des options de xcolor (définition manuelle des couleurs)
% 0.1.3 Ajout de commandes simples pour des mini-quadrillages autonomes, sans texte
% 0.1.2 Modification locale des couleurs + raccourcis couleurs Seyes / Ruled
@@ -10,7 +11,6 @@
% 0.1.0 Version initiale [fr] & [en]
%------Packages utiles
-%\RequirePackage[table,svgnames]{xcolor}
\RequirePackage{tikz}
\RequirePackage{simplekv}
\RequirePackage{xstring}
@@ -24,8 +24,10 @@
\definecolor{TyrianPurple}{rgb}{0.4,0.01,0.24}
\definecolor{PapierRose}{HTML}{E6B8E6}
\definecolor{PapierGris}{HTML}{D7E2EE}
+
\def\CoulSeyes{PapierRose/PapierGris}
\def\CoulRuled{PapierGris/TyrianPurple}
+
\def\ColSeyes{PapierRose/PapierGris}
\def\ColRuled{PapierGris/TyrianPurple}
@@ -44,7 +46,7 @@
\addtocounter{lgquadri}{1}
\useKVdefault[LigneQuadrill]
\setKV[LigneQuadrill]{#1}
- \node[text width=\fpeval{\ValeurCarreau*\QuadNbCol/\QuadEchelle-\ValeurCarreau*\useKV[Quadrill]{Marge}/\QuadEchelle}cm,align=#2,scale=\QuadEchelle,anchor=base west,inner sep={\useKV[LigneQuadrill]{Sep}}] at ($({\ValeurCarreau*\useKV[Quadrill]{Marge}+\ValeurCarreau*\useKV[LigneQuadrill]{DecalH}},{-\ValeurCarreau*\thelgquadri})+(0.025,\useKV[LigneQuadrill]{DecalV})$) {\strut #3} ;
+ \node[text width=\fpeval{\CoeffUnite*\ValeurCarreau*\QuadNbCol/\QuadEchelle-\CoeffUnite*\ValeurCarreau*\useKV[Quadrill]{Marge}/\QuadEchelle}cm,align=#2,scale=\QuadEchelle,anchor=base west,inner sep={\useKV[LigneQuadrill]{Sep}}] at ($({\ValeurCarreau*\useKV[Quadrill]{Marge}+\ValeurCarreau*\useKV[LigneQuadrill]{DecalH}},{-\ValeurCarreau*\thelgquadri})+(0.025,\useKV[LigneQuadrill]{DecalV})$) {\strut #3} ;
}
%déf des clés
@@ -53,7 +55,8 @@
Grille=\xdef\QuadType{#1},%
NbCarreaux=\xdef\QuadNbCar{#1},%
Elargir=\xdef\QuadElar{#1},%
- CouleurBarreSeyes=\xdef\QuadCoulSeyes{#1}
+ CouleurBarreSeyes=\xdef\QuadCoulSeyes{#1},%
+ ReglureSeyes=\xdef\QuadReglureSeyes{#1}
}
\setKVdefault[Quadrill]{%
@@ -64,7 +67,8 @@
Cadre=false,%
Grille=5x5,%
AffBarre=true,%
- CouleurBarreSeyes={red!75}
+ CouleurBarreSeyes={red!75},%
+ ReglureSeyes=2
}
\NewDocumentCommand\AffQuadrillage{ O{} D<>{lightgray!50/lightgray!25} }{%affichage simple du quadrillage
@@ -76,18 +80,19 @@
{\def\QuadCoulA{#2}\def\QuadCoulB{#2}}%
\StrCut{\QuadNbCar}{x}{\QuadNbCol}{\QuadNbLig}%
\IfStrEq{\QuadType}{Seyes}%les types de quadrillages
- {\xdef\ValeurCarreau{0.8}}%
+ {\xdef\ValeurCarreau{0.8}\xdef\CoeffUnite{\fpeval{(\QuadReglureSeyes)/2}}}%
{}%
\IfStrEq{\QuadType}{5x5}%
- {\xdef\ValeurCarreau{0.5}}%
+ {\xdef\ValeurCarreau{0.5}\xdef\CoeffUnite{1}}%
{}%
\IfStrEq{\QuadType}{Ruled}%
- {\xdef\ValeurCarreau{0.9}}%
+ {\xdef\ValeurCarreau{0.9}\xdef\CoeffUnite{1}}%
{}%
+
\IfSubStr{\QuadElar}{/}%on récupère les élargissements G et D
{\StrCut{\QuadElar}{/}{\QuadElarG}{\QuadElarD}}%
{\def\QuadElarG{\QuadElar}\def\QuadElarD{\QuadElar}}%
- \begin{tikzpicture}[xscale={\useKV[Quadrill]{Unite}},yscale={\useKV[Quadrill]{Unite}}]
+ \begin{tikzpicture}[xscale={\CoeffUnite*\useKV[Quadrill]{Unite}},yscale={\CoeffUnite*\useKV[Quadrill]{Unite}}]
\useasboundingbox (0,0) rectangle ({\ValeurCarreau*\QuadNbCol},{-\ValeurCarreau*\QuadNbLig}) ;%on fixe la grille de base, avant élargissement éventuel
\IfStrEq{\QuadType}{Seyes}%
{%
@@ -130,18 +135,18 @@
{\def\QuadCoulA{#2}\def\QuadCoulB{#2}}%
\StrCut{\QuadNbCar}{x}{\QuadNbCol}{\QuadNbLig}%
\IfStrEq{\QuadType}{Seyes}%les types de quadrillages
- {\xdef\ValeurCarreau{0.8}}%
+ {\xdef\ValeurCarreau{0.8}\xdef\CoeffUnite{\fpeval{(\QuadReglureSeyes)/2}}}%
{}%
\IfStrEq{\QuadType}{5x5}%
- {\xdef\ValeurCarreau{0.5}}%
+ {\xdef\ValeurCarreau{0.5}\xdef\CoeffUnite{1}}%
{}%
\IfStrEq{\QuadType}{Ruled}%
- {\xdef\ValeurCarreau{0.9}}%
+ {\xdef\ValeurCarreau{0.9}\xdef\CoeffUnite{1}}%
{}%
\IfSubStr{\QuadElar}{/}%on récupère les élargissements G et D
{\StrCut{\QuadElar}{/}{\QuadElarG}{\QuadElarD}}%
{\def\QuadElarG{\QuadElar}\def\QuadElarD{\QuadElar}}%
- \begin{tikzpicture}[xscale={\useKV[Quadrill]{Unite}},yscale={\useKV[Quadrill]{Unite}}]
+ \begin{tikzpicture}[xscale={\CoeffUnite*\useKV[Quadrill]{Unite}},yscale={\CoeffUnite*\useKV[Quadrill]{Unite}}]
\useasboundingbox (0,0) rectangle ({\ValeurCarreau*\QuadNbCol},{-\ValeurCarreau*\QuadNbLig}) ;%on fixe la grille de base, avant élargissement éventuel
\IfStrEq{\QuadType}{Seyes}%
{%
@@ -305,31 +310,49 @@
\defKV[SeyesFull]{%
CouleurP=\xdef\SeyesFullCoulP{#1},%
CouleurS=\xdef\SeyesFullCoulS{#1},%
- CouleurMarge=\xdef\SeyesFullCoulM{#1}
+ CouleurMarge=\xdef\SeyesFullCoulM{#1},%
+ ReglureSeyes=\xdef\SeyesFullReglureSeyes{#1},%
+ FormatPapier=\xdef\SeyesFullFormatPapier{#1}
}
\setKVdefault[SeyesFull]{%
CouleurP=PapierRose,%
CouleurS=PapierGris,%
CouleurMarge=red!75,
- NumLignes=false
+ NumLignes=false,%
+ ReglureSeyes=2,%
+ FormatPapier=A4
}
-\NewDocumentEnvironment{PleinePageSeyes}{ O{} }%semble OK ^^
+\NewDocumentEnvironment{PleinePageSeyes}{ O{} }%semble OK ^^, à tester avec modification de la taille de papier...
{
- \useKVdefault[SeyesFull]
- \setKV[SeyesFull]{#1}
- \begin{tikzpicture}[remember picture,overlay,x=1cm,y=1cm]
+ \useKVdefault[SeyesFull]%
+ \setKV[SeyesFull]{#1}%
+ \IfEq{\SeyesFullFormatPapier}{A4}%
+ {\xdef\SeyesFullHautPap{29.7}\xdef\SeyesFullLargPap{21}\xdef\SeyesFullMargeH{3}\xdef\SeyesFullMargeG{4}\xdef\SeyesFullHautEff{24}}%
+ {}%
+ \IfEq{\SeyesFullFormatPapier}{A5}%
+ {\xdef\SeyesFullHautPap{21}\xdef\SeyesFullLargPap{14.8}\xdef\SeyesFullMargeH{2.5}\xdef\SeyesFullMargeG{2.5}\xdef\SeyesFullHautEff{17}}%
+ {}%
+ \IfSubStr{\SeyesFullFormatPapier}{x}%
+ {\StrCut{\SeyesFullFormatPapier}{x}{\SeyesFullLargPap}{\SeyesFullHautPap}\xdef\SeyesFullMargeH{3}\xdef\SeyesFullMargeG{3}\xdef\SeyesFullHautEff{\fpeval{\SeyesFullHautPap-6}}}%
+ {}%
+ %calcul du nombre de lignes /colonnes ?
+ \xdef\SeyesFullNbLignP{\fpeval{round(\SeyesFullHautEff/(0.4*\SeyesFullReglureSeyes),0)}}%
+ \xdef\SeyesFullNbLignS{\fpeval{round(\SeyesFullHautEff/(0.1*\SeyesFullReglureSeyes),0)+5}}%
+ \xdef\SeyesFullNbCol{\fpeval{round((\SeyesFullLargPap-\SeyesFullMargeG)/(0.4*\SeyesFullReglureSeyes),0)}}%
+ %création de la grille
+ \begin{tikzpicture}[remember picture,overlay,x=1cm,y=1cm]%
%grille secondaire
- \foreach \L in {0,1,...,125} {\draw[\SeyesFullCoulS] ($(current page.north west)+(0,{-2.4-\L*0.2})$)--++({\paperwidth},0) ;}
+ \foreach \L in {0,...,\SeyesFullNbLignS} {\draw[\SeyesFullCoulS] ($(current page.north west)+(0,{-(\SeyesFullMargeH-0.3*\SeyesFullReglureSeyes)-\L*0.1*\SeyesFullReglureSeyes})$)--++({\paperwidth},0) ;}
%grille principale
- \foreach \C in {1,2,...,21} {\draw[\SeyesFullCoulP] ($(current page.north west)+({4+0.8*\C},0)$)--($(current page.south west)+({4+0.8*\C},0)$) ;}
- \foreach \L in {0,1,...,30} {\draw[\SeyesFullCoulP] ($(current page.north west)+(0,{-3-\L*0.8})$)--++({\paperwidth},0) ;}
+ \foreach \C in {1,...,\SeyesFullNbCol} {\draw[\SeyesFullCoulP] ($(current page.north west)+({\SeyesFullMargeG+(0.4*\SeyesFullReglureSeyes)*\C},0)$)--($(current page.south west)+({\SeyesFullMargeG+(0.4*\SeyesFullReglureSeyes)*\C},0)$) ;}
+ \foreach \L in {0,...,\SeyesFullNbLignP} {\draw[\SeyesFullCoulP] ($(current page.north west)+(0,{-(\SeyesFullMargeH)-\L*(0.4*\SeyesFullReglureSeyes)})$)--++({\paperwidth},0) ;}
%marge
- \draw[\SeyesFullCoulM,thick] ($(current page.north west)+(4,0)$)--($(current page.south west)+(4,0)$) ;
- \coordinate (SeyesOrigine) at ($(current page.north west)+(4,-3)$) ;
+ \draw[\SeyesFullCoulM,thick] ($(current page.north west)+({\SeyesFullMargeG},0)$)--($(current page.south west)+({\SeyesFullMargeG},0)$) ;
+ \coordinate (SeyesOrigine) at ($(current page.north west)+({\SeyesFullMargeG},{-\SeyesFullMargeH})$) ;
\ifboolKV[SeyesFull]{NumLignes}%
{%
- \foreach \lig in {1,2,...,31} {\node[gray,inner sep=0pt,anchor=base east] at ($(SeyesOrigine)+(-0.2,{-0.8*(\lig-1)})$) {\scriptsize\sffamily \lig};}
+ \foreach \lig in {1,...,\inteval{\SeyesFullNbLignP+1}} {\node[gray,inner sep=0pt,anchor=base east] at ($(SeyesOrigine)+(-0.2,{-0.4*\SeyesFullReglureSeyes*(\lig-1)})$) {\scriptsize\sffamily\lig};}
}%
{}
}
@@ -339,11 +362,11 @@
\newcommand\CadreNoteSeyes[2][3]{%on précise la {ligne de début} + [hauteur]
%cadre de note
- \draw[thick] ($(SeyesOrigine)+(0,{(-#2+1)*0.8})$) --++ ({\paperwidth-4cm},{0}) ;
- \draw[thick] ($(SeyesOrigine)+(0,{(-#2+1)*0.8})$) --++ ({0},{-#1*0.8}) ;
- \draw[thick] ($(SeyesOrigine)+(0,{(-#2+1-#1)*0.8})$) --++ ({\paperwidth-4cm},{0}) ;
- \draw[thick] ($(SeyesOrigine)+(0,{(-#2+1)*0.8})$) rectangle++ ({#1.*0.8},{-#1*0.8}) ;
- \draw[thick] ($(SeyesOrigine)+(0,{(-#2+1-#1)*0.8})$) --++ ({#1.*0.8},{#1*0.8}) ;
+ \draw[thick] ($(SeyesOrigine)+(0,{(-#2+1)*0.4*\SeyesFullReglureSeyes})$) --++ ({\SeyesFullLargPap-\SeyesFullMargeG},{0}) ;
+ \draw[thick] ($(SeyesOrigine)+(0,{(-#2+1)*0.4*\SeyesFullReglureSeyes})$) --++ ({0},{-#1*0.4*\SeyesFullReglureSeyes}) ;
+ \draw[thick] ($(SeyesOrigine)+(0,{(-#2+1-#1)*0.4*\SeyesFullReglureSeyes})$) --++ ({\SeyesFullLargPap-\SeyesFullMargeG},{0}) ;
+ \draw[thick] ($(SeyesOrigine)+(0,{(-#2+1)*0.4*\SeyesFullReglureSeyes})$) rectangle++ ({#1*0.4*\SeyesFullReglureSeyes},{-#1*0.4*\SeyesFullReglureSeyes}) ;
+ \draw[thick] ($(SeyesOrigine)+(0,{(-#2+1-#1)*0.4*\SeyesFullReglureSeyes})$) --++ ({#1*0.4*\SeyesFullReglureSeyes},{#1*0.4*\SeyesFullReglureSeyes}) ;
}
\defKV[SeyesLigne]{%
@@ -356,18 +379,21 @@
Couleur=black,%
Ligne=1,%
Echelle=1,%
- Largeur=16.5
+ Largeur=auto
}
\NewDocumentCommand\LignePapierSeyes{ O{} D<>{left} D(){0,0} m }{%
- \useKVdefault[SeyesLigne]
- \setKV[SeyesLigne]{#1}
- \node[\SeyesLigneCouleur,text width=\fpeval{\SeyesLigneLarg/\SeyesLigneEchelle}cm,align=#2,inner sep=0pt,anchor=base west,scale=\SeyesLigneEchelle] at ($(SeyesOrigine)+(0.05,{-(\SeyesLigne-1)*0.8})+(#3)$) {#4} ;
- }
+ \useKVdefault[SeyesLigne]%
+ \setKV[SeyesLigne]{#1}%
+ \IfEq{\SeyesLigneLarg}{auto}%
+ {\xdef\SeyesLigneLarg{\fpeval{\SeyesFullLargPap-\SeyesFullMargeG-0.25}}}%
+ {}%
+ \node[\SeyesLigneCouleur,text width=\fpeval{\SeyesLigneLarg/\SeyesLigneEchelle}cm,align=#2,inner sep=0pt,anchor=base west,scale=\SeyesLigneEchelle] at ($(SeyesOrigine)+(0.05,{-(\SeyesLigne-1)*0.4*\SeyesFullReglureSeyes})+(#3)$) {#4} ;
+}
\defKV[SeyesPar]{%
Couleur=\xdef\SeyesParCouleur{#1},%
- TaillePolice=\xdef\SeyesParEchelle{#1},%
+ Echelle=\xdef\SeyesParEchelle{#1},%
Espacement=\xdef\SeyesParBase{#1},%
Ligne=\xdef\SeyesPar{#1},%
Largeur=\xdef\SeyesParLarg{#1}
@@ -375,40 +401,66 @@
\setKVdefault[SeyesPar]{%
Couleur=black,%
Ligne=1,%
- TaillePolice=11,%
- Espacement=22.792,%
- Largeur=16.5
+ Echelle=1,%
+ Espacement=auto,%
+ Largeur=auto
}
-\NewDocumentCommand\ParagraphePapierSeyes{ O{} D<>{justify} D(){0,0} m }{%
- \useKVdefault[SeyesPar]
- \setKV[SeyesPar]{#1}
- \node[\SeyesParCouleur,text width=\SeyesParLarg cm,align=#2,inner sep=0pt,anchor=base west,font=\fontsize{\SeyesParEchelle}{\SeyesParBase}\selectfont] at ($(SeyesOrigine)+(0.05,{-(\SeyesPar-1)*0.8})+(#3)$) {#4} ;
+\RequirePackage{setspace}
+
+\NewDocumentCommand\ParagraphePapierSeyes{ O{} D<>{justify} D(){0,0} m }{%essayer de passer à setspace ?
+ \useKVdefault[SeyesPar]%
+ \setKV[SeyesPar]{#1}%
+ \IfEq{\SeyesParLarg}{auto}%
+ {\xdef\SeyesParLarg{\fpeval{\SeyesFullLargPap-\SeyesFullMargeG-0.25}}}%
+ {}%
+ \IfStrEq{\SeyesParBase}{auto}%
+ {%
+ \def\SeyesStretchPar{\fpeval{4*\SeyesFullReglureSeyes/\SeyesParEchelle}}%
+ }%
+ {%
+ \def\SeyesStretchPar{\SeyesParBase}%
+ }%
+ \node[\SeyesParCouleur,text width=\fpeval{\SeyesParLarg/\SeyesParEchelle}cm,align=#2,inner sep=0pt,anchor=base west,scale=\SeyesParEchelle,execute at begin node=\setlength{\baselineskip}{\SeyesStretchPar mm}] at ($(SeyesOrigine)+(0.05,{-(\SeyesPar-1)*0.4*\SeyesFullReglureSeyes})+(#3)$) {#4} ;
}
%------page entière 5x5
\defKV[CxCFull]{%
Couleur=\xdef\CCFullCoul{#1},%
- CouleurMarge=\xdef\CCFullCoulM{#1}
+ CouleurMarge=\xdef\CCFullCoulM{#1},%
+ FormatPapier=\xdef\CCFullFormatPap{#1}
}
\setKVdefault[CxCFull]{%
Couleur=lightgray!50,%
CouleurMarge=gray,%
- NumLignes=false
+ NumLignes=false,%
+ FormatPapier=A4
}
\NewDocumentEnvironment{PleinePageCinqCinq}{ O{} }%semble OK ^^
{
- \useKVdefault[CxCFull]
- \setKV[CxCFull]{#1}
+ \useKVdefault[CxCFull]%
+ \setKV[CxCFull]{#1}%
+ \IfEq{\CCFullFormatPap}{A4}%
+ {\xdef\CCFullHautPap{29.7}\xdef\CCFullLargPap{21}\xdef\CCFullMargeG{1.7}\xdef\CCFullMargeH{1.3}}%
+ {}%
+ \IfEq{\CCFullFormatPap}{A5}%
+ {\xdef\CCFullHautPap{21}\xdef\CCFullLargPap{14.8}\xdef\CCFullMargeG{1.2}\xdef\CCFullMargeH{0.8}}%
+ {}%
+ \IfSubStr{\CCFullFormatPap}{x}%
+ {\StrCut{\CCFullFormatPap}{x}{\CCFullLargPap}{\CCFullHautPap}\xdef\CCFullMargeG{1.7}\xdef\CCFullMargeH{1.3}}%
+ {}%
+ %calcul du nombre de lignes /colonnes ?
+ \xdef\CCFullNbLign{\fpeval{round(\CCFullHautPap/(0.5),0)}}%
+ \xdef\CCFullNbCol{\fpeval{round((\CCFullLargPap)/(0.5),0)}}%
\begin{tikzpicture}[remember picture,overlay,x=1cm,y=1cm]
%lignes horizontales
- \foreach \L in {0,1,...,58} {\draw[\CCFullCoul] ($(current page.north west)+(0,{-0.3-\L*0.5})$)--++({\paperwidth},0) ;}
+ \foreach \L in {0,1,...,\CCFullNbLign} {\draw[\CCFullCoul] ($(current page.north west)+(0,{-0.3-\L*0.5})$)--++({\paperwidth},0) ;}
%lignes verticales
- \foreach \C in {0,1,...,41} {\draw[\CCFullCoul] ($(current page.north west)+({0.2+0.5*\C},0)$)--($(current page.south west)+({0.2+0.5*\C},0)$) ;}
+ \foreach \C in {0,1,...,\CCFullNbCol} {\draw[\CCFullCoul] ($(current page.north west)+({0.2+0.5*\C},0)$)--($(current page.south west)+({0.2+0.5*\C},0)$) ;}
%marge
- \draw[\CCFullCoulM,thick] ($(current page.north west)+(1.7,0)$)--($(current page.south west)+(1.7,0)$) ;
- \coordinate (CinqCinqOrigine) at ($(current page.north west)+(1.7,-1.3)$) ;
+ \draw[\CCFullCoulM,thick] ($(current page.north west)+(\CCFullMargeG,0)$)--($(current page.south west)+(\CCFullMargeG,0)$) ;
+ \coordinate (CinqCinqOrigine) at ($(current page.north west)+({\CCFullMargeG},{-\CCFullMargeH})$) ;
\ifboolKV[CxCFull]{NumLignes}%
{%
\foreach \lig in {1,2,...,57} {\node[gray,inner sep=0pt,anchor=base east] at ($(CinqCinqOrigine)+(-0.2,{-0.5*(\lig-1)})$) {\tiny\sffamily \lig};}
@@ -421,9 +473,9 @@
\newcommand\CadreNoteCinqCinq[2][3]{%on précise la {ligne de début} + [hauteur]
%cadre de note
- \draw[thick] ($(CinqCinqOrigine)+(0,{(-#2+1)*0.5})$) --++ ({\paperwidth-1.7cm},{0}) ;
+ \draw[thick] ($(CinqCinqOrigine)+(0,{(-#2+1)*0.5})$) --++ ({\CCFullLargPap-\CCFullMargeG},{0}) ;
\draw[thick] ($(CinqCinqOrigine)+(0,{(-#2+1)*0.5})$) --++ ({0},{-#1*0.5}) ;
- \draw[thick] ($(CinqCinqOrigine)+(0,{(-#2+1-#1)*0.5})$) --++ ({\paperwidth-1.7cm},{0}) ;
+ \draw[thick] ($(CinqCinqOrigine)+(0,{(-#2+1-#1)*0.5})$) --++ ({\CCFullLargPap-\CCFullMargeG},{0}) ;
\draw[thick] ($(CinqCinqOrigine)+(0,{(-#2+1)*0.5})$) rectangle++ ({#1.*0.5},{-#1*0.5}) ;
\draw[thick] ($(CinqCinqOrigine)+(0,{(-#2+1-#1)*0.5})$) --++ ({#1.*0.5},{#1*0.5}) ;
}
@@ -438,18 +490,21 @@
Couleur=black,%
Ligne=1,%
Echelle=1,%
- Largeur=18.7
+ Largeur=auto
}
\NewDocumentCommand\LignePapierCinqCinq{ O{} D<>{left} D(){0,0} m }{%
- \useKVdefault[CCLigne]
- \setKV[CCLigne]{#1}
+ \useKVdefault[CCLigne]%
+ \setKV[CCLigne]{#1}%
+ \IfEq{\CCLigneLarg}{auto}%
+ {\xdef\CCLigneLarg{\fpeval{\CCFullLargPap-\CCFullMargeG-0.25}}}%
+ {}%
\node[\CCLigneCouleur,text width=\fpeval{\CCLigneLarg/\CCLigneEchelle}cm,align=#2,inner sep=0pt,anchor=base west,scale=\CCLigneEchelle] at ($(CinqCinqOrigine)+(0.05,{-(\CCLigne-1)*0.5})+(#3)$) {#4} ;
}
\defKV[CCPar]{%
Couleur=\xdef\CCParCouleur{#1},%
- TaillePolice=\xdef\CCParEchelle{#1},%
+ Echelle=\xdef\CCParEchelle{#1},%
Espacement=\xdef\CCParBase{#1},%
Ligne=\xdef\CCPar{#1},%
Largeur=\xdef\CCParLarg{#1}
@@ -457,44 +512,69 @@
\setKVdefault[CCPar]{%
Couleur=black,%
Ligne=1,%
- TaillePolice=11,%
- Espacement=28.5,%
- Largeur=18.75
+ Echelle=1,%
+ Espacement=auto,%
+ Largeur=auto
}
\NewDocumentCommand\ParagraphePapierCinqCinq{ O{} D<>{justify} D(){0,0} m }{%
\useKVdefault[CCPar]
- \setKV[CCPar]{#1}
- \node[\CCParCouleur,text width=\CCParLarg cm,align=#2,inner sep=0pt,anchor=base west,font=\fontsize{\CCParEchelle}{\CCParBase}\selectfont] at ($(CinqCinqOrigine)+(0.05,{-(\CCPar-1)*0.5})+(#3)$) {#4} ;
+ \setKV[CCPar]{#1}%
+ \IfEq{\CCParLarg}{auto}%
+ {\xdef\CCParLarg{\fpeval{\CCFullLargPap-\CCFullMargeG-0.25}}}%
+ {}%
+ \IfStrEq{\CCParBase}{auto}%
+ {%
+ \def\CCStretchPar{\fpeval{5/\CCParEchelle}}%
+ }%
+ {%
+ \def\CCStretchPar{\CCParBase}%
+ }
+ \node[\CCParCouleur,text width=\fpeval{\CCParLarg/\CCParEchelle}cm,align=#2,inner sep=0pt,anchor=base west,scale=\CCParEchelle,execute at begin node=\setlength{\baselineskip}{\CCStretchPar mm}] at ($(CinqCinqOrigine)+(0.05,{-(\CCPar-1)*0.5})+(#3)$) {#4} ;
}
%------page entière ruled
\defKV[RuledFull]{%
Couleur=\xdef\RuledFullCoul{#1},%
- CouleurMarge=\xdef\RuledFullCoulMarge{#1}
+ CouleurMarge=\xdef\RuledFullCoulMarge{#1},%
+ FormatPapier=\xdef\RuledFullFormatPapier{#1}
}
\setKVdefault[RuledFull]{%
Couleur=PapierGris,%
CouleurMarge=TyrianPurple,%
- NumLignes=false
+ NumLignes=false,%
+ FormatPapier=A4
}
\NewDocumentEnvironment{PleinePageRuled}{ O{} }%semble OK ^^
{
- \useKVdefault[RuledFull]
- \setKV[RuledFull]{#1}
+ \useKVdefault[RuledFull]%
+ \setKV[RuledFull]{#1}%
+
+ \IfEq{\RuledFullFormatPapier}{A4}%
+ {\xdef\RuledFullHautPap{29.7}\xdef\RuledFullLargPap{21}\xdef\RuledFullMarge{3}\xdef\RuledFullMargeH{1.5}\xdef\RuledFullHautEff{26.1}}%
+ {}%
+ \IfEq{\RuledFullFormatPapier}{A5}%
+ {\xdef\RuledFullHautPap{21}\xdef\RuledFullLargPap{14.8}\xdef\RuledFullMarge{1.5}\xdef\RuledFullMargeH{1.25}\xdef\RuledFullHautEff{18.9}}%
+ {}%
+ \IfSubStr{\RuledFullFormatPapier}{x}%
+ {\StrCut{\RuledFullFormatPapier}{x}{\RuledFullLargPap}{\RuledFullHautPap}\xdef\RuledFullMarge{3}\xdef\RuledFullMargeH{3}\xdef\RuledFullHautEff{\fpeval{\RuledFullHautPap-3.5}}}%
+ {}%
+ %calcul du nombre de lignes /colonnes ?
+ \xdef\RuledFullNbLign{\fpeval{round(\RuledFullHautEff/(0.9),0)}}%
\begin{tikzpicture}[remember picture,overlay,x=1cm,y=1cm]
%lignes horizontales
- \foreach \L in {1.5,2.4,...,27.6} {\draw[\RuledFullCoul] ($(current page.north west)+(0,{-\L})$)--++({\paperwidth},0) ;}
+ \foreach \L in {1,...,\RuledFullNbLign} {\draw[\RuledFullCoul] ($(current page.north west)+(0,{-(\L-1)*0.9-\RuledFullMargeH})$)--++({\paperwidth},0) ;}
+ %\foreach \L in {1.5,2.4,...,27.6} {\draw[\RuledFullCoul] ($(current page.north west)+(0,{-\L})$)--++({\paperwidth},0) ;}
%lignes verticales
- \draw[thick,\RuledFullCoulMarge] ($(current page.north west)+(3,0)$)--($(current page.south west)+(3,0)$) ;
- \draw[thick,\RuledFullCoulMarge] ($(current page.north east)+(-3,0)$)--($(current page.south east)+(-3,0)$) ;
+ \draw[thick,\RuledFullCoulMarge] ($(current page.north west)+({\RuledFullMarge},0)$)--($(current page.south west)+({\RuledFullMarge},0)$) ;
+ \draw[thick,\RuledFullCoulMarge] ($(current page.north east)+({-\RuledFullMarge},0)$)--($(current page.south east)+({-\RuledFullMarge},0)$) ;
%\foreach \C in {3} {\draw[thick,\RuledFullCoulMarge] ($(current page.north west)+({\C},0)$)--($(current page.south west)+({\C},0)$) ;}
%origine
- \coordinate (RuledOrigine) at ($(current page.north west)+(3,-1.5)$) ;
+ \coordinate (RuledOrigine) at ($(current page.north west)+({\RuledFullMarge},{-\RuledFullMargeH})$) ;
\ifboolKV[RuledFull]{NumLignes}%
{%
- \foreach \lig in {1,2,...,30} {\node[gray,inner sep=0pt,anchor=base east] at ($(RuledOrigine)+(-0.2,{-0.9*(\lig-1)})$) {\tiny\sffamily \lig};}
+ \foreach \lig in {1,...,\RuledFullNbLign} {\node[gray,inner sep=0pt,anchor=base east] at ($(RuledOrigine)+(-0.2,{-0.9*(\lig-1)})$) {\tiny\sffamily \lig};}
}%
{}
}
@@ -504,10 +584,10 @@
\newcommand\CadreNoteRuled[2][3]{%on précise la {ligne de début} + [hauteur]
%cadre de note
- \draw[thick] ($(RuledOrigine)+(0,{(-#2+1)*0.9})$) --++ ({\paperwidth-6cm},{0}) ;
+ \draw[thick] ($(RuledOrigine)+(0,{(-#2+1)*0.9})$) --++ ({\RuledFullLargPap-2*\RuledFullMarge},{0}) ;
\draw[thick] ($(RuledOrigine)+(0,{(-#2+1)*0.9})$) --++ ({0},{-#1*0.9}) ;
\draw[thick] ($(RuledOrigine)+({\paperwidth-6},{(-#2+1)*0.9})$) --++ ({0},{-#1*0.9}) ;
- \draw[thick] ($(RuledOrigine)+(0,{(-#2+1-#1)*0.9})$) --++ ({\paperwidth-6cm},{0}) ;
+ \draw[thick] ($(RuledOrigine)+(0,{(-#2+1-#1)*0.9})$) --++ ({\RuledFullLargPap-2*\RuledFullMarge},{0}) ;
\draw[thick] ($(RuledOrigine)+(0,{(-#2+1)*0.9})$) rectangle++ ({#1.*0.9},{-#1*0.9}) ;
\draw[thick] ($(RuledOrigine)+(0,{(-#2+1-#1)*0.9})$) --++ ({#1.*0.9},{#1*0.9}) ;
}
@@ -522,18 +602,22 @@
Couleur=black,%
Ligne=1,%
Echelle=1,%
- Largeur=14.75
+ Largeur=auto
}
\NewDocumentCommand\LignePapierRuled{ O{} D<>{left} D(){0,0} m }{%
- \useKVdefault[RuledLigne]
- \setKV[RuledLigne]{#1}
+ \useKVdefault[RuledLigne]%
+ \setKV[RuledLigne]{#1}%
+ \IfEq{\RuledLigneLarg}{auto}%
+ {\xdef\RuledLigneLarg{\fpeval{\RuledFullLargPap-2*\RuledFullMarge-0.25}}}%
+ {}%
\node[\RuledLigneCouleur,text width=\fpeval{\RuledLigneLarg/\RuledLigneEchelle}cm,align=#2,inner sep=0pt,anchor=base west,scale=\RuledLigneEchelle] at ($(RuledOrigine)+(0.05,{-(\RuledLigne-1)*0.9})+(#3)$) {#4} ;
}
\defKV[RuledPar]{%
Couleur=\xdef\RuledParCouleur{#1},%
- TaillePolice=\xdef\RuledParEchelle{#1},%
+ Echelle=\xdef\RuledParEchelle{#1},%
+ %TaillePolice=\xdef\RuledParEchelle{#1},%
Espacement=\xdef\RuledParBase{#1},%
Ligne=\xdef\RuledPar{#1},%
Largeur=\xdef\RuledParLarg{#1}
@@ -541,15 +625,26 @@
\setKVdefault[RuledPar]{%
Couleur=black,%
Ligne=1,%
- TaillePolice=11,%
- Espacement=25.641,%
- Largeur=14.75
+ %TaillePolice=11,%
+ Echelle=1,%
+ Espacement=auto,%
+ Largeur=auto
}
\NewDocumentCommand\ParagraphePapierRuled{ O{} D<>{justify} D(){0,0} m }{%
- \useKVdefault[RuledPar]
- \setKV[RuledPar]{#1}
- \node[\RuledParCouleur,text width=\RuledParLarg cm,align=#2,inner sep=0pt,anchor=base west,font=\fontsize{\RuledParEchelle}{\RuledParBase}\selectfont] at ($(RuledOrigine)+(0.05,{-(\RuledPar-1)*0.9})+(#3)$) {#4} ;
+ \useKVdefault[RuledPar]%
+ \setKV[RuledPar]{#1}%
+ \IfEq{\RuledParLarg}{auto}%
+ {\xdef\RuledParLarg{\fpeval{\RuledFullLargPap-2*\RuledFullMarge-0.25}}}%
+ {}%
+ \IfStrEq{\RuledParBase}{auto}%
+ {%
+ \def\RuledStretchPar{\fpeval{9/\RuledParEchelle}}%
+ }%
+ {%
+ \def\RuledStretchPar{\RuledParBase}%
+ }
+ \node[\RuledParCouleur,text width=\fpeval{\RuledParLarg/\RuledParEchelle}cm,align=#2,inner sep=0pt,anchor=base west,scale=\RuledParEchelle,execute at begin node=\setlength{\baselineskip}{\RuledStretchPar mm}] at ($(RuledOrigine)+(0.05,{-(\RuledPar-1)*0.9})+(#3)$) {#4} ;
}
\endinput
\ No newline at end of file
More information about the tex-live-commits
mailing list.