diff options
Diffstat (limited to 'macros/latex/contrib/writeongrid/tex/WriteOnGrid.sty')
-rw-r--r-- | macros/latex/contrib/writeongrid/tex/WriteOnGrid.sty | 62 |
1 files changed, 36 insertions, 26 deletions
diff --git a/macros/latex/contrib/writeongrid/tex/WriteOnGrid.sty b/macros/latex/contrib/writeongrid/tex/WriteOnGrid.sty index 3592416885..d0b82ea5c1 100644 --- a/macros/latex/contrib/writeongrid/tex/WriteOnGrid.sty +++ b/macros/latex/contrib/writeongrid/tex/WriteOnGrid.sty @@ -2,8 +2,9 @@ % 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/01/20 v0.1.1 package to write on grid lines] -% 0.1.1 Ajout de la couleur + modifications mineures + grille "ruled" + grilles pleine page ! +\ProvidesPackage{WriteOnGrid}[2023/01/30 v0.1.2 package to write on grid lines] +% 0.1.2 Modification locale des couleurs + raccourcis couleurs Seyes / Ruled +% 0.1.1 Ajout de la couleur + modifications mineures + grille "Ruled" + grilles pleine page ! % 0.1.0 Version initiale [fr] & [en] %------Packages utiles @@ -17,6 +18,11 @@ %------Variables \newcounter{lgquadri}%compteur des lignes, qui sera incrémenté +\definecolor{TyrianPurple}{rgb}{0.4,0.01,0.24} +\def\CoulSeyes{Plum!75/LightSteelBlue!50} +\def\CoulRuled{LightSteelBlue!50/TyrianPurple} +\def\ColSeyes{Plum!75/LightSteelBlue!50} +\def\ColRuled{LightSteelBlue!50/TyrianPurple} %------Commandes [fr] \newcommand\PasseLigne{\addtocounter{lgquadri}{1}}%passer une ligne @@ -86,7 +92,7 @@ {% \foreach \LLL in {0,1,...,\QuadNbLig} {\draw[,thin,\QuadCoulA] ({-\ValeurCarreau*\QuadElarG},{-\LLL*\ValeurCarreau}) -- ({\ValeurCarreau*\QuadNbCol+\ValeurCarreau*\QuadElarD},{-\ValeurCarreau*\LLL}) ; } %\draw[xstep={\ValeurCarreau*\QuadNbCol},ystep=0.9,thin,\QuadCoulA] ({-\ValeurCarreau*\QuadElarG},0) grid ({\ValeurCarreau*\QuadNbCol+\ValeurCarreau*\QuadElarD},{-\ValeurCarreau*\QuadNbLig}) ;%grille college - \draw[thin,\QuadCoulA] ({\ValeurCarreau*\useKV[Quadrill]{Marge}},0) -- ({\ValeurCarreau*\useKV[Quadrill]{Marge}},{-\ValeurCarreau*\QuadNbLig}) ;%barre college + \draw[thick,\QuadCoulB] ({\ValeurCarreau*\useKV[Quadrill]{Marge}},0) -- ({\ValeurCarreau*\useKV[Quadrill]{Marge}},{-\ValeurCarreau*\QuadNbLig}) ;%barre college }% {}% \ifboolKV[Quadrill]{Cadre}%cadre pour visualiser la "marge" (officielle) @@ -152,7 +158,7 @@ {% \foreach \LLL in {0,1,...,\QuadNbLig} {\draw[,thin,\QuadCoulA] ({-\ValeurCarreau*\QuadElarG},{-\LLL*\ValeurCarreau}) -- ({\ValeurCarreau*\QuadNbCol+\ValeurCarreau*\QuadElarD},{-\ValeurCarreau*\LLL}) ; } %\draw[xstep={\ValeurCarreau*\QuadNbCol},ystep=0.9,thin,\QuadCoulA] ({-\ValeurCarreau*\QuadElarG},0) grid ({\ValeurCarreau*\QuadNbCol+\ValeurCarreau*\QuadElarD},{-\ValeurCarreau*\QuadNbLig}) ;%grille college - \draw[thin,\QuadCoulA] ({\ValeurCarreau*\useKV[Quadril]{Margin}},0) -- ({\ValeurCarreau*\useKV[Quadril]{Margin}},{-\ValeurCarreau*\QuadNbLig}) ;%barre college + \draw[thick,\QuadCoulB] ({\ValeurCarreau*\useKV[Quadril]{Margin}},0) -- ({\ValeurCarreau*\useKV[Quadril]{Margin}},{-\ValeurCarreau*\QuadNbLig}) ;%barre college }% {}% \ifboolKV[Quadril]{Border}%cadre pour la "marge" @@ -182,10 +188,10 @@ \setKV[SeyesFull]{#1} \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})$)--++(21,0) ;} + \foreach \L in {0,1,...,125} {\draw[\SeyesFullCoulS] ($(current page.north west)+(0,{-2.4-\L*0.2})$)--++({\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})$)--++(21,0) ;} + \foreach \L in {0,1,...,30} {\draw[\SeyesFullCoulP] ($(current page.north west)+(0,{-3-\L*0.8})$)--++({\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)$) ; @@ -201,9 +207,9 @@ \newcommand\CadreNoteSeyes[2][3]{%on précise la {ligne de début} + [hauteur] %cadre de note - \draw[thick] ($(SeyesOrigine)+(0,{(-#2+1)*0.8})$) --++ ({17},{0}) ; + \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})$) --++ ({17},{0}) ; + \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}) ; } @@ -224,7 +230,7 @@ \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.025,{-(\SeyesLigne-1)*0.8})+(#3)$) {#4} ; + \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} ; } \defKV[SeyesPar]{% @@ -245,7 +251,7 @@ \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.025,{-(\SeyesPar-1)*0.8})+(#3)$) {#4} ; + \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} ; } %------page entière 5x5 @@ -255,7 +261,7 @@ } \setKVdefault[CxCFull]{% Couleur=lightgray!50,% - CouleurMarge=gray, + CouleurMarge=gray,% NumLignes=false } @@ -265,7 +271,7 @@ \setKV[CxCFull]{#1} \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})$)--++(21,0) ;} + \foreach \L in {0,1,...,58} {\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)$) ;} %marge @@ -283,9 +289,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})$) --++ ({19.3},{0}) ; + \draw[thick] ($(CinqCinqOrigine)+(0,{(-#2+1)*0.5})$) --++ ({\paperwidth-1.7cm},{0}) ; \draw[thick] ($(CinqCinqOrigine)+(0,{(-#2+1)*0.5})$) --++ ({0},{-#1*0.5}) ; - \draw[thick] ($(CinqCinqOrigine)+(0,{(-#2+1-#1)*0.5})$) --++ ({19.3},{0}) ; + \draw[thick] ($(CinqCinqOrigine)+(0,{(-#2+1-#1)*0.5})$) --++ ({\paperwidth-1.7cm},{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}) ; } @@ -306,7 +312,7 @@ \NewDocumentCommand\LignePapierCinqCinq{ O{} D<>{left} D(){0,0} m }{% \useKVdefault[CCLigne] \setKV[CCLigne]{#1} - \node[\CCLigneCouleur,text width=\fpeval{\CCLigneLarg/\CCLigneEchelle}cm,align=#2,inner sep=0pt,anchor=base west,scale=\CCLigneEchelle] at ($(CinqCinqOrigine)+(0.025,{-(\CCLigne-1)*0.5})+(#3)$) {#4} ; + \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]{% @@ -321,21 +327,23 @@ Ligne=1,% TaillePolice=11,% Espacement=28.5,% - Largeur=18.7 + Largeur=18.75 } \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.025,{-(\CCPar-1)*0.5})+(#3)$) {#4} ; + \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} ; } %------page entière ruled \defKV[RuledFull]{% - Couleur=\xdef\RuledFullCoul{#1} + Couleur=\xdef\RuledFullCoul{#1},% + CouleurMarge=\xdef\RuledFullCoulMarge{#1} } \setKVdefault[RuledFull]{% - Couleur=lightgray,% + Couleur=LightSteelBlue!50,% + CouleurMarge=TyrianPurple,% NumLignes=false } @@ -345,9 +353,11 @@ \setKV[RuledFull]{#1} \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})$)--++(21,0) ;} + \foreach \L in {1.5,2.4,...,27.6} {\draw[\RuledFullCoul] ($(current page.north west)+(0,{-\L})$)--++({\paperwidth},0) ;} %lignes verticales - \foreach \C in {3,18} {\draw[\RuledFullCoul] ($(current page.north west)+({\C},0)$)--($(current page.south west)+({\C},0)$) ;} + \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)$) ; + %\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)$) ; \ifboolKV[RuledFull]{NumLignes}% @@ -362,10 +372,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})$) --++ ({15},{0}) ; + \draw[thick] ($(RuledOrigine)+(0,{(-#2+1)*0.9})$) --++ ({\paperwidth-6cm},{0}) ; \draw[thick] ($(RuledOrigine)+(0,{(-#2+1)*0.9})$) --++ ({0},{-#1*0.9}) ; - \draw[thick] ($(RuledOrigine)+(15,{(-#2+1)*0.9})$) --++ ({0},{-#1*0.9}) ; - \draw[thick] ($(RuledOrigine)+(0,{(-#2+1-#1)*0.9})$) --++ ({15},{0}) ; + \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)*0.9})$) rectangle++ ({#1.*0.9},{-#1*0.9}) ; \draw[thick] ($(RuledOrigine)+(0,{(-#2+1-#1)*0.9})$) --++ ({#1.*0.9},{#1*0.9}) ; } @@ -386,7 +396,7 @@ \NewDocumentCommand\LignePapierRuled{ O{} D<>{left} D(){0,0} m }{% \useKVdefault[RuledLigne] \setKV[RuledLigne]{#1} - \node[\RuledLigneCouleur,text width=\fpeval{\RuledLigneLarg/\RuledLigneEchelle}cm,align=#2,inner sep=0pt,anchor=base west,scale=\RuledLigneEchelle] at ($(RuledOrigine)+(0.025,{-(\RuledLigne-1)*0.9})+(#3)$) {#4} ; + \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]{% @@ -407,7 +417,7 @@ \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.025,{-(\RuledPar-1)*0.9})+(#3)$) {#4} ; + \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} ; } \endinput
\ No newline at end of file |