Re: New header

[Hans Hagen <pragma@wxs.nl>]

[-- Attachment #1: Type: text/plain, Size: 3135 bytes --]

On 1/20/2014 10:34 AM, Fabrice Couvreur wrote:
> Hi,
> Here is the resulting file with LuaLaTeX.
> Thank you.
>
>
> 2014/1/18 Fabrice Couvreur <fabrice1.couvreur@gmail.com
> <mailto:fabrice1.couvreur@gmail.com>>
>
>     Hi,
>     I use the following header to my statements made with tittlesec
>     package.
>
>     \makeatletter
>
>          \newcommand{\@classe}[1]{}
>          \newcommand{\classe}[1]{\gdef\@classe{#1}}
>          \newcommand{\@typedevoir}[1]{}
>          \newcommand{\typedevoir}[1]{\gdef\@typedevoir{#1}}
>          \newcommand{\@numerodevoir}[1]{}
>          \newcommand{\numerodevoir}[1]{\gdef\@numerodevoir{#1}}
>          \AtBeginDocument{\section{\@typedevoir\space\no\@numerodevoir}}
>          \titleformat{\section}[frame]
>            {\normalfont}
>            {\footnotesize\enspace\itshape\@classe\enspace--\enspace Le
>     \@date\enspace}
>            {10pt}
>            {\Large\scshape\bfseries\filcenter}
>        \makeatother
>
>     I want to gradually move to ConTeXt and I tried to create the same
>     header.
>     But I do not yet know all the commands to do with ConTeXt.
>
>     \setuptextrules
>     [style=\it,location=top]
>     \define[6]\MyHeader{%
>
>     \textrule[top]{#1\space--\space\date[d=#2,m=#3,y=#4]}{\startlinealignment[middle]{\cap
>     \bf #5 \space n\high{{o}}\space {#6}}\stoplinealignment\blank\textrule}}
>
>     \starttext
>     \MyHeader{Seconde GTA}{11}{1}{2014}{Devoir de Mathématiques}{7}
>     \stoptext
>     Thank you.

an exercise in

- mkvi
- metapost
- framed
- definitions

don't forget to start your tex file with this line:

% macros=mkvi

\starttext

     \starttexdefinition MyOtherHeader #where #day #month #year #title 
#number

         \defineoverlay[whatever][\useMPgraphic{whatever}]

         \startuseMPgraphic{whatever}

             draw OverlayBox withpen pencircle scaled .5pt dashed evenly ;

             picture p ; p := 
textext("\it\quad#where\space\endash\space\date[d=#day,m=#month,y=#year]\quad")
                 shifted .5[ulcorner OverlayBox,urcorner OverlayBox];

             fill boundingbox p withcolor white ; draw p ;

             setbounds currentpicture to OverlayBox ;

         \stopuseMPgraphic

         \framed [
             width=\hsize,
             height=5em,
             foregroundstyle=\cap\bf,
             background=whatever,
             frame=off,
         ] {
             #title
             \space
             n\high{o}
             \space
             #number
         }

     \stoptexdefinition

     \MyOtherHeader{Seconde GTA}{11}{1}{2014}{Devoir de Mathématiques}{7}

\stoptext



-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
     tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
                                              | www.pragma-pod.nl
-----------------------------------------------------------------

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: titlething.tex --]
[-- Type: text/x-tex; name="titlething.tex", Size: 1029 bytes --]

% macros=mkvi

\starttext

    \starttexdefinition MyOtherHeader #where #day #month #year #title #number

        \defineoverlay[whatever][\useMPgraphic{whatever}]

        \startuseMPgraphic{whatever}

            draw OverlayBox withpen pencircle scaled .5pt dashed evenly ;

            picture p ; p := textext("\it\quad#where\space\endash\space\date[d=#day,m=#month,y=#year]\quad")
                shifted .5[ulcorner OverlayBox,urcorner OverlayBox];

            fill boundingbox p withcolor white ; draw p ;

            setbounds currentpicture to OverlayBox ;

        \stopuseMPgraphic

        \framed [
            width=\hsize,
            height=5em,
            foregroundstyle=\cap\bf,
            background=whatever,
            frame=off,
        ] {
            #title
            \space
            n\high{o}
            \space
            #number
        }

    \stoptexdefinition

    \MyOtherHeader{Seconde GTA}{11}{1}{2014}{Devoir de Mathématiques}{7}

\stoptext

[-- Attachment #3: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________